mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
32 lines
748 B
Plaintext
32 lines
748 B
Plaintext
;-------------------------------
|
|
; #HARVEY
|
|
; late-stage RWTS swapper
|
|
;
|
|
; tested on
|
|
; Buzz Bang Harvey (Queue)
|
|
; Harvey by Primes (Queue)
|
|
;-------------------------------
|
|
!zone {
|
|
ldx gTrack
|
|
dex
|
|
bne .exit
|
|
|
|
lda #$01
|
|
ldx #$95
|
|
jsr compare3 ; if T01,S01,$95 ==
|
|
!byte $4C,$32,$A3
|
|
bcs .exit ; passport-test-suite/Harvey by Primes.woz [C=0] here
|
|
|
|
ldy #$A2
|
|
sty gDisplayBytes+1 ; address (hi)
|
|
ldy #$82
|
|
sty gDisplayBytes+2 ; address (lo)
|
|
jsr PrintByID
|
|
!byte s_beforedos
|
|
|
|
inx
|
|
jsr modify1 ; then set T01,S01,$96 =
|
|
!byte $47
|
|
.exit
|
|
}
|