mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
;-------------------------------
|
|
; #METHODS
|
|
; RWTS changes prologue with RWTS
|
|
; swapper at $B6B4
|
|
; e.g. Alphabetizing: Blue Level
|
|
; and others by Methods & Solutions
|
|
;-------------------------------
|
|
!zone {
|
|
; gTrack = 0
|
|
; Caller found DOS 3.3 RWTS
|
|
|
|
lda #$08
|
|
ldx #$5A
|
|
jsr compare3 ; and T00,S08,$5A ==
|
|
!byte $4C,$B4,$36; JMP $36B4
|
|
bcs .exit
|
|
lda #$00
|
|
ldx #$B4
|
|
ldy #$1A
|
|
jsr compare ; and T00,S00,$B4 ==
|
|
!byte $48 ; PHA
|
|
!byte $68 ; PLA
|
|
!byte $48 ; PHA
|
|
!byte $F0,$06 ; BEQ +$06
|
|
!byte $A9,WILDCARD; LDA #$**
|
|
!byte $A0,WILDCARD; LDY #$**
|
|
!byte $D0,$04 ; BNE +$04
|
|
!byte $A9,$D5 ; LDA #$D5
|
|
!byte $A0,$AA ; LDY #$AA
|
|
!byte $8D,$55,$39; STA $3955
|
|
!byte $8C,$5F,$39; STY $395F
|
|
!byte $A0,$01 ; LDY #$01
|
|
!byte $4C,$5D,$3E; JMP $3E5D
|
|
bcs .exit
|
|
jsr PrintByID
|
|
!byte s_bytrack
|
|
ldx #$BD
|
|
jsr modify1 ; then set T00,S00,$BD =
|
|
!byte $24 ; BIT
|
|
tya
|
|
ldx #$47
|
|
jsr compare3 ; if T00,S01,$47 ==
|
|
!byte $4C,$CE,$36; JMP $36CE
|
|
bcs .exit
|
|
inx
|
|
jsr modify1 ; then set T00,S01,$48 =
|
|
!byte $D8
|
|
.exit
|
|
}
|