Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Minor optimization and new macro: waitRTC (not used yet)

Browse Source
This commit is contained in:
Pecusx
2023-01-15 20:47:10 +01:00
parent e9ec39005f
commit 9ec78928f1
6 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/5200MACRO.ASM
+6
View File
@@ -91,6 +91,12 @@
bcs ?WFRAME
?nowait
.ENDM
;-------------------------------------
.macro waitRTC
lda RTCLOK+1
?wa cmp RTCLOK+1
beq ?wa
.endm
;-------------------------------------
.macro negw
; negate the given word (0-a)
lib/MACRO.ASM
+6
View File
@@ -90,6 +90,12 @@
bcs ?WFRAME
?nowait
.ENDM
;-------------------------------------
.macro waitRTC
lda RTCLOK+2
?wa cmp RTCLOK+2
beq ?wa
.endm
;-------------------------------------
.macro negw
; negate the given word (0-a)
scorch.asm
+1 -1
View File
@@ -1897,7 +1897,7 @@ MakeDarkScreen
and #%00000101 ; Start + Option
sne:mva #$40 escFlag
and #%00000001 ; START KEY
seq:wait
seq:wait ; or waitRTC ?
rts
.endp
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+1 -1
View File
@@ -1149,7 +1149,7 @@ afterInventory
jsr MakeDarkScreen
jsr DisplayStatus
jsr SetMainScreen
jsr WaitOneFrame
;jsr WaitOneFrame ; not necessary
jsr DrawTanks
bit SpyHardFlag
bpl NoSpyHard