mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-06-01 10:41:30 +00:00
Identifying data blocks
This commit is contained in:
Joshua Bell
parent
8817199aa7
commit
2db6f978e4
97
b.s
97
b.s
|
|
@ -27,6 +27,7 @@ COUT := $FDED
|
||||||
SETINV := $FE80
|
SETINV := $FE80
|
||||||
SETNORM := $FE84
|
SETNORM := $FE84
|
||||||
|
|
||||||
|
|
||||||
.org $2000
|
.org $2000
|
||||||
|
|
||||||
L2000: jmp install_and_quit
|
L2000: jmp install_and_quit
|
||||||
|
|
@ -34,6 +35,12 @@ L2000: jmp install_and_quit
|
||||||
|
|
||||||
.org $1000
|
.org $1000
|
||||||
.proc bbb
|
.proc bbb
|
||||||
|
|
||||||
|
prefix := $280 ; length-prefixed
|
||||||
|
;; filenames at $1400 - each is length byte + 15 byte buffer
|
||||||
|
|
||||||
|
read_buffer := $2000 ; Also, start location for launched SYS files
|
||||||
|
|
||||||
cld
|
cld
|
||||||
lda ROMINNW
|
lda ROMINNW
|
||||||
stz $03F2
|
stz $03F2
|
||||||
|
|
@ -67,26 +74,28 @@ L1042: sta on_line_params_unit
|
||||||
MLI_CALL ON_LINE, on_line_params
|
MLI_CALL ON_LINE, on_line_params
|
||||||
bcs L1032
|
bcs L1032
|
||||||
stz $6B
|
stz $6B
|
||||||
lda $0281
|
lda prefix+1
|
||||||
and #$0F
|
and #$0F
|
||||||
beq L1032
|
beq L1032
|
||||||
adc #$02
|
adc #$02
|
||||||
tax
|
tax
|
||||||
L1059: stx $0280
|
|
||||||
lda #$2F
|
L1059: stx prefix ; truncate prefix to length x
|
||||||
sta $0281
|
lda #'/'
|
||||||
sta $0280,x
|
sta prefix+1
|
||||||
stz $0281,x
|
sta prefix,x
|
||||||
|
stz prefix+1,x
|
||||||
|
|
||||||
MLI_CALL OPEN, open_params
|
MLI_CALL OPEN, open_params
|
||||||
bcc L107F
|
bcc L107F
|
||||||
lda $6B
|
lda $6B
|
||||||
beq L1032
|
beq L1032
|
||||||
jsr BELL1
|
jsr BELL1
|
||||||
jsr L11DA
|
jsr L11DA
|
||||||
stx $0280
|
stx prefix
|
||||||
jmp keyboard_loop
|
jmp keyboard_loop
|
||||||
|
|
||||||
L107F: inc $6B
|
L107F: inc $6B ; ???
|
||||||
stz $68
|
stz $68
|
||||||
lda open_params_ref_num
|
lda open_params_ref_num
|
||||||
sta read_params_ref_num
|
sta read_params_ref_num
|
||||||
|
|
@ -94,7 +103,7 @@ L107F: inc $6B
|
||||||
lda #$2B
|
lda #$2B
|
||||||
sta read_params_request
|
sta read_params_request
|
||||||
stz read_params_request+1
|
stz read_params_request+1
|
||||||
jsr L12B4
|
jsr do_read
|
||||||
bcs L10B3
|
bcs L10B3
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L109A: lda $2023,x
|
L109A: lda $2023,x
|
||||||
|
|
@ -133,10 +142,10 @@ L10D8: adc #$04
|
||||||
sta $62
|
sta $62
|
||||||
MLI_CALL SET_MARK, L0060
|
MLI_CALL SET_MARK, L0060
|
||||||
bcs L10B3
|
bcs L10B3
|
||||||
jsr L12B4
|
jsr do_read
|
||||||
bcs L10B3
|
bcs L10B3
|
||||||
inc $72
|
inc $72
|
||||||
lda L2000
|
lda read_buffer
|
||||||
and #$F0
|
and #$F0
|
||||||
beq L10B9
|
beq L10B9
|
||||||
dec $70
|
dec $70
|
||||||
|
|
@ -155,7 +164,7 @@ L1108: ldx $68
|
||||||
sta $74,x
|
sta $74,x
|
||||||
jsr L1258
|
jsr L1258
|
||||||
ldy #$0F
|
ldy #$0F
|
||||||
L1115: lda L2000,y
|
L1115: lda read_buffer,y
|
||||||
sta ($6C),y
|
sta ($6C),y
|
||||||
dey
|
dey
|
||||||
bpl L1115
|
bpl L1115
|
||||||
|
|
@ -177,7 +186,7 @@ L1129: MLI_CALL CLOSE, close_params
|
||||||
jsr L124A
|
jsr L124A
|
||||||
jsr L12AD
|
jsr L12AD
|
||||||
ldx #$00
|
ldx #$00
|
||||||
L1148: lda $0281,x
|
L1148: lda prefix+1,x
|
||||||
beq L1153
|
beq L1153
|
||||||
jsr L12AF
|
jsr L12AF
|
||||||
inx
|
inx
|
||||||
|
|
@ -239,7 +248,7 @@ keyboard_loop:
|
||||||
ldx $68
|
ldx $68
|
||||||
beq L11CB
|
beq L11CB
|
||||||
cmp #$8D ; Return
|
cmp #$8D ; Return
|
||||||
beq L11F4
|
beq on_return
|
||||||
cmp #$8A ; Down Arrow
|
cmp #$8A ; Down Arrow
|
||||||
beq on_down
|
beq on_down
|
||||||
cmp #$8B ; Up Arrow
|
cmp #$8B ; Up Arrow
|
||||||
|
|
@ -252,14 +261,14 @@ L11CB: cmp #$89 ; Tab
|
||||||
jsr L11DA
|
jsr L11DA
|
||||||
dec $6B
|
dec $6B
|
||||||
bra L11F1
|
bra L11F1
|
||||||
L11DA: ldx $0280
|
L11DA: ldx prefix
|
||||||
L11DD: dex
|
L11DD: dex
|
||||||
lda $0280,x
|
lda prefix,x
|
||||||
cmp #$2F
|
cmp #'/'
|
||||||
bne L11DD
|
bne L11DD
|
||||||
cpx #$01
|
cpx #$01
|
||||||
bne L11EC
|
bne L11EC
|
||||||
ldx $0280
|
ldx prefix
|
||||||
L11EC: rts
|
L11EC: rts
|
||||||
|
|
||||||
next_drive:
|
next_drive:
|
||||||
|
|
@ -268,45 +277,54 @@ next_drive:
|
||||||
L11F0: inx
|
L11F0: inx
|
||||||
L11F1: jmp L1059
|
L11F1: jmp L1059
|
||||||
|
|
||||||
L11F4: MLI_CALL SET_PREFIX, set_prefix_params
|
on_return:
|
||||||
|
MLI_CALL SET_PREFIX, set_prefix_params
|
||||||
bcs next_drive
|
bcs next_drive
|
||||||
ldx $67
|
ldx $67
|
||||||
jsr L1258
|
jsr L1258
|
||||||
ldx $0280
|
|
||||||
L1204: iny
|
ldx prefix
|
||||||
|
: iny
|
||||||
lda ($6C),y
|
lda ($6C),y
|
||||||
inx
|
inx
|
||||||
sta $0280,x
|
sta prefix,x
|
||||||
cpy $69
|
cpy $69
|
||||||
bcc L1204
|
bcc :-
|
||||||
stx $0280
|
stx prefix
|
||||||
|
|
||||||
ldy $67
|
ldy $67
|
||||||
lda $74,y
|
lda $74,y
|
||||||
bpl L11F0
|
bpl L11F0 ; is directory???
|
||||||
|
|
||||||
|
.proc launch_sys_file
|
||||||
jsr MON_SETTXT
|
jsr MON_SETTXT
|
||||||
jsr MON_HOME
|
jsr MON_HOME
|
||||||
lda #$95
|
lda #$95 ; Right arrow
|
||||||
jsr COUT
|
jsr COUT
|
||||||
|
|
||||||
MLI_CALL OPEN, open_params
|
MLI_CALL OPEN, open_params
|
||||||
bcs next_drive
|
bcs next_drive
|
||||||
lda open_params_ref_num
|
lda open_params_ref_num
|
||||||
sta read_params_ref_num
|
sta read_params_ref_num
|
||||||
lda #$FF
|
lda #$FF ; Load up to $FFFF bytes
|
||||||
sta read_params_request
|
sta read_params_request
|
||||||
sta read_params_request+1
|
sta read_params_request+1
|
||||||
jsr L12B4
|
jsr do_read
|
||||||
php
|
php
|
||||||
MLI_CALL CLOSE, close_params
|
MLI_CALL CLOSE, close_params
|
||||||
plp
|
plp
|
||||||
bcs next_drive
|
bcs next_drive
|
||||||
jmp L2000
|
jmp read_buffer ; Invoke the loaded code
|
||||||
|
.endproc
|
||||||
|
|
||||||
L124A: sta $24
|
L124A: sta $24
|
||||||
L124C: lda help_string,y
|
|
||||||
|
cout_string:
|
||||||
|
lda help_string,y
|
||||||
beq L1257
|
beq L1257
|
||||||
jsr COUT
|
jsr COUT
|
||||||
iny
|
iny
|
||||||
bne L124C
|
bne cout_string
|
||||||
L1257: rts
|
L1257: rts
|
||||||
|
|
||||||
L1258: stz $6D
|
L1258: stz $6D
|
||||||
|
|
@ -343,8 +361,8 @@ L1277: lda #$02
|
||||||
stz $057B
|
stz $057B
|
||||||
lda $32
|
lda $32
|
||||||
pha
|
pha
|
||||||
ldy #$2A
|
ldy #(folder_string - string_start) ; Draw folder glyphs
|
||||||
jsr L124C
|
jsr cout_string
|
||||||
pla
|
pla
|
||||||
sta $32
|
sta $32
|
||||||
L1299: jsr L12A9
|
L1299: jsr L12A9
|
||||||
|
|
@ -360,8 +378,10 @@ L12AD: lda #$99
|
||||||
L12AF: ora #$80
|
L12AF: ora #$80
|
||||||
L12B1: jmp COUT
|
L12B1: jmp COUT
|
||||||
|
|
||||||
L12B4: MLI_CALL READ, read_params
|
.proc do_read
|
||||||
|
MLI_CALL READ, read_params
|
||||||
rts
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
.macro HIASCII arg
|
.macro HIASCII arg
|
||||||
.repeat .strlen(arg), i
|
.repeat .strlen(arg), i
|
||||||
|
|
@ -369,6 +389,7 @@ L12B4: MLI_CALL READ, read_params
|
||||||
.endrep
|
.endrep
|
||||||
.endmacro
|
.endmacro
|
||||||
|
|
||||||
|
string_start := *
|
||||||
.proc help_string
|
.proc help_string
|
||||||
HIASCII "RETURN: Select | TAB: Chg Vol | ESC: Back"
|
HIASCII "RETURN: Select | TAB: Chg Vol | ESC: Back"
|
||||||
.byte 0 ; null terminated
|
.byte 0 ; null terminated
|
||||||
|
|
@ -382,7 +403,7 @@ L12B4: MLI_CALL READ, read_params
|
||||||
|
|
||||||
.proc open_params
|
.proc open_params
|
||||||
params: .byte 3
|
params: .byte 3
|
||||||
path: .addr $0280
|
path: .addr prefix
|
||||||
buffer: .addr $1C00
|
buffer: .addr $1C00
|
||||||
ref_num:.byte 0
|
ref_num:.byte 0
|
||||||
.endproc
|
.endproc
|
||||||
|
|
@ -396,19 +417,19 @@ ref_num:.byte 0
|
||||||
.proc on_line_params
|
.proc on_line_params
|
||||||
params: .byte 2
|
params: .byte 2
|
||||||
unit: .byte $60
|
unit: .byte $60
|
||||||
buffer: .addr $0281
|
buffer: .addr prefix+1
|
||||||
.endproc
|
.endproc
|
||||||
on_line_params_unit := on_line_params::unit
|
on_line_params_unit := on_line_params::unit
|
||||||
|
|
||||||
.proc set_prefix_params
|
.proc set_prefix_params
|
||||||
params: .byte 1
|
params: .byte 1
|
||||||
path: .addr $0280
|
path: .addr prefix
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.proc read_params
|
.proc read_params
|
||||||
params: .byte 4
|
params: .byte 4
|
||||||
ref_num:.byte 1
|
ref_num:.byte 1
|
||||||
buffer: .word $2000
|
buffer: .word read_buffer
|
||||||
request:.word 0
|
request:.word 0
|
||||||
trans: .word 0
|
trans: .word 0
|
||||||
.endproc
|
.endproc
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user