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

ovl1b: dialog members

Browse Source
This commit is contained in:
Joshua Bell
2018-03-30 21:11:36 -07:00
parent 848a1d9342
commit 5aa3c5fd17
1 changed files with 188 additions and 284 deletions
Download Patch File Download Diff File Expand all files Collapse all files

472
desktop/ovl1b.s
View File

@@ -23,8 +23,6 @@ L1291 := $1291
L129B := $129B L129B := $129B
L12A5 := $12A5 L12A5 := $12A5
L12AF := $12AF L12AF := $12AF
L2020 := $2020
L4520 := $4520
L51ED := $51ED L51ED := $51ED
.macro MGTK_RELAY_CALL2 call, params .macro MGTK_RELAY_CALL2 call, params
@@ -186,43 +184,13 @@ LD134: .byte 0
grafport: .res MGTK::grafport_size, 0 grafport: .res MGTK::grafport_size, 0
LD15B: .byte 0 .proc getwinport_params
lsr a:$D1,x window_id: .byte 0
.byte 0 port: .addr grafport_win
.byte 0 .endproc
.byte 0
.byte 0 grafport_win: .res MGTK::grafport_size, 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
asl $EA asl $EA
.byte 0 .byte 0
.byte 0 .byte 0
@@ -233,105 +201,74 @@ LD15B: .byte 0
php php
.byte 0 .byte 0
php php
LD18D: ora ($01,x)
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
stx L0000,y
.byte $32
.byte 0
.byte $F4
ora ($8C,x)
.byte 0
ora $1400,y
.byte 0
.byte 0
jsr L0080
.byte 0
.byte 0
.byte 0
.byte 0
.byte $F4
ora ($96,x)
.byte 0
.byte $FF
.byte $FF
.byte $FF
.byte $FF
.byte $FF
.byte $FF
.byte $FF
.byte $FF
.byte $FF
.byte 0
.byte 0
.byte 0
.byte 0
.byte 0
ora ($01,x)
.byte 0
.byte $7F
.byte 0
dey
.byte 0
.byte 0
winfo: .byte $02
ora (L0000,x)
.byte 0 .proc winfo_dialog
.byte 0 window_id: .byte 1
.byte $80 options: .byte MGTK::option_dialog_box
.byte 0 title: .addr 0
.byte 0 hscroll: .byte MGTK::scroll_option_none
.byte $03 vscroll: .byte MGTK::scroll_option_none
.byte 0 hthumbmax: .byte 0
.byte 0 hthumbpos: .byte 0
.byte 0 vthumbmax: .byte 0
.byte $64 vthumbpos: .byte 0
.byte 0 status: .byte 0
.byte $32 reserved: .byte 0
.byte 0 mincontwidth: .word 150
stx L0000,y maxcontwidth: .word 50
stx L0000,y mincontlength: .word 500
and $3200 maxcontlength: .word 140
.byte 0 port:
.byte 0 viewloc: DEFINE_POINT 25, 20
jsr L0080 mapbits: .addr MGTK::screen_mapbits
.byte 0 mapwidth: .word MGTK::screen_mapwidth
.byte 0 cliprect: DEFINE_RECT 0, 0, 500, 150
.byte 0 penpattern: .res 8, $FF
.byte 0 colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
stx L0000,y penloc: DEFINE_POINT 0, 0
lsr L0000 penwidth: .byte 1
.byte $FF penheight: .byte 1
.byte $FF penmode: .byte 0
.byte $FF textbg: .byte MGTK::textbg_white
.byte $FF fontptr: .addr DEFAULT_FONT
.byte $FF nextwinfo: .addr 0
.byte $FF .endproc
.byte $FF
.byte $FF .proc winfo_drive_select
.byte $FF window_id: .byte $02
.byte 0 options: .byte MGTK::option_dialog_box
.byte 0 title: .addr 0
.byte 0 hscroll: .byte MGTK::scroll_option_none
.byte 0 vscroll: .byte MGTK::scroll_option_present
.byte 0 hthumbmax: .byte 0
ora ($01,x) hthumbpos: .byte 0
.byte 0 vthumbmax: .byte 3
.byte $7F vthumbpos: .byte 0
.byte 0 status: .byte 0
dey reserved: .byte 0
.byte 0 mincontwidth: .word 100
LD200: .byte 0 maxcontwidth: .word 50
.byte $04 mincontlength: .word 150
maxcontlength: .word 150
port:
viewloc: DEFINE_POINT 45, 50
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, 150, 70
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: DEFINE_POINT 0, 0
penwidth: .byte 1
penheight: .byte 1
penmode: .byte 0
textbg: .byte MGTK::textbg_white
fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0
.endproc
LD201: .byte $04
.byte 0 .byte 0
.byte $02 .byte $02
.byte 0 .byte 0
@@ -388,7 +325,7 @@ LD24A: .byte 0
asl $2601 asl $2601
.byte 0 .byte 0
ldy $01 ldy $01
rol LD200 .byte $2E, 0, $D2
.byte 0 .byte 0
.byte $44 .byte $44
.byte 0 .byte 0
@@ -844,7 +781,7 @@ LD61C: lda #$00
sta LD12C sta LD12C
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
jsr LDFDD jsr LDFDD
MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo_drive_select
lda #$00 lda #$00
sta LD429 sta LD429
lda #$FF lda #$FF
@@ -858,7 +795,7 @@ LD66E: jsr LE28D
LD674: jsr LD986 LD674: jsr LD986
bmi LD674 bmi LD674
beq LD687 beq LD687
MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo_drive_select
jmp LD61C jmp LD61C
LD687: lda LD363 LD687: lda LD363
@@ -868,11 +805,11 @@ LD687: lda LD363
MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params
lda LD363 lda LD363
sta LD417 sta LD417
lda winfo lda winfo_drive_select
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy MGTK_RELAY_CALL2 MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL2 MGTK::PaintRect, $D1E3 MGTK_RELAY_CALL2 MGTK::PaintRect, $D1E3
lda LD18D 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, $D255
@@ -883,7 +820,7 @@ LD687: lda LD363
LD6E6: jsr LD986 LD6E6: jsr LD986
bmi LD6E6 bmi LD6E6
beq LD6F9 beq LD6F9
MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo_drive_select
jmp LD61C jmp LD61C
LD6F9: lda LD363 LD6F9: lda LD363
@@ -893,11 +830,11 @@ LD6F9: lda LD363
sta LD418 sta LD418
lda #$00 lda #$00
sta LD44C sta LD44C
lda LD18D 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, $D211
MGTK_RELAY_CALL2 MGTK::CloseWindow, winfo 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
beq LD740 beq LD740
@@ -917,7 +854,7 @@ LD740: lda #$00
jsr LE559 jsr LE559
jmp LD7AD jmp LD7AD
LD763: lda LD18D LD763: 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, $D42A MGTK_RELAY_CALL2 MGTK::PaintRect, $D42A
@@ -1048,7 +985,7 @@ LD89F: lda #$05
beq LD852 beq LD852
jmp LD61C jmp LD61C
LD8A9: lda LD18D 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, $D211
@@ -1235,7 +1172,7 @@ LDA42: lda #$00
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
lda #$00 lda #$00
sta LD451 sta LD451
lda LD18D lda winfo_dialog::window_id
jsr LE137 jsr LE137
addr_call LE0B4, str_quick_copy_padded addr_call LE0B4, str_quick_copy_padded
rts rts
@@ -1251,7 +1188,7 @@ LDA7D: lda #$00
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
lda #$01 lda #$01
sta LD451 sta LD451
lda LD18D lda winfo_dialog::window_id
jsr LE137 jsr LE137
addr_call LE0B4, $D278 addr_call LE0B4, $D278
rts rts
@@ -1273,17 +1210,17 @@ LDAD0: cmp #$02
LDAD7: return #$FF LDAD7: return #$FF
LDADA: lda LD133 LDADA: lda LD133
cmp LD18D cmp winfo_dialog::window_id
bne LDAE5 bne LDAE5
jmp LDAEE jmp LDAEE
LDAE5: cmp winfo LDAE5: cmp winfo_drive_select
bne LDAED bne LDAED
jmp LDB55 jmp LDB55
LDAED: rts LDAED: rts
LDAEE: lda LD18D LDAEE: lda winfo_dialog::window_id
sta screentowindow_window_id sta screentowindow_window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params
@@ -1308,7 +1245,7 @@ LDB2F: MGTK_RELAY_CALL2 MGTK::InRect, $D229
LDB52: return #$FF LDB52: return #$FF
LDB55: lda winfo LDB55: lda winfo_drive_select
sta screentowindow_window_id sta screentowindow_window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL2 MGTK::ScreenToWindow, screentowindow_params
@@ -1368,7 +1305,7 @@ LDBFC: lda event_key
beq LDC09 beq LDC09
cmp #'d' cmp #'d'
bne LDC2D bne LDC2D
LDC09: lda LD18D 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, $D229
@@ -1377,7 +1314,7 @@ LDC09: lda LD18D
LDC2D: cmp #$0D LDC2D: cmp #$0D
bne LDC55 bne LDC55
lda LD18D 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, $D221
@@ -1390,7 +1327,7 @@ LDC55: bit LD44C
LDC5D: cmp #$0A LDC5D: cmp #$0A
bne LDC85 bne LDC85
lda winfo lda winfo_drive_select
jsr LE137 jsr LE137
lda LD363 lda LD363
bmi LDC6F bmi LDC6F
@@ -1406,7 +1343,7 @@ LDC7F: jsr LE14D
LDC85: cmp #$0B LDC85: cmp #$0B
bne LDCA9 bne LDCA9
lda winfo lda winfo_drive_select
jsr LE137 jsr LE137
lda LD363 lda LD363
bmi LDC9C bmi LDC9C
@@ -1426,7 +1363,7 @@ LDCB1: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq LDD14 beq LDD14
lda LD18D lda winfo_dialog::window_id
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
@@ -1453,7 +1390,7 @@ LDD14: lda LDD37
beq LDD1C beq LDD1C
return #$FF return #$FF
LDD1C: lda LD18D 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, $D229
@@ -1466,7 +1403,7 @@ LDD3D: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq LDDA0 beq LDDA0
lda LD18D lda winfo_dialog::window_id
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
@@ -1493,7 +1430,7 @@ LDDA0: lda LDDC3
beq LDDA8 beq LDDA8
return #$FF return #$FF
LDDA8: lda LD18D 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, $D221
@@ -1719,8 +1656,8 @@ LDF90: dec $BF31
sta $BF32,x sta $BF32,x
rts rts
LDFA0: MGTK_RELAY_CALL2 MGTK::OpenWindow, $D18D LDFA0: MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo_dialog
lda LD18D 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, $D201
@@ -1730,7 +1667,7 @@ LDFA0: MGTK_RELAY_CALL2 MGTK::OpenWindow, $D18D
MGTK_RELAY_CALL2 MGTK::SetPort, grafport MGTK_RELAY_CALL2 MGTK::SetPort, grafport
rts rts
LDFDD: lda LD18D 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, $D211
@@ -1832,9 +1769,9 @@ LE132: dey
jmp LE10A jmp LE10A
.byte 0 .byte 0
LE137: sta LD15B LE137: sta getwinport_params::window_id
MGTK_RELAY_CALL2 MGTK::GetWinPort, $D15B MGTK_RELAY_CALL2 MGTK::GetWinPort, getwinport_params
MGTK_RELAY_CALL2 MGTK::SetPort, $D15E MGTK_RELAY_CALL2 MGTK::SetPort, grafport_win
rts rts
LE14D: asl a LE14D: asl a
@@ -1995,7 +1932,7 @@ LE285: jsr LE265
rts rts
LE28C: .byte 0 LE28C: .byte 0
LE28D: lda winfo LE28D: lda winfo_drive_select
jsr LE137 jsr LE137
lda #$00 lda #$00
sta LE2B0 sta LE2B0
@@ -2010,7 +1947,7 @@ LE298: lda LE2B0
rts rts
LE2B0: .byte 0 LE2B0: .byte 0
LE2B1: lda winfo LE2B1: lda winfo_drive_select
jsr LE137 jsr LE137
lda LD363 lda LD363
asl a asl a
@@ -2247,19 +2184,19 @@ LE483: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
LE491: lda LD18D LE491: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D261 MGTK_RELAY_CALL2 MGTK::MoveTo, $D261
addr_call LE09A, str_writing addr_call LE09A, str_writing
rts rts
LE4A8: lda LD18D LE4A8: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D265 MGTK_RELAY_CALL2 MGTK::MoveTo, $D265
addr_call LE09A, str_reading addr_call LE09A, str_reading
rts rts
LE4BF: lda LD18D LE4BF: lda winfo_dialog::window_id
jsr LE137 jsr LE137
lda LD417 lda LD417
asl a asl a
@@ -2288,7 +2225,7 @@ LE507: jsr LE522
addr_call LE09A, str_7_spaces addr_call LE09A, str_7_spaces
rts rts
LE522: lda LD18D LE522: lda winfo_dialog::window_id
jsr LE137 jsr LE137
lda LD422 lda LD422
sta LE558 sta LE558
@@ -2317,7 +2254,7 @@ LE550: .byte $07
.byte $02 .byte $02
ora (L0000,x) ora (L0000,x)
LE558: .byte 0 LE558: .byte 0
LE559: lda LD18D LE559: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D46B MGTK_RELAY_CALL2 MGTK::MoveTo, $D46B
addr_call LE09A, str_source addr_call LE09A, str_source
@@ -2362,7 +2299,7 @@ LE5D0: lda $1300,x
addr_call LE09A, LD43A addr_call LE09A, LD43A
rts rts
LE5E1: lda LD18D LE5E1: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D473 MGTK_RELAY_CALL2 MGTK::MoveTo, $D473
addr_call LE09A, str_destination addr_call LE09A, str_destination
@@ -2391,7 +2328,7 @@ LE5E1: lda LD18D
addr_call LE09A, str_d addr_call LE09A, str_d
rts rts
LE63F: lda LD18D LE63F: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D47B MGTK_RELAY_CALL2 MGTK::MoveTo, $D47B
bit LD44D bit LD44D
@@ -2412,19 +2349,19 @@ LE673: rts
LE674: lda LD44D LE674: lda LD44D
cmp #$C0 cmp #$C0
beq LE693 beq LE693
lda LD18D 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, $D483 MGTK_RELAY_CALL2 MGTK::PaintRect, $D483
LE693: rts LE693: rts
LE694: lda LD18D LE694: lda winfo_dialog::window_id
jsr LE137 jsr LE137
MGTK_RELAY_CALL2 MGTK::MoveTo, $D48B MGTK_RELAY_CALL2 MGTK::MoveTo, $D48B
addr_call LE09A, str_escape_stop_copy addr_call LE09A, str_escape_stop_copy
rts rts
lda LD18D lda winfo_dialog::window_id
jsr LE137 jsr LE137
copy16 #$800A, LE6FB copy16 #$800A, LE6FB
LE6BB: dec LE6FB LE6BB: dec LE6FB
@@ -2459,7 +2396,7 @@ LE714: jsr L10FB
return #$80 return #$80
LE71A: jsr L127E LE71A: jsr L127E
lda LD18D lda winfo_dialog::window_id
jsr LE137 jsr LE137
lda $0C5D lda $0C5D
ldx $0C5E ldx $0C5E
@@ -2713,69 +2650,36 @@ LE8B9: .byte $2D
.byte $02 .byte $02
.byte $BF .byte $BF
.byte 0 .byte 0
.byte $0F
.byte $4F str_ok_btn:
.byte $4B PASCAL_STRING {"OK ",GLYPH_RETURN}
jsr L2020
jsr L2020 str_cancel_btn:
jsr L2020 PASCAL_STRING "Cancel Esc"
jsr L2020
ora $430E str_try_again_btn:
adc ($6E,x) PASCAL_STRING "Try Again A"
.byte $63
adc $6C str_yes_btn:
jsr L2020 PASCAL_STRING "Yes"
jsr L4520
.byte $73 str_no_btn:
.byte $63 PASCAL_STRING "No"
.byte $0F
.byte $54 LE90D: DEFINE_RECT 250, 37, 300, 48
.byte $72 LE915: DEFINE_POINT 255, 47
adc $4120,y
.byte $67 LE919: DEFINE_RECT 350, 37, 400, 48
adc ($69,x) LE921: DEFINE_POINT 355, 47
ror L2020
jsr L2020 LE925: DEFINE_RECT 300, 37, 400, 48
eor ($03,x) LE92D: DEFINE_POINT 305, 47
eor $7365,y
.byte $02 LE931: DEFINE_RECT 20, 37, 120, 48
lsr $FA6F LE939: DEFINE_POINT 25, 47
.byte 0
and L0000 LE93D: DEFINE_POINT 100, 24
bit $3001
.byte 0
.byte $FF
.byte 0
.byte $2F
.byte 0
lsr $2501,x
.byte 0
bcc LE920
.byte $30
LE920: .byte 0
.byte $63
ora ($2F,x)
.byte 0
bit $2501
.byte 0
bcc LE92C
.byte $30
LE92C: .byte 0
and ($01),y
.byte $2F
.byte 0
.byte $14
.byte 0
and L0000
sei
.byte 0
bmi LE939
LE939: ora $2F00,y
.byte 0
.byte $64
.byte 0
clc
.byte 0
LE941: .byte 0 LE941: .byte 0
LE942: .byte 0 LE942: .byte 0
LE943: .byte 0 LE943: .byte 0
@@ -2917,31 +2821,31 @@ LEC6C: tya
LEC8C: jsr LF0DF LEC8C: jsr LF0DF
bit LE941 bit LE941
bpl LED0A bpl LED0A
MGTK_RELAY_CALL2 MGTK::FrameRect, $E931 MGTK_RELAY_CALL2 MGTK::FrameRect, LE931
MGTK_RELAY_CALL2 MGTK::MoveTo, $E939 MGTK_RELAY_CALL2 MGTK::MoveTo, LE939
addr_call LE09A, $E8E7 addr_call LE09A, str_cancel_btn
bit LE941 bit LE941
bvs LED0A bvs LED0A
lda LE941 lda LE941
and #$0F and #$0F
beq LECEE beq LECEE
MGTK_RELAY_CALL2 MGTK::FrameRect, $E90D MGTK_RELAY_CALL2 MGTK::FrameRect, LE90D
MGTK_RELAY_CALL2 MGTK::MoveTo, $E915 MGTK_RELAY_CALL2 MGTK::MoveTo, LE915
addr_call LE09A, $E906 addr_call LE09A, str_yes_btn
MGTK_RELAY_CALL2 MGTK::FrameRect, $E919 MGTK_RELAY_CALL2 MGTK::FrameRect, LE919
MGTK_RELAY_CALL2 MGTK::MoveTo, $E921 MGTK_RELAY_CALL2 MGTK::MoveTo, LE921
addr_call LE09A, $E90A addr_call LE09A, str_no_btn
jmp LED23 jmp LED23
LECEE: MGTK_RELAY_CALL2 MGTK::FrameRect, $E925 LECEE: MGTK_RELAY_CALL2 MGTK::FrameRect, LE925
MGTK_RELAY_CALL2 MGTK::MoveTo, $E92D MGTK_RELAY_CALL2 MGTK::MoveTo, LE92D
addr_call LE09A, $E8F6 addr_call LE09A, str_try_again_btn
jmp LED23 jmp LED23
LED0A: MGTK_RELAY_CALL2 MGTK::FrameRect, $E925 LED0A: MGTK_RELAY_CALL2 MGTK::FrameRect, LE925
MGTK_RELAY_CALL2 MGTK::MoveTo, $E92D MGTK_RELAY_CALL2 MGTK::MoveTo, LE92D
addr_call LE09A, $E8D7 addr_call LE09A, str_ok_btn
LED23: MGTK_RELAY_CALL2 MGTK::MoveTo, $E93D LED23: MGTK_RELAY_CALL2 MGTK::MoveTo, LE93D
lda LE942 lda LE942
ldx LE943 ldx LE943
.byte $20 .byte $20
@@ -2972,7 +2876,7 @@ LED58: cmp #MGTK::event_kind_key_down
LED69: cmp #CHAR_ESCAPE LED69: cmp #CHAR_ESCAPE
bne LED7E bne LED7E
jsr LF0DF jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E931 MGTK_RELAY_CALL2 MGTK::PaintRect, LE931
LED79: lda #$01 LED79: lda #$01
jmp LEE6A jmp LEE6A
@@ -2994,12 +2898,12 @@ LED7E: bit LE941
jmp LED35 jmp LED35
LED9F: jsr LF0DF LED9F: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E919 MGTK_RELAY_CALL2 MGTK::PaintRect, LE919
lda #$03 lda #$03
jmp LEE6A jmp LEE6A
LEDB0: jsr LF0DF LEDB0: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E90D MGTK_RELAY_CALL2 MGTK::PaintRect, LE90D
lda #$02 lda #$02
jmp LEE6A jmp LEE6A
@@ -3007,7 +2911,7 @@ LEDC1: pla
cmp #$61 cmp #$61
bne LEDD7 bne LEDD7
LEDC6: jsr LF0DF LEDC6: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E925 MGTK_RELAY_CALL2 MGTK::PaintRect, LE925
lda #$00 lda #$00
jmp LEE6A jmp LEE6A
@@ -3020,7 +2924,7 @@ LEDD7: cmp #$41
LEDE2: cmp #$0D LEDE2: cmp #$0D
bne LEDF7 bne LEDF7
jsr LF0DF jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E925 MGTK_RELAY_CALL2 MGTK::PaintRect, LE925
LEDF2: lda #$00 LEDF2: lda #$00
jmp LEE6A jmp LEE6A
@@ -3030,7 +2934,7 @@ LEDFA: jsr LF0B8
MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords
bit LE941 bit LE941
bpl LEE57 bpl LEE57
MGTK_RELAY_CALL2 MGTK::InRect, $E931 MGTK_RELAY_CALL2 MGTK::InRect, LE931
cmp #$80 cmp #$80
bne LEE1B bne LEE1B
jmp LEEF8 jmp LEEF8
@@ -3040,22 +2944,22 @@ LEE1B: bit LE941
lda LE941 lda LE941
and #$0F and #$0F
beq LEE47 beq LEE47
MGTK_RELAY_CALL2 MGTK::InRect, $E919 MGTK_RELAY_CALL2 MGTK::InRect, LE919
cmp #$80 cmp #$80
bne LEE37 bne LEE37
jmp LEFD8 jmp LEFD8
LEE37: MGTK_RELAY_CALL2 MGTK::InRect, $E90D LEE37: MGTK_RELAY_CALL2 MGTK::InRect, LE90D
cmp #$80 cmp #$80
bne LEE67 bne LEE67
jmp LF048 jmp LF048
LEE47: MGTK_RELAY_CALL2 MGTK::InRect, $E925 LEE47: MGTK_RELAY_CALL2 MGTK::InRect, LE925
cmp #$80 cmp #$80
bne LEE67 bne LEE67
jmp LEE88 jmp LEE88
LEE57: MGTK_RELAY_CALL2 MGTK::InRect, $E925 LEE57: MGTK_RELAY_CALL2 MGTK::InRect, LE925
cmp #$80 cmp #$80
bne LEE67 bne LEE67
jmp LEF68 jmp LEF68
@@ -3070,7 +2974,7 @@ LEE6A: pha
rts rts
LEE88: jsr LF0DF LEE88: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E925 MGTK_RELAY_CALL2 MGTK::PaintRect, LE925
lda #$00 lda #$00
sta LEEF7 sta LEEF7
LEE99: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params LEE99: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
@@ -3079,7 +2983,7 @@ LEE99: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
beq LEEEA beq LEEEA
jsr LF0B8 jsr LF0B8
MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords
MGTK_RELAY_CALL2 MGTK::InRect, $E925 MGTK_RELAY_CALL2 MGTK::InRect, LE925
cmp #$80 cmp #$80
beq LEECA beq LEECA
lda LEEF7 lda LEEF7
@@ -3091,7 +2995,7 @@ LEECA: lda LEEF7
jmp LEE99 jmp LEE99
LEED2: jsr LF0DF LEED2: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E925 MGTK_RELAY_CALL2 MGTK::PaintRect, LE925
lda LEEF7 lda LEEF7
clc clc
adc #$80 adc #$80
@@ -3107,7 +3011,7 @@ LEEF2: lda #$00
LEEF7: .byte 0 LEEF7: .byte 0
LEEF8: jsr LF0DF LEEF8: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E931 MGTK_RELAY_CALL2 MGTK::PaintRect, LE931
lda #$00 lda #$00
sta LEF67 sta LEF67
LEF09: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params LEF09: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
@@ -3116,7 +3020,7 @@ LEF09: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
beq LEF5A beq LEF5A
jsr LF0B8 jsr LF0B8
MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords
MGTK_RELAY_CALL2 MGTK::InRect, $E931 MGTK_RELAY_CALL2 MGTK::InRect, LE931
cmp #$80 cmp #$80
beq LEF3A beq LEF3A
lda LEF67 lda LEF67
@@ -3128,7 +3032,7 @@ LEF3A: lda LEF67
jmp LEF09 jmp LEF09
LEF42: jsr LF0DF LEF42: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E931 MGTK_RELAY_CALL2 MGTK::PaintRect, LE931
lda LEF67 lda LEF67
clc clc
adc #$80 adc #$80
@@ -3146,14 +3050,14 @@ LEF67: .byte 0
LEF68: lda #$00 LEF68: lda #$00
sta LEFD7 sta LEFD7
jsr LF0DF jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E925 MGTK_RELAY_CALL2 MGTK::PaintRect, LE925
LEF79: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params LEF79: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq LEFCA beq LEFCA
jsr LF0B8 jsr LF0B8
MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords
MGTK_RELAY_CALL2 MGTK::InRect, $E925 MGTK_RELAY_CALL2 MGTK::InRect, LE925
cmp #$80 cmp #$80
beq LEFAA beq LEFAA
lda LEFD7 lda LEFD7
@@ -3165,7 +3069,7 @@ LEFAA: lda LEFD7
jmp LEF79 jmp LEF79
LEFB2: jsr LF0DF LEFB2: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E925 MGTK_RELAY_CALL2 MGTK::PaintRect, LE925
lda LEFD7 lda LEFD7
clc clc
adc #$80 adc #$80
@@ -3183,14 +3087,14 @@ LEFD7: .byte 0
LEFD8: lda #$00 LEFD8: lda #$00
sta LF047 sta LF047
jsr LF0DF jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E919 MGTK_RELAY_CALL2 MGTK::PaintRect, LE919
LEFE9: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params LEFE9: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq LF03A beq LF03A
jsr LF0B8 jsr LF0B8
MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords
MGTK_RELAY_CALL2 MGTK::InRect, $E919 MGTK_RELAY_CALL2 MGTK::InRect, LE919
cmp #$80 cmp #$80
beq LF01A beq LF01A
lda LF047 lda LF047
@@ -3202,7 +3106,7 @@ LF01A: lda LF047
LF01F: jmp LEFE9 LF01F: jmp LEFE9
LF022: jsr LF0DF LF022: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E919 MGTK_RELAY_CALL2 MGTK::PaintRect, LE919
lda LF047 lda LF047
clc clc
adc #$80 adc #$80
@@ -3220,14 +3124,14 @@ LF047: .byte 0
LF048: lda #$00 LF048: lda #$00
sta LF0B7 sta LF0B7
jsr LF0DF jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E90D MGTK_RELAY_CALL2 MGTK::PaintRect, LE90D
LF059: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params LF059: MGTK_RELAY_CALL2 MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq LF0AA beq LF0AA
jsr LF0B8 jsr LF0B8
MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords MGTK_RELAY_CALL2 MGTK::MoveTo, event_coords
MGTK_RELAY_CALL2 MGTK::InRect, $E90D MGTK_RELAY_CALL2 MGTK::InRect, LE90D
cmp #$80 cmp #$80
beq LF08A beq LF08A
lda LF0B7 lda LF0B7
@@ -3239,7 +3143,7 @@ LF08A: lda LF0B7
jmp LF059 jmp LF059
LF092: jsr LF0DF LF092: jsr LF0DF
MGTK_RELAY_CALL2 MGTK::PaintRect, $E90D MGTK_RELAY_CALL2 MGTK::PaintRect, LE90D
lda LF0B7 lda LF0B7
clc clc
adc #$80 adc #$80