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

symbols and tidying

Browse Source
This commit is contained in:
Joshua Bell 2018-02-25 15:19:38 -08:00
parent 3c77c79e13
commit 70079333d1
8 changed files with 136 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
desktop/ovl1.s
View File

@ -1,4 +1,3 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
@ -14,8 +13,8 @@
;;; ================================================== ;;; ==================================================
.org $800 .org $800
.proc disk_copy_overlay .proc disk_copy_overlay
jmp start jmp start
load_target := $1800 load_target := $1800
@ -134,5 +133,7 @@ self: bne self ; hang on error?
rts rts
.endproc .endproc
;;; ==================================================
PAD_TO $A00 PAD_TO $A00
.endproc .endproc ; disk_copy_overlay

7
desktop/ovl1a.s
View File

@ -1,4 +1,3 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
@ -15,6 +14,7 @@
.org $1800 .org $1800
.proc disk_copy_overlay2 .proc disk_copy_overlay2
jmp start jmp start
L1A39 := $1A39 L1A39 := $1A39
@ -280,4 +280,7 @@ L19F8: jsr LA83D
bcs L1A3B bcs L1A3B
L19FD: lda $BE53 L19FD: lda $BE53
.endproc ;;; ==================================================
PAD_TO $1A00
.endproc ; disk_copy_overlay2

3
desktop/ovl2.s
View File

@ -1,4 +1,3 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
@ -14,6 +13,7 @@
;;; ================================================== ;;; ==================================================
.org $800 .org $800
.proc format_erase_overlay
;;; Entry points in desktop_main ;;; Entry points in desktop_main
prompt_input_loop := $A567 prompt_input_loop := $A567
@ -1740,3 +1740,4 @@ L1A6D: lda on_line_params::unit_num
;;; ================================================== ;;; ==================================================
PAD_TO $1C00 PAD_TO $1C00
.endproc ; format_erase_overlay

5
desktop/ovl3.s
View File

@ -1,4 +1,3 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
@ -14,6 +13,7 @@
;;; ================================================== ;;; ==================================================
.org $9000 .org $9000
.proc selector_overlay2
;;; Routines in common overlay segment ($5000-$6FFF) ;;; Routines in common overlay segment ($5000-$6FFF)
L5000 := $5000 L5000 := $5000
@ -1642,4 +1642,7 @@ L9EC0: .byte 0
L9EC1: .byte 0 L9EC1: .byte 0
;; how much is buffer, how much is padding? ;; how much is buffer, how much is padding?
;;; ==================================================
PAD_TO $A000 PAD_TO $A000
.endproc ; selector_overlay2

156
desktop/ovl4.s
View File

@ -1,4 +1,3 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
@ -12,16 +11,21 @@
;;; ================================================== ;;; ==================================================
;;; Overlay for Common Routines (Selector, File Copy/Delete) ;;; Overlay for Common Routines (Selector, File Copy/Delete)
;;; ================================================== ;;; ==================================================
.org $5000 .org $5000
.proc common_overlay
dummy1234 := $1234 dummy1234 := $1234
jmp L50B1 jmp L50B1
.byte $02 L5003: .byte $02
L5004: .byte $00,$17,$50,$03,$28,$50,$00,$10 L5004: .byte $00,$17,$50
L500C: .byte $00,$04 L5007: .byte $03,$28,$50,$00,$10
L500E: .byte $00,$00,$14,$00,$02,$00,$00,$01 L500C: .byte $00
L500D: .byte $04
L500E: .byte $00,$00,$14,$00,$02,$00,$00
L5015: .byte $01
L5016: .byte $00 L5016: .byte $00
L5017: .byte $00,$00,$00,$00,$00,$00,$00,$00 L5017: .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
@ -48,6 +52,9 @@ L50A9: .byte $00
L50AA: .byte $00 L50AA: .byte $00
L50AB: .byte $00 L50AB: .byte $00
L50AC: .byte $70,$00,$70,$00,$70 L50AC: .byte $70,$00,$70,$00,$70
;;; ==================================================
L50B1: sty L5102 L50B1: sty L5102
stx L5101 stx L5101
tsx tsx
@ -82,11 +89,16 @@ L50FF := * + 1
L5100 := * + 2 L5100 := * + 2
jmp dummy1234 jmp dummy1234
;;; ==================================================
L5101: .byte 0 L5101: .byte 0
L5102: .byte 0 L5102: .byte 0
L5103: .byte 0 L5103: .byte 0
L5104: .byte 0 L5104: .byte 0
L5105: .byte 0 L5105: .byte 0
;;; ==================================================
L5106: bit $D8EC L5106: bit $D8EC
bpl L5118 bpl L5118
dec $D8E9 dec $D8E9
@ -500,20 +512,22 @@ L55B0: lda $D20E
pla pla
L55B9: rts L55B9: rts
;;; ==================================================
L55BA: bit L5606 L55BA: bit L5606
bpl L55DF bpl L55DF
MGTK_RELAY_CALL MGTK::HideCursor, $0000 MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, $D2AD MGTK_RELAY_CALL MGTK::SetCursor, $D2AD
MGTK_RELAY_CALL MGTK::ShowCursor, $0000 MGTK_RELAY_CALL MGTK::ShowCursor
lda #$00 lda #$00
sta L5606 sta L5606
L55DF: rts L55DF: rts
L55E0: bit L5606 L55E0: bit L5606
bmi L5605 bmi L5605
MGTK_RELAY_CALL MGTK::HideCursor, $0000 MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, $D2DF MGTK_RELAY_CALL MGTK::SetCursor, $D2DF
MGTK_RELAY_CALL MGTK::ShowCursor, $0000 MGTK_RELAY_CALL MGTK::ShowCursor
lda #$80 lda #$80
sta L5606 sta L5606
L5605: rts L5605: rts
@ -1183,7 +1197,10 @@ L5CF3: .byte 0
L5CF4: .byte 0 L5CF4: .byte 0
L5CF5: .byte 0 L5CF5: .byte 0
L5CF6: .byte 0 L5CF6: .byte 0
MGTK_RELAY_CALL MGTK::OpenWindow, $D5B7
;;; ==================================================
L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, $D5B7
MGTK_RELAY_CALL MGTK::OpenWindow, $D5F1 MGTK_RELAY_CALL MGTK::OpenWindow, $D5F1
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
@ -1237,6 +1254,8 @@ L5DE0: lda ($06),y
ldax #$D380 ldax #$D380
rts rts
;;; ==================================================
L5DED: jsr L5DD7 L5DED: jsr L5DD7
sta $06 sta $06
stx $07 stx $07
@ -1246,10 +1265,12 @@ L5DED: jsr L5DD7
inc $06 inc $06
bne L5E00 bne L5E00
inc $07 inc $07
L5E00: MGTK_RELAY_CALL MGTK::DrawText, $0006 L5E00: MGTK_RELAY_CALL MGTK::DrawText, $06
rts rts
jsr L5DD7 ;;; ==================================================
L5E0A: jsr L5DD7
sta $06 sta $06
stx $07 stx $07
ldy #$00 ldy #$00
@ -1258,7 +1279,7 @@ L5E00: MGTK_RELAY_CALL MGTK::DrawText, $0006
inc $06 inc $06
bne L5E1D bne L5E1D
inc $07 inc $07
L5E1D: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L5E1D: MGTK_RELAY_CALL MGTK::TextWidth, $06
lsr $0A lsr $0A
ror $09 ror $09
lda #$01 lda #$01
@ -1273,11 +1294,14 @@ L5E1D: MGTK_RELAY_CALL MGTK::TextWidth, $0006
sbc $0A sbc $0A
sta $D90C sta $D90C
MGTK_RELAY_CALL MGTK::MoveTo, $D90B MGTK_RELAY_CALL MGTK::MoveTo, $D90B
MGTK_RELAY_CALL MGTK::DrawText, $0006 MGTK_RELAY_CALL MGTK::DrawText, $06
rts rts
L5E56: .byte 0 L5E56: .byte 0
jsr L5DD7
;;; ==================================================
L5E57: jsr L5DD7
sta $06 sta $06
stx $07 stx $07
MGTK_RELAY_CALL MGTK::MoveTo, $DA55 MGTK_RELAY_CALL MGTK::MoveTo, $DA55
@ -1286,7 +1310,9 @@ L5E56: .byte 0
jsr L5DED jsr L5DED
rts rts
jsr L5DD7 ;;; ==================================================
L5E6F: jsr L5DD7
sta $06 sta $06
stx $07 stx $07
MGTK_RELAY_CALL MGTK::MoveTo, $DA59 MGTK_RELAY_CALL MGTK::MoveTo, $DA59
@ -1295,11 +1321,13 @@ L5E56: .byte 0
jsr L5DED jsr L5DED
rts rts
;;; ==================================================
L5E87: ldx L5027 L5E87: ldx L5027
lda $BF32,x lda DEVCNT+1,x
and #$F0 and #$F0
sta L5004 sta L5004
yax_call MLI_RELAY, ON_LINE, $5003 yax_call MLI_RELAY, ON_LINE, L5003
lda L5017 lda L5017
and #$0F and #$0F
sta L5017 sta L5017
@ -1309,12 +1337,12 @@ L5E87: ldx L5027
L5EAB: lda #$00 L5EAB: lda #$00
sta L5028 sta L5028
addr_call L5F0D, $5017 addr_call L5F0D, L5017
rts rts
L5EB8: inc L5027 L5EB8: inc L5027
lda L5027 lda L5027
cmp $BF31 cmp DEVCNT
beq L5ECA beq L5ECA
bcc L5ECA bcc L5ECA
lda #$00 lda #$00
@ -1323,7 +1351,7 @@ L5ECA: rts
L5ECB: lda #$00 L5ECB: lda #$00
sta L5F0C sta L5F0C
L5ED0: yax_call MLI_RELAY, OPEN, $5007 L5ED0: yax_call MLI_RELAY, OPEN, L5007
beq L5EE9 beq L5EE9
jsr L5E87 jsr L5E87
lda #$FF lda #$FF
@ -1334,7 +1362,7 @@ L5ED0: yax_call MLI_RELAY, OPEN, $5007
L5EE9: lda L500C L5EE9: lda L500C
sta L500E sta L500E
sta L5016 sta L5016
yax_call MLI_RELAY, READ, $500D yax_call MLI_RELAY, READ, L500D
beq L5F0B beq L5F0B
jsr L5E87 jsr L5E87
lda #$FF lda #$FF
@ -1375,6 +1403,8 @@ L5F31: lda ($06),y
sta $D920 sta $D920
return #$00 return #$00
;;; ==================================================
L5F49: ldx L5028 L5F49: ldx L5028
cpx #$00 cpx #$00
beq L5F5A beq L5F5A
@ -1384,6 +1414,8 @@ L5F49: ldx L5028
bne L5F49 bne L5F49
L5F5A: rts L5F5A: rts
;;; ==================================================
L5F5B: jsr L5ECB L5F5B: jsr L5ECB
lda #$00 lda #$00
sta L6067 sta L6067
@ -1460,7 +1492,7 @@ L6007: inc L6069
lda L6068 lda L6068
cmp $177F cmp $177F
bne L6035 bne L6035
L6012: yax_call MLI_RELAY, CLOSE, $5015 L6012: yax_call MLI_RELAY, CLOSE, L5015
bit L50A8 bit L50A8
bpl L6026 bpl L6026
lda L50A9 lda L50A9
@ -1487,7 +1519,7 @@ L6035: lda L6069
sta $07 sta $07
jmp L5F8F jmp L5F8F
L604E: yax_call MLI_RELAY, READ, $500D L604E: yax_call MLI_RELAY, READ, L500D
copy16 #$1404, $06 copy16 #$1404, $06
lda #$00 lda #$00
sta L6069 sta L6069
@ -1499,6 +1531,9 @@ L6069: .byte 0
L606A: .byte 0 L606A: .byte 0
L606B: .byte 0 L606B: .byte 0
L606C: .byte 0 L606C: .byte 0
;;; ==================================================
L606D: lda $D5F1 L606D: lda $D5F1
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $D60D MGTK_RELAY_CALL MGTK::PaintRect, $D60D
@ -1554,11 +1589,14 @@ L60FF: lda L6128
lda $D5F1 lda $D5F1
jsr L62C8 jsr L62C8
L6110: inc L6128 L6110: inc L6128
add16 $D919, #$0008, $D919 add16 $D919, #8, $D919
jmp L608E jmp L608E
L6127: .byte 0 L6127: .byte 0
L6128: .byte 0 L6128: .byte 0
;;; ==================================================
L6129: stx $0B L6129: stx $0B
sta $0A sta $0A
ldy #$00 ldy #$00
@ -1594,12 +1632,14 @@ L614B: iny
L615D: dey L615D: dey
jmp L6135 jmp L6135
;;; ==================================================
L6161: lda #$00 L6161: lda #$00
L6163: sta L61B0 L6163: sta L61B0
lda $177F lda $177F
cmp #$0A cmp #$0A
bcs L6181 bcs L6181
copy16 #$0001, $D208 copy16 #1, $D208
MGTK_RELAY_CALL MGTK::ActivateCtl, $D208 MGTK_RELAY_CALL MGTK::ActivateCtl, $D208
rts rts
@ -1618,10 +1658,13 @@ L6181: lda $177F
rts rts
L61B0: .byte 0 L61B0: .byte 0
;;; ==================================================
L61B1: lda $D5B7 L61B1: lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $D9C8 MGTK_RELAY_CALL MGTK::PaintRect, $D9C8
copy16 #$5028, $06 copy16 #L5028, $06
ldy #$00 ldy #$00
lda ($06),y lda ($06),y
sta L6226 sta L6226
@ -1653,6 +1696,9 @@ L61E6: inx
rts rts
L6226: .byte 0 L6226: .byte 0
;;; ==================================================
L6227: sta L6273 L6227: sta L6273
clc clc
adc #$09 adc #$09
@ -1716,6 +1762,9 @@ L6274: ldx #$00
rts rts
L62C7: .byte 0 L62C7: .byte 0
;;; ==================================================
L62C8: sta $D212 L62C8: sta $D212
MGTK_RELAY_CALL MGTK::GetWinPort, $D212 MGTK_RELAY_CALL MGTK::GetWinPort, $D212
MGTK_RELAY_CALL MGTK::SetPort, $D215 MGTK_RELAY_CALL MGTK::SetPort, $D215
@ -1851,7 +1900,10 @@ L6451: ldx #$00
rts rts
L647B: .byte 0 L647B: .byte 0
sta $06
;;; ==================================================
L647C: sta $06
stx $07 stx $07
ldy #$01 ldy #$01
lda ($06),y lda ($06),y
@ -1932,7 +1984,10 @@ L64F5: lda L6515
jmp L64F5 jmp L64F5
L6515: .byte 0 L6515: .byte 0
sta $06
;;; ==================================================
L6516: sta $06
stx $07 stx $07
ldy #$00 ldy #$00
lda ($06),y lda ($06),y
@ -1984,6 +2039,8 @@ L656D: dex
L6575: .byte 0 L6575: .byte 0
L6576: .res 16, 0 L6576: .res 16, 0
;;; ==================================================
L6586: bpl L658B L6586: bpl L658B
L6588: return #$00 L6588: return #$00
@ -2002,7 +2059,7 @@ L658B: cmp #$09
sta $08 sta $08
lda $DAA9 lda $DAA9
sta $09 sta $09
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
bit $D8EB bit $D8EB
bpl L65C8 bpl L65C8
MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D
@ -2015,7 +2072,7 @@ L65C8: MGTK_RELAY_CALL MGTK::SetTextBG, $DA5E
L65D6: copy16 #$D8EF, $06 L65D6: copy16 #$D8EF, $06
lda $D8EE lda $D8EE
sta $08 sta $08
MGTK_RELAY_CALL MGTK::DrawText, $0006 MGTK_RELAY_CALL MGTK::DrawText, $06
jsr L56E3 jsr L56E3
rts rts
@ -2028,7 +2085,7 @@ L65D6: copy16 #$D8EF, $06
sta $08 sta $08
lda $DAB5 lda $DAB5
sta $09 sta $09
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
bit $D8EB bit $D8EB
bpl L6626 bpl L6626
MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D
@ -2042,7 +2099,7 @@ L6626: MGTK_RELAY_CALL MGTK::SetTextBG, $DA5E
L6634: copy16 #$D8EF, $06 L6634: copy16 #$D8EF, $06
lda $D8EE lda $D8EE
sta $08 sta $08
MGTK_RELAY_CALL MGTK::DrawText, $0006 MGTK_RELAY_CALL MGTK::DrawText, $06
jsr L56E3 jsr L56E3
rts rts
@ -2059,7 +2116,9 @@ L6684: addr_call L5DED, $D484
addr_call L5DED, $D8F8 addr_call L5DED, $D8F8
rts rts
lda $D5B7 ;;; ==================================================
L6693: lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $DAAA MGTK_RELAY_CALL MGTK::PaintRect, $DAAA
MGTK_RELAY_CALL MGTK::SetPenMode, $D202 MGTK_RELAY_CALL MGTK::SetPenMode, $D202
@ -2110,7 +2169,7 @@ L672F: jsr L6E45
copy16 #$D484, $06 copy16 #$D484, $06
lda $D484 lda $D484
sta $08 sta $08
L6751: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L6751: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, L684D, $09 add16 $09, L684D, $09
lda $09 lda $09
cmp $D20D cmp $D20D
@ -2160,7 +2219,7 @@ L67BD: dey
L67C4: copy16 #$D402, $06 L67C4: copy16 #$D402, $06
lda $D402 lda $D402
sta $08 sta $08
L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, $DAA6, $09 add16 $09, $DAA6, $09
lda $09 lda $09
cmp $D20D cmp $D20D
@ -2248,7 +2307,7 @@ L68A6: jsr L6E72
copy16 #$D484, $06 copy16 #$D484, $06
lda $D484 lda $D484
sta $08 sta $08
L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, L69C4, $09 add16 $09, L69C4, $09
lda $09 lda $09
cmp $D20D cmp $D20D
@ -2298,7 +2357,7 @@ L6934: dey
L693B: copy16 #$D443, $06 L693B: copy16 #$D443, $06
lda $D443 lda $D443
sta $08 sta $08
L6948: MGTK_RELAY_CALL MGTK::TextWidth, $0006 L6948: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, $DAB2, $09 add16 $09, $DAB2, $09
lda $09 lda $09
cmp $D20D cmp $D20D
@ -2371,7 +2430,7 @@ L69D5: lda L6A17
sta $09 sta $09
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D8F6 addr_call L5DED, $D8F6
addr_call L5DED, $D484 addr_call L5DED, $D484
jsr L6EA3 jsr L6EA3
@ -2392,7 +2451,7 @@ L6A1E: dec $D402
sta $09 sta $09
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
addr_call L5DED, $D8F8 addr_call L5DED, $D8F8
jsr L6EA3 jsr L6EA3
@ -2424,7 +2483,7 @@ L6A6B: ldx $D402
sta $09 sta $09
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
addr_call L5DED, $D8F8 addr_call L5DED, $D8F8
jsr L6EA3 jsr L6EA3
@ -2532,7 +2591,7 @@ L6B81: lda L6BC3
sta $09 sta $09
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D8F6 addr_call L5DED, $D8F6
addr_call L5DED, $D484 addr_call L5DED, $D484
jsr L6E9F jsr L6E9F
@ -2553,7 +2612,7 @@ L6BCA: dec $D443
sta $09 sta $09
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
addr_call L5DED, $D8F8 addr_call L5DED, $D8F8
jsr L6E9F jsr L6E9F
@ -2585,7 +2644,7 @@ L6C17: ldx $D443
sta $09 sta $09
lda $D5B7 lda $D5B7
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $0006 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
addr_call L5DED, $D8F8 addr_call L5DED, $D8F8
jsr L6E9F jsr L6E9F
@ -2816,7 +2875,7 @@ L6E45: lda #$00
beq L6E63 beq L6E63
sta $08 sta $08
copy16 #$D403, $06 copy16 #$D403, $06
MGTK_RELAY_CALL MGTK::TextWidth, $0006 MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E63: lda $09 L6E63: lda $09
clc clc
adc $DAA6 adc $DAA6
@ -2834,7 +2893,7 @@ L6E72: lda #$00
beq L6E90 beq L6E90
sta $08 sta $08
copy16 #$D444, $06 copy16 #$D444, $06
MGTK_RELAY_CALL MGTK::TextWidth, $0006 MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E90: lda $09 L6E90: lda $09
clc clc
adc $DAB2 adc $DAB2
@ -2890,7 +2949,7 @@ L6EC2: lda $D920
tya tya
jsr L5F0D jsr L5F0D
L6EFB: addr_call L6129, $D3C1 L6EFB: addr_call L6129, $D3C1
addr_call L6129, $5028 addr_call L6129, L5028
lda $D3C1 lda $D3C1
cmp L5028 cmp L5028
bne L6F26 bne L6F26
@ -2921,4 +2980,7 @@ L6F38: jsr L5F49
L6F3C: .byte 0 L6F3C: .byte 0
L6F3D: .byte 0 L6F3D: .byte 0
;;; ==================================================
PAD_TO $7000 PAD_TO $7000
.endproc ; common_overlay

6
desktop/ovl5.s
View File

@ -12,8 +12,8 @@
;;; Overlay for File Copy ;;; Overlay for File Copy
;;; ================================================== ;;; ==================================================
.proc file_copy_overlay
.org $7000 .org $7000
.proc file_copy_overlay
winfo12 := $D5B7 winfo12 := $D5B7
winfo15 := $D5F1 winfo15 := $D5F1
@ -305,5 +305,7 @@ L7289: sta $D920
jsr L606D jsr L606D
L7295: rts L7295: rts
;;; ==================================================
PAD_TO $7800 PAD_TO $7800
.endproc .endproc ; file_copy_overlay

6
desktop/ovl6.s
View File

@ -12,8 +12,8 @@
;;; Overlay for File Delete ;;; Overlay for File Delete
;;; ================================================== ;;; ==================================================
.proc file_delete_overlay
.org $7000 .org $7000
.proc file_delete_overlay
winfo12 := $D5B7 winfo12 := $D5B7
winfo15 := $D5F1 winfo15 := $D5F1
@ -135,5 +135,7 @@ L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
txs txs
return #$FF return #$FF
;;; ==================================================
PAD_TO $7800 PAD_TO $7800
.endproc .endproc ; file_delete_overlay

6
desktop/ovl7.s
View File

@ -12,8 +12,8 @@
;;; Overlay for Selector (part of it, anyway) ;;; Overlay for Selector (part of it, anyway)
;;; ================================================== ;;; ==================================================
.proc selector_overlay
.org $7000 .org $7000
.proc selector_overlay
winfo12 := $D5B7 winfo12 := $D5B7
winfo15 := $D5F1 winfo15 := $D5F1
@ -490,5 +490,7 @@ L7521: cmp #'5'
L7528: rts L7528: rts
;;; ==================================================
PAD_TO $7800 PAD_TO $7800
.endproc .endproc ; selector_overlay