mirror of
https://github.com/a2-4am/passport.git
synced 2024-06-08 16:29:33 +00:00
34 lines
977 B
Plaintext
34 lines
977 B
Plaintext
;-------------------------------
|
|
; Laureate Learning Systems RWTS fixup
|
|
; annoyingly shifted by 2 sectors,
|
|
; but generally DOS-shaped
|
|
;-------------------------------
|
|
!zone {
|
|
lda gIsLaureate
|
|
bne .exit
|
|
beq .start ; passport-test-suite/Sound Ideas- Word Attack - Disk 1 - Ending Consonants.woz [Z=1] reaches here
|
|
|
|
.laureatemulti
|
|
;sectors
|
|
!byte $04,$04,$04,$04,$04,$04,$04,$04,$04,$05,$05,$05,$05,$05,$05,$05,$06,$06,$06
|
|
;offsets
|
|
!byte $53,$58,$5D,$9E,$A3,$A8,$E7,$F1,$FC,$35,$3F,$55,$5F,$6A,$91,$9B,$49,$D5,$D6
|
|
;values
|
|
!byte $D5,$AA,$AD,$DE,$AA,$EB,$D5,$AA,$AD,$DE,$AA,$D5,$AA,$96,$DE,$AA,$D6,$D5,$20
|
|
|
|
.start
|
|
lda #<.laureatemulti
|
|
ldy #>.laureatemulti
|
|
ldx #19
|
|
jsr multimodify
|
|
|
|
lda #$0A
|
|
ldx #$12
|
|
jsr compare2
|
|
!byte $B1,$48
|
|
bcs .exit
|
|
jsr modify2
|
|
!byte $A9,$00
|
|
.exit
|
|
}
|