mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-29 07:49:20 +00:00
DeskTop: MLI relay calls
This commit is contained in:
Joshua Bell
parent
66baa3719e
commit
fb0eb7cfda
@ -5652,7 +5652,7 @@ L0D14 := $0D14
|
|||||||
|
|
||||||
;; Jump table
|
;; Jump table
|
||||||
L4000: jmp L4042
|
L4000: jmp L4042
|
||||||
L4003: jmp A2D_RELAY
|
JT_A2D_RELAY: jmp A2D_RELAY
|
||||||
L4006: jmp L8259
|
L4006: jmp L8259
|
||||||
L4009: jmp L830F
|
L4009: jmp L830F
|
||||||
jmp L5E78
|
jmp L5E78
|
||||||
@ -5662,7 +5662,7 @@ L4015: jmp L40F2
|
|||||||
L4018: jmp DESKTOP_RELAY
|
L4018: jmp DESKTOP_RELAY
|
||||||
jmp L8E81
|
jmp L8E81
|
||||||
L401E: jmp L6D2B
|
L401E: jmp L6D2B
|
||||||
L4021: jmp MLI_RELAY
|
JT_MLI_RELAY: jmp MLI_RELAY
|
||||||
jmp DESKTOP_COPY_TO_BUF
|
jmp DESKTOP_COPY_TO_BUF
|
||||||
jmp DESKTOP_COPY_FROM_BUF
|
jmp DESKTOP_COPY_FROM_BUF
|
||||||
jmp L490E
|
jmp L490E
|
||||||
@ -7335,7 +7335,7 @@ L4F76: .res 64
|
|||||||
|
|
||||||
lda desktop_winid
|
lda desktop_winid
|
||||||
sta L4F67
|
sta L4F67
|
||||||
yax_call LA500, $4F67, $03
|
yax_call LA500, L4F67, $03
|
||||||
L4FC6: lda desktop_winid
|
L4FC6: lda desktop_winid
|
||||||
beq L4FD4
|
beq L4FD4
|
||||||
jsr L86FB
|
jsr L86FB
|
||||||
@ -7343,7 +7343,7 @@ L4FC6: lda desktop_winid
|
|||||||
stx L4F69
|
stx L4F69
|
||||||
L4FD4: lda #$80
|
L4FD4: lda #$80
|
||||||
sta L4F67
|
sta L4F67
|
||||||
yax_call LA500, $4F67, $03
|
yax_call LA500, L4F67, $03
|
||||||
beq L4FE7
|
beq L4FE7
|
||||||
jmp L504B
|
jmp L504B
|
||||||
|
|
||||||
@ -7376,7 +7376,7 @@ L5000: lda DATELO,x
|
|||||||
|
|
||||||
L5027: lda #$40
|
L5027: lda #$40
|
||||||
sta L4F67
|
sta L4F67
|
||||||
yax_call LA500, $4F67, $03
|
yax_call LA500, L4F67, $03
|
||||||
lda #$76
|
lda #$76
|
||||||
ldx #$4F
|
ldx #$4F
|
||||||
jsr L6F90
|
jsr L6F90
|
||||||
@ -14769,14 +14769,8 @@ L91CE: .byte 0
|
|||||||
L91D1: stx $E00A
|
L91D1: stx $E00A
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L91D5: ldy #$03
|
L91D5: yax_call JT_A2D_RELAY, $D239, $03
|
||||||
lda #$39
|
yax_call JT_A2D_RELAY, $D239, $04
|
||||||
ldx #$D2
|
|
||||||
jsr L4003
|
|
||||||
ldy #$04
|
|
||||||
lda #$39
|
|
||||||
ldx #$D2
|
|
||||||
jsr L4003
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L91E8: jsr L4015
|
L91E8: jsr L4015
|
||||||
@ -14895,7 +14889,8 @@ L92BD: jmp (L0006)
|
|||||||
|
|
||||||
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,$0A,$20,$02
|
L92C7: .byte $00,$00
|
||||||
|
L92C9: .byte $0A,$20,$02
|
||||||
L92CC: .byte $00
|
L92CC: .byte $00
|
||||||
L92CD: .byte $00
|
L92CD: .byte $00
|
||||||
L92CE: .byte $00
|
L92CE: .byte $00
|
||||||
@ -14960,7 +14955,7 @@ L9343: lda (L0006),y
|
|||||||
dec $0220
|
dec $0220
|
||||||
lda #$2F
|
lda #$2F
|
||||||
sta $0221
|
sta $0221
|
||||||
L9356: yax_call L4021, $92C9, $C4
|
L9356: yax_call JT_MLI_RELAY, L92C9, GET_FILE_INFO
|
||||||
beq L9366
|
beq L9366
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
beq L9356
|
beq L9356
|
||||||
@ -15001,9 +14996,9 @@ L93AD: cmp $E1A0,y
|
|||||||
|
|
||||||
L93B8: lda DEVLST,y
|
L93B8: lda DEVLST,y
|
||||||
sta L92DE
|
sta L92DE
|
||||||
yax_call L4021, $92DD, $80
|
yax_call JT_MLI_RELAY, $92DD, READ_BLOCK
|
||||||
bne L93DB
|
bne L93DB
|
||||||
yax_call L4021, $92DD, $81
|
yax_call JT_MLI_RELAY, $92DD, WRITE_BLOCK
|
||||||
cmp #$2B
|
cmp #$2B
|
||||||
bne L93DB
|
bne L93DB
|
||||||
lda #$80
|
lda #$80
|
||||||
@ -15306,7 +15301,7 @@ L9674: inx
|
|||||||
cpy L9709
|
cpy L9709
|
||||||
bne L9674
|
bne L9674
|
||||||
stx $1FC0
|
stx $1FC0
|
||||||
yax_call L4021, $9569, $C2
|
yax_call JT_MLI_RELAY, $9569, RENAME
|
||||||
beq L969E
|
beq L969E
|
||||||
jsr L4030
|
jsr L4030
|
||||||
bne L9696
|
bne L9696
|
||||||
@ -15445,7 +15440,7 @@ L97F3: ldx $E10C
|
|||||||
L9801: lda #$00
|
L9801: lda #$00
|
||||||
sta $E05F
|
sta $E05F
|
||||||
sta $E10D
|
sta $E10D
|
||||||
L9809: yax_call L4021, $970A, $C8
|
L9809: yax_call JT_MLI_RELAY, $970A, OPEN
|
||||||
beq L981E
|
beq L981E
|
||||||
ldx #$80
|
ldx #$80
|
||||||
jsr L4033
|
jsr L4033
|
||||||
@ -15455,7 +15450,7 @@ L9809: yax_call L4021, $970A, $C8
|
|||||||
L981E: lda L970F
|
L981E: lda L970F
|
||||||
sta $E060
|
sta $E060
|
||||||
sta L9711
|
sta L9711
|
||||||
L9827: yax_call L4021, $9710, $CA
|
L9827: yax_call JT_MLI_RELAY, $9710, READ
|
||||||
beq L983C
|
beq L983C
|
||||||
ldx #$80
|
ldx #$80
|
||||||
jsr L4033
|
jsr L4033
|
||||||
@ -15466,7 +15461,7 @@ L983C: jmp L985B
|
|||||||
|
|
||||||
L983F: lda $E060
|
L983F: lda $E060
|
||||||
sta L971D
|
sta L971D
|
||||||
L9845: yax_call L4021, $971C, $CC
|
L9845: yax_call JT_MLI_RELAY, $971C, CLOSE
|
||||||
beq L985A
|
beq L985A
|
||||||
ldx #$80
|
ldx #$80
|
||||||
jsr L4033
|
jsr L4033
|
||||||
@ -15478,7 +15473,7 @@ L985A: rts
|
|||||||
L985B: inc $E05F
|
L985B: inc $E05F
|
||||||
lda $E060
|
lda $E060
|
||||||
sta L971F
|
sta L971F
|
||||||
L9864: yax_call L4021, $971E, $CA
|
L9864: yax_call JT_MLI_RELAY, $971E, READ
|
||||||
beq L987D
|
beq L987D
|
||||||
cmp #$4C
|
cmp #$4C
|
||||||
beq L989F
|
beq L989F
|
||||||
@ -15495,7 +15490,7 @@ L987D: inc $E10D
|
|||||||
sta $E10D
|
sta $E10D
|
||||||
lda $E060
|
lda $E060
|
||||||
sta L9727
|
sta L9727
|
||||||
yax_call L4021, $9726, $CA
|
yax_call JT_MLI_RELAY, $9726, READ
|
||||||
L989C: lda #$00
|
L989C: lda #$00
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -15698,7 +15693,7 @@ L9A60: iny
|
|||||||
cpy $E04B
|
cpy $E04B
|
||||||
bne L9A60
|
bne L9A60
|
||||||
stx $1FC0
|
stx $1FC0
|
||||||
L9A70: yax_call L4021, $9774, $C4
|
L9A70: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq L9A81
|
beq L9A81
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9A70
|
jmp L9A70
|
||||||
@ -15745,7 +15740,7 @@ L9AC8: lda L9774,y
|
|||||||
bne L9AE0
|
bne L9AE0
|
||||||
lda #$0D
|
lda #$0D
|
||||||
sta L976D
|
sta L976D
|
||||||
L9AE0: yax_call L4021, $9766, $C0
|
L9AE0: yax_call JT_MLI_RELAY, $9766, CREATE
|
||||||
beq L9B23
|
beq L9B23
|
||||||
cmp #$47
|
cmp #$47
|
||||||
bne L9B1D
|
bne L9B1D
|
||||||
@ -15796,7 +15791,7 @@ L9B3E: lda L97BD
|
|||||||
cmp #$0F
|
cmp #$0F
|
||||||
bne L9B88
|
bne L9B88
|
||||||
jsr LA2FD
|
jsr LA2FD
|
||||||
L9B48: yax_call L4021, $9774, $C4
|
L9B48: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq L9B59
|
beq L9B59
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9B48
|
jmp L9B48
|
||||||
@ -15824,7 +15819,7 @@ L9B7A: jsr LA360
|
|||||||
L9B88: jsr LA33B
|
L9B88: jsr LA33B
|
||||||
jsr LA2FD
|
jsr LA2FD
|
||||||
jsr LA40A
|
jsr LA40A
|
||||||
L9B91: yax_call L4021, $9774, $C4
|
L9B91: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq L9BA2
|
beq L9BA2
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9B91
|
jmp L9B91
|
||||||
@ -15845,7 +15840,7 @@ L9BBE: rts
|
|||||||
L9BBF: yax_call LA500, $9937, $01
|
L9BBF: yax_call LA500, $9937, $01
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L9BC9: yax_call L4021, $9787, $C4
|
L9BC9: yax_call JT_MLI_RELAY, $9787, GET_FILE_INFO
|
||||||
beq L9BDA
|
beq L9BDA
|
||||||
jsr LA497
|
jsr LA497
|
||||||
jmp L9BC9
|
jmp L9BC9
|
||||||
@ -15881,7 +15876,7 @@ L9C13: lda #$03
|
|||||||
sec
|
sec
|
||||||
L9C19: rts
|
L9C19: rts
|
||||||
|
|
||||||
L9C1A: yax_call L4021, $9774, $C4
|
L9C1A: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq L9C2B
|
beq L9C2B
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9C1A
|
jmp L9C1A
|
||||||
@ -15889,7 +15884,7 @@ L9C1A: yax_call L4021, $9774, $C4
|
|||||||
L9C2B: lda #$00
|
L9C2B: lda #$00
|
||||||
sta L9CD8
|
sta L9CD8
|
||||||
sta L9CD9
|
sta L9CD9
|
||||||
L9C33: yax_call L4021, $9787, $C4
|
L9C33: yax_call JT_MLI_RELAY, $9787, GET_FILE_INFO
|
||||||
beq L9C48
|
beq L9C48
|
||||||
cmp #$46
|
cmp #$46
|
||||||
beq L9C54
|
beq L9C54
|
||||||
@ -15912,7 +15907,7 @@ L9C5C: iny
|
|||||||
tya
|
tya
|
||||||
sta $1FC0
|
sta $1FC0
|
||||||
sta L9CD7
|
sta L9CD7
|
||||||
L9C70: yax_call L4021, $9787, $C4
|
L9C70: yax_call JT_MLI_RELAY, $9787, GET_FILE_INFO
|
||||||
beq L9C95
|
beq L9C95
|
||||||
pha
|
pha
|
||||||
lda L9CD6
|
lda L9CD6
|
||||||
@ -15984,7 +15979,7 @@ L9D0C: jsr L9DA9
|
|||||||
L9D17: jsr L9D81
|
L9D17: jsr L9D81
|
||||||
bne L9D17
|
bne L9D17
|
||||||
jsr L9D9C
|
jsr L9D9C
|
||||||
yax_call L4021, $97A4, $CE
|
yax_call JT_MLI_RELAY, $97A4, SET_MARK
|
||||||
L9D28: bit L9E18
|
L9D28: bit L9E18
|
||||||
bmi L9D51
|
bmi L9D51
|
||||||
jsr L9DE8
|
jsr L9DE8
|
||||||
@ -15993,7 +15988,7 @@ L9D28: bit L9E18
|
|||||||
jsr L9E03
|
jsr L9E03
|
||||||
jsr L9D62
|
jsr L9D62
|
||||||
jsr L9D74
|
jsr L9D74
|
||||||
yax_call L4021, $979F, $CE
|
yax_call JT_MLI_RELAY, $979F, SET_MARK
|
||||||
beq L9D0C
|
beq L9D0C
|
||||||
lda #$FF
|
lda #$FF
|
||||||
sta L9E18
|
sta L9E18
|
||||||
@ -16006,7 +16001,7 @@ L9D51: jsr L9E03
|
|||||||
L9D5C: jsr LA46D
|
L9D5C: jsr LA46D
|
||||||
jmp LA479
|
jmp LA479
|
||||||
|
|
||||||
L9D62: yax_call L4021, $973E, $C8
|
L9D62: yax_call JT_MLI_RELAY, $973E, OPEN
|
||||||
beq L9D73
|
beq L9D73
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9D62
|
jmp L9D62
|
||||||
@ -16019,7 +16014,7 @@ L9D74: lda L9743
|
|||||||
sta L97A0
|
sta L97A0
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L9D81: yax_call L4021, $9744, $C8
|
L9D81: yax_call JT_MLI_RELAY, $9744, OPEN
|
||||||
beq L9D9B
|
beq L9D9B
|
||||||
cmp #$45
|
cmp #$45
|
||||||
beq L9D96
|
beq L9D96
|
||||||
@ -16040,7 +16035,7 @@ L9DA9: lda #$C0
|
|||||||
sta L974E
|
sta L974E
|
||||||
lda #$0A
|
lda #$0A
|
||||||
sta L974F
|
sta L974F
|
||||||
L9DB3: yax_call L4021, $974A, $CA
|
L9DB3: yax_call JT_MLI_RELAY, $974A, READ
|
||||||
beq L9DC8
|
beq L9DC8
|
||||||
cmp #$4C
|
cmp #$4C
|
||||||
beq L9DD9
|
beq L9DD9
|
||||||
@ -16055,21 +16050,21 @@ L9DC8: lda L9750
|
|||||||
bne L9DDE
|
bne L9DDE
|
||||||
L9DD9: lda #$FF
|
L9DD9: lda #$FF
|
||||||
sta L9E18
|
sta L9E18
|
||||||
L9DDE: yax_call L4021, $979F, $CF
|
L9DDE: yax_call JT_MLI_RELAY, $979F, GET_MARK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L9DE8: yax_call L4021, $9752, $CB
|
L9DE8: yax_call JT_MLI_RELAY, $9752, WRITE
|
||||||
beq L9DF9
|
beq L9DF9
|
||||||
jsr LA497
|
jsr LA497
|
||||||
jmp L9DE8
|
jmp L9DE8
|
||||||
|
|
||||||
L9DF9: yax_call L4021, $97A4, $CF
|
L9DF9: yax_call JT_MLI_RELAY, $97A4, GET_MARK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L9E03: yax_call L4021, $9739, $CC
|
L9E03: yax_call JT_MLI_RELAY, $9739, CLOSE
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L9E0D: yax_call L4021, $9737, $CC
|
L9E0D: yax_call JT_MLI_RELAY, $9737, CLOSE
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L9E17: .byte 0
|
L9E17: .byte 0
|
||||||
@ -16080,7 +16075,7 @@ L9E1B: lda L9774,x
|
|||||||
dex
|
dex
|
||||||
cpx #$03
|
cpx #$03
|
||||||
bne L9E1B
|
bne L9E1B
|
||||||
L9E26: yax_call L4021, $975A, $C0
|
L9E26: yax_call JT_MLI_RELAY, $975A, CREATE
|
||||||
beq L9E6F
|
beq L9E6F
|
||||||
cmp #$47
|
cmp #$47
|
||||||
bne L9E69
|
bne L9E69
|
||||||
@ -16168,7 +16163,7 @@ L9EC1: lda L9E73,y
|
|||||||
L9EDB: lda #$03
|
L9EDB: lda #$03
|
||||||
sta L9E79
|
sta L9E79
|
||||||
jsr LA379
|
jsr LA379
|
||||||
L9EE3: yax_call L4021, $9774, $C4
|
L9EE3: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq L9EF4
|
beq L9EF4
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9EE3
|
jmp L9EE3
|
||||||
@ -16198,7 +16193,7 @@ L9F1E: bit $E05C
|
|||||||
bmi L9F26
|
bmi L9F26
|
||||||
jsr LA3EF
|
jsr LA3EF
|
||||||
L9F26: jsr LA2F1
|
L9F26: jsr LA2F1
|
||||||
L9F29: yax_call L4021, $973B, $C1
|
L9F29: yax_call JT_MLI_RELAY, $973B, DESTROY
|
||||||
beq L9F8D
|
beq L9F8D
|
||||||
cmp #$4E
|
cmp #$4E
|
||||||
bne L9F8E
|
bne L9F8E
|
||||||
@ -16222,7 +16217,7 @@ L9F29: yax_call L4021, $973B, $C1
|
|||||||
bne L9F62
|
bne L9F62
|
||||||
L9F5F: jmp LA39F
|
L9F5F: jmp LA39F
|
||||||
|
|
||||||
L9F62: yax_call L4021, $9774, $C4
|
L9F62: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
lda L9777
|
lda L9777
|
||||||
and #$80
|
and #$80
|
||||||
bne L9F8D
|
bne L9F8D
|
||||||
@ -16230,7 +16225,7 @@ L9F62: yax_call L4021, $9774, $C4
|
|||||||
sta L9777
|
sta L9777
|
||||||
lda #$07
|
lda #$07
|
||||||
sta L9774
|
sta L9774
|
||||||
yax_call L4021, $9774, $C3
|
yax_call JT_MLI_RELAY, $9774, SET_FILE_INFO
|
||||||
lda #$0A
|
lda #$0A
|
||||||
sta L9774
|
sta L9774
|
||||||
jmp L9F29
|
jmp L9F29
|
||||||
@ -16249,7 +16244,7 @@ L9F9C: jsr LA2FD
|
|||||||
bmi L9FA7
|
bmi L9FA7
|
||||||
jsr LA3EF
|
jsr LA3EF
|
||||||
L9FA7: jsr LA2F1
|
L9FA7: jsr LA2F1
|
||||||
L9FAA: yax_call L4021, $9774, $C4
|
L9FAA: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq L9FBB
|
beq L9FBB
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp L9FAA
|
jmp L9FAA
|
||||||
@ -16257,7 +16252,7 @@ L9FAA: yax_call L4021, $9774, $C4
|
|||||||
L9FBB: lda L977B
|
L9FBB: lda L977B
|
||||||
cmp #$0D
|
cmp #$0D
|
||||||
beq LA022
|
beq LA022
|
||||||
L9FC2: yax_call L4021, $973B, $C1
|
L9FC2: yax_call JT_MLI_RELAY, $973B, DESTROY
|
||||||
beq LA022
|
beq LA022
|
||||||
cmp #$4E
|
cmp #$4E
|
||||||
bne LA01C
|
bne LA01C
|
||||||
@ -16285,7 +16280,7 @@ LA001: lda #$C3
|
|||||||
sta L9777
|
sta L9777
|
||||||
lda #$07
|
lda #$07
|
||||||
sta L9774
|
sta L9774
|
||||||
yax_call L4021, $9774, $C3
|
yax_call JT_MLI_RELAY, $9774, SET_FILE_INFO
|
||||||
lda #$0A
|
lda #$0A
|
||||||
sta L9774
|
sta L9774
|
||||||
jmp L9FC2
|
jmp L9FC2
|
||||||
@ -16300,7 +16295,7 @@ LA022: jmp LA322
|
|||||||
sta L9923
|
sta L9923
|
||||||
rts
|
rts
|
||||||
|
|
||||||
LA02E: yax_call L4021, $973B, $C1
|
LA02E: yax_call JT_MLI_RELAY, $973B, DESTROY
|
||||||
beq LA043
|
beq LA043
|
||||||
cmp #$4E
|
cmp #$4E
|
||||||
beq LA043
|
beq LA043
|
||||||
@ -16416,7 +16411,7 @@ LA123: iny
|
|||||||
cpy $0220
|
cpy $0220
|
||||||
bne LA123
|
bne LA123
|
||||||
stx $1FC0
|
stx $1FC0
|
||||||
LA133: yax_call L4021, $9774, $C4
|
LA133: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq LA144
|
beq LA144
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp LA133
|
jmp LA133
|
||||||
@ -16446,7 +16441,7 @@ LA16A: jsr LA173
|
|||||||
jsr LA2FD
|
jsr LA2FD
|
||||||
LA173: jsr LA1C3
|
LA173: jsr LA1C3
|
||||||
jsr LA2F1
|
jsr LA2F1
|
||||||
LA179: yax_call L4021, $9774, $C4
|
LA179: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq LA18A
|
beq LA18A
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp LA179
|
jmp LA179
|
||||||
@ -16464,7 +16459,7 @@ LA19E: lda #$21
|
|||||||
LA1A0: sta L9777
|
LA1A0: sta L9777
|
||||||
LA1A3: lda #$07
|
LA1A3: lda #$07
|
||||||
sta L9774
|
sta L9774
|
||||||
yax_call L4021, $9774, $C3
|
yax_call JT_MLI_RELAY, $9774, SET_FILE_INFO
|
||||||
pha
|
pha
|
||||||
lda #$0A
|
lda #$0A
|
||||||
sta L9774
|
sta L9774
|
||||||
@ -16545,7 +16540,7 @@ LA26A: sta BITMAP,y
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
LA271: jsr LA379
|
LA271: jsr LA379
|
||||||
LA274: yax_call L4021, $9774, $C4
|
LA274: yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
beq LA285
|
beq LA285
|
||||||
jsr LA49B
|
jsr LA49B
|
||||||
jmp LA274
|
jmp LA274
|
||||||
@ -16574,7 +16569,7 @@ LA2AB: jmp LA2AE
|
|||||||
LA2AE: bit L9189
|
LA2AE: bit L9189
|
||||||
bvc LA2D4
|
bvc LA2D4
|
||||||
jsr LA2FD
|
jsr LA2FD
|
||||||
yax_call L4021, $9774, $C4
|
yax_call JT_MLI_RELAY, $9774, GET_FILE_INFO
|
||||||
bne LA2D4
|
bne LA2D4
|
||||||
lda LA2EF
|
lda LA2EF
|
||||||
clc
|
clc
|
||||||
@ -16697,27 +16692,18 @@ LA39F: jsr L917F
|
|||||||
jmp LA3A7
|
jmp LA3A7
|
||||||
|
|
||||||
.byte 1, 0
|
.byte 1, 0
|
||||||
LA3A7: yax_call L4021, $A3A5, $CC
|
LA3A7: yax_call JT_MLI_RELAY, $A3A5, CLOSE
|
||||||
lda selected_window_index
|
lda selected_window_index
|
||||||
beq LA3CA
|
beq LA3CA
|
||||||
sta query_state_params2::id
|
sta query_state_params2::id
|
||||||
ldy #$3C
|
yax_call JT_A2D_RELAY, $D212, $3C
|
||||||
lda #$12
|
yax_call JT_A2D_RELAY, $D215, $04
|
||||||
ldx #$D2
|
|
||||||
jsr L4003
|
|
||||||
ldy #$04
|
|
||||||
lda #$15
|
|
||||||
ldx #$D2
|
|
||||||
jsr L4003
|
|
||||||
LA3CA: ldx L9188
|
LA3CA: ldx L9188
|
||||||
txs
|
txs
|
||||||
lda #$FF
|
lda #$FF
|
||||||
rts
|
rts
|
||||||
|
|
||||||
LA3D1: ldy #$2A
|
LA3D1: yax_call JT_A2D_RELAY, $D208, $2A
|
||||||
lda #$08
|
|
||||||
ldx #$D2
|
|
||||||
jsr L4003
|
|
||||||
lda input_params_state
|
lda input_params_state
|
||||||
cmp #A2D_INPUT_KEY
|
cmp #A2D_INPUT_KEY
|
||||||
bne LA3EC
|
bne LA3EC
|
||||||
@ -16757,7 +16743,7 @@ LA426: jsr LA46D
|
|||||||
lda L9778
|
lda L9778
|
||||||
cmp #$0F
|
cmp #$0F
|
||||||
beq LA46C
|
beq LA46C
|
||||||
yax_call L4021, $9744, $C8
|
yax_call JT_MLI_RELAY, $9744, OPEN
|
||||||
beq LA449
|
beq LA449
|
||||||
jsr LA497
|
jsr LA497
|
||||||
jmp LA426
|
jmp LA426
|
||||||
@ -16765,12 +16751,12 @@ LA426: jsr LA46D
|
|||||||
LA449: lda L9749
|
LA449: lda L9749
|
||||||
sta L979B
|
sta L979B
|
||||||
sta L973A
|
sta L973A
|
||||||
LA452: yax_call L4021, $979A, $D0
|
LA452: yax_call JT_MLI_RELAY, $979A, SET_EOF
|
||||||
beq LA463
|
beq LA463
|
||||||
jsr LA497
|
jsr LA497
|
||||||
jmp LA452
|
jmp LA452
|
||||||
|
|
||||||
LA463: yax_call L4021, $9739, $CC
|
LA463: yax_call JT_MLI_RELAY, $9739, CLOSE
|
||||||
LA46C: rts
|
LA46C: rts
|
||||||
|
|
||||||
LA46D: ldx #$0A
|
LA46D: ldx #$0A
|
||||||
@ -16782,7 +16768,7 @@ LA46F: lda L9777,x
|
|||||||
|
|
||||||
LA479: lda #$07
|
LA479: lda #$07
|
||||||
sta L9787
|
sta L9787
|
||||||
yax_call L4021, $9787, $C3
|
yax_call JT_MLI_RELAY, $9787, SET_FILE_INFO
|
||||||
pha
|
pha
|
||||||
lda #$0A
|
lda #$0A
|
||||||
sta L9787
|
sta L9787
|
||||||
@ -16818,7 +16804,7 @@ LA4BA: jsr L4030
|
|||||||
LA4C2: jmp LA39F
|
LA4C2: jmp LA39F
|
||||||
|
|
||||||
LA4C5: .byte 0
|
LA4C5: .byte 0
|
||||||
LA4C6: yax_call L4021, $97A9, $C5
|
LA4C6: yax_call JT_MLI_RELAY, $97A9, ON_LINE
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.res 48, 0
|
.res 48, 0
|
||||||
|
|||||||
@ -53,7 +53,7 @@ QUIT := $65
|
|||||||
|
|
||||||
;;; Direct Disk Access Commands
|
;;; Direct Disk Access Commands
|
||||||
READ_BLOCK := $80
|
READ_BLOCK := $80
|
||||||
WRITE_BLOCK := $71
|
WRITE_BLOCK := $81
|
||||||
|
|
||||||
;;; ------------------------------------------------------------
|
;;; ------------------------------------------------------------
|
||||||
;;; Device Types
|
;;; Device Types
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user