mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 17:29:28 +00:00
mist: start adding qkumba's write routines
though hit a roadblock because I have no idea what they are doing
This commit is contained in:
parent
4b00599b54
commit
1de2b95073
|
@ -54,7 +54,8 @@ LOADER: loader.o
|
||||||
loader.o: loader.s \
|
loader.o: loader.s \
|
||||||
gr_copy.s gr_offsets.s gr_pageflip.s gr_putsprite_crop.s \
|
gr_copy.s gr_offsets.s gr_pageflip.s gr_putsprite_crop.s \
|
||||||
text_print.s gr_fast_clear.s decompress_fast_v2.s \
|
text_print.s gr_fast_clear.s decompress_fast_v2.s \
|
||||||
keyboard.s draw_pointer.s end_level.s audio.s loadstore.s
|
keyboard.s draw_pointer.s end_level.s audio.s loadstore.s \
|
||||||
|
qkumba_popwr.s
|
||||||
ca65 -o loader.o loader.s -l loader.lst
|
ca65 -o loader.o loader.s -l loader.lst
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
|
@ -5,50 +5,50 @@
|
||||||
opendir_filename =$1042
|
opendir_filename =$1042
|
||||||
|
|
||||||
; linking_noise.s
|
; linking_noise.s
|
||||||
play_link_noise =$147a
|
play_link_noise =$1590
|
||||||
|
|
||||||
; decompress_fast_v2.s
|
; decompress_fast_v2.s
|
||||||
decompress_lzsa2_fast =$1496
|
decompress_lzsa2_fast =$15ac
|
||||||
getsrc_smc =$158c
|
getsrc_smc =$16a2
|
||||||
|
|
||||||
; draw_pointer.s
|
; draw_pointer.s
|
||||||
draw_pointer =$1599
|
draw_pointer =$16af
|
||||||
|
|
||||||
; end_level.s
|
; end_level.s
|
||||||
end_level =$1707
|
end_level =$181d
|
||||||
|
|
||||||
; gr_copy.s
|
; gr_copy.s
|
||||||
gr_copy_to_current =$1729
|
gr_copy_to_current =$183f
|
||||||
|
|
||||||
; gr_fast_clear.s
|
; gr_fast_clear.s
|
||||||
clear_bottom =$184f
|
clear_bottom =$1965
|
||||||
clear_all =$188d
|
clear_all =$19a3
|
||||||
clear_all_color =$18b2
|
clear_all_color =$19c8
|
||||||
|
|
||||||
; gr_offsets.s
|
; gr_offsets.s
|
||||||
gr_offsets =$18d0
|
gr_offsets =$19e6
|
||||||
|
|
||||||
; gr_page_flip.s
|
; gr_page_flip.s
|
||||||
page_flip =$1900
|
page_flip =$1a16
|
||||||
|
|
||||||
; gr_putsprite_crop.s
|
; gr_putsprite_crop.s
|
||||||
put_sprite_crop =$191a
|
put_sprite_crop =$1a30
|
||||||
psc_smc1 =$193d
|
psc_smc1 =$1a53
|
||||||
psc_smc2 =$19d5
|
psc_smc2 =$1aeb
|
||||||
|
|
||||||
; keyboard.s
|
; keyboard.s
|
||||||
handle_keypress =$1a56
|
handle_keypress =$1b6c
|
||||||
change_direction =$1b1a
|
change_direction =$1c30
|
||||||
change_location =$1b53
|
change_location =$1c69
|
||||||
|
|
||||||
; text_print.s
|
; text_print.s
|
||||||
move_and_print =$1beb
|
move_and_print =$1d01
|
||||||
ps_smc1 =$1c18
|
ps_smc1 =$1d2e
|
||||||
|
|
||||||
; page_sprites.inc
|
; page_sprites.inc
|
||||||
blue_page_sprite =$1d00
|
blue_page_sprite =$1e16
|
||||||
red_page_sprite =$1d16
|
red_page_sprite =$1e2c
|
||||||
white_page_sprite =$1d2c
|
white_page_sprite =$1e42
|
||||||
blue_page_small_sprite =$1d42
|
blue_page_small_sprite =$1e58
|
||||||
red_page_small_sprite =$1d4a
|
red_page_small_sprite =$1e60
|
||||||
|
|
||||||
|
|
|
@ -49,6 +49,7 @@ filbuf = $3D6 ; filbuf: .res 4 ; = bit2tbl+86
|
||||||
;===================================================
|
;===================================================
|
||||||
|
|
||||||
loader_start:
|
loader_start:
|
||||||
|
|
||||||
lda #LOAD_TITLE
|
lda #LOAD_TITLE
|
||||||
sta WHICH_LOAD
|
sta WHICH_LOAD
|
||||||
|
|
||||||
|
@ -742,6 +743,7 @@ sectbl: .byte $00,$0d,$0b,$09,$07,$05,$03,$01,$0e,$0c,$0a,$08,$06,$04,$02,$0f
|
||||||
;filbuf: .res 4 ; = bit2tbl+86
|
;filbuf: .res 4 ; = bit2tbl+86
|
||||||
;dataend = filbuf+4
|
;dataend = filbuf+4
|
||||||
|
|
||||||
|
.include "qkumba_popwr.s"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
209
mist/qkumba_popwr.s
Normal file
209
mist/qkumba_popwr.s
Normal file
|
@ -0,0 +1,209 @@
|
||||||
|
; popwr -- code provided by qkumba
|
||||||
|
|
||||||
|
; !cpu 6502
|
||||||
|
; !to "popwr",plain
|
||||||
|
; *=$d500
|
||||||
|
|
||||||
|
;bit2tbl=$dc00 ; in loader.s
|
||||||
|
|
||||||
|
encbuf=$e00
|
||||||
|
frombuff=$d00
|
||||||
|
|
||||||
|
|
||||||
|
popwr:
|
||||||
|
lda #$60
|
||||||
|
|
||||||
|
and #$70 ; the slot number is in the top here
|
||||||
|
sta slotpatchw1+1 ; self modify the code
|
||||||
|
sta slotpatchw2+1
|
||||||
|
sta slotpatchw3+1
|
||||||
|
sta slotpatchw4+1
|
||||||
|
|
||||||
|
; convert the input to nibbles?
|
||||||
|
|
||||||
|
ldy #2 ; why start at 2?
|
||||||
|
aa:
|
||||||
|
ldx #$aa
|
||||||
|
b1:
|
||||||
|
dey
|
||||||
|
frombuff_smc:
|
||||||
|
lda frombuff, y
|
||||||
|
lsr
|
||||||
|
rol bit2tbl-$aa, x
|
||||||
|
lsr
|
||||||
|
rol bit2tbl-$aa, x
|
||||||
|
sta encbuf, y
|
||||||
|
lda bit2tbl-$aa, x
|
||||||
|
and #$3f
|
||||||
|
sta bit2tbl-$aa, x
|
||||||
|
inx
|
||||||
|
bne b1
|
||||||
|
tya
|
||||||
|
bne aa
|
||||||
|
|
||||||
|
; look for the proper sector to write
|
||||||
|
|
||||||
|
cmpsecwr:
|
||||||
|
b2:
|
||||||
|
jsr readd5aa ; look for dd55aa marker
|
||||||
|
cmp #$96
|
||||||
|
bne b2
|
||||||
|
|
||||||
|
ldy #3 ; try getting the sector number
|
||||||
|
b3:
|
||||||
|
jsr readnib
|
||||||
|
rol
|
||||||
|
sta tmpsec
|
||||||
|
jsr readnib
|
||||||
|
and tmpsec ; and with prev nibble?
|
||||||
|
dey
|
||||||
|
bne b3
|
||||||
|
;reqsec:
|
||||||
|
tay
|
||||||
|
bne cmpsecwr ; retry if not what we want?
|
||||||
|
|
||||||
|
;skip tail #$DE #$AA #$EB some #$FFs ...
|
||||||
|
|
||||||
|
ldy #$24
|
||||||
|
b4:
|
||||||
|
dey
|
||||||
|
bpl b4
|
||||||
|
|
||||||
|
|
||||||
|
; c0e0 slot 6 ph0 off
|
||||||
|
; c0e1 slot 6 ph0 on
|
||||||
|
; c0e2 slot 6 ph1 off
|
||||||
|
; c0e3 slot 6 ph1 on
|
||||||
|
; c0e4 slot 6 ph2 off
|
||||||
|
; c0e5 slot 6 ph2 on
|
||||||
|
; c0e6 slot 6 ph3 off
|
||||||
|
; c0e7 slot 6 ph3 on
|
||||||
|
; c0e8 slot 6 motor off
|
||||||
|
; 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
|
||||||
|
|
||||||
|
; write sector data
|
||||||
|
|
||||||
|
slotpatchw1:
|
||||||
|
ldx #$d1
|
||||||
|
lda $c08d, x ; prime drive ; c0ed if X=$60
|
||||||
|
lda $c08e, x ; required by Unidisk ; c0ee
|
||||||
|
tya
|
||||||
|
sta $c08f, x ; c0ef write
|
||||||
|
ora $c08c, x ; c0ec read?
|
||||||
|
|
||||||
|
;40 cycles
|
||||||
|
|
||||||
|
ldy #4 ; 2 cycles
|
||||||
|
cmp $ea ; 3 cycles
|
||||||
|
cmp ($ea,x) ; 6 cycles
|
||||||
|
b5:
|
||||||
|
jsr writenib1 ; (29 cycles)
|
||||||
|
|
||||||
|
; +6 cycles
|
||||||
|
dey ; 2 cycles
|
||||||
|
bne b5 ; 3 cycles if taken, 2 if not
|
||||||
|
|
||||||
|
; 36 cycles
|
||||||
|
; +10 cycles
|
||||||
|
ldy #(prolog_e-prolog)
|
||||||
|
; 2 cycles
|
||||||
|
cmp $ea ; 3 cycles
|
||||||
|
b6:
|
||||||
|
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
|
||||||
|
|
||||||
|
;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
|
||||||
|
|
||||||
|
;32 cycles if branch taken
|
||||||
|
|
||||||
|
lda bit2tbl-1, y ;5 cycles
|
||||||
|
dey ;2 cycles
|
||||||
|
bne b7 ;3 cycles if taken, 2 if not
|
||||||
|
|
||||||
|
;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
|
||||||
|
|
||||||
|
;32 cycles if branch taken
|
||||||
|
|
||||||
|
lda encbuf, y ;4 cycles
|
||||||
|
iny ;2 cycles
|
||||||
|
bne b88 ;3 cycles if taken, 2 if not
|
||||||
|
|
||||||
|
;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 if branch taken
|
||||||
|
;+6 cycles
|
||||||
|
dey ;2 cycles
|
||||||
|
bne b9 ;3 cycles if branch taken, 2 if not
|
||||||
|
|
||||||
|
lda $c08e, x
|
||||||
|
lda $c08c, x
|
||||||
|
lda $c088, x
|
||||||
|
rts
|
||||||
|
|
||||||
|
writenib1:
|
||||||
|
cmp ($ea,x) ;6 cycles
|
||||||
|
cmp ($ea,x) ;6 cycles
|
||||||
|
writenib3:
|
||||||
|
slotpatchw4:
|
||||||
|
ldx #$d1 ;2 cycles
|
||||||
|
writenib4:
|
||||||
|
sta $c08d, x ;5 cycles
|
||||||
|
ora $c08c, x ;4 cycles
|
||||||
|
rts ;6 cycles
|
||||||
|
|
||||||
|
prolog: .byte $ad, $aa, $d5
|
||||||
|
prolog_e:
|
||||||
|
epilog: .byte $ff, $eb, $aa, $de
|
||||||
|
epilog_e:
|
||||||
|
|
||||||
|
xlattbl:
|
||||||
|
.byte $96,$97,$9A,$9B,$9D,$9E,$9F,$A6
|
||||||
|
.byte $A7,$AB,$AC,$AD,$AE,$AF,$B2,$B3
|
||||||
|
.byte $B4,$B5,$B6,$B7,$B9,$BA,$BB,$BC
|
||||||
|
.byte $BD,$BE,$BF,$CB,$CD,$CE,$CF,$D3
|
||||||
|
.byte $D6,$D7,$D9,$DA,$DB,$DC,$DD,$DE
|
||||||
|
.byte $DF,$E5,$E6,$E7,$E9,$EA,$EB,$EC
|
||||||
|
.byte $ED,$EE,$EF,$F2,$F3,$F4,$F5,$F6
|
||||||
|
.byte $F7,$F9,$FA,$FB,$FC,$FD,$FE,$FF
|
Loading…
Reference in New Issue
Block a user