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

mist: write support 

update the code from qkumba
This commit is contained in:
Vince Weaver 2020-07-28 22:47:49 -04:00
parent da6d097cc3
commit e9157ad060
2 changed files with 135 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
mist/common_routines.inc
View File

@ -5,50 +5,50 @@
opendir_filename =$1042
; linking_noise.s
play_link_noise =$1590
play_link_noise =$1591
; decompress_fast_v2.s
decompress_lzsa2_fast =$15ac
getsrc_smc =$16a2
decompress_lzsa2_fast =$15ad
getsrc_smc =$16a3
; draw_pointer.s
draw_pointer =$16af
draw_pointer =$16b0
; end_level.s
end_level =$181d
end_level =$181e
; gr_copy.s
gr_copy_to_current =$183f
gr_copy_to_current =$1840
; gr_fast_clear.s
clear_bottom =$1965
clear_all =$19a3
clear_all_color =$19c8
clear_bottom =$1966
clear_all =$19a4
clear_all_color =$19c9
; gr_offsets.s
gr_offsets =$19e6
gr_offsets =$19e7
; gr_page_flip.s
page_flip =$1a16
page_flip =$1a17
; gr_putsprite_crop.s
put_sprite_crop =$1a30
psc_smc1 =$1a53
psc_smc2 =$1aeb
put_sprite_crop =$1a31
psc_smc1 =$1a54
psc_smc2 =$1aec
; keyboard.s
handle_keypress =$1b6c
change_direction =$1c30
change_location =$1c69
handle_keypress =$1b6d
change_direction =$1c31
change_location =$1c6a
; text_print.s
move_and_print =$1d01
ps_smc1 =$1d2e
move_and_print =$1d02
ps_smc1 =$1d2f
; page_sprites.inc
blue_page_sprite =$1e16
red_page_sprite =$1e2c
white_page_sprite =$1e42
blue_page_small_sprite =$1e58
red_page_small_sprite =$1e60
blue_page_sprite =$1e17
red_page_sprite =$1e2d
white_page_sprite =$1e43
blue_page_small_sprite =$1e59
red_page_small_sprite =$1e61

195
mist/qkumba_popwr.s
View File

@ -6,11 +6,17 @@
;bit2tbl=$dc00 ; in loader.s
encbuf=$e00
frombuff=$d00
frombuff=$d00 ; sector data to write
encbuf=$e00 ; nibble buffer must be page alined
popwr:
;================================
; set up the self-modifying code
; to point to the proper slot
;================================
; slot number is in high nibble of A
popwr_init:
lda #$60
and #$70 ; the slot number is in the top here
@ -19,7 +25,16 @@ popwr:
sta slotpatchw3+1
sta slotpatchw4+1
; convert the input to nibbles?
rts
;================================
; write a sector
;================================
sector_write:
; convert the input to nibbles
ldy #2 ; why start at 2?
aa:
@ -58,8 +73,14 @@ b3:
and tmpsec ; and with prev nibble?
dey
bne b3
;reqsec:
requested_sector:
tay
; at this point A has the sector number
; this code assumes you want sector 0
bne cmpsecwr ; retry if not what we want?
;skip tail #$DE #$AA #$EB some #$FFs ...
@ -82,116 +103,122 @@ b4:
; c0e9 slot 6 motor on
; c0ea slot 6 drive 1
; c0eb slot 6 drive 2
; c0ec slot 6 q6 off read
; c0ed slot 6 q6 on wp sense
; c0ee slot 6 q7 off read/wp sense
; c0ef slot 6 q7 on write
; c0ec slot 6 q6 off \ Q6 Q7
; c0ed slot 6 q6 on |-- state machine 0 0 READ
; c0ee slot 6 q7 off | 0 1 WRITE
; c0ef slot 6 q7 on / 1 0 SENSE WRITE PROTECT
; 1 1 WRITE LOAD
; write sector data
slotpatchw1:
ldx #$d1
lda $c08d, x ; prime drive ; c0ed if X=$60
lda $c08e, x ; required by Unidisk ; c0ee
ldx #$d1 ; cycle num smc Q6 Q7
lda $c08d, x ; prime drive 1 X
lda $c08e, x ; required by Unidisk 1 0 ; senese wp?
tya
sta $c08f, x ; c0ef write
ora $c08c, x ; c0ec read?
sta $c08f, x ; 1 1 ; write load
ora $c08c, x ; 0 1 ; write
;40 cycles
; 40 cycles
ldy #4 ; 2 cycles
cmp $ea ; 3 cycles
cmp ($ea,x) ; 6 cycles
ldy #4 ; 2 cycles
cmp $ea ; nop ; 3 cycles
cmp ($ea,x) ; nop ; 6 cycles
b5:
jsr writenib1 ; (29 cycles)
jsr writenib1 ; (29 cycles)
; +6 cycles
dey ; 2 cycles
bne b5 ; 3 cycles if taken, 2 if not
; +6 cycles
dey ; 2 cycles
bne b5 ; 3/2nt
; 36 cycles
; +10 cycles
; +10 cycles
ldy #(prolog_e-prolog)
; 2 cycles
cmp $ea ; 3 cycles
; 2 cycles
cmp $ea ; nop ; 3 cycles
b6:
lda prolog-1, y ; 4 cycles
jsr writenib3 ; (17 cycles)
lda prolog-1, y ; 4 cycles
jsr writenib3 ; (17 cycles)
; 32 cycles if branch taken
; +6 cycles
dey ; 2 cycles
bne b6 ; 3 cycles if taken, 2 if not
; 32 cycles if branch taken
; +6 cycles
dey ; 2 cycles
bne b6 ; 3/2nt
;36 cycles on first pass
;+10 cycles
tya ;2 cycles
ldy #$56 ;2 cycles
b7: eor bit2tbl-1, y ;5 cycles
tax ;2 cycles
lda xlattbl, x ;4 cycles
; 36 cycles on first pass
; +10 cycles
tya ; 2 cycles
ldy #$56 ; 2 cycles
b7:
eor bit2tbl-1, y ; 5 cycles
tax ; 2 cycles
lda xlattbl, x ; 4 cycles
slotpatchw2:
ldx #$d1 ;2 cycles
sta $c08d, x ;5 cycles
lda $c08c, x ;4 cycles
ldx #$d1 ; slot number smc ; 2 cycles
sta $c08d, x ; wp sense ; 5 cycles
lda $c08c, x ; read ; 4 cycles
;32 cycles if branch taken
; 32 cycles if branch taken
lda bit2tbl-1, y ;5 cycles
dey ;2 cycles
bne b7 ;3 cycles if taken, 2 if not
lda bit2tbl-1, y ; 5 cycles
dey ; 2 cycles
bne b7 ; 3/2nt
;32 cycles
;+9 cycles
clc ;2 cycles
b88: eor encbuf, y ;4 cycles
b8: tax ;2 cycles
lda xlattbl, x ;4 cycles
; 32 cycles
; +9 cycles
clc ; 2 cycles
b88:
eor encbuf, y ; 4 cycles
b8:
tax ; 2 cycles
lda xlattbl, x ; 4 cycles
slotpatchw3:
ldx #$d1 ;2 cycles
sta $c08d, x ;5 cycles
lda $c08c, x ;4 cycles
bcs f1 ;3 cycles if taken, 2 if not
ldx #$d1 ; slot number smc ; 2 cycles
sta $c08d, x ; wp sense ; 5 cycles
lda $c08c, x ; read ; 4 cycles
bcs f1 ; 3/2nt
;32 cycles if branch taken
; 32 cycles if branch taken
lda encbuf, y ;4 cycles
iny ;2 cycles
bne b88 ;3 cycles if taken, 2 if not
lda encbuf, y ; 4 cycles
iny ; 2 cycles
bne b88 ; 3/2nt
;32 cycles
;+10 cycles
sec ;2 cycles
bcs b8 ;3 cycles
; 32 cycles
; +10 cycles
sec ; 2 cycles
bcs b8 ; 3 cycles
;32 cycles
;+3 cycles
f1: ldy #(epilog_e-epilog)
;2 cycles
cmp ($ea,x) ;6 cycles
b9: lda epilog-1, y ;4 cycles
jsr writenib3 ;(17 cycles)
; 32 cycles
; +3 cycles
f1:
ldy #(epilog_e-epilog)
; 2 cycles
cmp ($ea,x) ; nop ; 6 cycles
b9:
lda epilog-1, y ; 4 cycles
jsr writenib3 ; (17 cycles)
;32 cycles if branch taken
;+6 cycles
dey ;2 cycles
bne b9 ;3 cycles if branch taken, 2 if not
; 32 cycles if branch taken
; +6 cycles
dey ; 2 cycles
bne b9 ;3/2nt
lda $c08e, x
lda $c08c, x
lda $c088, x
rts
lda $c08e, x ; read/wp
lda $c08c, x ; read
lda $c088, x ; motor off
rts ; 6 cycles
writenib1:
cmp ($ea,x) ;6 cycles
cmp ($ea,x) ;6 cycles
cmp ($ea,x) ; nop ; 6 cycles
cmp ($ea,x) ; nop ; 6 cycles
writenib3:
slotpatchw4:
ldx #$d1 ;2 cycles
ldx #$d1 ; slot number ; 2 cycles
writenib4:
sta $c08d, x ;5 cycles
ora $c08c, x ;4 cycles
rts ;6 cycles
sta $c08d, x ; wp sense? ; 5 cycles
ora $c08c, x ; read ; 4 cycles
rts ; 6 cycles
prolog: .byte $ad, $aa, $d5
prolog_e: