Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-12-24 02:30:08 +00:00
Code Issues Projects Releases Wiki Activity

fixes for universal RWTS (A2) and DOS 3.2 conversions (callrwts clobbered)

Browse Source
This commit is contained in:
4am 2017-09-10 20:46:37 -04:00
parent b23817a769
commit 87dfe23379
4 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
res/universalrwts.org
View File

@ -18,7 +18,7 @@
;-------------------------------
UNIV_A1 = $B956 ; must LSR before setting
UNIV_A2 = $B95E
UNIV_A2 = $B95F
UNIV_A3 = $B968
UNIV_D1 = $B8E7
UNIV_D2 = $B8F1
@ -160,4 +160,3 @@ nibtableff
!byte $C0,$A9,$00,$8D,$00,$E0,$4C,$44,$B7,$00,$00,$00,$8D,$63,$AA,$8D
!byte $70,$AA,$8D,$71,$AA,$60,$20,$5B,$A7,$8C,$B7,$AA,$60,$20,$7E,$AE
!byte $AE,$9B,$B3,$9A,$20,$16,$A3,$BA,$8E,$9B,$B3,$A9,$09,$4C,$85,$B3

32
src/patchers/dos32.a
View File

@ -8,6 +8,16 @@
bit gMode ; nothing to do here in verify-only mode
bpl .exit
; sector 1
lda callrwts+2
sta .cr+1
sec
sbc #$06 ; #$B7 or #$37
ldx #$11 ; #BASEPAGE+1
ldy #$01
jsr CopyMemory
; sectors 2-9
lda #$12 ; #BASEPAGE+2
@ -18,24 +28,16 @@
lda #s_rwtswrite
jsr PrintByID
; sector 1
lda callrwts+2
sec
sbc #$06 ; #$B7 or #$37
ldx #$11 ; #BASEPAGE+1
ldy #$01
jsr CopyMemory
; If original disk loads boot1 into $B700, Standard Delivery only needs to
; load boot1+RWTS (into $B700..$BFFF) and transfer control to boot1 at $B700.
;
; If original disk loads boot1 into $3700 (and expects the RWTS at $3800),
; we let Standard Delivery load boot1+RWTS+DOS and patch boot1 here so it
; doesn't try to call the RWTS itself. Boot1 will exit via the standard
; relocation routine at $1B03, after which both RWTS and DOS will be
; in higher memory.
;
; This will all fail horribly if the relocation routine decides not to
; relocate (on old Apple II machines with less than 48K), and I have made
; peace with that.
; in higher memory. This will fail horribly if the relocation routine decides
; not to relocate (on old Apple II machines with less than 48K), and I have
; made peace with that.
lda #$01
ldx #$38
@ -50,7 +52,7 @@
; sector 0
lda callrwts+2
.cr lda #$d1 ; set at runtime
cmp #$3D
beq +
lda #<SD_DOS32

2
src/strings/en.a
View File

@ -230,7 +230,7 @@ StringTable
; can be set directly before calling PrintByID.
;
.header
!text "Passport by 4am 2017-09-08",$00
!text "Passport by 4am 2017-09-10",$00
.mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " "

2
src/universalrwts.a
View File

@ -18,7 +18,7 @@
;-------------------------------
UNIV_A1 = $B956 ; must LSR before setting
UNIV_A2 = $B95E
UNIV_A2 = $B95F
UNIV_A3 = $B968
UNIV_D1 = $B8E7
UNIV_D2 = $B8F1