mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
ShellDealay i proper file :)
This commit is contained in:
+19
@@ -556,6 +556,25 @@ MakeDarkScreen
|
|||||||
rts
|
rts
|
||||||
.endp
|
.endp
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
.proc ShellDelay
|
||||||
|
lda CONSOL
|
||||||
|
and #%00000101 ; Start + Option
|
||||||
|
bne @+
|
||||||
|
mva #$40 escFlag
|
||||||
|
@ and #%00000001
|
||||||
|
beq noShellDelay
|
||||||
|
ldx flyDelay
|
||||||
|
DelayLoop
|
||||||
|
lda VCOUNT
|
||||||
|
@ cmp VCOUNT
|
||||||
|
beq @-
|
||||||
|
dex
|
||||||
|
bne DelayLoop
|
||||||
|
noShellDelay
|
||||||
|
rts
|
||||||
|
.endp
|
||||||
|
|
||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
.proc RmtSongSelect
|
.proc RmtSongSelect
|
||||||
; starting song line 0-255 to A reg
|
; starting song line 0-255 to A reg
|
||||||
|
|||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
@@ -317,6 +317,18 @@ MakeDarkScreen
|
|||||||
rts
|
rts
|
||||||
.endp
|
.endp
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
.proc ShellDelay
|
||||||
|
ldx flyDelay
|
||||||
|
DelayLoop
|
||||||
|
lda $d012
|
||||||
|
@ cmp $d012
|
||||||
|
beq @-
|
||||||
|
dex
|
||||||
|
bne DelayLoop
|
||||||
|
noShellDelay
|
||||||
|
rts
|
||||||
|
.endp
|
||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
.proc RmtSongSelect
|
.proc RmtSongSelect
|
||||||
; starting song line 0-255 to A reg
|
; starting song line 0-255 to A reg
|
||||||
|
|||||||
+11712
File diff suppressed because it is too large
Load Diff
Binary file not shown.
-18
@@ -3203,24 +3203,6 @@ noBullets
|
|||||||
rts
|
rts
|
||||||
.endp
|
.endp
|
||||||
|
|
||||||
;--------------------------------------------------
|
|
||||||
.proc ShellDelay
|
|
||||||
lda CONSOL
|
|
||||||
and #%00000101 ; Start + Option
|
|
||||||
bne @+
|
|
||||||
mva #$40 escFlag
|
|
||||||
@ and #%00000001
|
|
||||||
beq noShellDelay
|
|
||||||
ldx flyDelay
|
|
||||||
DelayLoop
|
|
||||||
lda VCOUNT
|
|
||||||
@ cmp VCOUNT
|
|
||||||
beq @-
|
|
||||||
dex
|
|
||||||
bne DelayLoop
|
|
||||||
noShellDelay
|
|
||||||
rts
|
|
||||||
.endp
|
|
||||||
|
|
||||||
.ENDIF
|
.ENDIF
|
||||||
|
|
||||||
Reference in New Issue
Block a user