a2d/desktop/ovl6.s

102 lines
2.6 KiB
ArmAsm
Raw Normal View History

2018-02-21 04:36:46 +00:00
.setcpu "6502"
2018-02-26 03:02:34 +00:00
;;; NB: Compiled as part of ovl34567.s
2018-02-21 04:36:46 +00:00
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-21 04:36:46 +00:00
;;; Overlay for File Delete
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-21 04:36:46 +00:00
.org $7000
2018-02-25 23:19:38 +00:00
.proc file_delete_overlay
2018-02-21 04:36:46 +00:00
2018-02-26 03:02:34 +00:00
L7000: jsr common_overlay::L5CF7
2018-02-21 04:36:46 +00:00
jsr L704D
2018-02-26 03:02:34 +00:00
jsr common_overlay::L5E87
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
2018-02-21 04:36:46 +00:00
jsr L7026
2018-02-26 03:02:34 +00:00
jsr common_overlay::L6D30
jsr common_overlay::L6D27
2018-02-21 04:36:46 +00:00
lda #$FF
sta $D8EC
2018-02-26 03:02:34 +00:00
jmp common_overlay::L5106
2018-02-21 04:36:46 +00:00
L7026: ldx L7086
L7029: lda L7087,x
sta $6D1E,x
dex
lda L7087,x
sta $6D1E,x
dex
dex
bpl L7029
lda #$00
sta path_buf0
sta $51AE
lda #$01
sta path_buf2
lda #$06
sta path_buf2+1 ; ???
rts
L704D: lda winfo12
2018-02-26 03:02:34 +00:00
jsr common_overlay::L62C8
addr_call common_overlay::L5E0A, $DAB6 ; "Delete a File ..."
addr_call common_overlay::L5E57, $DAC8 ; "File to delete:"
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
2018-02-22 05:28:13 +00:00
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
2018-02-22 03:20:13 +00:00
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
2018-02-21 04:36:46 +00:00
rts
L7086: .byte $29 ; length of the following data block
L7087: entry 0, L70B1
entry 0, L70EA
entry 0, $6593
entry 0, $664E
entry 0, $6DC2
entry 0, $6DD0
entry 0, $6E1D
entry 0, $69C6
entry 0, $6A18
entry 0, $6A53
entry 0, $6AAC
entry 0, $6B01
entry 0, $6B44
entry 0, $66D8
2018-02-26 03:02:34 +00:00
L70B1: addr_call common_overlay::L647C, path_buf0
2018-02-21 04:36:46 +00:00
beq L70C0
lda #$40
2018-02-25 07:19:29 +00:00
jsr JUMP_TABLE_ALERT_0
2018-02-21 04:36:46 +00:00
rts
2018-02-22 03:20:13 +00:00
L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
2018-02-21 04:36:46 +00:00
lda #0
sta $D8EC
2018-02-26 03:02:34 +00:00
jsr common_overlay::L55BA
2018-02-21 04:36:46 +00:00
copy16 #path_buf0, $6
ldx $50AA
txs
lda #0
rts
.byte 0
2018-02-22 03:20:13 +00:00
L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
2018-02-21 04:36:46 +00:00
lda #0
sta $D8EC
2018-02-26 03:02:34 +00:00
jsr common_overlay::L55BA
2018-02-21 04:36:46 +00:00
ldx $50AA
txs
2018-02-24 05:11:20 +00:00
return #$FF
2018-02-21 04:36:46 +00:00
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-25 23:19:38 +00:00
2018-02-21 04:36:46 +00:00
PAD_TO $7800
2018-02-25 23:19:38 +00:00
.endproc ; file_delete_overlay