starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-21 06:39:46 +02:00
Code Issues 29 Packages Projects Releases 10 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
textproc.asm
+11 -13
View File
@@ -1346,11 +1346,9 @@ DOTNcharloop
ldy #0
sty LineCharNr
TypeLine4x4Loop
ldy LineCharNr
mwa LineAddress4x4 temp
lda (temp),y
cmp #$ff
@@ -1381,10 +1379,8 @@ EndOfTypeLine4x4
mva #4 ResultY ; where seppuku text starts Y-wise on the screen
;top frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw
jsr TypeLine4x4
jsr TL4x4_top
adb ResultY #4 ;next line
;seppuku
@@ -1396,7 +1392,7 @@ EndOfTypeLine4x4
;bottom frame
mva ResultY LineYdraw
jsr TL4x4_bottom ; just go
jsr TL4x4_bottom
jsr GetKey
@@ -1446,10 +1442,8 @@ seppuku_loop
mva #4 ResultY ; where seppuku text starts Y-wise on the screen
;top frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw
jsr TypeLine4x4
jsr TL4x4_top
adb ResultY #4 ;next line
;seppuku
@@ -1468,7 +1462,6 @@ seppuku_loop
mva #3 dx
mva #4 ResultY
@
mva #1 plot4x4color
mwa #lineClear LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw
@@ -1500,10 +1493,8 @@ quit_seppuku
;upper frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
mva ResultY LineYdraw
jsr TypeLine4x4
jsr TL4x4_top
adb ResultY #4 ;next line
@@ -1651,6 +1642,13 @@ FinishResultDisplay
jmp TypeLine4x4 ; jsr:rts
.endp
.proc TL4x4_top
;bottom of the frame
mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
jmp TypeLine4x4 ; jsr:rts
.endp
;-------------------------------------------------
.proc DisplayStatus