Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 06:39:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

code size opts

Browse Source
This commit is contained in:
pkali
2022-06-05 21:36:38 -04:00
parent 743114fd0d
commit d8bfda28a0
2 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+11 -13
View File
@@ -1346,11 +1346,9 @@ DOTNcharloop
ldy #0 ldy #0
sty LineCharNr sty LineCharNr
TypeLine4x4Loop TypeLine4x4Loop
ldy LineCharNr ldy LineCharNr
mwa LineAddress4x4 temp mwa LineAddress4x4 temp
lda (temp),y lda (temp),y
cmp #$ff cmp #$ff
@@ -1381,10 +1379,8 @@ EndOfTypeLine4x4
mva #4 ResultY ; where seppuku text starts Y-wise on the screen mva #4 ResultY ; where seppuku text starts Y-wise on the screen
;top frame ;top frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_top
adb ResultY #4 ;next line adb ResultY #4 ;next line
;seppuku ;seppuku
@@ -1396,7 +1392,7 @@ EndOfTypeLine4x4
;bottom frame ;bottom frame
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TL4x4_bottom ; just go jsr TL4x4_bottom
jsr GetKey jsr GetKey
@@ -1446,10 +1442,8 @@ seppuku_loop
mva #4 ResultY ; where seppuku text starts Y-wise on the screen mva #4 ResultY ; where seppuku text starts Y-wise on the screen
;top frame ;top frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_top
adb ResultY #4 ;next line adb ResultY #4 ;next line
;seppuku ;seppuku
@@ -1468,7 +1462,6 @@ seppuku_loop
mva #3 dx mva #3 dx
mva #4 ResultY mva #4 ResultY
@ @
mva #1 plot4x4color
mwa #lineClear LineAddress4x4 mwa #lineClear LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw mva ResultY LineYdraw
@@ -1500,10 +1493,8 @@ quit_seppuku
;upper frame ;upper frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_top
adb ResultY #4 ;next line adb ResultY #4 ;next line
@@ -1651,6 +1642,13 @@ FinishResultDisplay
jmp TypeLine4x4 ; jsr:rts jmp TypeLine4x4 ; jsr:rts
.endp .endp
.proc TL4x4_top
;bottom of the frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
jmp TypeLine4x4 ; jsr:rts
.endp
;------------------------------------------------- ;-------------------------------------------------
.proc DisplayStatus .proc DisplayStatus