mirror of
https://github.com/mi57730/a2d.git
synced 2024-12-01 20:50:06 +00:00
DeskTop: relay/gfi
This commit is contained in:
Joshua Bell
parent
0bcf4e8bd3
commit
1930dc794a
@ -14889,17 +14889,22 @@ L92BD: jmp ($06)
|
|||||||
L92C0: .byte $03
|
L92C0: .byte $03
|
||||||
L92C1: .byte $00,$C5,$92,$04,$00,$00
|
L92C1: .byte $00,$C5,$92,$04,$00,$00
|
||||||
L92C7: .byte $00,$00
|
L92C7: .byte $00,$00
|
||||||
L92C9: .byte $0A,$20,$02
|
|
||||||
L92CC: .byte $00
|
.proc get_file_info_params5
|
||||||
L92CD: .byte $00
|
params: .byte $A
|
||||||
L92CE: .byte $00
|
path: .addr $220
|
||||||
L92CF: .byte $00,$00
|
access: .byte 0
|
||||||
L92D1: .byte $00
|
type: .byte 0
|
||||||
L92D2: .byte $00
|
auxtype:.word 0
|
||||||
L92D3: .byte $00
|
storage:.byte 0
|
||||||
L92D4: .byte $00,$00,$00
|
blocks: .word 0
|
||||||
L92D7: .byte $00
|
mdate: .word 0
|
||||||
L92D8: .byte $00,$00,$00,$00,$00
|
mtime: .word 0
|
||||||
|
cdate: .word 0
|
||||||
|
ctime: .word 0
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
L92DB: .byte 0,0
|
||||||
L92DD: .byte $03
|
L92DD: .byte $03
|
||||||
L92DE: .byte $00,$00,$08,$0A,$00
|
L92DE: .byte $00,$00,$08,$0A,$00
|
||||||
L92E3: .byte $00
|
L92E3: .byte $00
|
||||||
@ -14955,7 +14960,7 @@ L9343: lda ($06),y
|
|||||||
dec $220
|
dec $220
|
||||||
lda #$2F
|
lda #$2F
|
||||||
sta $0221
|
sta $0221
|
||||||
L9356: yax_call JT_MLI_RELAY, L92C9, GET_FILE_INFO
|
L9356: yax_call JT_MLI_RELAY, get_file_info_params5, GET_FILE_INFO
|
||||||
beq L9366
|
beq L9366
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
beq L9356
|
beq L9356
|
||||||
@ -15025,7 +15030,7 @@ L93DB: ldx L92E6
|
|||||||
L940C: lda #$01
|
L940C: lda #$01
|
||||||
sta L92E4
|
sta L92E4
|
||||||
bne L9428
|
bne L9428
|
||||||
L9413: lda L92CC
|
L9413: lda get_file_info_params5::access
|
||||||
and #$C3
|
and #$C3
|
||||||
cmp #$C3
|
cmp #$C3
|
||||||
beq L9423
|
beq L9423
|
||||||
@ -15044,12 +15049,12 @@ L942F: lda #$03
|
|||||||
sta $220
|
sta $220
|
||||||
lda selected_window_index
|
lda selected_window_index
|
||||||
bne L9472
|
bne L9472
|
||||||
lda L92CE
|
lda get_file_info_params5::auxtype
|
||||||
sec
|
sec
|
||||||
sbc L92D1
|
sbc get_file_info_params5::blocks
|
||||||
pha
|
pha
|
||||||
lda L92CF
|
lda get_file_info_params5::auxtype+1
|
||||||
sbc L92D2
|
sbc get_file_info_params5::blocks+1
|
||||||
tax
|
tax
|
||||||
pla
|
pla
|
||||||
jsr L4006
|
jsr L4006
|
||||||
@ -15070,12 +15075,12 @@ L9469: lda text_buffer2::data-1,x
|
|||||||
bne L9469
|
bne L9469
|
||||||
L9472: lda selected_window_index
|
L9472: lda selected_window_index
|
||||||
bne L9480
|
bne L9480
|
||||||
lda L92CE
|
lda get_file_info_params5::auxtype
|
||||||
ldx L92CF
|
ldx get_file_info_params5::auxtype+1
|
||||||
jmp L9486
|
jmp L9486
|
||||||
|
|
||||||
L9480: lda L92D1
|
L9480: lda get_file_info_params5::blocks
|
||||||
ldx L92D2
|
ldx get_file_info_params5::blocks+1
|
||||||
L9486: jsr L4006
|
L9486: jsr L4006
|
||||||
jsr L9549
|
jsr L9549
|
||||||
ldx $220
|
ldx $220
|
||||||
@ -15102,9 +15107,9 @@ L94A9: lda $220,x
|
|||||||
jsr L953F
|
jsr L953F
|
||||||
lda #$04
|
lda #$04
|
||||||
sta L92E3
|
sta L92E3
|
||||||
lda L92D7
|
lda get_file_info_params5::cdate
|
||||||
sta $EC5A
|
sta $EC5A
|
||||||
lda L92D8
|
lda get_file_info_params5::cdate+1
|
||||||
sta $EC5B
|
sta $EC5B
|
||||||
jsr L4009
|
jsr L4009
|
||||||
lda #$EB
|
lda #$EB
|
||||||
@ -15114,9 +15119,9 @@ L94A9: lda $220,x
|
|||||||
jsr L953F
|
jsr L953F
|
||||||
lda #$05
|
lda #$05
|
||||||
sta L92E3
|
sta L92E3
|
||||||
lda L92D3
|
lda get_file_info_params5::mdate
|
||||||
sta $EC5A
|
sta $EC5A
|
||||||
lda L92D4
|
lda get_file_info_params5::mdate+1
|
||||||
sta $EC5B
|
sta $EC5B
|
||||||
jsr L4009
|
jsr L4009
|
||||||
lda #$EB
|
lda #$EB
|
||||||
@ -15134,7 +15139,7 @@ L950E: lda L953A,x
|
|||||||
dex
|
dex
|
||||||
bpl L950E
|
bpl L950E
|
||||||
bmi L951F
|
bmi L951F
|
||||||
L9519: lda L92CD
|
L9519: lda get_file_info_params5::type
|
||||||
jsr L402D
|
jsr L402D
|
||||||
L951F: lda #$C5
|
L951F: lda #$C5
|
||||||
sta L92E4
|
sta L92E4
|
||||||
@ -18386,7 +18391,7 @@ LB59A: tya
|
|||||||
sta $09
|
sta $09
|
||||||
jsr LBD7B
|
jsr LBD7B
|
||||||
sta $0A
|
sta $0A
|
||||||
A2D_RELAY_CALL A2D_MEASURE_TEXT, $0008
|
A2D_RELAY_CALL A2D_MEASURE_TEXT, $08
|
||||||
lsr $0C
|
lsr $0C
|
||||||
ror $0B
|
ror $0B
|
||||||
lda #$C8
|
lda #$C8
|
||||||
@ -19683,12 +19688,13 @@ L0ABC: jsr L86C1
|
|||||||
|
|
||||||
.proc open_params
|
.proc open_params
|
||||||
params: .byte 3
|
params: .byte 3
|
||||||
path: .addr $0ACF
|
path: .addr str_selector_list
|
||||||
buffer: .addr $1000
|
buffer: .addr $1000
|
||||||
ref_num:.byte 0
|
ref_num:.byte 0
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
L0ACF: PASCAL_STRING "Selector.List"
|
str_selector_list:
|
||||||
|
PASCAL_STRING "Selector.List"
|
||||||
|
|
||||||
.proc read_params
|
.proc read_params
|
||||||
params: .byte 4
|
params: .byte 4
|
||||||
@ -19896,7 +19902,7 @@ L0CCB: MLI_RELAY_CALL CLOSE, close_params2
|
|||||||
|
|
||||||
.proc open_params2
|
.proc open_params2
|
||||||
params: .byte 3
|
params: .byte 3
|
||||||
path: .addr $0CFA
|
path: .addr str_desk_acc
|
||||||
buffer: .addr $1000
|
buffer: .addr $1000
|
||||||
ref_num:.byte 0
|
ref_num:.byte 0
|
||||||
.endproc
|
.endproc
|
||||||
@ -19913,7 +19919,7 @@ trans: .word 0
|
|||||||
|
|
||||||
.proc get_file_info_params
|
.proc get_file_info_params
|
||||||
params: .byte $A
|
params: .byte $A
|
||||||
path: .addr $0CFA
|
path: .addr str_desk_acc
|
||||||
access: .byte 0
|
access: .byte 0
|
||||||
type: .byte 0
|
type: .byte 0
|
||||||
auxtype:.word 0
|
auxtype:.word 0
|
||||||
@ -19934,6 +19940,7 @@ ref_num:.byte 0
|
|||||||
.endproc
|
.endproc
|
||||||
close_params2_ref_num := close_params2::ref_num
|
close_params2_ref_num := close_params2::ref_num
|
||||||
|
|
||||||
|
str_desk_acc:
|
||||||
PASCAL_STRING "Desk.acc"
|
PASCAL_STRING "Desk.acc"
|
||||||
|
|
||||||
L0D03: .byte 0
|
L0D03: .byte 0
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user