Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 21:34:20 +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 bcs ?WFRAME
?nowait ?nowait
.ENDM .ENDM
;-------------------------------------
.macro waitRTC
lda RTCLOK+1
?wa cmp RTCLOK+1
beq ?wa
.endm
;------------------------------------- ;-------------------------------------
.macro negw .macro negw
; negate the given word (0-a) ; negate the given word (0-a)
lib/MACRO.ASM
+6
View File
@@ -90,6 +90,12 @@
bcs ?WFRAME bcs ?WFRAME
?nowait ?nowait
.ENDM .ENDM
;-------------------------------------
.macro waitRTC
lda RTCLOK+2
?wa cmp RTCLOK+2
beq ?wa
.endm
;------------------------------------- ;-------------------------------------
.macro negw .macro negw
; negate the given word (0-a) ; negate the given word (0-a)
scorch.asm
+1 -1
View File
@@ -1897,7 +1897,7 @@ MakeDarkScreen
and #%00000101 ; Start + Option and #%00000101 ; Start + Option
sne:mva #$40 escFlag sne:mva #$40 escFlag
and #%00000001 ; START KEY and #%00000001 ; START KEY
seq:wait seq:wait ; or waitRTC ?
rts rts
.endp .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 MakeDarkScreen
jsr DisplayStatus jsr DisplayStatus
jsr SetMainScreen jsr SetMainScreen
jsr WaitOneFrame ;jsr WaitOneFrame ; not necessary
jsr DrawTanks jsr DrawTanks
bit SpyHardFlag bit SpyHardFlag
bpl NoSpyHard bpl NoSpyHard