Apple-2-SW
/
ramfactor
mirror of https://github.com/brouhaha/ramfactor.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

More of the RWTS interface for DOS.

This commit is contained in:
Eric Smith 2021-04-16 23:38:36 -06:00
parent 0d184841d5
commit 12f40a159a
1 changed files with 112 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

165
ramfactor14.asm
View File

@ -155,10 +155,35 @@ Z49 equ $49
Z4a equ $4a Z4a equ $4a
Z4b equ $4b Z4b equ $4b
rwtsiob equ Z48
rwtsbuf equ Z3e
rwts_iob_idx_slot equ $01
rwts_iob_idx_drive equ $02
rwts_iob_idx_volume equ $03
rwts_iob_idx_track equ $04
rwts_iob_idx_sector equ $05
rwts_iob_idx_buffer equ $08
rwts_iob_idx_command equ $0c
rwts_iob_idx_result equ $0d
rwts_iob_idx_prev_vol equ $0e
rwts_iob_idx_prev_slot equ $0f
rwts_iob_idx_prev_drive equ $10
rwts_err_none equ $00
rwts_err_init equ $08
rwts_err_write_prot equ $10
rwts_err_vol_mismatch equ $20
rwts_err_drive equ $40
rwts_err_read equ $80 ; Obsolete according to Beneath Apple DOS
D010b equ $010b D010b equ $010b
D010c equ $010c D010c equ $010c
D01a9 equ $01a9 D01a9 equ $01a9
D0200 equ $0200
klinbuf equ $0200
D0400 equ $0400 D0400 equ $0400
@ -346,20 +371,23 @@ boot4: lda #$c0+slotnum ; did we get here from IN# or equiv?
plp plp
bne Lcn60 bne Lcn60
jsr Scdec ; yes ; we got here from IN# or equivalent
beq Lcn60 jsr Scdec ; are we running Pascal or ProDOS?
beq Lcn60 ; yes
lda #$20 ; Patch RWTS ; not Pascal or ProDOS, so patch RWTS
lda #$20
sta rwts_patch sta rwts_patch
lda #slot_rwts&$ff lda #slot_rwts&$ff
sta rwts_patch+1 sta rwts_patch+1
sty rwts_patch+2 sty rwts_patch+2
ldx #$00 ldx #$00
lda #$8d lda #char_cr+$80 ; return with CR, and also store in input buffer
sta D0200 sta klinbuf
rts rts
; IN# or equivalent, but running Pascal or ProDOS
Lcn60: lda L00 Lcn60: lda L00
bne Lcn6e bne Lcn6e
cpy L00+1 cpy L00+1
@ -448,6 +476,9 @@ slot_prodos_x:
jsr romsel jsr romsel
jmp prodos jmp prodos
; on entry, RWTS code has stored IOB pointer into ?, and has loaded
; the requested slot*$10 into A
slot_rwts: slot_rwts:
cmp #(slotnum*$10) ; A = our slot * 10? cmp #(slotnum*$10) ; A = our slot * 10?
beq Lcnf2 ; yes beq Lcnf2 ; yes
@ -1099,26 +1130,33 @@ Scc58: lda #$00
Lcc6e: rts Lcc6e: rts
; The RWTS IOB pointer is in Z48
public rwts ; referenced from slot public rwts ; referenced from slot
rwts: jsr Scd56 rwts: jsr Scd56
ldy #$10 ldy #$10
bcs Lcce0 bcs Lcce0
jsr Sccfb
ldy #$02 jsr dos_check_partition_size
lda (Z48),y
ldy #rwts_iob_idx_drive
lda (rwtsiob),y
sta Z3e sta Z3e
eor #$01 eor #$01
beq Lcc88 beq Lcc88
bcc Lccdd bcc rwts_bad_cmd
jsr Scd16 jsr Scd16
Lcc88: ldy #$0e
Lcc88: ldy #rwts_iob_idx_prev_vol
lda #$fe lda #$fe
sta (Z48),y sta (rwtsiob),y
ldy #$04
ldy #rwts_iob_idx_track ; check track number against maximum
sty Z3f sty Z3f
lda (Z48),y lda (rwtsiob),y
cmp Dcd35,x cmp dos_max_track,x
bcs Lccdd bcs rwts_bad_cmd
lsr lsr
ror Z3f ror Z3f
lsr lsr
@ -1129,11 +1167,13 @@ Lcc88: ldy #$0e
beq Lcca9 beq Lcca9
lsr lsr
ror Z3f ror Z3f
Lcca9: pha Lcca9: pha
iny iny ; check sector number
lda (Z48),y lda (rwtsiob),y
cmp Dcd37,x cmp dos_max_sector,x
bcs Lccdd bcs rwts_bad_cmd
ora Z3f ora Z3f
pha pha
jsr Sca8b jsr Sca8b
@ -1142,42 +1182,55 @@ Lcca9: pha
pla pla
sta hw_reg_addr_high-hw_reg_offset,x sta hw_reg_addr_high-hw_reg_offset,x
jsr Sca9d jsr Sca9d
bcs Lccdd bcs rwts_bad_cmd
ldy #$08
lda (Z48),y ldy #rwts_iob_idx_buffer ; copy buffer address to ZP
lda (rwtsiob),y
sta Z3e sta Z3e
iny iny
lda (Z48),y lda (rwtsiob),y
sta Z3f sta Z3f
ldy #$0c
lda (Z48),y ldy #rwts_iob_idx_command
lda (rwtsiob),y
tay tay
beq Lccf4 beq rwts_seek
dey dey
beq Lccec beq rwts_read
dey dey
beq Lcce2 beq rwts_write
Lccdd: sec
ldy #$80 rwts_bad_cmd:
Lcce0: bne Lccf5 sec
Lcce2: lda (Z3e),y ldy #rwts_err_read
Lcce0: bne rwts_done
rwts_write:
lda (Z3e),y
sta hw_reg_data-hw_reg_offset,x sta hw_reg_data-hw_reg_offset,x
iny iny
bne Lcce2 bne rwts_write
beq Lccf4 beq rwts_seek
Lccec: lda hw_reg_data-hw_reg_offset,x
rwts_read:
lda hw_reg_data-hw_reg_offset,x
sta (Z3e),y sta (Z3e),y
iny iny
bne Lccec bne rwts_read
Lccf4: clc rwts_seek:
Lccf5: tya clc
ldy #$0d
sta (Z48),y rwts_done:
tya
ldy #rwts_iob_idx_result
sta (rwtsiob),y
rts rts
; check DOS parition size ; check DOS parition size
Sccfb: ldy mslot ; returns with 0 in X for 140 KiB drive(s), 1 in X for 400 KiB drive(s)
dos_check_partition_size:
ldy mslot
ldx #$03 ldx #$03
Lcd00: lda shs_cur_part_size_low,y Lcd00: lda shs_cur_part_size_low,y
cmp valid_dos_part_size_low,x cmp valid_dos_part_size_low,x
@ -1193,6 +1246,7 @@ Lcd12: txa
tax tax
rts rts
Scd16: clc Scd16: clc
ldy mslot ldy mslot
lda shs_part_base_mid,y lda shs_part_base_mid,y
@ -1203,22 +1257,27 @@ Scd16: clc
sta shs_part_base_high,y sta shs_part_base_high,y
rts rts
; valid DOS parition sizes ; valid DOS parition sizes
valid_dos_part_size_high: valid_dos_part_size_high:
fcb (140*4)>>8 fcb (140*4)>>8 ; one 140 KiB
fcb (280*4)>>8 fcb (280*4)>>8 ; two 140 KiB
fcb (400*4)>>8 fcb (400*4)>>8 ; one 400 KiB
fcb (800*4)>>8 fcb (800*4)>>8 ; two 400 KiB
valid_dos_part_size_low: valid_dos_part_size_low:
fcb (140*4)&$ff fcb (140*4)&$ff ; one 140 KiB
fcb (280*4)&$ff fcb (280*4)&$ff ; two 140 KiB
fcb (400*4)&$ff fcb (400*4)&$ff ; one 400 KiB
fcb (800*4)&$ff fcb (800*4)&$ff ; two 400 KiB
dos_max_track:
fcb 35 ; for 140 KiB drives
fcb 50 ; for 400 KiB drives
Dcd35: fcb $23,$32 dos_max_sector:
Dcd37: fcb $10,$20 fcb 16 ; for 140 KiB drives
fcb 32 ; for 400 KiB drives
Dcd39: fcb $02,$06 Dcd39: fcb $02,$06
Dcd3b: fcb $30,$40 Dcd3b: fcb $30,$40
@ -1254,7 +1313,7 @@ Scd56: jsr Scd3d ; check parition size and OS
Lcd63: lda #os_dos ; set OS to DOS (but don't yet set OS check) Lcd63: lda #os_dos ; set OS to DOS (but don't yet set OS check)
sta shs_os_code,y sta shs_os_code,y
jsr Sccfb ; check DOS parition size jsr dos_check_partition_size
bmi Lcd97 bmi Lcd97
bcc Lcd91 bcc Lcd91
lda shs_part_base_mid,y lda shs_part_base_mid,y