mirror of
https://github.com/pkali/scorch_src.git
synced 2026-05-20 22:34:21 +02:00
Minor optimization and new macro: waitRTC (not used yet)
This commit is contained in:
@@ -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)
|
||||
|
||||
@@ -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)
|
||||
|
||||
+1
-1
@@ -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
|
||||
|
||||
|
||||
BIN
Binary file not shown.
BIN
Binary file not shown.
+1
-1
@@ -1149,7 +1149,7 @@ afterInventory
|
||||
jsr MakeDarkScreen
|
||||
jsr DisplayStatus
|
||||
jsr SetMainScreen
|
||||
jsr WaitOneFrame
|
||||
;jsr WaitOneFrame ; not necessary
|
||||
jsr DrawTanks
|
||||
bit SpyHardFlag
|
||||
bpl NoSpyHard
|
||||
|
||||
Reference in New Issue
Block a user