Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity

pd errs, stats

Browse Source
This commit is contained in:
Joshua Bell 2018-03-04 11:35:04 -08:00
parent d2e6678f48
commit 31ce4921f8
5 changed files with 221 additions and 232 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
desk.acc/res/go.sh
View File

@ -25,7 +25,7 @@ function verify {
} }
function stats { function stats {
echo "$1: "$(../res/stats.pl < "$1") echo "$(printf '%-10s' $1)""$(../res/stats.pl < $1)"
} }
function mount { function mount {

2
desktop/res/go.sh
View File

@ -25,7 +25,7 @@ function verify {
} }
function stats { function stats {
echo "$1: "$(../res/stats.pl < "$1") echo "$(printf '%-10s' $1)""$(../res/stats.pl < $1)"
} }
#do_make clean #do_make clean

426
desktop/sys.s
View File

@ -7,33 +7,10 @@
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../macros.inc" .include "../macros.inc"
L0300 := $0300 ;;; ============================================================
.proc bootstrap
L400C := $400C L0300 := $0300
L402B := $402B
L402C := $402C
L9F8C := $9F8C
L9FAB := $9FAB
L9FB0 := $9FB0
LA1F5 := $A1F5
LA24C := $A24C
LA62F := $A62F
LA66C := $A66C
LAB37 := $AB37
LAD46 := $AD46
LB1A0 := $B1A0
LB245 := $B245
LB2FB := $B2FB
LB3EB := $B3EB
LB41F := $B41F
LB462 := $B462
LB4A5 := $B4A5
LB522 := $B522
LB666 := $B666
LB7D0 := $B7D0
LBE50 := $BE50
LBE70 := $BE70
L2000: jmp L24B6 L2000: jmp L24B6
@ -52,54 +29,65 @@ L2005:
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $02,$00,$63,$23 .byte $02,$00
.addr $2363
.proc get_prefix_params2 .proc get_prefix_params2
param_count: .byte 2 ; GET_PREFIX, but param_count is 2 ??? param_count: .byte 2 ; GET_PREFIX, but param_count is 2 ??? Bug???
data_buffer: .addr $0D00 data_buffer: .addr $0D00
.endproc .endproc
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params4, $0D00 DEFINE_GET_FILE_INFO_PARAMS get_file_info_params4, $0D00
.byte $00,$01,$62,$23,$00,$00,$00 .byte $00,$01
.addr $2362
.byte $00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00
L2372: .byte $00 L2372: .byte $00
L2373: .byte $00 L2373: .byte $00
DEFINE_ON_LINE_PARAMS on_line_params,, $237A DEFINE_ON_LINE_PARAMS on_line_params,, on_line_buffer
L2378: .byte $00,$00 L2378: .byte $00,$00
L237A: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 on_line_buffer: .res 17, 0
.byte $00
DEFINE_GET_PREFIX_PARAMS get_prefix_params, L26F5 DEFINE_GET_PREFIX_PARAMS get_prefix_params, L26F5
DEFINE_SET_PREFIX_PARAMS set_prefix_params, L2B60 DEFINE_SET_PREFIX_PARAMS set_prefix_params, path_buf0
.byte $0A .byte $0A
.byte $79,$23,$00,$00,$00,$00,$00,$00 .addr $2379
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$07,$60,$2B,$C3,$0F .byte $00,$00,$00
.byte $07,$60,$2B,$C3,$0F
.byte $00,$00,$0D,$00,$00,$00,$00,$04 .byte $00,$00,$0D,$00,$00,$00,$00,$04
.byte $00,$00,$03,$00,$01,$00,$00,$01 .byte $00,$00,$03,$00,$01,$00,$00,$01
.byte $00,$03,$F5,$26,$00,$08,$00,$04 .byte $00,$03,$F5,$26,$00,$08,$00,$04
.byte $00,$C9,$23,$04,$00,$00,$00,$00 .byte $00
.addr $23C9
.byte $04,$00,$00,$00,$00
.byte $00,$00,$00,$01,$00,$04,$00,$21 .byte $00,$00,$00,$01,$00,$04,$00,$21
.byte $28,$27,$00,$00,$00,$04,$00,$DF .byte $28,$27,$00,$00,$00,$04,$00
.byte $23,$05,$00,$00,$00,$00,$00,$00 .addr $23DF
.byte $05,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00
DEFINE_CLOSE_PARAMS close_params2 DEFINE_CLOSE_PARAMS close_params2
DEFINE_CLOSE_PARAMS close_params3 DEFINE_CLOSE_PARAMS close_params3
.byte $01,$F5,$26 .byte $01
.addr L26F5
DEFINE_OPEN_PARAMS open_params3, L26F5, $0D00 DEFINE_OPEN_PARAMS open_params3, L26F5, $0D00
DEFINE_OPEN_PARAMS open_params4, L2B60, $1100 DEFINE_OPEN_PARAMS open_params4, path_buf0, $1100
DEFINE_READ_PARAMS read_params3, $4000, $7F00 DEFINE_READ_PARAMS read_params3, $4000, $7F00
DEFINE_WRITE_PARAMS write_params, $4000, $7F00 DEFINE_WRITE_PARAMS write_params, $4000, $7F00
DEFINE_CREATE_PARAMS create_params, L2B60, $C3, 0, 0 DEFINE_CREATE_PARAMS create_params, path_buf0, $C3, 0, 0
.byte $07,$60,$2B,$00 .byte $07
.addr path_buf0
.byte $00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00 .byte $00,$00
@ -115,15 +103,14 @@ str_f6: PASCAL_STRING "PRODOS"
L2471: .addr str_f1,str_f2,str_f3,str_f4,str_f5,str_f6 L2471: .addr str_f1,str_f2,str_f3,str_f4,str_f5,str_f6
L247D: PASCAL_STRING "Copying Apple II DeskTop into RAMCard" str_copying_to_ramcard: PASCAL_STRING "Copying Apple II DeskTop into RAMCard"
L24A3: .byte $60 L24A3: .byte $60
L24A4: .byte $20,$00,$03,$00 L24A4: .byte $20,$00,$03,$00
L24A8: .byte $01,$03,$05,$07 L24A8: .byte $01,$03,$05,$07
L24AC: .byte $00 L24AC: .byte $00
;; Selector signature ;; Selector signature
L24AD: .byte $AD,$8B,$C0,$18,$FB,$5C,$04,$D0 L24AD: .byte $AD,$8B,$C0,$18,$FB,$5C,$04,$D0,$E0
.byte $E0
L24B6: sta MIXCLR L24B6: sta MIXCLR
sta HIRES sta HIRES
@ -235,21 +222,21 @@ L2592: lda L2373
MLI_CALL WRITE_BLOCK, write_block_params MLI_CALL WRITE_BLOCK, write_block_params
bne L25AD bne L25AD
MLI_CALL WRITE_BLOCK, write_block_params2 MLI_CALL WRITE_BLOCK, write_block_params2
L25AD: lda L237A L25AD: lda on_line_buffer
and #$0F and #$0F
tay tay
iny iny
sty L2B60 sty path_buf0
lda #$2F lda #'/'
sta L237A sta on_line_buffer
sta L2B61 sta path_buf0+1
L25BF: lda L237A,y L25BF: lda on_line_buffer,y
sta L2B61,y sta path_buf0+1,y
dey dey
bne L25BF bne L25BF
ldx #$C0 ldx #$C0
jsr L26A5 jsr L26A5
addr_call L26B2, L2B60 addr_call L26B2, path_buf0
jsr L2AB2 jsr L2AB2
bcs L25E4 bcs L25E4
ldx #$80 ldx #$80
@ -257,9 +244,9 @@ L25BF: lda L237A,y
jsr L2B57 jsr L2B57
jmp L26E8 jmp L26E8
L25E4: lda $C062 L25E4: lda BUTN1
sta L2372 sta L2372
lda $C061 lda BUTN0
bpl L2603 bpl L2603
jmp L26E8 jmp L26E8
@ -279,15 +266,15 @@ L261C: lda L26F5,y
sta L2005,y sta L2005,y
dey dey
bpl L261C bpl L261C
ldy L2B60 ldy path_buf0
ldx #$00 ldx #$00
L262A: iny L262A: iny
inx inx
lda L25F2,x lda L25F2,x
sta L2B60,y sta path_buf0,y
cpx L25F2 cpx L25F2
bne L262A bne L262A
sty L2B60 sty path_buf0
ldx #$07 ldx #$07
L263C: lda L25FB,x L263C: lda L25FB,x
sta get_file_info_params,x sta get_file_info_params,x
@ -295,7 +282,7 @@ L263C: lda L25FB,x
cpx #$03 cpx #$03
bne L263C bne L263C
jsr L2A95 jsr L2A95
lda L2B60 lda path_buf0
sta L2378 sta L2378
lda #$00 lda #$00
sta L2BE1 sta L2BE1
@ -322,27 +309,27 @@ L2669: lda ($06),y
L2681: lda L2378 L2681: lda L2378
beq L268F beq L268F
sta L2B60 sta path_buf0
MLI_CALL SET_PREFIX, set_prefix_params MLI_CALL SET_PREFIX, set_prefix_params
L268F: jsr L2B37 L268F: jsr L2B37
jsr L2B57 jsr L2B57
lda #$00 lda #$00
sta $C071 sta $C071 ; ???
ldy #$17 ldy #$17
L269C: sta BITMAP,y L269C: sta BITMAP,y
dey dey
bpl L269C bpl L269C
jmp L3000 jmp L3000
L26A5: lda $C083 L26A5: lda LCBANK2
lda $C083 lda LCBANK2
stx $D3FF stx $D3FF
lda ROMIN2 lda ROMIN2
rts rts
L26B2: stax $06 L26B2: stax $06
lda $C083 lda LCBANK2
lda $C083 lda LCBANK2
ldy #$00 ldy #$00
lda ($06),y lda ($06),y
tay tay
@ -354,8 +341,8 @@ L26C1: lda ($06),y
rts rts
L26CD: stax $06 L26CD: stax $06
lda $C083 lda LCBANK2
lda $C083 lda LCBANK2
ldy #$00 ldy #$00
lda ($06),y lda ($06),y
tay tay
@ -374,8 +361,7 @@ L26E8: lda #$00
ora a:$00 ora a:$00
.byte 0 .byte 0
L26F5: .byte 0 L26F5: .res 300, 0
L26F6: .res 299, 0
L2821: .byte 0 L2821: .byte 0
L2822: .res 15, 0 L2822: .res 15, 0
@ -386,13 +372,13 @@ L2851: lda L2821
L2857: ldx #$00 L2857: ldx #$00
ldy L26F5 ldy L26F5
lda #$2F lda #'/'
sta L26F6,y sta L26F5+1,y
iny iny
L2862: cpx L2821 L2862: cpx L2821
bcs L2872 bcs L2872
lda L2822,x lda L2822,x
sta L26F6,y sta L26F5+1,y
inx inx
iny iny
jmp L2862 jmp L2862
@ -405,7 +391,7 @@ L2876: ldx L26F5
rts rts
L287C: lda L26F5,x L287C: lda L26F5,x
cmp #$2F cmp #'/'
beq L288A beq L288A
dex dex
bne L287C bne L287C
@ -421,53 +407,54 @@ L288F: lda L2821
rts rts
L2895: ldx #$00 L2895: ldx #$00
ldy L2B60 ldy path_buf0
lda #$2F lda #'/'
sta L2B61,y sta path_buf0+1,y
iny iny
L28A0: cpx L2821 L28A0: cpx L2821
bcs L28B0 bcs L28B0
lda L2822,x lda L2822,x
sta L2B61,y sta path_buf0+1,y
inx inx
iny iny
jmp L28A0 jmp L28A0
L28B0: sty L2B60 L28B0: sty path_buf0
rts rts
L28B4: ldx L2B60 L28B4: ldx path_buf0
bne L28BA bne L28BA
rts rts
L28BA: lda L2B60,x L28BA: lda path_buf0,x
cmp #$2F cmp #'/'
beq L28C8 beq L28C8
dex dex
bne L28BA bne L28BA
stx L2B60 stx path_buf0
rts rts
L28C8: dex L28C8: dex
stx L2B60 stx path_buf0
rts rts
jsr SLOT3ENTRY ;; Turn on 80-col mode, and draw message (centered)
L28CD: jsr SLOT3ENTRY
jsr HOME jsr HOME
lda #$50 lda #80
sec sec
sbc L247D sbc str_copying_to_ramcard
lsr a lsr a ; / 2 to center
sta $24 sta CH
lda #$0C lda #12
sta $25 sta CV
jsr VTAB jsr VTAB
ldy #$00 ldy #0
L28E5: iny L28E5: iny
lda L247D,y lda str_copying_to_ramcard,y
ora #$80 ora #$80
jsr COUT jsr COUT
cpy L247D cpy str_copying_to_ramcard
bne L28E5 bne L28E5
rts rts
@ -480,7 +467,7 @@ L28FE: lda $0200,y
cmp #$8D cmp #$8D
beq L290E beq L290E
and #$7F and #$7F
sta L26F6,y sta L26F5+1,y
iny iny
jmp L28FE jmp L28FE
@ -491,7 +478,7 @@ L2912: jsr L288F
jsr L2851 jsr L2851
MLI_CALL GET_FILE_INFO, get_file_info_params MLI_CALL GET_FILE_INFO, get_file_info_params
beq :+ beq :+
cmp #$46 cmp #PDERR_FILE_NOT_FOUND
beq L294B beq L294B
jmp L26E8 jmp L26E8
@ -503,7 +490,7 @@ L2912: jsr L288F
jmp L2951 jmp L2951
L2937: jsr L2A95 L2937: jsr L2A95
cmp #$47 cmp #PDERR_DUPLICATE_FILENAME
bne L2948 bne L2948
lda L2BE1 lda L2BE1
bne L294B bne L294B
@ -521,7 +508,7 @@ L2951: rts
DEFINE_CLOSE_PARAMS close_params DEFINE_CLOSE_PARAMS close_params
L2962: jsr L2A95 L2962: jsr L2A95
cmp #$47 cmp #PDERR_DUPLICATE_FILENAME
beq L2974 beq L2974
MLI_CALL OPEN, open_params2 MLI_CALL OPEN, open_params2
beq :+ beq :+
@ -576,7 +563,7 @@ L29BD: lda ($06),y
: lda get_file_info_params::file_type : lda get_file_info_params::file_type
sta L2831 sta L2831
jsr L2A95 jsr L2A95
cmp #$47 cmp #PDERR_DUPLICATE_FILENAME
beq L29ED beq L29ED
jsr L2A11 jsr L2A11
L29ED: jsr L2876 L29ED: jsr L2876
@ -616,7 +603,7 @@ L2A2D: lda open_params3::ref_num
L2A3F: copy16 #$7F00, read_params3::request_count L2A3F: copy16 #$7F00, read_params3::request_count
L2A49: MLI_CALL READ, read_params3 L2A49: MLI_CALL READ, read_params3
beq L2A5B beq L2A5B
cmp #$4C cmp #PDERR_END_OF_FILE
beq L2A88 beq L2A88
jsr L28F4 jsr L28F4
jmp L2A49 jmp L2A49
@ -648,7 +635,7 @@ L2A95: ldx #7
bne :- bne :-
MLI_CALL CREATE, create_params MLI_CALL CREATE, create_params
beq L2AB1 beq L2AB1
cmp #$47 cmp #PDERR_DUPLICATE_FILENAME
beq L2AB1 beq L2AB1
jsr L28F4 jsr L28F4
L2AB1: rts L2AB1: rts
@ -722,75 +709,15 @@ L2B57: addr_call L26CD, $2005
rts rts
.byte 0 .byte 0
L2B60: .byte 0
L2B61: .byte 0 path_buf0:
.byte 0 .res 65, 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
;;; ============================================================ ;;; ============================================================
;; Relocated to $300 ;;; Launch FILER - used if machine is not 128k
;;; Relocated to $300 before invoking
saved_org := *
.proc launch_filer .proc launch_filer
.org $300 .org $300
@ -825,7 +752,7 @@ filename: PASCAL_STRING "FILER"
;;; ============================================================ ;;; ============================================================
.org $2BE1 .org (saved_org + .sizeof(launch_filer))
L2BE1: .byte $00 L2BE1: .byte $00
L2BE2: .byte $00 L2BE2: .byte $00
@ -846,23 +773,23 @@ L2BE3: .byte $00
L3000: jsr SLOT3ENTRY L3000: jsr SLOT3ENTRY
jsr HOME jsr HOME
lda $C083 lda LCBANK2
lda $C083 lda LCBANK2
lda $D3FF lda $D3FF
pha pha
lda $C082 lda ROMIN2
pla pla
bne L3019 bne L3019
jmp L3880 jmp L3880
L3019: lda $C083 L3019: lda LCBANK2
lda $C083 lda LCBANK2
ldx #$17 ldx #$17
lda #$00 lda #$00
L3023: sta $D395,x L3023: sta $D395,x
dex dex
bpl L3023 bpl L3023
lda $C082 lda ROMIN2
jsr L37FF jsr L37FF
beq L3034 beq L3034
jmp L30B8 jmp L30B8
@ -881,12 +808,12 @@ L3039: lda L30BB
jsr L37D2 jsr L37D2
jsr L38B2 jsr L38B2
jsr L3489 jsr L3489
lda $C083 lda LCBANK2
lda $C083 lda LCBANK2
ldx L30BB ldx L30BB
lda #$FF lda #$FF
sta $D395,x sta $D395,x
lda $C082 lda ROMIN2
L306B: inc L30BB L306B: inc L30BB
jmp L3039 jmp L3039
@ -908,15 +835,15 @@ L3076: lda L30BB
jsr L37D2 jsr L37D2
jsr L38B2 jsr L38B2
jsr L3489 jsr L3489
lda $C083 lda LCBANK2
lda $C083 lda LCBANK2
lda L30BB lda L30BB
clc clc
adc #$08 adc #$08
tax tax
lda #$FF lda #$FF
sta $D395,x sta $D395,x
lda $C082 lda ROMIN2
L30B2: inc L30BB L30B2: inc L30BB
jmp L3076 jmp L3076
@ -1148,7 +1075,7 @@ L3489: lda #$FF
sta L353B sta L353B
jsr L3777 jsr L3777
ldx path_buf1 ldx path_buf1
lda #$2F lda #'/'
sta path_buf1+1,x sta path_buf1+1,x
inc path_buf1 inc path_buf1
ldy #$00 ldy #$00
@ -1161,19 +1088,19 @@ L34A1: iny
bne L34A1 bne L34A1
stx path_buf1 stx path_buf1
MLI_CALL GET_FILE_INFO, get_file_info_params3 MLI_CALL GET_FILE_INFO, get_file_info_params3
cmp #$46 cmp #PDERR_FILE_NOT_FOUND
beq L34C4 beq L34C4
cmp #$45 cmp #PDERR_VOL_NOT_FOUND
beq L34C4 beq L34C4
cmp #$44 cmp #PDERR_PATH_NOT_FOUND
beq L34C4 beq L34C4
rts rts
L34C4: MLI_CALL GET_FILE_INFO, get_file_info_params2 L34C4: MLI_CALL GET_FILE_INFO, get_file_info_params2
beq L34DD beq L34DD
cmp #$45 cmp #PDERR_VOL_NOT_FOUND
beq L34D4 beq L34D4
cmp #$46 cmp #PDERR_FILE_NOT_FOUND
bne L34DA bne L34DA
L34D4: jsr L3A0A L34D4: jsr L3A0A
jmp L34C4 jmp L34C4
@ -1283,7 +1210,7 @@ L35A9: MLI_CALL GET_FILE_INFO, get_file_info_params2
sta L3642 sta L3642
MLI_CALL GET_FILE_INFO, get_file_info_params3 MLI_CALL GET_FILE_INFO, get_file_info_params3
beq :+ beq :+
cmp #$46 cmp #PDERR_FILE_NOT_FOUND
beq L35D7 beq L35D7
jmp L3A43 jmp L3A43
@ -1295,7 +1222,7 @@ L35DF: iny
cpy path_buf1 cpy path_buf1
bcs L3635 bcs L3635
lda path_buf1,y lda path_buf1,y
cmp #$2F cmp #'/'
bne L35DF bne L35DF
tya tya
sta path_buf1 sta path_buf1
@ -1333,10 +1260,11 @@ L3659: lda open_params7::ref_num
lda open_params8::ref_num lda open_params8::ref_num
sta write_params3::ref_num sta write_params3::ref_num
sta close_params6::ref_num sta close_params6::ref_num
L366B: copy16 #$0B00, read_params7::request_count L366B: copy16 #$0B00, read_params7::request_count
MLI_CALL READ, read_params7 MLI_CALL READ, read_params7
beq :+ beq :+
cmp #$4C cmp #PDERR_END_OF_FILE
beq L36AE beq L36AE
jmp L3A43 jmp L3A43
@ -1355,8 +1283,8 @@ L366B: copy16 #$0B00, read_params7::request_count
beq L366B beq L366B
L36AE: MLI_CALL CLOSE, close_params6 L36AE: MLI_CALL CLOSE, close_params6
MLI_CALL CLOSE, close_params7 MLI_CALL CLOSE, close_params7
jsr L37AE jsr get_file_info_and_copy
jsr L379D jsr do_set_file_info
rts rts
;; copy file_type, aux_type, storage_type ;; copy file_type, aux_type, storage_type
@ -1395,7 +1323,7 @@ L36FB: lda L3150
L3701: ldx #$00 L3701: ldx #$00
ldy path_buf2 ldy path_buf2
lda #$2F lda #'/'
sta path_buf2+1,y sta path_buf2+1,y
iny iny
L370C: cpx L3150 L370C: cpx L3150
@ -1414,7 +1342,7 @@ L3720: ldx path_buf2
rts rts
L3726: lda path_buf2,x L3726: lda path_buf2,x
cmp #$2F cmp #'/'
beq L3734 beq L3734
dex dex
bne L3726 bne L3726
@ -1431,7 +1359,7 @@ L3739: lda L3150
L373F: ldx #$00 L373F: ldx #$00
ldy path_buf1 ldy path_buf1
lda #$2F lda #'/'
sta path_buf1+1,y sta path_buf1+1,y
iny iny
L374A: cpx L3150 L374A: cpx L3150
@ -1450,7 +1378,7 @@ L375E: ldx path_buf1
rts rts
L3764: lda path_buf1,x L3764: lda path_buf1,x
cmp #$2F cmp #'/'
beq L3772 beq L3772
dex dex
bne L3764 bne L3764
@ -1466,7 +1394,7 @@ L3777: ldy #$00
dey dey
L377D: iny L377D: iny
lda L324A,y lda L324A,y
cmp #$2F cmp #'/'
bne L3788 bne L3788
sty L353C sty L353C
L3788: sta path_buf2,y L3788: sta path_buf2,y
@ -1479,25 +1407,29 @@ L3793: lda L320A,y
bpl L3793 bpl L3793
rts rts
L379D: lda #$07 .proc do_set_file_info
lda #7 ; SET_FILE_INFO param_count
sta get_file_info_params3 sta get_file_info_params3
MLI_CALL SET_FILE_INFO, get_file_info_params3 MLI_CALL SET_FILE_INFO, get_file_info_params3
lda #10 lda #10 ; GET_FILE_INFO param_count
sta get_file_info_params3 sta get_file_info_params3
rts rts
.endproc
L37AE: MLI_CALL GET_FILE_INFO, get_file_info_params2 .proc get_file_info_and_copy
bne :+ MLI_CALL GET_FILE_INFO, get_file_info_params2
bne fail
ldx #$0A ldx #$0A
L37B8: lda get_file_info_params2::access,x : lda get_file_info_params2::access,x
sta get_file_info_params3::access,x sta get_file_info_params3::access,x
dex dex
bpl L37B8 bpl :-
rts rts
: pla fail: pla
pla pla
rts rts
.endproc
L37C5: jsr L381C L37C5: jsr L381C
clc clc
@ -1604,7 +1536,7 @@ L38BB: lda ($06),y
ldy L324A ldy L324A
L38C6: lda L324A,y L38C6: lda L324A,y
and #$7F and #$7F
cmp #$2F cmp #'/'
beq L38D2 beq L38D2
dey dey
bne L38C6 bne L38C6
@ -1612,7 +1544,7 @@ L38D2: dey
sty L324A sty L324A
L38D6: lda L324A,y L38D6: lda L324A,y
and #$7F and #$7F
cmp #$2F cmp #'/'
beq L38E2 beq L38E2
dey dey
bpl L38D6 bpl L38D6
@ -1624,8 +1556,8 @@ L38E4: iny
cpy L324A cpy L324A
bne L38E4 bne L38E4
stx L328A stx L328A
lda $C083 lda LCBANK2
lda $C083 lda LCBANK2
ldy $D3EE ldy $D3EE
L38FD: lda $D3EE,y L38FD: lda $D3EE,y
sta L320A,y sta L320A,y
@ -1683,39 +1615,46 @@ L3A29: lda #$00
jsr HOME jsr HOME
jmp L3880 jmp L3880
L3A43: cmp #$48 L3A43: cmp #PDERR_OVERRUN_ERROR
bne L3A4D bne L3A4D
jsr L3A29 jsr L3A29
jmp L3AD2 jmp L3AD2
L3A4D: cmp #$49 L3A4D: cmp #PDERR_VOLUME_DIR_FULL
bne L3A57 bne show_error
jsr L3A29 jsr L3A29
jmp L3AD2 jmp L3AD2
L3A57: pha .proc show_error
;; Show error
pha
addr_call cout_string, str_error addr_call cout_string, str_error
pla pla
jsr PRBYTE jsr PRBYTE
addr_call cout_string, str_occured addr_call cout_string, str_occured
addr_call cout_string_newline, path_buf2 addr_call cout_string_newline, path_buf2
addr_call cout_string, str_not_completed addr_call cout_string, str_not_completed
;; Wait for keyboard
sta KBDSTRB sta KBDSTRB
L3A7B: lda KBD loop: lda KBD
bpl L3A7B bpl loop
and #$7F and #$7F
sta KBDSTRB sta KBDSTRB
cmp #$4D cmp #'M'
beq L3A97 beq L3A97
cmp #$6D cmp #'m'
beq L3A97 beq L3A97
cmp #$0D cmp #CHAR_RETURN
bne L3A7B bne loop
jsr HOME jsr HOME
jmp L3880 jmp L3880
.endproc
L3A97: jmp MONZ L3A97: jmp MONZ
;;; ============================================================
.proc cout_string_newline .proc cout_string_newline
jsr cout_string jsr cout_string
lda #$80|CHAR_RETURN lda #$80|CHAR_RETURN
@ -1736,7 +1675,7 @@ loop: iny
ora #$80 ora #$80
jsr COUT jsr COUT
len := *+1 len := *+1
L3AB7: cpy #0 ; self-modified cpy #0 ; self-modified
bne loop bne loop
done: rts done: rts
.endproc .endproc
@ -1763,13 +1702,10 @@ done: rts
L3AD2: jsr HOME L3AD2: jsr HOME
jmp L3880 jmp L3880
;;; ============================================================ L3AD8: .byte 0 ; ???
;;; ??? Is this relocated? Part of ProDOS or ... ?
.byte 0
.byte $02 .byte $02
iny
L3ADA: iny
inx inx
dec $0200 dec $0200
bne L3AD2 bne L3AD2
@ -1777,12 +1713,46 @@ L3AD2: jsr HOME
sta $0200 sta $0200
rts rts
.endproc ; bootstrap
;;; ============================================================
;;; ??? Is this relocated? Part of ProDOS? RAMCard driver?
.proc WTF
L400C := $400C
L402B := $402B
L402C := $402C
L9F8C := $9F8C
L9FAB := $9FAB
L9FB0 := $9FB0
LA1F5 := $A1F5
LA24C := $A24C
LA62F := $A62F
LA66C := $A66C
LAB37 := $AB37
LAD46 := $AD46
LB1A0 := $B1A0
LB245 := $B245
LB2FB := $B2FB
LB3EB := $B3EB
LB41F := $B41F
LB462 := $B462
LB4A5 := $B4A5
LB522 := $B522
LB666 := $B666
LB7D0 := $B7D0
LBE50 := $BE50
LBE70 := $BE70
L3AB7 := $3AB7 ; This can't be right
copy16 #$BCBD, $BEC8 copy16 #$BCBD, $BEC8
lda DEVNUM lda DEVNUM
sta $BEC7 sta $BEC7
lda #$C5 lda #$C5
jsr LBE70 jsr LBE70
bcs cout_string::L3AB7 bcs L3AB7
lda $BCBD lda $BCBD
and #$0F and #$0F
tax tax
@ -1791,7 +1761,7 @@ L3AD2: jsr HOME
lda #$AF lda #$AF
sta $BCBD sta $BCBD
jsr LB7D0 jsr LB7D0
bcs cout_string::L3AB7 bcs L3AB7
jsr LA66C jsr LA66C
ldx #$36 ldx #$36
jsr L9FB0 jsr L9FB0
@ -2368,3 +2338,5 @@ L3FD2: lda #$02
ldy $BE5F ldy $BE5F
ldx $BE60 ldx $BE60
.byte $D0 .byte $D0
.endproc ; WTF

5
inc/prodos.inc
View File

@ -103,6 +103,11 @@ ST_VOLUME_DIRECTORY := $0F
PDERR_PATH_NOT_FOUND := $44 PDERR_PATH_NOT_FOUND := $44
PDERR_VOL_NOT_FOUND := $45 PDERR_VOL_NOT_FOUND := $45
PDERR_FILE_NOT_FOUND := $46
PDERR_DUPLICATE_FILENAME:= $47
PDERR_OVERRUN_ERROR := $48
PDERR_VOLUME_DIR_FULL := $49
PDERR_END_OF_FILE := $4C
;;; ============================================================ ;;; ============================================================
;;; Macros ;;; Macros

18
res/stats.pl
View File

@ -12,6 +12,7 @@ my $command = shift(@ARGV) // "";
my %defs; my %defs;
my %refs; my %refs;
my %unscoped; my %unscoped;
my %raw;
my $depth = 0; my $depth = 0;
while (<STDIN>) { while (<STDIN>) {
@ -25,10 +26,15 @@ while (<STDIN>) {
$unscoped{$def} = 1 if $depth < 2; $unscoped{$def} = 1 if $depth < 2;
} }
foreach my $term (split /(?<!::)\b/, $_) { foreach my $term (split /[ (),+\-*\/]/, $_) {
if ($term =~ /^L[0-9A-F]{4}$/) { $term =~ s/\s+//g;
next unless $term;
if ($term =~ m/^L[0-9A-F]{4}$/) {
$refs{$term} = 0 unless defined $refs{$term}; $refs{$term} = 0 unless defined $refs{$term};
$refs{$term} += 1; $refs{$term} += 1;
} elsif ($term =~ m/^\$[0-9A-F]{4}$/) {
$raw{$term} = 0 unless defined $raw{$term};
$raw{$term} += 1;
} }
} }
} }
@ -40,6 +46,7 @@ foreach my $def (keys %defs) {
my $defs = scalar(keys %defs); my $defs = scalar(keys %defs);
my $unscoped = scalar(keys %unscoped); my $unscoped = scalar(keys %unscoped);
my $raws = scalar(keys %raw);
my $scoped = $defs - $unscoped; my $scoped = $defs - $unscoped;
if ($command eq "unscoped") { if ($command eq "unscoped") {
@ -50,8 +57,13 @@ if ($command eq "unscoped") {
foreach my $def (sort keys %defs) { foreach my $def (sort keys %defs) {
print "$def\n" unless defined $refs{$def}; print "$def\n" unless defined $refs{$def};
} }
} elsif ($command eq "raw") {
foreach my $addr (sort keys %raw) {
print "$addr\n";
}
} elsif ($command eq "") { } elsif ($command eq "") {
print "unscoped: $unscoped scoped: $scoped unrefed: $unrefed\n"; printf("unscoped: %4d scoped: %4d raw: %4d unrefed: %4d\n",
$unscoped, $scoped, $raws, $unrefed);
} else { } else {
die "Unknown command: $command\n"; die "Unknown command: $command\n";
} }