starred/scorch_src
1
0
Fork 0
Code Issues 37 Packages Projects Releases 10 Wiki Activity

no r+ opty, no bad seppuku frame

Browse Source
This commit is contained in:
pkali
2022-11-13 23:57:09 -05:00
parent 7cbd5ad77e
commit 8603308693
5 changed files with 24 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+1 -2
View File
@@ -1894,7 +1894,7 @@ EndPutChar
rts rts
.endp .endp
; ------------------------------------------ ;--------------------------------------------------
.proc PutChar4x4 .proc PutChar4x4
; puts 4x4 pixels char on the graphics screen ; puts 4x4 pixels char on the graphics screen
; in: dx, dy (LOWER left corner of the char) ; in: dx, dy (LOWER left corner of the char)
@@ -1903,7 +1903,6 @@ EndPutChar
; all pixels are being drawn ; all pixels are being drawn
; (empty and not empty) ; (empty and not empty)
;-------------------------------------------------- ;--------------------------------------------------
; rts
cpw dy #(screenheight-1) cpw dy #(screenheight-1)
jcs TypeChar.EndPutChar ;nearest RTS jcs TypeChar.EndPutChar ;nearest RTS
cpw dy #(4) cpw dy #(4)
scorch.asm
+2 -2
View File
@@ -6,12 +6,12 @@
;Miami & Warsaw 2022 ;Miami & Warsaw 2022
;--------------------------------------------------- ;---------------------------------------------------
.def TARGET = 800; 5200 ; or 800 .def TARGET = 800 ;5200 ; or 800
;atari800 -5200 -cart ${outputFilePath} -cart-type 4 ;atari800 -5200 -cart ${outputFilePath} -cart-type 4
;atari800 -run ${outputFilePath} ;atari800 -run ${outputFilePath}
;--------------------------------------------------- ;---------------------------------------------------
OPT r+ ; saves 12 bytes :O ;OPT r+ ; saves 12 bytes :O
;--------------------------------------------------- ;---------------------------------------------------
.macro build .macro build
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+20 -22
View File
@@ -1798,13 +1798,9 @@ EndOfTypeLine4x4
jsr TL4x4_top jsr TL4x4_top
adb ResultY #4 ;next line adb ResultY #4 ;next line
;seppuku ;sure?
mwa #areYouSureText LineAddress4x4 mwa #areYouSureText LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering jsr _sep_opty
mva ResultY LineYdraw
jsr TypeLine4x4
adb ResultY #4 ;next line
;bottom frame ;bottom frame
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TL4x4_bottom jsr TL4x4_bottom
@@ -1825,17 +1821,22 @@ skip01
@ @
mva #$ff plot4x4color mva #$ff plot4x4color
mwa #lineClear LineAddress4x4 mwa #lineClear LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering jsr _sep_opty
mva ResultY LineYdraw
jsr TypeLine4x4
adb ResultY #4 ;next line
dec di dec di
bne @- bne @-
quit_areyousure quit_areyousure
rts rts
.endp .endp
.proc _sep_opty
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw
jsr TypeLine4x4
adb ResultY #4 ;next line
rts
.endp
;-------------------------------- ;--------------------------------
.proc DisplaySeppuku .proc DisplaySeppuku
;using 4x4 font ;using 4x4 font
@@ -1856,10 +1857,7 @@ seppuku_loop
;seppuku ;seppuku
mwa #seppukuText LineAddress4x4 mwa #seppukuText LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering jsr _sep_opty
mva ResultY LineYdraw
jsr TypeLine4x4
adb ResultY #4 ;next line
;bottom frame ;bottom frame
mva ResultY LineYdraw mva ResultY LineYdraw
@@ -1868,22 +1866,22 @@ seppuku_loop
;clean seppuku ;clean seppuku
mva #3 di mva #3 di
mva #4 ResultY ;mva #4 ResultY
@ lda #4
sta ResultY
loplop ;@
mwa #lineClear LineAddress4x4 mwa #lineClear LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering jsr _sep_opty
mva ResultY LineYdraw
jsr TypeLine4x4
adb ResultY #4 ;next line
dec di dec di
bne @- bne loplop ;@-
dec fs dec fs
jne seppuku_loop jne seppuku_loop
quit_seppuku quit_seppuku
rts rts
.endp .endp
;-------------------------------- ;--------------------------------
.proc DisplayResults ; .proc DisplayResults ;