Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-26 02:49:18 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: MLI READ calls

Browse Source
This commit is contained in:
Joshua Bell 2018-01-13 23:52:03 -08:00
parent 5bd9724bf3
commit 71c7c07847
1 changed files with 45 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
desktop/desktop.s
View File

@ -10710,8 +10710,14 @@ ref_num:.byte 0
L705D: .res 64, 0 L705D: .res 64, 0
.byte $00 .byte $00
L709E: .byte $04
L709F: .byte $00,$00,$0C,$00,$02,$00,$00 .proc read_params
params: .byte 4
ref_num:.byte 0
buffer: .addr $0C00
request:.word $200
trans: .word 0
.endproc
.proc close_params .proc close_params
params: .byte 1 params: .byte 1
@ -10744,7 +10750,7 @@ L70CD: lda $E1B0,x
bpl L70CD bpl L70CD
jsr L72AA jsr L72AA
lda open_params::ref_num lda open_params::ref_num
sta L709F sta read_params::ref_num
sta close_params::ref_num sta close_params::ref_num
jsr L72CE jsr L72CE
jsr L72E2 jsr L72E2
@ -10969,7 +10975,7 @@ L72C9: ldx $E256
txs txs
L72CD: rts L72CD: rts
L72CE: MLI_RELAY_CALL READ, L709E L72CE: MLI_RELAY_CALL READ, read_params
rts rts
L72D8: MLI_RELAY_CALL CLOSE, close_params L72D8: MLI_RELAY_CALL CLOSE, close_params
@ -14175,12 +14181,14 @@ L8E72: .byte $00
L8E73: .byte $00 L8E73: .byte $00
L8E74: .byte $00 L8E74: .byte $00
L8E75: .byte $00 L8E75: .byte $00
L8E76: .byte $04
L8E77: .byte $00 .proc read_params2
L8E78: .byte $00 params: .byte 4
L8E79: .byte $00 ref_num:.byte 0
L8E7A: .byte $00 buffer: .addr 0
L8E7B: .byte $00,$00,$00 request:.word 0
trans: .word 0
.endproc
.proc close_params2 .proc close_params2
params: .byte 1 params: .byte 1
@ -14207,13 +14215,13 @@ L8E8F: pla
lda L8E1C,x lda L8E1C,x
sta L8E75 sta L8E75
lda L8E3E,y lda L8E3E,y
sta L8E7A sta read_params2::request
lda L8E3F,y lda L8E3F,y
sta L8E7B sta read_params2::request+1
lda L8E50,y lda L8E50,y
sta L8E78 sta read_params2::buffer
lda L8E51,y lda L8E51,y
sta L8E79 sta read_params2::buffer+1
L8EBE: MLI_RELAY_CALL OPEN, open_params2 L8EBE: MLI_RELAY_CALL OPEN, open_params2
beq L8ED6 beq L8ED6
lda #$00 lda #$00
@ -14224,10 +14232,10 @@ L8EBE: MLI_RELAY_CALL OPEN, open_params2
rts rts
L8ED6: lda open_params2::ref_num L8ED6: lda open_params2::ref_num
sta L8E77 sta read_params2::ref_num
sta L8E72 sta L8E72
MLI_RELAY_CALL SET_MARK, L8E71 MLI_RELAY_CALL SET_MARK, L8E71
MLI_RELAY_CALL READ, L8E76 MLI_RELAY_CALL READ, read_params2
MLI_RELAY_CALL CLOSE, close_params2 MLI_RELAY_CALL CLOSE, close_params2
rts rts
@ -19712,14 +19720,13 @@ ref_num:.byte 0
L0ACF: PASCAL_STRING "Selector.List" L0ACF: PASCAL_STRING "Selector.List"
L0ADD: .byte $04 .proc read_params
L0ADE: .byte 0 params: .byte 4
.byte 0 ref_num:.byte 0
.byte $14 buffer: .addr $1400
.byte 0 request:.word $400
.byte $04 trans: .word 0
.byte 0 .endproc
.byte 0
.proc close_params .proc close_params
params: .byte 1 params: .byte 1
@ -19728,8 +19735,8 @@ ref_num:.byte 0
L0AE7: MLI_RELAY_CALL OPEN, open_params L0AE7: MLI_RELAY_CALL OPEN, open_params
lda open_params::ref_num lda open_params::ref_num
sta L0ADE sta read_params::ref_num
MLI_RELAY_CALL READ, L0ADD MLI_RELAY_CALL READ, read_params
MLI_RELAY_CALL CLOSE, close_params MLI_RELAY_CALL CLOSE, close_params
rts rts
@ -19802,9 +19809,9 @@ L0BB9: lda L0CE9
L0BC3: MLI_RELAY_CALL OPEN, open_params2 L0BC3: MLI_RELAY_CALL OPEN, open_params2
lda open_params2_ref_num lda open_params2_ref_num
sta L0CDE sta read_params2_ref_num
sta close_params2_ref_num sta close_params2_ref_num
MLI_RELAY_CALL READ, L0CDD MLI_RELAY_CALL READ, read_params2
lda #$00 lda #$00
sta L0D04 sta L0D04
sta L0D05 sta L0D05
@ -19896,7 +19903,7 @@ L0C96: inc L0D08
lda L0D08 lda L0D08
cmp L0D07 cmp L0D07
bne L0CBA bne L0CBA
MLI_RELAY_CALL READ, L0CDD MLI_RELAY_CALL READ, read_params2
lda #$04 lda #$04
sta L0006 sta L0006
lda #$14 lda #$14
@ -19925,14 +19932,15 @@ ref_num:.byte 0
.endproc .endproc
open_params2_ref_num := open_params2::ref_num open_params2_ref_num := open_params2::ref_num
L0CDD: .byte $04 .proc read_params2
L0CDE: .byte 0 params: .byte 4
.byte 0 ref_num:.byte 0
.byte $14 buffer: .addr $1400
.byte 0 request:.word $200
.byte $02 trans: .word 0
.byte 0 .endproc
.byte 0 read_params2_ref_num := read_params2::ref_num
L0CE5: .byte $0A L0CE5: .byte $0A
.byte $FA .byte $FA
.byte $0C .byte $0C