Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-08 13:30:31 +00:00
Code Issues Projects Releases Wiki Activity

mli calls in overlays

Browse Source
This commit is contained in:
Joshua Bell 2018-02-25 13:52:16 -08:00
parent 7c0e47922a
commit 3c77c79e13
3 changed files with 34 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
desktop/desktop.s
View File

@ -6705,15 +6705,15 @@ L46AE: jsr disable_eject_menu_item
.endproc
.proc MLI_RELAY
sty L46CE
stax L46CF
sty call
stax params
php
sei
sta ALTZPOFF
sta ROMIN2
jsr MLI
L46CE: .byte $00
L46CF: .addr dummy0000
call: .byte $00
params: .addr dummy0000
sta ALTZPON
tax
lda LCBANK1

33
desktop/ovl3.s
View File

@ -1355,7 +1355,7 @@ L9C3D: inx
cpx L9C9A
bne L9C3D
sty $1C00
L9C4D: yax_call L9DC9, $C8, $9C16
L9C4D: yax_call MLI_RELAY, OPEN, $9C16
beq L9C60
lda #$00
jsr L9C09
@ -1365,7 +1365,7 @@ L9C5F: rts
L9C60: lda L9C1B
sta L9C1D
sta L9C25
L9C69: yax_call L9DC9, $CB, $9C1C
L9C69: yax_call MLI_RELAY, WRITE, $9C1C
beq L9C81
pha
jsr JUMP_TABLE_REDRAW_ALL
@ -1374,8 +1374,8 @@ L9C69: yax_call L9DC9, $CB, $9C1C
beq L9C69
jmp L9C5F
L9C81: yax_call L9DC9, $CD, $9C24
yax_call L9DC9, $CC, $9C24
L9C81: yax_call MLI_RELAY, FLUSH, $9C24
yax_call MLI_RELAY, CLOSE, $9C24
rts
.byte $03
@ -1401,7 +1401,7 @@ L9CB1: .byte 0
.byte 0
.byte 1, 0
L9CBA: yax_call L9DC9, $C8, $9C94
L9CBA: yax_call MLI_RELAY, OPEN, $9C94
beq L9CCF
lda #$00
jsr L9C09
@ -1410,12 +1410,12 @@ L9CBA: yax_call L9DC9, $C8, $9C94
L9CCF: lda L9C99
sta L9CA9
yax_call L9DC9, $CA, $9CA8
yax_call MLI_RELAY, READ, $9CA8
bne L9CE9
yax_call L9DC9, $CC, $9CB8
yax_call MLI_RELAY, CLOSE, $9CB8
L9CE9: rts
L9CEA: yax_call L9DC9, $C8, $9C94
L9CEA: yax_call MLI_RELAY, OPEN, $9C94
beq L9CFF
lda #$00
jsr L9C09
@ -1424,13 +1424,13 @@ L9CEA: yax_call L9DC9, $C8, $9C94
L9CFF: lda L9C99
sta L9CB1
L9D05: yax_call L9DC9, $CB, $9CB0
L9D05: yax_call MLI_RELAY, WRITE, $9CB0
beq L9D18
jsr JUMP_TABLE_ALERT_0
beq L9D05
jmp L9D21
L9D18: yax_call L9DC9, $CC, $9CB8
L9D18: yax_call MLI_RELAY, CLOSE, $9CB8
L9D21: rts
L9D22: jsr L9CBA
@ -1519,15 +1519,17 @@ L9DA7: ldx #$00
rts
L9DC8: .byte 0
L9DC9: sty L9DDD
stax L9DDE
.proc MLI_RELAY
sty call
stax params
php
sei
sta ALTZPOFF
sta ROMIN2
jsr MLI
L9DDD: .byte 0
L9DDE: .addr 0
call: .byte 0
params: .addr 0
sta ALTZPON
tax
lda LCBANK1
@ -1535,6 +1537,7 @@ L9DDE: .addr 0
plp
txa
rts
.endproc
L9DED: sta ALTZPOFF
lda $C083
@ -1596,7 +1599,7 @@ L9E50: .word 0
.byte 0
L9E61: jsr L9E74
stax L9E50
yax_call L9DC9, $C4, $9E4F
yax_call MLI_RELAY, GET_FILE_INFO, $9E4F
rts
L9E74: sta L9EBF

21
desktop/ovl4.s
View File

@ -813,15 +813,17 @@ L597E: MGTK_RELAY_CALL MGTK::SetPenMode, $D202
return #$01
L5993: .byte 0
L5994: sty L59A8
stax L59A9
.proc MLI_RELAY
sty call
stax params
php
sei
sta ALTZPOFF
lda ROMIN2
jsr MLI
L59A8: .byte 0
L59A9: .addr 0
call: .byte 0
params: .addr 0
sta ALTZPON
tax
lda LCBANK1
@ -829,6 +831,7 @@ L59A9: .addr 0
plp
txa
rts
.endproc
L59B8: rts
@ -1296,7 +1299,7 @@ L5E87: ldx L5027
lda $BF32,x
and #$F0
sta L5004
yax_call L5994, $C5, $5003
yax_call MLI_RELAY, ON_LINE, $5003
lda L5017
and #$0F
sta L5017
@ -1320,7 +1323,7 @@ L5ECA: rts
L5ECB: lda #$00
sta L5F0C
L5ED0: yax_call L5994, $C8, $5007
L5ED0: yax_call MLI_RELAY, OPEN, $5007
beq L5EE9
jsr L5E87
lda #$FF
@ -1331,7 +1334,7 @@ L5ED0: yax_call L5994, $C8, $5007
L5EE9: lda L500C
sta L500E
sta L5016
yax_call L5994, $CA, $500D
yax_call MLI_RELAY, READ, $500D
beq L5F0B
jsr L5E87
lda #$FF
@ -1457,7 +1460,7 @@ L6007: inc L6069
lda L6068
cmp $177F
bne L6035
L6012: yax_call L5994, $CC, $5015
L6012: yax_call MLI_RELAY, CLOSE, $5015
bit L50A8
bpl L6026
lda L50A9
@ -1484,7 +1487,7 @@ L6035: lda L6069
sta $07
jmp L5F8F
L604E: yax_call L5994, $CA, $500D
L604E: yax_call MLI_RELAY, READ, $500D
copy16 #$1404, $06
lda #$00
sta L6069