mirror of
https://github.com/mi57730/a2d.git
synced 2024-07-02 22:30:38 +00:00
MLI params
This commit is contained in:
Joshua Bell
parent
d3d7122e79
commit
9a1ed36bf7
|
|
@ -51,7 +51,15 @@ 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,$02,$00,$0D,$0A
|
.byte $02,$00,$63,$23
|
||||||
|
|
||||||
|
|
||||||
|
.proc get_prefix_params2
|
||||||
|
param_count: .byte 2 ; GET_PREFIX, but param_count is 2 ???
|
||||||
|
data_buffer: .addr $0D00
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
L234C: .byte $0A
|
||||||
.byte $00,$0D,$00,$00,$00,$00,$00,$00
|
.byte $00,$0D,$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,$01,$62,$23,$00,$00,$00
|
.byte $00,$00,$01,$62,$23,$00,$00,$00
|
||||||
|
|
@ -91,8 +99,8 @@ L237A: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
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
|
||||||
|
|
||||||
L240B: .byte $07,$60,$2B,$C3,$00,$00,$00,$00
|
DEFINE_CREATE_PARAMS create_params, $2B60, $C3, 0, 0
|
||||||
.byte $00,$00,$00,$00,$07,$60,$2B,$00
|
.byte $07,$60,$2B,$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
|
||||||
|
|
||||||
|
|
@ -618,13 +626,14 @@ L2A88: MLI_CALL CLOSE, close_params2
|
||||||
MLI_CALL CLOSE, close_params3
|
MLI_CALL CLOSE, close_params3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L2A95: ldx #$07
|
;; Copy file_type, aux_type, storage_type
|
||||||
L2A97: lda get_file_info_params,x
|
L2A95: ldx #7
|
||||||
sta L240B,x
|
: lda get_file_info_params,x
|
||||||
|
sta create_params,x
|
||||||
dex
|
dex
|
||||||
cpx #$03
|
cpx #3
|
||||||
bne L2A97
|
bne :-
|
||||||
MLI_CALL CREATE, $240B
|
MLI_CALL CREATE, create_params
|
||||||
beq L2AB1
|
beq L2AB1
|
||||||
cmp #$47
|
cmp #$47
|
||||||
beq L2AB1
|
beq L2AB1
|
||||||
|
|
@ -661,7 +670,7 @@ L2ACC: lda L24A8,x
|
||||||
L2AE4: sec
|
L2AE4: sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L2AE6: MLI_CALL GET_PREFIX, $2349
|
L2AE6: MLI_CALL GET_PREFIX, get_prefix_params2
|
||||||
bne L2AE4
|
bne L2AE4
|
||||||
ldx $0D00
|
ldx $0D00
|
||||||
ldy #$00
|
ldy #$00
|
||||||
|
|
@ -918,14 +927,11 @@ L30E0: .byte $00,$00,$00,$00,$00,$00
|
||||||
DEFINE_READ_PARAMS read_params7, $1100, $0B00
|
DEFINE_READ_PARAMS read_params7, $1100, $0B00
|
||||||
DEFINE_WRITE_PARAMS write_params3, $1100, $0B00
|
DEFINE_WRITE_PARAMS write_params3, $1100, $0B00
|
||||||
|
|
||||||
L310C: .byte $07,$88,$31
|
DEFINE_CREATE_PARAMS create_params3, $3188, $C3
|
||||||
L310F: .byte $C3,$00,$00,$00
|
|
||||||
L3113: .byte $00
|
DEFINE_CREATE_PARAMS create_params2, $3188, 0
|
||||||
L3114: .byte $00,$00,$00,$00
|
|
||||||
L3118: .byte $07,$88,$31
|
L3124: .byte $00,$00
|
||||||
L311B: .byte $00,$00,$00,$00
|
|
||||||
L311F: .byte $00
|
|
||||||
L3120: .byte $00,$00,$00,$00,$00,$00
|
|
||||||
L3126: .byte $0A,$C9,$31
|
L3126: .byte $0A,$C9,$31
|
||||||
L3129: .byte $00,$00,$00,$00
|
L3129: .byte $00,$00,$00,$00
|
||||||
L312D: .byte $00
|
L312D: .byte $00
|
||||||
|
|
@ -1176,29 +1182,31 @@ L34DD: lda L312D
|
||||||
beq L34EE
|
beq L34EE
|
||||||
L34EC: lda #$FF
|
L34EC: lda #$FF
|
||||||
L34EE: sta L353A
|
L34EE: sta L353A
|
||||||
ldy #$07
|
|
||||||
L34F3: lda L3126,y
|
;; copy file_type, aux_type, storage_type
|
||||||
sta L3118,y
|
ldy #7
|
||||||
|
: lda L3126,y
|
||||||
|
sta create_params2,y
|
||||||
dey
|
dey
|
||||||
cpy #$03
|
cpy #3
|
||||||
bne L34F3
|
bne :-
|
||||||
lda #$C3
|
lda #$C3
|
||||||
sta L311B
|
sta create_params2::access
|
||||||
jsr L35A9
|
jsr L35A9
|
||||||
bcc L350B
|
bcc L350B
|
||||||
jmp L3A29
|
jmp L3A29
|
||||||
|
|
||||||
L350B: ldx #$03
|
L350B: ldx #$03
|
||||||
L350D: lda L3134,x
|
L350D: lda L3134,x
|
||||||
sta L3120,x
|
sta create_params2::create_date,x
|
||||||
dex
|
dex
|
||||||
bpl L350D
|
bpl L350D
|
||||||
lda L311F
|
lda create_params2::storage_type
|
||||||
cmp #$0F
|
cmp #$0F
|
||||||
bne L3522
|
bne L3522
|
||||||
lda #$0D
|
lda #$0D
|
||||||
sta L311F
|
sta create_params2::storage_type
|
||||||
L3522: MLI_CALL CREATE, $3118
|
L3522: MLI_CALL CREATE, create_params2
|
||||||
beq :+
|
beq :+
|
||||||
jmp L3A43
|
jmp L3A43
|
||||||
|
|
||||||
|
|
@ -1344,25 +1352,26 @@ L36AE: MLI_CALL CLOSE, close_params6
|
||||||
jsr L379D
|
jsr L379D
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L36C1: ldx #$07
|
;; copy file_type, aux_type, storage_type
|
||||||
L36C3: lda L3126,x
|
L36C1: ldx #7
|
||||||
sta L310C,x
|
: lda L3126,x
|
||||||
|
sta create_params3,x
|
||||||
dex
|
dex
|
||||||
cpx #$03
|
cpx #3
|
||||||
bne L36C3
|
bne :-
|
||||||
lda #$C3
|
lda #$C3
|
||||||
sta L310F
|
sta create_params3::access
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L36D5: lda L3134,x
|
L36D5: lda L3134,x
|
||||||
sta L3114,x
|
sta create_params3::create_date,x
|
||||||
dex
|
dex
|
||||||
bpl L36D5
|
bpl L36D5
|
||||||
lda L3113
|
lda create_params3::storage_type
|
||||||
cmp #$0F
|
cmp #$0F
|
||||||
bne L36EA
|
bne L36EA
|
||||||
lda #$0D
|
lda #$0D
|
||||||
sta L3113
|
sta create_params3::storage_type
|
||||||
L36EA: MLI_CALL CREATE, $310C
|
L36EA: MLI_CALL CREATE, create_params3
|
||||||
clc
|
clc
|
||||||
beq L36F6
|
beq L36F6
|
||||||
jmp L3A43
|
jmp L3A43
|
||||||
|
|
@ -1552,11 +1561,13 @@ L3836: ldx #$00
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L3857: .byte $00
|
L3857: .byte $00
|
||||||
DEFINE_OPEN_PARAMS open_params11, $3877, $5000
|
DEFINE_OPEN_PARAMS open_params11, str_desktop2, $5000
|
||||||
DEFINE_OPEN_PARAMS open_params10, $386E, $5400
|
DEFINE_OPEN_PARAMS open_params10, str_selector, $5400
|
||||||
DEFINE_READ_PARAMS read_params9, $2000, $0400
|
DEFINE_READ_PARAMS read_params9, $2000, $0400
|
||||||
DEFINE_CLOSE_PARAMS close_params9
|
DEFINE_CLOSE_PARAMS close_params9
|
||||||
|
str_selector:
|
||||||
PASCAL_STRING "Selector"
|
PASCAL_STRING "Selector"
|
||||||
|
str_desktop2:
|
||||||
PASCAL_STRING "DeskTop2"
|
PASCAL_STRING "DeskTop2"
|
||||||
|
|
||||||
L3880: MLI_CALL CLOSE, close_params9
|
L3880: MLI_CALL CLOSE, close_params9
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user