Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-12-26 01:29:39 +00:00
Code Issues Projects Releases Wiki Activity

a bit quieter, fix write support

Browse Source
This commit is contained in:
Peter Ferrie 2018-09-27 14:00:11 -07:00
parent ec07283d7f
commit 2d9e23c65d
1 changed files with 17 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
src/patchers/rdos13.a
View File

@ -30,38 +30,33 @@
!byte $48 ;PHA
!byte $68 ;PLA
lda #$0A
ldx #$16
ldy #1
jsr modify
!byte $56
lda #$56
sta (BASEPAGE * $100) + $9A3
sta (BASEPAGE * $100) + $A16
lda #$0A
ldx #$2B
ldy #2
jsr modify
!byte $23,$B8
lda #$23
sta (BASEPAGE * $100) + $A2B
sta (BASEPAGE * $100) + $A3C
sta (BASEPAGE * $100) + $A4C
lda #$0A
ldx #$3C
ldy #2
jsr modify
!byte $23,$B8
lda #$B8
sta (BASEPAGE * $100) + $A2C
sta (BASEPAGE * $100) + $A3D
sta (BASEPAGE * $100) + $A4D
lda #$0A
ldx #$4C
ldy #2
jsr modify
!byte $23,$B8
;enable 16-sector address prologue
;enable 16-sector address prologue as needed
lda #$0A
ldx #$75
ldy #2
jsr compare
!byte $C9,$D5 ;CMP #$D5
bcc +
ldy #2
jsr modify
!byte $C9,$D5 ;CMP #$D5
+
lda #$0A
ldx #$8B
ldy #1