Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-09-30 00:56:24 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2019-10-08 15:01:19 -04:00
parent 441a8f27f5
commit c67e8996bc
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ui.wait.a
View File

@ -27,10 +27,9 @@ ExecuteTransitionAndWait
bpl - bpl -
+ lda KBD + lda KBD
cmp #$95 cmp #$95
bne ConvenientlyPlacedRTS bne WAITRTS
bit CLEARKBD bit CLEARKBD
ConvenientlyPlacedRTS WAITRTS rts
rts
; /!\ keep this last in the file to ensure it doesn't cross a page boundary /!\ ; /!\ keep this last in the file to ensure it doesn't cross a page boundary /!\
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
@ -49,7 +48,7 @@ WaitForKeyFor30Seconds
sta Timeout+2 sta Timeout+2
@loop @loop
lda KBD lda KBD
bmi ConvenientlyPlacedRTS bmi WAITRTS
inc RNDSEED+1 ; these are only ever incremented, never inc RNDSEED+1 ; these are only ever incremented, never
bne + ; reset (may be used as a pseudorandom bne + ; reset (may be used as a pseudorandom