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

DeskTop: MLI OPEN calls

Browse Source
This commit is contained in:
Joshua Bell 2018-01-13 23:24:19 -08:00
parent abed524d0c
commit 5bd9724bf3
1 changed files with 69 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
desktop/desktop.s
View File

@ -10701,14 +10701,24 @@ L704C: .byte 0
.byte 0 .byte 0
L7054: jmp L70C5 L7054: jmp L70C5
L7057: .byte $03,$5D,$70,$00,$08 .proc open_params
L705C: .byte $00 params: .byte 3
path: .addr $705D
buffer: .addr $800
ref_num:.byte 0
.endproc
L705D: .res 64, 0 L705D: .res 64, 0
.byte $00 .byte $00
L709E: .byte $04 L709E: .byte $04
L709F: .byte $00,$00,$0C,$00,$02,$00,$00 L709F: .byte $00,$00,$0C,$00,$02,$00,$00
L70A6: .byte $01
L70A7: .byte $00 .proc close_params
params: .byte 1
ref_num:.byte 0
.endproc
L70A8: .byte $0A,$5D,$70,$00,$00 L70A8: .byte $0A,$5D,$70,$00,$00
L70AD: .byte $00 L70AD: .byte $00
L70AE: .byte $00,$00 L70AE: .byte $00,$00
@ -10733,9 +10743,9 @@ L70CD: lda $E1B0,x
dex dex
bpl L70CD bpl L70CD
jsr L72AA jsr L72AA
lda L705C lda open_params::ref_num
sta L709F sta L709F
sta L70A7 sta close_params::ref_num
jsr L72CE jsr L72CE
jsr L72E2 jsr L72E2
ldx #$00 ldx #$00
@ -10946,7 +10956,7 @@ L7296: lda L0006
L72A7: .byte 0 L72A7: .byte 0
L72A8: .byte 0 L72A8: .byte 0
L72A9: .byte 0 L72A9: .byte 0
L72AA: MLI_RELAY_CALL OPEN, L7057 L72AA: MLI_RELAY_CALL OPEN, open_params
beq L72CD beq L72CD
jsr DESKTOP_SHOW_ALERT0 jsr DESKTOP_SHOW_ALERT0
jsr L8B1F jsr L8B1F
@ -10962,7 +10972,7 @@ L72CD: rts
L72CE: MLI_RELAY_CALL READ, L709E L72CE: MLI_RELAY_CALL READ, L709E
rts rts
L72D8: MLI_RELAY_CALL CLOSE, L70A6 L72D8: MLI_RELAY_CALL CLOSE, close_params
rts rts
L72E2: lda $0C04 L72E2: lda $0C04
@ -14149,11 +14159,17 @@ L8E50: .byte $00
L8E51: .byte $08,$00,$08,$00,$90,$00,$50,$00 L8E51: .byte $08,$00,$08,$00,$90,$00,$50,$00
.byte $70,$00,$70,$00,$70,$00,$50,$00 .byte $70,$00,$70,$00,$70,$00,$50,$00
.byte $90 .byte $90
L8E62: .byte $03
.addr L8E68 .proc open_params2
.byte $00,$1C params: .byte 3
L8E67: .byte $00 path: .addr str_desktop2
L8E68: PASCAL_STRING "DeskTop2" buffer: .addr $1C00
ref_num:.byte 0
.endproc
str_desktop2:
PASCAL_STRING "DeskTop2"
L8E71: .byte $02 L8E71: .byte $02
L8E72: .byte $00 L8E72: .byte $00
L8E73: .byte $00 L8E73: .byte $00
@ -14165,7 +14181,12 @@ L8E78: .byte $00
L8E79: .byte $00 L8E79: .byte $00
L8E7A: .byte $00 L8E7A: .byte $00
L8E7B: .byte $00,$00,$00 L8E7B: .byte $00,$00,$00
L8E7E: .byte $01,$00
.proc close_params2
params: .byte 1
ref_num:.byte 0
.endproc
L8E80: .byte $00 L8E80: .byte $00
L8E81: pha L8E81: pha
lda #$00 lda #$00
@ -14193,7 +14214,7 @@ L8E8F: pla
sta L8E78 sta L8E78
lda L8E51,y lda L8E51,y
sta L8E79 sta L8E79
L8EBE: MLI_RELAY_CALL OPEN, L8E62 L8EBE: MLI_RELAY_CALL OPEN, open_params2
beq L8ED6 beq L8ED6
lda #$00 lda #$00
ora L8E80 ora L8E80
@ -14202,12 +14223,12 @@ L8EBE: MLI_RELAY_CALL OPEN, L8E62
lda #$FF lda #$FF
rts rts
L8ED6: lda L8E67 L8ED6: lda open_params2::ref_num
sta L8E77 sta L8E77
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, L8E76
MLI_RELAY_CALL CLOSE, L8E7E MLI_RELAY_CALL CLOSE, close_params2
rts rts
.byte 0 .byte 0
@ -19682,12 +19703,12 @@ L0ABC: jsr L86C1
tya tya
rts rts
L0AC9: .byte $03 .proc open_params
.byte $CF params: .byte 3
.byte $0A path: .addr $0ACF
.byte 0 buffer: .addr $1000
.byte $10 ref_num:.byte 0
L0ACE: .byte 0 .endproc
L0ACF: PASCAL_STRING "Selector.List" L0ACF: PASCAL_STRING "Selector.List"
@ -19700,13 +19721,16 @@ L0ADE: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
L0AE5: .byte 1,0 .proc close_params
params: .byte 1
ref_num:.byte 0
.endproc
L0AE7: MLI_RELAY_CALL OPEN, L0AC9 L0AE7: MLI_RELAY_CALL OPEN, open_params
lda L0ACE lda open_params::ref_num
sta L0ADE sta L0ADE
MLI_RELAY_CALL READ, L0ADD MLI_RELAY_CALL READ, L0ADD
MLI_RELAY_CALL CLOSE, L0AE5 MLI_RELAY_CALL CLOSE, close_params
rts rts
L0B09: addr_call measure_text1, str_6_spaces L0B09: addr_call measure_text1, str_6_spaces
@ -19776,10 +19800,10 @@ L0BB9: lda L0CE9
beq L0BC3 beq L0BC3
jmp L0D0A jmp L0D0A
L0BC3: MLI_RELAY_CALL OPEN, L0CD7 L0BC3: MLI_RELAY_CALL OPEN, open_params2
lda L0CDC lda open_params2_ref_num
sta L0CDE sta L0CDE
sta L0CF9 sta close_params2_ref_num
MLI_RELAY_CALL READ, L0CDD MLI_RELAY_CALL READ, L0CDD
lda #$00 lda #$00
sta L0D04 sta L0D04
@ -19890,15 +19914,17 @@ L0CBA: lda L0006
sta L0006+1 sta L0006+1
jmp L0C0C jmp L0C0C
L0CCB: MLI_RELAY_CALL CLOSE, L0CF8 L0CCB: MLI_RELAY_CALL CLOSE, close_params2
jmp L0D0A jmp L0D0A
L0CD7: .byte $03 .proc open_params2
.byte $FA params: .byte 3
.byte $0C path: .addr $0CFA
.byte 0 buffer: .addr $1000
.byte $10 ref_num:.byte 0
L0CDC: .byte 0 .endproc
open_params2_ref_num := open_params2::ref_num
L0CDD: .byte $04 L0CDD: .byte $04
L0CDE: .byte 0 L0CDE: .byte 0
.byte 0 .byte 0
@ -19926,8 +19952,12 @@ L0CE9: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
L0CF8: .byte $01
L0CF9: .byte 0 .proc close_params2
params: .byte 1
ref_num:.byte 0
.endproc
close_params2_ref_num := close_params2::ref_num
PASCAL_STRING "Desk.acc" PASCAL_STRING "Desk.acc"