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

Disk Copy Overlay disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-11-21 08:49:09 -08:00
parent 6f2d18e4e8
commit 51df5c6821
1 changed files with 101 additions and 309 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

410
desktop/ovl1b.s
View File

@ -5,8 +5,6 @@
.proc disk_copy_overlay3 .proc disk_copy_overlay3
.org $D000 .org $D000
L0000 := $0000
L0080 := $0080
L0CAF := $0CAF L0CAF := $0CAF
eject_disk := $0CED eject_disk := $0CED
L0D26 := $0D26 L0D26 := $0D26
@ -187,18 +185,7 @@ port: .addr grafport_win
grafport_win: .res .sizeof(MGTK::GrafPort), 0 grafport_win: .res .sizeof(MGTK::GrafPort), 0
asl $EA .byte $06, $EA, 0, 0, 0, 0, $88, 0, $08, 0, $08
.byte 0
.byte 0
.byte 0
.byte 0
dey
.byte 0
php
.byte 0
php
.proc winfo_dialog .proc winfo_dialog
window_id: .byte 1 window_id: .byte 1
@ -264,75 +251,25 @@ fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0 nextwinfo: .addr 0
.endproc .endproc
LD201: .byte $04 rect_D201: DEFINE_RECT 4, 2, 496, 148
.byte 0 rect_D209: DEFINE_RECT 5, 3, 495, 147
.byte $02 rect_D211: DEFINE_RECT 6, 20, 494, 102
.byte 0 rect_D219: DEFINE_RECT 6, 103, 494, 145
beq LD208 rect_D221: DEFINE_RECT 350, 90, 450, 101
.byte $94 rect_D229: DEFINE_RECT 210, 90, 310, 101
LD208: .byte 0 point_D231: DEFINE_POINT 355, 100
ora L0000
.byte $03
.byte 0
.byte $EF
ora ($93,x)
.byte 0
asl L0000
.byte $14
.byte 0
inc $6601
.byte 0
asl L0000
.byte $67
.byte 0
inc $9101
.byte 0
lsr $5A01,x
.byte 0
.byte $C2
ora ($65,x)
.byte 0
.byte $D2
.byte 0
.byte $5A
.byte 0
rol $01,x
adc L0000
.byte $63
ora ($64,x)
.byte 0
str_ok_label: str_ok_label:
PASCAL_STRING {"OK ",CHAR_RETURN} PASCAL_STRING {"OK ",CHAR_RETURN}
.byte $D7, 0 point_D245: DEFINE_POINT 215, 100
.byte $64 point_D249: DEFINE_POINT 0, 15
.byte 0 point_D24D: DEFINE_POINT 20, 28
LD249: .byte 0 point_D251: DEFINE_POINT 270, 46
LD24A: .byte 0 rect_D255: DEFINE_RECT 270, 38, 420, 46
.byte $0F point_D25D: DEFINE_POINT 210, 68
.byte 0 point_D261: DEFINE_POINT 210, 68
.byte $14 point_D265: DEFINE_POINT 210, 68
.byte 0
.byte $1C
.byte 0
asl $2E01
.byte 0
asl $2601
.byte 0
ldy $01
.byte $2E, 0, $D2
.byte 0
.byte $44
.byte 0
.byte $D2
.byte 0
.byte $44
.byte 0
.byte $D2
.byte 0
.byte $44
.byte 0
str_read_drive: str_read_drive:
PASCAL_STRING "Read Drive D" PASCAL_STRING "Read Drive D"
@ -356,13 +293,14 @@ str_unknown:
PASCAL_STRING "Unknown" PASCAL_STRING "Unknown"
str_select_quit: str_select_quit:
PASCAL_STRING {"Select Quit from the file menu (",GLYPH_OAPPLE,"Q) to go back to the DeskTop"} PASCAL_STRING {"Select Quit from the file menu (",GLYPH_OAPPLE,"Q) to go back to the DeskTop"}
.byte 0 .byte 0
.byte $7F .byte $7F
.byte 0 .byte 0
.byte 0 .byte 0
LD35D: .byte 0 LD35D: .byte 0
.byte 0 .byte 0
stx L0000,y stx $0000,y
LD361: .byte 0 LD361: .byte 0
.byte 0 .byte 0
LD363: .byte 0 LD363: .byte 0
@ -385,166 +323,10 @@ LD36F: .byte 0
.byte 0 .byte 0
LD375: .byte 0 LD375: .byte 0
LD376: .byte 0 LD376: .byte 0
LD377: .byte 0 LD377: .res 128, 0
.byte 0 LD3F7: .res 8, 0
.byte 0 LD3FF: .res 8, 0
.byte 0 LD407: .res 16, 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
LD3F7: .byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
LD3FF: .byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
LD407: .byte 0
LD408: .byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
LD417: .byte 0 LD417: .byte 0
LD418: .byte 0 LD418: .byte 0
@ -574,7 +356,7 @@ LD429: .byte 0
.byte 0 .byte 0
ora $C300,x ora $C300,x
.byte 0 .byte 0
adc L0000 adc $0000
LD43A: .res 18, 0 LD43A: .res 18, 0
LD44C: .byte 0 LD44C: .byte 0
LD44D: .byte 0 LD44D: .byte 0
@ -582,7 +364,7 @@ LD44E: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
LD451: .byte 0 LD451: .byte 0
ora (L0000,x) ora ($0000,x)
str_2_spaces: PASCAL_STRING " " str_2_spaces: PASCAL_STRING " "
str_7_spaces: PASCAL_STRING " " str_7_spaces: PASCAL_STRING " "
bit $7D01 bit $7D01
@ -607,7 +389,7 @@ str_7_spaces: PASCAL_STRING " "
.byte 0 .byte 0
.byte $14 .byte $14
.byte 0 .byte 0
sta (L0000),y sta ($0000),y
.byte $14 .byte $14
.byte 0 .byte 0
dey dey
@ -625,8 +407,9 @@ LD48A: .byte 0
.byte 0 .byte 0
.byte $5A .byte $5A
.byte 0 .byte 0
LD497: asl a
LD498: .byte $e slot_char: .byte 10
drive_char: .byte 14
str_blocks_read: str_blocks_read:
PASCAL_STRING "Blocks Read: " PASCAL_STRING "Blocks Read: "
@ -664,10 +447,14 @@ str_error_writing:
str_error_reading: str_error_reading:
PASCAL_STRING "Error when reading block " PASCAL_STRING "Error when reading block "
;;; ============================================================
;; cursor definition - pointer
cursor_D57C:
.byte 0, 0 .byte 0, 0
.byte $02 .byte $02
.byte 0 .byte 0
asl L0000 asl $0000
asl $1E00 asl $1E00
.byte 0 .byte 0
rol $7E00,x rol $7E00,x
@ -704,7 +491,9 @@ LD590: rts
.byte $70 .byte $70
LD5AB: ora ($01,x) LD5AB: ora ($01,x)
.byte $01 .byte $01
LD5AE: .byte 0
;; Cursor definition - watch
cursor_D5AE: .byte 0
.byte 0 .byte 0
.byte $7C .byte $7C
.byte $03 .byte $03
@ -749,6 +538,9 @@ LD5AE: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
ora $05 ora $05
;;; ============================================================
LD5E0: .byte 0 LD5E0: .byte 0
LD5E1: jsr LDF73 LD5E1: jsr LDF73
MGTK_RELAY_CALL2 MGTK::SetMenu, menu_definition MGTK_RELAY_CALL2 MGTK::SetMenu, menu_definition
@ -808,8 +600,8 @@ LD687: lda LD363
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL2 MGTK::PaintRect, $D255 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D255
MGTK_RELAY_CALL2 MGTK::MoveTo, $D251 MGTK_RELAY_CALL2 MGTK::MoveTo, point_D251
addr_call draw_text, str_select_destination addr_call draw_text, str_select_destination
jsr LE559 jsr LE559
jsr LE2B1 jsr LE2B1
@ -829,7 +621,7 @@ LD6F9: lda LD363
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL2 MGTK::PaintRect, $D211 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D211
MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo_drive_select MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo_drive_select
MGTK_RELAY_CALL2 MGTK::PaintRect, $D432 MGTK_RELAY_CALL2 MGTK::PaintRect, $D432
LD734: addr_call LEB84, $0000 LD734: addr_call LEB84, $0000
@ -965,7 +757,7 @@ LD852: ldx LD418
jsr LEB84 jsr LEB84
jmp LD61C jmp LD61C
LD87C: MGTK_RELAY_CALL2 MGTK::MoveTo, $D25D LD87C: MGTK_RELAY_CALL2 MGTK::MoveTo, point_D25D
addr_call draw_text, str_formatting addr_call draw_text, str_formatting
jsr L0CAF jsr L0CAF
bcc LD8A9 bcc LD8A9
@ -984,7 +776,7 @@ LD89F: lda #$05
LD8A9: lda winfo_dialog::window_id LD8A9: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL2 MGTK::PaintRect, $D211 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D211
lda LD417 lda LD417
cmp LD418 cmp LD418
bne LD8DF bne LD8DF
@ -1173,7 +965,7 @@ LDA7D: lda #$00
sta LD451 sta LD451
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr LE137 jsr LE137
addr_call LE0B4, $D278 addr_call LE0B4, str_disk_copy_padded
rts rts
LDAB1: MGTK_RELAY_CALL2 MGTK::FindWindow, event_xcoord LDAB1: MGTK_RELAY_CALL2 MGTK::FindWindow, event_xcoord
@ -1208,21 +1000,21 @@ LDAEE: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL2 MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL2 MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL2 MGTK::InRect, $D221 MGTK_RELAY_CALL2 MGTK::InRect, rect_D221
cmp #MGTK::inrect_inside cmp #MGTK::inrect_inside
beq LDB19 beq LDB19
jmp LDB2F jmp LDB2F
LDB19: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR LDB19: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
jsr LDD38 jsr LDD38
rts rts
LDB2F: MGTK_RELAY_CALL2 MGTK::InRect, $D229 LDB2F: MGTK_RELAY_CALL2 MGTK::InRect, rect_D229
cmp #MGTK::inrect_inside cmp #MGTK::inrect_inside
bne LDB52 bne LDB52
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D229 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D229
jsr LDCAC jsr LDCAC
rts rts
@ -1250,8 +1042,8 @@ LDB98: cmp LD363
bit LD368 bit LD368
bpl LDBC0 bpl LDBC0
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
return #$00 return #$00
LDBC0: lda #$FF LDBC0: lda #$FF
@ -1291,8 +1083,8 @@ LDBFC: lda event_key
LDC09: lda winfo_dialog::window_id LDC09: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D229 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D229
MGTK_RELAY_CALL2 MGTK::PaintRect, $D229 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D229
return #$01 return #$01
LDC2D: cmp #CHAR_RETURN LDC2D: cmp #CHAR_RETURN
@ -1300,8 +1092,8 @@ LDC2D: cmp #CHAR_RETURN
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
return #$00 return #$00
LDC55: bit LD44C LDC55: bit LD44C
@ -1350,7 +1142,7 @@ LDCB1: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL2 MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL2 MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL2 MGTK::InRect, $D229 MGTK_RELAY_CALL2 MGTK::InRect, rect_D229
cmp #MGTK::inrect_inside cmp #MGTK::inrect_inside
beq LDCEE beq LDCEE
lda LDD37 lda LDD37
@ -1362,7 +1154,7 @@ LDCEE: lda LDD37
jmp LDCB1 jmp LDCB1
LDCF6: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR LDCF6: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D229 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D229
lda LDD37 lda LDD37
clc clc
adc #$80 adc #$80
@ -1376,7 +1168,7 @@ LDD14: lda LDD37
LDD1C: lda winfo_dialog::window_id LDD1C: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D229 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D229
return #$01 return #$01
LDD37: .byte 0 LDD37: .byte 0
@ -1390,7 +1182,7 @@ LDD3D: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL2 MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL2 MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL2 MGTK::InRect, $D221 MGTK_RELAY_CALL2 MGTK::InRect, rect_D221
cmp #MGTK::inrect_inside cmp #MGTK::inrect_inside
beq LDD7A beq LDD7A
lda LDDC3 lda LDDC3
@ -1402,7 +1194,7 @@ LDD7A: lda LDDC3
jmp LDD3D jmp LDD3D
LDD82: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR LDD82: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
lda LDDC3 lda LDDC3
clc clc
adc #$80 adc #$80
@ -1416,17 +1208,17 @@ LDDA0: lda LDDC3
LDDA8: lda winfo_dialog::window_id LDDA8: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::PaintRect, $D221 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D221
return #$00 return #$00
LDDC3: .byte 0 LDDC3: .byte 0
MGTK_RELAY_CALL2 MGTK::HideCursor MGTK_RELAY_CALL2 MGTK::HideCursor
MGTK_RELAY_CALL2 MGTK::SetCursor, LD5AE MGTK_RELAY_CALL2 MGTK::SetCursor, cursor_D5AE
MGTK_RELAY_CALL2 MGTK::ShowCursor MGTK_RELAY_CALL2 MGTK::ShowCursor
rts rts
LDDE0: MGTK_RELAY_CALL2 MGTK::HideCursor LDDE0: MGTK_RELAY_CALL2 MGTK::HideCursor
MGTK_RELAY_CALL2 MGTK::SetCursor, $D57C MGTK_RELAY_CALL2 MGTK::SetCursor, cursor_D57C
MGTK_RELAY_CALL2 MGTK::ShowCursor MGTK_RELAY_CALL2 MGTK::ShowCursor
rts rts
@ -1481,14 +1273,14 @@ LDE4D: cmp #$A5
lsr a lsr a
clc clc
adc #$30 adc #$30
ldx LD497 ldx slot_char
sta str_dos33_s_d,x sta str_dos33_s_d,x
lda $0C5A lda $0C5A
and #$80 and #$80
asl a asl a
rol a rol a
adc #$31 adc #$31
ldx LD498 ldx drive_char
sta str_dos33_s_d,x sta str_dos33_s_d,x
lda LD375 lda LD375
asl a asl a
@ -1643,8 +1435,8 @@ LDFA0: MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo_dialog
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::FrameRect, $D201 MGTK_RELAY_CALL2 MGTK::FrameRect, rect_D201
MGTK_RELAY_CALL2 MGTK::FrameRect, $D209 MGTK_RELAY_CALL2 MGTK::FrameRect, rect_D209
MGTK_RELAY_CALL2 MGTK::InitPort, grafport MGTK_RELAY_CALL2 MGTK::InitPort, grafport
MGTK_RELAY_CALL2 MGTK::SetPort, grafport MGTK_RELAY_CALL2 MGTK::SetPort, grafport
@ -1653,22 +1445,22 @@ LDFA0: MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo_dialog
LDFDD: lda winfo_dialog::window_id LDFDD: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL2 MGTK::PaintRect, $D211 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D211
MGTK_RELAY_CALL2 MGTK::PaintRect, $D219 MGTK_RELAY_CALL2 MGTK::PaintRect, rect_D219
lda LD451 lda LD451
bne LE00D bne LE00D
addr_call LE0B4, str_quick_copy_padded addr_call LE0B4, str_quick_copy_padded
jmp LE014 jmp LE014
LE00D: addr_call LE0B4, $D278 LE00D: addr_call LE0B4, str_disk_copy_padded
LE014: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR LE014: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::FrameRect, $D221 MGTK_RELAY_CALL2 MGTK::FrameRect, rect_D221
MGTK_RELAY_CALL2 MGTK::FrameRect, $D229 MGTK_RELAY_CALL2 MGTK::FrameRect, rect_D229
jsr LE078 jsr LE078
jsr LE089 jsr LE089
MGTK_RELAY_CALL2 MGTK::MoveTo, $D24D MGTK_RELAY_CALL2 MGTK::MoveTo, point_D24D
addr_call draw_text, str_slot_drive_name addr_call draw_text, str_slot_drive_name
MGTK_RELAY_CALL2 MGTK::MoveTo, $D251 MGTK_RELAY_CALL2 MGTK::MoveTo, point_D251
addr_call draw_text, str_select_source addr_call draw_text, str_select_source
MGTK_RELAY_CALL2 MGTK::MoveTo, $D47F MGTK_RELAY_CALL2 MGTK::MoveTo, $D47F
addr_call draw_text, str_select_quit addr_call draw_text, str_select_quit
@ -1677,11 +1469,11 @@ LE014: MGTK_RELAY_CALL2 MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL2 MGTK::SetPort, grafport MGTK_RELAY_CALL2 MGTK::SetPort, grafport
rts rts
LE078: MGTK_RELAY_CALL2 MGTK::MoveTo, $D231 LE078: MGTK_RELAY_CALL2 MGTK::MoveTo, point_D231
addr_call draw_text, str_ok_label addr_call draw_text, str_ok_label
rts rts
LE089: MGTK_RELAY_CALL2 MGTK::MoveTo, $D245 LE089: MGTK_RELAY_CALL2 MGTK::MoveTo, point_D245
addr_call draw_text, str_read_drive addr_call draw_text, str_read_drive
rts rts
@ -1704,18 +1496,18 @@ LE0B4: stax $06
inc16 $06 inc16 $06
MGTK_RELAY_CALL2 MGTK::TextWidth, $06 MGTK_RELAY_CALL2 MGTK::TextWidth, $06
lsr16 $09 lsr16 $09
lda #$01 lda #>500
sta LE0FD sta LE0FD
lda #$F4 lda #<500
lsr LE0FD lsr LE0FD
ror a ror a
sec sec
sbc $09 sbc $09
sta LD249 sta point_D249
lda LE0FD lda LE0FD
sbc $0A sbc $09+1
sta LD24A sta point_D249+1
MGTK_RELAY_CALL2 MGTK::MoveTo, $D249 MGTK_RELAY_CALL2 MGTK::MoveTo, point_D249
MGTK_RELAY_CALL2 MGTK::DrawText, $06 MGTK_RELAY_CALL2 MGTK::DrawText, $06
rts rts
@ -1951,7 +1743,7 @@ LE2B1: lda winfo_drive_select
tax tax
lda LD407,x lda LD407,x
sta LE318 sta LE318
lda LD408,x lda LD407+1,x
sta LE319 sta LE319
lda LD375 lda LD375
sta LD376 sta LD376
@ -1964,7 +1756,7 @@ LE2D6: lda LE317
lda LD407,x lda LD407,x
cmp LE318 cmp LE318
bne LE303 bne LE303
lda LD408,x lda LD407+1,x
cmp LE319 cmp LE319
bne LE303 bne LE303
lda LE317 lda LE317
@ -2072,7 +1864,7 @@ LE3CC: pla
lda #$18 lda #$18
sta LD407,x sta LD407,x
lda #$01 lda #$01
sta LD408,x sta LD407+1,x
rts rts
LE3DA: ldy #$07 LE3DA: ldy #$07
@ -2101,7 +1893,7 @@ LE402: stx LE448
lda LE448 lda LE448
sta LD407,x sta LD407,x
lda LE449 lda LE449
sta LD408,x sta LD407+1,x
rts rts
LE415: ldy #$FF LE415: ldy #$FF
@ -2127,7 +1919,7 @@ LE415: ldy #$FF
lda LE448 lda LE448
sta LD407,x sta LD407,x
tya tya
sta LD408,x sta LD407+1,x
rts rts
LE445: jmp ($06) LE445: jmp ($06)
@ -2155,7 +1947,7 @@ LE44A: ldy #$FF
lda LE482 lda LE482
sta LD407,x sta LD407,x
lda LE483 lda LE483
sta LD408,x sta LD407+1,x
rts rts
LE477: jmp ($06) LE477: jmp ($06)
@ -2164,7 +1956,7 @@ LE477: jmp ($06)
.byte 0 .byte 0
.byte $03 .byte $03
LE47D: ora ($81,x) LE47D: ora ($81,x)
cpx L0000 cpx $0000
.byte 0 .byte 0
LE482: .byte 0 LE482: .byte 0
LE483: .byte 0 LE483: .byte 0
@ -2183,13 +1975,13 @@ LE483: .byte 0
.byte 0 .byte 0
LE491: lda winfo_dialog::window_id LE491: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D261 MGTK_RELAY_CALL2 MGTK::MoveTo, point_D261
addr_call draw_text, str_writing addr_call draw_text, str_writing
rts rts
LE4A8: lda winfo_dialog::window_id LE4A8: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D265 MGTK_RELAY_CALL2 MGTK::MoveTo, point_D265
addr_call draw_text, str_reading addr_call draw_text, str_reading
rts rts
@ -2198,7 +1990,7 @@ LE4BF: lda winfo_dialog::window_id
lda LD417 lda LD417
asl a asl a
tay tay
lda LD408,y lda LD407+1,y
tax tax
lda LD407,y lda LD407,y
jsr LDEEB jsr LDEEB
@ -2249,7 +2041,7 @@ LE550: .byte $07
.byte $04 .byte $04
.byte $03 .byte $03
.byte $02 .byte $02
ora (L0000,x) ora ($0000,x)
LE558: .byte 0 LE558: .byte 0
LE559: lda winfo_dialog::window_id LE559: lda winfo_dialog::window_id
jsr LE137 jsr LE137
@ -2534,7 +2326,7 @@ LE810: .byte 0
.byte 0 .byte 0
inc $FC1F,x inc $FC1F,x
.byte $FF .byte $FF
sbc L0000,y sbc $0000,y
inc $FC1F,x inc $FC1F,x
.byte $FF .byte $FF
.byte $FC .byte $FC
@ -2542,7 +2334,7 @@ LE810: .byte 0
.byte 0 .byte 0
inc $FC1F,x inc $FC1F,x
.byte $3F .byte $3F
inc a:L0000,x inc a:$0000,x
inc $FC1F,x inc $FC1F,x
.byte $1F .byte $1F
.byte $FF .byte $FF
@ -2602,10 +2394,10 @@ LE810: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
bit L0000 bit $0000
.byte $17 .byte $17
.byte 0 .byte 0
eor (L0000,x) eor ($0000,x)
and LE500 and LE500
ora ($64,x) ora ($64,x)
.byte 0 .byte 0
@ -2614,8 +2406,8 @@ LE810: .byte 0
.byte $02 .byte $02
.byte 0 .byte 0
ldy #$01 ldy #$01
and L0000,x and $0000,x
ora L0000 ora $0000
.byte $03 .byte $03
.byte 0 .byte 0
.byte $9F .byte $9F
@ -2714,11 +2506,11 @@ LEB5B: sbc #$65
.byte $12 .byte $12
.byte $EB .byte $EB
LEB74: cpy #$C0 LEB74: cpy #$C0
sta (L0000,x) sta ($0000,x)
.byte $80 .byte $80
.byte $80 .byte $80
sta ($81,x) sta ($81,x)
sta (L0000,x) sta ($0000,x)
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0