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

peasant: comment the seek code the best I can

This commit is contained in:
Vince Weaver 2022-01-13 12:49:07 -05:00
parent a730979e71
commit 9c80711607
3 changed files with 198 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
games/peasant/drive2.s
View File

@ -57,10 +57,11 @@ check_floppy_in_drive2:
lda #0 ; seek to track0
sta phase_smc+1
;.if 0
; jsr antim_seek_track0
jsr seek
;.endif
;; brk
; brk
;=====================================
; try 768 times to find valid sector
@ -107,7 +108,7 @@ check_if_96:
; because result was greater or equal to #$96
done_check:
brk
; brk
jsr driveoff
@ -131,4 +132,88 @@ done_check_failed:
rts
.if 0
step=$fd
phase=$fe
tmptrk=$ff
tmpsec2=$3c
; $3d also modified?
antim_seek_track0:
ldy #0
sty step
sty phase
lda #$44
sta tmptrk
copy_cur:
lda tmptrk
sta tmpsec2
sec
sbc phase
beq lPPP1
bcs lP1
eor #$ff
inc tmptrk
bcc lPP1
lP1:
sbc #1
dec tmptrk
lPP1:
cmp step
bcc lP2
lda step
lP2:
cmp #8
bcs lP3
tay
sec
lP3:
jsr lPPPP1
lda step1, y
jsr adelay
lda tmpsec2
clc
jsr lPPPPP1
lda step2, y
jsr adelay
inc step
bne copy_cur
lPPP1:
jsr adelay
clc
lPPPP1:
lda tmptrk
lPPPPP1:
and #3
rol
tax
lda $C0E0, x
rts
step1:
.byte $01, $30, $28, $24, $20, $1e, $1d, $1c
step2:
.byte $70, $2c, $26, $22, $1f, $1e, $1d, $1c
adelay:
adelay_loop:
ldx #$11
adelay_inner:
dex
bne adelay_inner
inc tmpsec2
bne adelay_skip
inc tmpsec2+1
adelay_skip:
sec
sbc #1
bne adelay_loop
knownret:
rts
.endif

117
games/peasant/qboot_stage2.s
View File

@ -252,84 +252,120 @@ seekret:
; curtrk+1 = current track
seek:
ldx #0
ldx #0 ; reset acceleration count?
stx step_smc+1
copy_cur:
curtrk_smc:
lda #0 ; current track
sta tmpval_smc+1
sta tmpval_smc+1 ; save current track for later
; calculate how far we need to seek
sec
phase_smc:
sbc #$d1 ; track*2 to seek to
beq seekret ; if equal, we are already there
; A is distance
bcs sback ; if positive, skip ahead
; A is distance, update direction
bcs seeking_out ; if positive, skip ahead
seeking_in:
eor #$ff ; negate the distance
inc curtrk_smc+1 ; move track counter up
inc curtrk_smc+1 ; move track counter inward
bcc ssback ; bra
sback:
adc #$fe ; distance -=2
dec curtrk_smc+1 ; move track counter down
seeking_out:
adc #$fe ; distance -=1 (carry always 1)
dec curtrk_smc+1 ; move track counter outward
ssback:
cmp step_smc+1 ; compare to step
bcc loop10 ; if less than, skip
bcc skip_set_step ; if below minimum, don't change?
;==================
; step the proper number of times
step_smc:
lda #$d1 ; load step value
loop10:
cmp #8
bcs loop11
tay
sec
loop11:
lda curtrk_smc+1
ldx step1, Y
bne loop12
skip_set_step:
loopmmm:
clc
lda tmpval_smc+1
ldx step2, Y
loop12:
; set acceleration (???)
cmp #8 ; see if >8
; our on/off
; tables only 8 bytes long
; (dos33 they are 12?)
; what is Y in that case?
; apparently in maxes out
bcs skip11
tay ; acceleration value in Y
do_phase_on:
sec ; carry set is phase on
skip11:
lda curtrk_smc+1 ; current track in A
ldx phase_on_time, Y ; get phase on time in X
bne do_phase_common ; (bra?)
do_phase_off:
clc ; carry set, phase off
lda tmpval_smc+1 ; restore original track
ldx phase_off_time, Y ; get phase off time in X
do_phase_common:
stx sector_smc+1
and #3
rol
; A is the track?
and #3 ; mask to 1 of 4 phases
rol ; double for index (put C in bit 1)
tax
slotpatch8:
sta $c0d1, X ; PHASEOFF $c080 / $c0e0
loopmm:
sta $c0d1, X ; flip the phase (PHASEOFF $c080 / $c0e0)
seek_delay:
seek_delay_outer:
; inner delay
; delay 2+(19*5)+1 = 98 cycles = ~100us
ldx #$13 ; 2
loopm:
seek_delay_inner:
dex ; 2
bne loopm ; 2/3
bne seek_delay_inner ; 2/3
dec sector_smc+1
bne loopmm
lsr
bcs loopmmm
dec sector_smc+1 ; why?
bne seek_delay_outer
lsr ; what is A here?
; looks like it's the carry bit
; from phase on/off
bcs do_phase_off ; repeat, this time off
inc step_smc+1 ; increment step count
bne copy_cur ; bra(?) back to beginning
; phase on/off tables, in 100us multiples
phase_on_time: .byte $01, $30, $28, $24, $20, $1e, $1d, $1c
phase_off_time: .byte $70, $2c, $26, $22, $1f, $1e, $1d, $1c
inc step_smc+1
bne copy_cur ; bra?
step1: .byte $01, $30, $28, $24, $20, $1e, $1d, $1c
step2: .byte $70, $2c, $26, $22, $1f, $1e, $1d, $1c
addrtbl: .res 16
partial1: .byte $00
partial2: .byte $00
code_end:
;==========================
@ -409,3 +445,6 @@ load_length:
.byte $00
.include "wait.s"
code_end:

66
games/peasant/qload.inc
View File

@ -2,38 +2,38 @@ load_file =$0b2a
sector_write =$0c85
check_floppy_in_drive2 =$0de6
requested_sector =$0d17
decompress_lzsa2_fast =$0e36
getsrc_smc =$0f2c
hgr2 =$1832
hgr_make_tables =$15a6
hgr_put_string =$0f39
restore_bg_1x28 =$1471
hgr_draw_sprite_1x28 =$140a
input_buffer =$157e
hgr_text_box =$161c
hgr_text_box_nosave =$16b3
hgr_partial_restore =$14f4
clear_bottom =$1807
hgr_input =$1524
draw_box =$12bb
disp_put_string =$1657
disp_one_line =$166b
invert_smc1 =$0fb1
disp_put_string_cursor =$1667
hgr_put_char_cursor =$0f65
vgi_simple_rectangle =$133c
peasant_text =$1f66
save_menu =$18e5
load_menu =$18da
location_names_l =$1c12
location_names_h =$1c31
wait_until_keypress =$1e51
random16 =$1e5a
score_points =$1edf
print_score =$1e8f
update_score =$1e9a
speaker_beep =$1f4d
speaker_duration =$1f64
speaker_frequency =$1f65
decompress_lzsa2_fast =$0e35
getsrc_smc =$0f2b
hgr2 =$1831
hgr_make_tables =$15a5
hgr_put_string =$0f38
restore_bg_1x28 =$1470
hgr_draw_sprite_1x28 =$1409
input_buffer =$157d
hgr_text_box =$161b
hgr_text_box_nosave =$16b2
hgr_partial_restore =$14f3
clear_bottom =$1806
hgr_input =$1523
draw_box =$12ba
disp_put_string =$1656
disp_one_line =$166a
invert_smc1 =$0fb0
disp_put_string_cursor =$1666
hgr_put_char_cursor =$0f64
vgi_simple_rectangle =$133b
peasant_text =$1f65
save_menu =$18e4
load_menu =$18d9
location_names_l =$1c11
location_names_h =$1c30
wait_until_keypress =$1e50
random16 =$1e59
score_points =$1ede
print_score =$1e8e
update_score =$1e99
speaker_beep =$1f4c
speaker_duration =$1f63
speaker_frequency =$1f64
hposn_high = $BA00
hposn_low = $BB00