mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-25 10:30:50 +00:00
MLI params
This commit is contained in:
Joshua Bell
parent
e1c6f9fc15
commit
fbdd678640
113
desktop/sys.s
113
desktop/sys.s
@ -86,10 +86,10 @@ L237A: .byte $00,$00,$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,$03,$F5,$26,$00
|
.byte $01,$F5,$26
|
||||||
.byte $0D
|
DEFINE_OPEN_PARAMS open_params3, $26F5, $0D00
|
||||||
L23F4: .byte $00,$03,$60,$2B,$00,$11
|
DEFINE_OPEN_PARAMS open_params4, $2B60, $1100
|
||||||
L23FA: .byte $00,$04
|
L23FB: .byte $04
|
||||||
L23FC: .byte $00,$00,$40
|
L23FC: .byte $00,$00,$40
|
||||||
L23FF: .addr $7F00
|
L23FF: .addr $7F00
|
||||||
L2401: .byte $00,$00,$04
|
L2401: .byte $00,$00,$04
|
||||||
@ -499,8 +499,8 @@ L294B: jsr L2876
|
|||||||
jsr L28B4
|
jsr L28B4
|
||||||
L2951: rts
|
L2951: rts
|
||||||
|
|
||||||
.byte $03,$F5,$26,$00,$A0
|
DEFINE_OPEN_PARAMS open_params2, $26F5, $A000
|
||||||
L2957: .byte $00,$04
|
L2958: .byte $04
|
||||||
L2959: .byte $00,$00,$A4,$00,$02,$00,$00
|
L2959: .byte $00,$00,$A4,$00,$02,$00,$00
|
||||||
|
|
||||||
DEFINE_CLOSE_PARAMS close_params
|
DEFINE_CLOSE_PARAMS close_params
|
||||||
@ -508,12 +508,12 @@ L2959: .byte $00,$00,$A4,$00,$02,$00,$00
|
|||||||
L2962: jsr L2A95
|
L2962: jsr L2A95
|
||||||
cmp #$47
|
cmp #$47
|
||||||
beq L2974
|
beq L2974
|
||||||
MLI_CALL OPEN, $2952
|
MLI_CALL OPEN, open_params2
|
||||||
beq :+
|
beq :+
|
||||||
jsr L28F4
|
jsr L28F4
|
||||||
L2974: rts
|
L2974: rts
|
||||||
|
|
||||||
: lda L2957
|
: lda open_params2::ref_num
|
||||||
sta L2959
|
sta L2959
|
||||||
sta close_params::ref_num
|
sta close_params::ref_num
|
||||||
MLI_CALL READ, $2958
|
MLI_CALL READ, $2958
|
||||||
@ -582,20 +582,20 @@ L29F6: lda $06
|
|||||||
L2A0D: jmp L299F
|
L2A0D: jmp L299F
|
||||||
|
|
||||||
L2A10: .byte 0
|
L2A10: .byte 0
|
||||||
L2A11: MLI_CALL OPEN, $23EF
|
L2A11: MLI_CALL OPEN, open_params3
|
||||||
beq L2A1F
|
beq L2A1F
|
||||||
jsr L28F4
|
jsr L28F4
|
||||||
jmp L2A11
|
jmp L2A11
|
||||||
|
|
||||||
L2A1F: MLI_CALL OPEN, $23F5
|
L2A1F: MLI_CALL OPEN, open_params4
|
||||||
beq L2A2D
|
beq L2A2D
|
||||||
jsr L28F4
|
jsr L28F4
|
||||||
jmp L2A1F
|
jmp L2A1F
|
||||||
|
|
||||||
L2A2D: lda L23F4
|
L2A2D: lda open_params3::ref_num
|
||||||
sta L23FC
|
sta L23FC
|
||||||
sta close_params2::ref_num
|
sta close_params2::ref_num
|
||||||
lda L23FA
|
lda open_params4::ref_num
|
||||||
sta L2404
|
sta L2404
|
||||||
sta close_params3::ref_num
|
sta close_params3::ref_num
|
||||||
L2A3F: copy16 #$7F00, L23FF
|
L2A3F: copy16 #$7F00, L23FF
|
||||||
@ -683,10 +683,10 @@ L2AF3: inx
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
L2B0D: PASCAL_STRING "DeskTop2"
|
L2B0D: PASCAL_STRING "DeskTop2"
|
||||||
.byte $03,$1C,$2B,$00,$10
|
DEFINE_OPEN_PARAMS open_params5, L2B1C, $1000
|
||||||
L2B1B: .byte $00
|
L2B1C: PASCAL_STRING "DeskTop/DESKTOP1"
|
||||||
PASCAL_STRING "DeskTop/DESKTOP1"
|
|
||||||
.byte $04
|
.byte $04
|
||||||
L2B2E: .byte 0
|
L2B2E: .byte 0
|
||||||
.byte 0
|
.byte 0
|
||||||
@ -696,9 +696,9 @@ L2B2E: .byte 0
|
|||||||
|
|
||||||
DEFINE_CLOSE_PARAMS close_params4
|
DEFINE_CLOSE_PARAMS close_params4
|
||||||
|
|
||||||
L2B37: MLI_CALL OPEN, $2B16
|
L2B37: MLI_CALL OPEN, open_params5
|
||||||
bne L2B56
|
bne L2B56
|
||||||
lda L2B1B
|
lda open_params5::ref_num
|
||||||
sta L2B2E
|
sta L2B2E
|
||||||
sta close_params4::ref_num
|
sta close_params4::ref_num
|
||||||
MLI_CALL WRITE, $2B2D
|
MLI_CALL WRITE, $2B2D
|
||||||
@ -910,24 +910,24 @@ L30B2: inc L30BB
|
|||||||
|
|
||||||
L30B8: jmp L3880
|
L30B8: jmp L3880
|
||||||
|
|
||||||
L30BB: .byte $00,$03,$C9,$31,$00,$08
|
L30BB: .byte $00
|
||||||
L30C1: .byte $00,$04
|
DEFINE_OPEN_PARAMS open_params6, $31C9, $0800
|
||||||
|
L30C2: .byte $04
|
||||||
L30C3: .byte $00,$CA,$30,$04,$00,$00,$00,$00
|
L30C3: .byte $00,$CA,$30,$04,$00,$00,$00,$00
|
||||||
.byte $00,$00,$00
|
.byte $00,$00,$00
|
||||||
L30CE: .byte $01
|
DEFINE_CLOSE_PARAMS close_params5
|
||||||
L30CF: .byte $00,$04
|
L30D0: .byte $04
|
||||||
L30D1: .byte $00,$50,$31,$27,$00,$00,$00,$04
|
L30D1: .byte $00,$50,$31,$27,$00,$00,$00,$04
|
||||||
L30D9: .byte $00,$E0,$30
|
L30D9: .byte $00,$E0,$30
|
||||||
L30DC: .byte $05,$00
|
L30DC: .byte $05,$00
|
||||||
L30DE: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
L30DE: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
.byte $00,$00,$00
|
.byte $00,$00,$00
|
||||||
L30E9: .byte $01
|
DEFINE_CLOSE_PARAMS close_params7
|
||||||
L30EA: .byte $00
|
DEFINE_CLOSE_PARAMS close_params6
|
||||||
L30EB: .byte $01
|
.byte $01,$C9,$31
|
||||||
L30EC: .byte $00,$01,$C9,$31,$03,$C9,$31,$00
|
DEFINE_OPEN_PARAMS open_params7, $31C9, $0D00
|
||||||
.byte $0D
|
DEFINE_OPEN_PARAMS open_params8, $3188, $1C00
|
||||||
L30F5: .byte $00,$03,$88,$31,$00,$1C
|
L30FC: .byte $04
|
||||||
L30FB: .byte $00,$04
|
|
||||||
L30FD: .byte $00,$00,$11
|
L30FD: .byte $00,$00,$11
|
||||||
L3100: .byte $00
|
L3100: .byte $00
|
||||||
L3101: .byte $0B
|
L3101: .byte $0B
|
||||||
@ -1044,11 +1044,11 @@ L3359: ldx L3349
|
|||||||
L3367: lda #$00
|
L3367: lda #$00
|
||||||
sta L329C
|
sta L329C
|
||||||
sta L334A
|
sta L334A
|
||||||
MLI_CALL OPEN, $30BC
|
MLI_CALL OPEN, open_params6
|
||||||
beq L337A
|
beq L337A
|
||||||
jmp L3A43
|
jmp L3A43
|
||||||
|
|
||||||
L337A: lda L30C1
|
L337A: lda open_params6::ref_num
|
||||||
sta L329D
|
sta L329D
|
||||||
sta L30C3
|
sta L30C3
|
||||||
MLI_CALL READ, $30C2
|
MLI_CALL READ, $30C2
|
||||||
@ -1059,8 +1059,8 @@ L337A: lda L30C1
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
L3392: lda L329D
|
L3392: lda L329D
|
||||||
sta L30CF
|
sta close_params5::ref_num
|
||||||
MLI_CALL CLOSE, L30CE
|
MLI_CALL CLOSE, close_params5
|
||||||
beq L33A3
|
beq L33A3
|
||||||
jmp L3A43
|
jmp L3A43
|
||||||
|
|
||||||
@ -1345,19 +1345,19 @@ L363F: .byte 0
|
|||||||
L3640: .byte 0
|
L3640: .byte 0
|
||||||
L3641: .byte 0
|
L3641: .byte 0
|
||||||
L3642: .byte 0
|
L3642: .byte 0
|
||||||
L3643: MLI_CALL OPEN, $30F0
|
L3643: MLI_CALL OPEN, open_params7
|
||||||
beq L364E
|
beq L364E
|
||||||
jsr L3A43
|
jsr L3A43
|
||||||
L364E: MLI_CALL OPEN, $30F6
|
L364E: MLI_CALL OPEN, open_params8
|
||||||
beq L3659
|
beq L3659
|
||||||
jmp L3A43
|
jmp L3A43
|
||||||
|
|
||||||
L3659: lda L30F5
|
L3659: lda open_params7::ref_num
|
||||||
sta L30FD
|
sta L30FD
|
||||||
sta L30EA
|
sta close_params7::ref_num
|
||||||
lda L30FB
|
lda open_params8::ref_num
|
||||||
sta L3105
|
sta L3105
|
||||||
sta L30EC
|
sta close_params6::ref_num
|
||||||
L366B: lda #0
|
L366B: lda #0
|
||||||
sta L3100
|
sta L3100
|
||||||
lda #$0B
|
lda #$0B
|
||||||
@ -1381,8 +1381,8 @@ L366B: lda #0
|
|||||||
lda L310B
|
lda L310B
|
||||||
cmp #$0B
|
cmp #$0B
|
||||||
beq L366B
|
beq L366B
|
||||||
L36AE: MLI_CALL CLOSE, L30EB
|
L36AE: MLI_CALL CLOSE, close_params6
|
||||||
MLI_CALL CLOSE, L30E9
|
MLI_CALL CLOSE, close_params7
|
||||||
jsr L37AE
|
jsr L37AE
|
||||||
jsr L379D
|
jsr L379D
|
||||||
rts
|
rts
|
||||||
@ -1546,20 +1546,20 @@ L37D2: jsr L3836
|
|||||||
tya
|
tya
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.byte $00,$00,$03,$E7,$37,$00,$40
|
.byte $00,$00
|
||||||
L37E6: .byte $00
|
DEFINE_OPEN_PARAMS open_params9, $37E7, $4000
|
||||||
PASCAL_STRING "Selector.List"
|
L37E7: PASCAL_STRING "Selector.List"
|
||||||
.byte $04
|
.byte $04
|
||||||
L37F6: .byte $00,$00,$44,$00,$08,$00,$00
|
L37F6: .byte $00,$00,$44,$00,$08,$00,$00
|
||||||
|
|
||||||
DEFINE_CLOSE_PARAMS L37FD
|
DEFINE_CLOSE_PARAMS close_params8
|
||||||
|
|
||||||
L37FF: MLI_CALL OPEN, $37E1
|
L37FF: MLI_CALL OPEN, open_params9
|
||||||
bne L381B
|
bne L381B
|
||||||
lda L37E6
|
lda open_params9::ref_num
|
||||||
sta L37F6
|
sta L37F6
|
||||||
MLI_CALL READ, $37F5
|
MLI_CALL READ, $37F5
|
||||||
MLI_CALL CLOSE, L37FD
|
MLI_CALL CLOSE, close_params8
|
||||||
lda #$00
|
lda #$00
|
||||||
L381B: rts
|
L381B: rts
|
||||||
|
|
||||||
@ -1594,25 +1594,26 @@ L3836: ldx #$00
|
|||||||
ldx L3857
|
ldx L3857
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L3857: .byte $00,$03,$77,$38,$00,$50
|
L3857: .byte $00
|
||||||
L385D: .byte $00,$03,$6E,$38,$00,$54
|
DEFINE_OPEN_PARAMS open_params11, $3877, $5000
|
||||||
L3863: .byte $00,$04
|
DEFINE_OPEN_PARAMS open_params10, $386E, $5400
|
||||||
|
L3864: .byte $04
|
||||||
L3865: .byte $00,$00,$20,$00,$04,$00,$00
|
L3865: .byte $00,$00,$20,$00,$04,$00,$00
|
||||||
DEFINE_CLOSE_PARAMS L386C
|
DEFINE_CLOSE_PARAMS close_params9
|
||||||
PASCAL_STRING "Selector"
|
PASCAL_STRING "Selector"
|
||||||
PASCAL_STRING "DeskTop2"
|
PASCAL_STRING "DeskTop2"
|
||||||
|
|
||||||
L3880: MLI_CALL CLOSE, L386C
|
L3880: MLI_CALL CLOSE, close_params9
|
||||||
MLI_CALL OPEN, $385E
|
MLI_CALL OPEN, open_params10
|
||||||
beq :+
|
beq :+
|
||||||
MLI_CALL OPEN, $3858
|
MLI_CALL OPEN, open_params11
|
||||||
beq L3897
|
beq L3897
|
||||||
brk
|
brk
|
||||||
|
|
||||||
L3897: lda L385D
|
L3897: lda open_params11::ref_num
|
||||||
jmp L38A0
|
jmp L38A0
|
||||||
|
|
||||||
: lda L3863
|
: lda open_params10::ref_num
|
||||||
L38A0: sta L3865
|
L38A0: sta L3865
|
||||||
MLI_CALL READ, $3864
|
MLI_CALL READ, $3864
|
||||||
MLI_CALL CLOSE, $386C
|
MLI_CALL CLOSE, $386C
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user