mirror of
https://github.com/mi57730/a2d.git
synced 2024-06-18 01:29:31 +00:00
1020 lines
25 KiB
ArmAsm
1020 lines
25 KiB
ArmAsm
.setcpu "6502"
|
|
|
|
.include "apple2.inc"
|
|
.include "../inc/apple2.inc"
|
|
.include "../mgtk.inc"
|
|
.include "../desktop.inc"
|
|
.include "../macros.inc"
|
|
|
|
;;; ============================================================
|
|
|
|
.org $800
|
|
|
|
;; Desktop Resources
|
|
pointer_cursor := $D2AD
|
|
insertion_point_cursor := $D2DF
|
|
|
|
entry:
|
|
|
|
;;; Copy the DA to AUX for easy bank switching
|
|
.scope
|
|
lda ROMIN2
|
|
copy16 #$0800, STARTLO
|
|
copy16 #da_end, ENDLO
|
|
copy16 #$0800, DESTINATIONLO
|
|
sec ; main>aux
|
|
jsr AUXMOVE
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
.endscope
|
|
|
|
.scope
|
|
;; run the DA
|
|
sta RAMRDON
|
|
sta RAMWRTON
|
|
jsr init
|
|
|
|
;; tear down/exit
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
|
|
;; back to main for exit
|
|
sta RAMRDOFF
|
|
sta RAMWRTOFF
|
|
rts
|
|
.endscope
|
|
|
|
;;; ============================================================
|
|
;;; Used in both Main and Aux
|
|
|
|
max_rows := 40 ; c/o memory limit
|
|
|
|
entry_buf:
|
|
.res 65
|
|
|
|
num_entries:
|
|
.byte 40
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
da_window_id := 63
|
|
da_width := 460
|
|
da_height := 151
|
|
da_left := (screen_width - da_width)/2
|
|
da_top := (screen_height - da_height)/2
|
|
|
|
results_window_id := da_window_id+1
|
|
results_width := da_width - 60
|
|
results_width_sb := results_width + 20
|
|
results_height := da_height - 40
|
|
results_left := da_left + (da_width - results_width_sb) / 2
|
|
results_top := da_top + 30
|
|
|
|
results_rows := 11 ; line height is 10
|
|
|
|
str_title:
|
|
PASCAL_STRING "Find Files"
|
|
|
|
.proc winfo
|
|
window_id: .byte da_window_id
|
|
options: .byte MGTK::Option::dialog_box
|
|
title: .addr str_title
|
|
hscroll: .byte MGTK::Scroll::option_none
|
|
vscroll: .byte MGTK::Scroll::option_none
|
|
hthumbmax: .byte 0
|
|
hthumbpos: .byte 0
|
|
vthumbmax: .byte 0
|
|
vthumbpos: .byte 0
|
|
status: .byte 0
|
|
reserved: .byte 0
|
|
mincontwidth: .word da_width
|
|
mincontlength: .word da_height
|
|
maxcontwidth: .word da_width
|
|
maxcontlength: .word da_height
|
|
port:
|
|
viewloc: DEFINE_POINT da_left, da_top
|
|
mapbits: .addr MGTK::screen_mapbits
|
|
mapwidth: .word MGTK::screen_mapwidth
|
|
maprect: DEFINE_RECT 0, 0, da_width, da_height, maprect
|
|
pattern: .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
|
|
textback: .byte $7F
|
|
textfont: .addr DEFAULT_FONT
|
|
nextwinfo: .addr 0
|
|
.endproc
|
|
|
|
.proc winfo_results
|
|
window_id: .byte results_window_id
|
|
options: .byte MGTK::Option::dialog_box
|
|
title: .addr 0
|
|
hscroll: .byte MGTK::Scroll::option_none
|
|
vscroll: .byte MGTK::Scroll::option_normal
|
|
hthumbmax: .byte 0
|
|
hthumbpos: .byte 0
|
|
vthumbmax: .byte max_rows - results_rows
|
|
vthumbpos: .byte 0
|
|
status: .byte 0
|
|
reserved: .byte 0
|
|
mincontwidth: .word results_width
|
|
mincontlength: .word results_height
|
|
maxcontwidth: .word results_width
|
|
maxcontlength: .word results_height
|
|
port:
|
|
viewloc: DEFINE_POINT results_left, results_top
|
|
mapbits: .addr MGTK::screen_mapbits
|
|
mapwidth: .word MGTK::screen_mapwidth
|
|
cliprect: DEFINE_RECT 0, 0, results_width, results_height, cliprect
|
|
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
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
.proc event_params
|
|
kind: .byte 0
|
|
;;; EventKind::key_down
|
|
key := *
|
|
modifiers := * + 1
|
|
;;; EventKind::update
|
|
window_id := *
|
|
;;; otherwise
|
|
xcoord := *
|
|
ycoord := * + 2
|
|
.res 4
|
|
.endproc
|
|
|
|
.proc findwindow_params
|
|
mousex: .word 0
|
|
mousey: .word 0
|
|
which_area: .byte 0
|
|
window_id: .byte 0
|
|
.endproc
|
|
|
|
.proc findcontrol_params
|
|
mousex: .word 0
|
|
mousey: .word 0
|
|
which_ctl: .byte 0
|
|
which_part: .byte 0
|
|
.endproc
|
|
|
|
.proc trackthumb_params
|
|
which_ctl: .byte MGTK::Ctl::vertical_scroll_bar
|
|
mousex: .word 0
|
|
mousey: .word 0
|
|
thumbpos: .byte 0
|
|
thumbmoved: .byte 0
|
|
.endproc
|
|
|
|
.proc updatethumb_params
|
|
which_ctl: .byte MGTK::Ctl::vertical_scroll_bar
|
|
thumbpos: .byte 0
|
|
.endproc
|
|
|
|
.proc winport_params
|
|
window_id: .byte 0
|
|
port: .addr grafport
|
|
.endproc
|
|
|
|
.proc screentowindow_params
|
|
window_id: .byte da_window_id
|
|
screen: DEFINE_POINT 0, 0, screen
|
|
window: DEFINE_POINT 0, 0, window
|
|
.endproc
|
|
mx := screentowindow_params::window::xcoord
|
|
my := screentowindow_params::window::ycoord
|
|
|
|
.proc grafport
|
|
viewloc: DEFINE_POINT 0, 0
|
|
mapbits: .word 0
|
|
mapwidth: .word 0
|
|
cliprect: DEFINE_RECT 0, 0, 0, 0
|
|
pattern: .res 8, 0
|
|
colormasks: .byte 0, 0
|
|
penloc: DEFINE_POINT 0, 0
|
|
penwidth: .byte 0
|
|
penheight: .byte 0
|
|
penmode: .byte 0
|
|
textback: .byte 0
|
|
textfont: .addr 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
frame_rect1: DEFINE_RECT 4, 2, da_width-4, da_height-2
|
|
frame_rect2: DEFINE_RECT 5, 3, da_width-5, da_height-3
|
|
|
|
find_label_textpos: DEFINE_POINT 20, 20
|
|
find_label: PASCAL_STRING "Find:"
|
|
input_rect: DEFINE_RECT 55, 10, da_width-250, 21
|
|
input_textpos: DEFINE_POINT 60, 20
|
|
|
|
;; figure out coords here
|
|
.proc input_mapinfo
|
|
DEFINE_POINT 75, 35
|
|
.addr MGTK::screen_mapbits
|
|
.byte MGTK::screen_mapwidth
|
|
.byte 0
|
|
DEFINE_RECT 0, 0, 358, 100
|
|
.endproc
|
|
|
|
|
|
|
|
search_button_rect: DEFINE_RECT da_width-235, 10, da_width-135, 21
|
|
search_button_textpos: DEFINE_POINT da_width-235+5, 20
|
|
search_button_label: PASCAL_STRING {"Search ",GLYPH_RETURN}
|
|
|
|
cancel_button_rect: DEFINE_RECT da_width-120, 10, da_width-20, 21
|
|
cancel_button_textpos: DEFINE_POINT da_width-120+5, 20
|
|
cancel_button_label: PASCAL_STRING "Cancel Esc"
|
|
|
|
penxor: .byte MGTK::penXOR
|
|
|
|
cursor_ip_flag: .byte 0
|
|
|
|
buf_left: .res 17, 0 ; input text before IP
|
|
buf_right: .res 17, 0 ; input text at/after IP
|
|
buf_search: .res 17, 0 ; search term
|
|
|
|
suffix: PASCAL_STRING " "
|
|
|
|
ip_blink_counter: .byte 0
|
|
ip_blink_flag: .byte 0
|
|
|
|
top_row: .byte 0
|
|
|
|
;;; ============================================================
|
|
|
|
.proc init
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
|
|
;; Prep input string
|
|
lda #0
|
|
sta buf_left
|
|
|
|
lda #1
|
|
sta buf_right
|
|
lda #GLYPH_INSPT
|
|
sta buf_right+1
|
|
|
|
lda #0
|
|
sta ip_blink_flag
|
|
lda machine_speed
|
|
sta ip_blink_counter
|
|
|
|
MGTK_CALL MGTK::OpenWindow, winfo
|
|
MGTK_CALL MGTK::OpenWindow, winfo_results
|
|
MGTK_CALL MGTK::HideCursor
|
|
jsr draw_window
|
|
jsr draw_input_text
|
|
jsr draw_results
|
|
MGTK_CALL MGTK::ShowCursor
|
|
MGTK_CALL MGTK::FlushEvents
|
|
;; fall through
|
|
.endproc
|
|
|
|
.proc input_loop
|
|
jsr blink_ip
|
|
MGTK_CALL MGTK::GetEvent, event_params
|
|
bne exit
|
|
lda event_params::kind
|
|
cmp #MGTK::EventKind::button_down
|
|
bne :+
|
|
jmp handle_down
|
|
: cmp #MGTK::EventKind::key_down
|
|
bne :+
|
|
jmp handle_key
|
|
: cmp #MGTK::EventKind::no_event
|
|
bne :+
|
|
jmp handle_no_event
|
|
: jmp input_loop
|
|
.endproc
|
|
|
|
.proc exit
|
|
MGTK_CALL MGTK::SetCursor, pointer_cursor
|
|
|
|
MGTK_CALL MGTK::CloseWindow, winfo_results
|
|
MGTK_CALL MGTK::CloseWindow, winfo
|
|
DESKTOP_CALL DT_REDRAW_ICONS
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc blink_ip
|
|
dec ip_blink_counter
|
|
bne done
|
|
lda machine_speed
|
|
sta ip_blink_counter
|
|
|
|
bit ip_blink_flag
|
|
bmi clear
|
|
|
|
set: lda #$FF
|
|
sta ip_blink_flag
|
|
lda #GLYPH_SPC
|
|
sta buf_right+1
|
|
jsr draw_input_text
|
|
rts
|
|
|
|
|
|
clear: lda #0
|
|
sta ip_blink_flag
|
|
lda #GLYPH_INSPT
|
|
sta buf_right+1
|
|
jsr draw_input_text
|
|
|
|
done: rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc handle_key
|
|
lda event_params::modifiers
|
|
beq not_meta
|
|
|
|
;; Button down
|
|
lda event_params::key
|
|
cmp #CHAR_LEFT
|
|
bne :+
|
|
jmp do_meta_left
|
|
: cmp #CHAR_RIGHT
|
|
bne :+
|
|
jmp do_meta_right
|
|
: jmp ignore_char
|
|
|
|
not_meta:
|
|
lda event_params::key
|
|
cmp #CHAR_ESCAPE
|
|
bne :+
|
|
addr_call flash_button, cancel_button_rect
|
|
jmp exit
|
|
|
|
: cmp #CHAR_RETURN
|
|
bne :+
|
|
addr_call flash_button, search_button_rect
|
|
jmp input_loop ; TODO: Implement
|
|
|
|
|
|
: cmp #CHAR_LEFT
|
|
bne :+
|
|
jmp do_left
|
|
: cmp #CHAR_RIGHT
|
|
bne :+
|
|
jmp do_right
|
|
: cmp #CHAR_DELETE
|
|
bne :+
|
|
jmp do_delete
|
|
|
|
;; Valid characters are . 0-9 A-Z a-z
|
|
: cmp #'.'
|
|
beq do_char
|
|
cmp #'0'
|
|
bcc ignore_char
|
|
cmp #'9'+1
|
|
bcc do_char
|
|
cmp #'A'
|
|
bcc ignore_char
|
|
cmp #'Z'+1
|
|
bcc do_char
|
|
cmp #'a'
|
|
bcc ignore_char
|
|
cmp #'z'+1
|
|
bcc do_char
|
|
;; fall through
|
|
.endproc
|
|
|
|
ignore_char:
|
|
;; jsr beep ; ?
|
|
jmp input_loop
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
.proc do_char
|
|
;; check length
|
|
tax
|
|
clc
|
|
lda buf_left
|
|
adc buf_right
|
|
cmp #17 ; max length is 15, plus ip
|
|
bcs ignore_char
|
|
|
|
;; append char
|
|
txa
|
|
ldx buf_left
|
|
inx
|
|
sta buf_left,x
|
|
stx buf_left
|
|
jsr draw_input_text
|
|
jmp input_loop
|
|
.endproc
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
.proc do_meta_left
|
|
lda buf_left ; length of string to left of IP
|
|
beq done
|
|
|
|
;; shift right string up N (apart from IP)
|
|
clc
|
|
adc buf_right
|
|
tay
|
|
ldx buf_right
|
|
: cpx #1
|
|
beq move
|
|
lda buf_right,x
|
|
sta buf_right,y
|
|
dex
|
|
dey
|
|
bne :- ; always
|
|
|
|
;; move chars from left string to just after IP in right string
|
|
move: ldx buf_left
|
|
: lda buf_left,x
|
|
sta buf_right+1,x
|
|
dex
|
|
bpl :-
|
|
|
|
;; adjust lengths
|
|
lda buf_left
|
|
clc
|
|
adc buf_right
|
|
sta buf_right
|
|
|
|
lda #0
|
|
sta buf_left
|
|
|
|
jsr draw_input_text
|
|
|
|
done: jmp input_loop
|
|
|
|
.endproc
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
.proc do_left
|
|
lda buf_left ; length of string to left of IP
|
|
beq done
|
|
|
|
;; shift right string up one (apart from IP)
|
|
ldx buf_right
|
|
ldy buf_right
|
|
iny
|
|
: cpx #1
|
|
beq :+
|
|
lda buf_right,x
|
|
sta buf_right,y
|
|
dex
|
|
dey
|
|
bne :- ; always
|
|
|
|
;; move char from end of left string to just after IP in right string
|
|
: ldx buf_left
|
|
lda buf_left,x
|
|
sta buf_right+2
|
|
|
|
;; adjust lengths
|
|
dec buf_left
|
|
inc buf_right
|
|
|
|
jsr draw_input_text
|
|
|
|
done: jmp input_loop
|
|
.endproc
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
.proc do_meta_right
|
|
lda buf_right ; length of string from IP rightwards
|
|
cmp #2 ; must be at least one char (plus IP)
|
|
bcc done
|
|
|
|
;; append right string to left
|
|
ldx #2
|
|
ldy buf_left
|
|
iny
|
|
: lda buf_right,x
|
|
sta buf_left,y
|
|
cpx buf_right
|
|
beq :+
|
|
inx
|
|
iny
|
|
bne :- ; always
|
|
|
|
;; adjust lengths
|
|
: lda buf_left
|
|
clc
|
|
adc buf_right
|
|
sec
|
|
sbc #1
|
|
sta buf_left
|
|
|
|
lda #1
|
|
sta buf_right
|
|
|
|
jsr draw_input_text
|
|
|
|
done: jmp input_loop
|
|
.endproc
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
.proc do_right
|
|
lda buf_right ; length of string from IP rightwards
|
|
cmp #2 ; must be at least one char (plus IP)
|
|
bcc done
|
|
|
|
;; copy char from start of right to end of left
|
|
lda buf_right+2
|
|
ldx buf_left
|
|
inx
|
|
sta buf_left,x
|
|
|
|
;; shift right string down one (apart from IP)
|
|
ldx #3
|
|
ldy #2
|
|
: lda buf_right,x
|
|
sta buf_right,y
|
|
inx
|
|
iny
|
|
cpy buf_right
|
|
bcc :-
|
|
|
|
;; adjust lengths
|
|
inc buf_left
|
|
dec buf_right
|
|
|
|
jsr draw_input_text
|
|
|
|
done: jmp input_loop
|
|
.endproc
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
|
|
.proc do_delete
|
|
lda buf_left ; length of string to left of IP
|
|
beq done
|
|
|
|
dec buf_left
|
|
jsr draw_input_text
|
|
|
|
done: jmp input_loop
|
|
.endproc
|
|
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
.proc do_search
|
|
;; Concatenate left/right strings
|
|
ldx buf_left
|
|
beq right
|
|
|
|
;; Copy left
|
|
: lda buf_left,x
|
|
sta buf_search,x
|
|
dex
|
|
bpl :-
|
|
ldx buf_left
|
|
|
|
;; Append right
|
|
right:
|
|
ldy #1
|
|
: cpy buf_right
|
|
beq done_concat
|
|
iny
|
|
inx
|
|
lda buf_right,y
|
|
sta buf_search,x
|
|
bne :- ; always
|
|
|
|
done_concat:
|
|
stx buf_search
|
|
|
|
;; TODO!!!!!
|
|
jmp input_loop
|
|
.endproc
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
.proc handle_down
|
|
copy16 event_params::xcoord, findwindow_params::mousex
|
|
copy16 event_params::ycoord, findwindow_params::mousey
|
|
MGTK_CALL MGTK::FindWindow, findwindow_params
|
|
lda findwindow_params::which_area
|
|
cmp #MGTK::Area::content
|
|
bne done
|
|
lda findwindow_params::window_id
|
|
cmp #results_window_id
|
|
beq results
|
|
cmp #da_window_id
|
|
bne done
|
|
|
|
;; Click in DA content area
|
|
addr_call button_press, search_button_rect
|
|
beq :+
|
|
bmi done
|
|
jmp do_search
|
|
|
|
: addr_call button_press, cancel_button_rect
|
|
beq :+
|
|
bmi done
|
|
jmp exit
|
|
|
|
:
|
|
done: jmp input_loop
|
|
|
|
;; Click in Results content area
|
|
results:
|
|
copy16 event_params::xcoord, findcontrol_params::mousex
|
|
copy16 event_params::ycoord, findcontrol_params::mousey
|
|
MGTK_CALL MGTK::FindControl, findcontrol_params
|
|
lda findcontrol_params::which_ctl
|
|
cmp #MGTK::Ctl::vertical_scroll_bar
|
|
bne done
|
|
|
|
jmp handle_scroll
|
|
.endproc
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Results scroll
|
|
|
|
.proc handle_scroll
|
|
page_size := results_rows
|
|
|
|
lda num_entries ; TODO: off-by-one probably
|
|
sec
|
|
sbc #page_size
|
|
sta max_top
|
|
|
|
lda findcontrol_params::which_part
|
|
|
|
;; scroll up by one line
|
|
cmp #MGTK::Part::up_arrow
|
|
bne try_down
|
|
lda top_row
|
|
cmp #0
|
|
bne :+
|
|
jmp done
|
|
: dec top_row
|
|
bpl update
|
|
|
|
;; scroll down by one line
|
|
try_down:
|
|
cmp #MGTK::Part::down_arrow
|
|
bne try_pgup
|
|
lda top_row
|
|
cmp max_top
|
|
bcc :+
|
|
jmp done
|
|
: inc top_row
|
|
bpl update
|
|
|
|
;; scroll up by one page
|
|
try_pgup:
|
|
cmp #MGTK::Part::page_up
|
|
bne try_pgdn
|
|
lda top_row
|
|
cmp #page_size
|
|
bcs :+
|
|
lda #0
|
|
beq store
|
|
: sec
|
|
sbc #page_size
|
|
jmp store
|
|
|
|
;; scroll down by one page
|
|
try_pgdn:
|
|
cmp #MGTK::Part::page_down
|
|
bne try_thumb
|
|
lda top_row
|
|
clc
|
|
adc #page_size
|
|
cmp max_top
|
|
bcc store
|
|
lda max_top
|
|
jmp store
|
|
|
|
try_thumb:
|
|
cmp #MGTK::Part::thumb
|
|
beq :+
|
|
jmp done
|
|
: copy16 event_params::xcoord, trackthumb_params::mousex
|
|
copy16 event_params::ycoord, trackthumb_params::mousey
|
|
MGTK_CALL MGTK::TrackThumb, trackthumb_params
|
|
lda trackthumb_params::thumbmoved
|
|
beq done
|
|
lda trackthumb_params::thumbpos
|
|
|
|
store: sta top_row
|
|
|
|
update: lda top_row
|
|
sta updatethumb_params::thumbpos
|
|
MGTK_CALL MGTK::UpdateThumb, updatethumb_params
|
|
|
|
;; Compute height of line (font height + 1)
|
|
copy16 #1, line_height
|
|
add16_8 line_height, DEFAULT_FONT+MGTK::Font::height, line_height
|
|
|
|
;; Update top of cliprect: 1 + top_row * line_height
|
|
copy16 #0, winfo_results::cliprect::y1
|
|
ldx top_row
|
|
beq draw
|
|
: add16 line_height, winfo_results::cliprect::y1, winfo_results::cliprect::y1
|
|
dex
|
|
bne :-
|
|
|
|
;; Update bottom of cliprect
|
|
draw: add16 winfo_results::cliprect::y1, #results_height, winfo_results::cliprect::y2
|
|
jsr draw_results
|
|
|
|
done: jmp input_loop
|
|
|
|
max_top: .byte 0
|
|
|
|
line_height: .word 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Call with rect addr in A,X
|
|
;;; Returns: 0 (beq) if outside, $FF (bmi) if canceled, 1 if clicked
|
|
|
|
.proc button_press
|
|
outside := 0
|
|
canceled := $FF
|
|
clicked := 1
|
|
|
|
stax inrect_addr
|
|
stax fillrect_addr
|
|
jsr test_rect
|
|
beq :+
|
|
return #outside
|
|
|
|
: jsr invert_rect
|
|
|
|
lda #0
|
|
sta down_flag
|
|
|
|
loop: MGTK_CALL MGTK::GetEvent, event_params
|
|
lda event_params::kind
|
|
cmp #MGTK::EventKind::button_up
|
|
beq exit
|
|
|
|
jsr test_rect
|
|
beq inside
|
|
|
|
lda down_flag ; outside but was inside?
|
|
beq invert
|
|
jmp loop
|
|
|
|
inside: lda down_flag ; already depressed?
|
|
bne invert
|
|
jmp loop
|
|
|
|
invert: jsr invert_rect
|
|
lda down_flag
|
|
clc
|
|
adc #$80
|
|
sta down_flag
|
|
jmp loop
|
|
|
|
exit: lda down_flag ; was depressed?
|
|
beq :+
|
|
return #canceled
|
|
: jsr invert_rect ; invert one last time
|
|
return #clicked
|
|
|
|
down_flag:
|
|
.byte 0
|
|
|
|
test_rect:
|
|
copy16 event_params::xcoord, screentowindow_params::screen::xcoord
|
|
copy16 event_params::ycoord, screentowindow_params::screen::ycoord
|
|
MGTK_CALL MGTK::ScreenToWindow, screentowindow_params
|
|
MGTK_CALL MGTK::MoveTo, screentowindow_params::window
|
|
MGTK_CALL MGTK::InRect, 0, inrect_addr
|
|
cmp #MGTK::inrect_inside
|
|
rts
|
|
|
|
invert_rect:
|
|
lda #da_window_id
|
|
sta winport_params::window_id
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
MGTK_CALL MGTK::SetPort, grafport
|
|
MGTK_CALL MGTK::SetPenMode, penxor
|
|
MGTK_CALL MGTK::PaintRect, 0, fillrect_addr
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Call with rect addr in A,X
|
|
|
|
.proc flash_button
|
|
stax fillrect_addr
|
|
|
|
lda #da_window_id
|
|
sta winport_params::window_id
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
MGTK_CALL MGTK::SetPort, grafport
|
|
MGTK_CALL MGTK::SetPenMode, penxor
|
|
jsr sub
|
|
;; fall through...
|
|
|
|
sub: MGTK_CALL MGTK::PaintRect, 0, fillrect_addr
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc handle_no_event
|
|
copy16 event_params::xcoord, screentowindow_params::screen::xcoord
|
|
copy16 event_params::ycoord, screentowindow_params::screen::ycoord
|
|
MGTK_CALL MGTK::ScreenToWindow, screentowindow_params
|
|
|
|
MGTK_CALL MGTK::MoveTo, screentowindow_params::window
|
|
MGTK_CALL MGTK::InRect, input_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq inside
|
|
|
|
outside:
|
|
bit cursor_ip_flag
|
|
bpl done
|
|
lda #0
|
|
sta cursor_ip_flag
|
|
MGTK_CALL MGTK::SetCursor, pointer_cursor
|
|
jmp done
|
|
|
|
inside:
|
|
bit cursor_ip_flag
|
|
bmi done
|
|
lda #$FF
|
|
sta cursor_ip_flag
|
|
MGTK_CALL MGTK::SetCursor, insertion_point_cursor
|
|
|
|
done: jmp input_loop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc draw_window
|
|
lda #da_window_id
|
|
sta winport_params::window_id
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
;; No need to check results, since window is always visible.
|
|
MGTK_CALL MGTK::SetPort, grafport
|
|
MGTK_CALL MGTK::HideCursor
|
|
|
|
MGTK_CALL MGTK::SetPenMode, penxor
|
|
MGTK_CALL MGTK::FrameRect, frame_rect1
|
|
MGTK_CALL MGTK::FrameRect, frame_rect2
|
|
|
|
MGTK_CALL MGTK::MoveTo, find_label_textpos
|
|
addr_call draw_string, find_label
|
|
MGTK_CALL MGTK::FrameRect, input_rect
|
|
|
|
MGTK_CALL MGTK::FrameRect, search_button_rect
|
|
MGTK_CALL MGTK::MoveTo, search_button_textpos
|
|
addr_call draw_string, search_button_label
|
|
|
|
MGTK_CALL MGTK::FrameRect, cancel_button_rect
|
|
MGTK_CALL MGTK::MoveTo, cancel_button_textpos
|
|
addr_call draw_string, cancel_button_label
|
|
|
|
MGTK_CALL MGTK::ShowCursor
|
|
done: rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc draw_input_text
|
|
lda #da_window_id
|
|
sta winport_params::window_id
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
MGTK_CALL MGTK::SetPort, grafport
|
|
MGTK_CALL MGTK::MoveTo, input_textpos
|
|
MGTK_CALL MGTK::HideCursor
|
|
addr_call draw_string, buf_left
|
|
addr_call draw_string, buf_right
|
|
addr_call draw_string, suffix
|
|
MGTK_CALL MGTK::ShowCursor
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc draw_results
|
|
lda DEFAULT_FONT+MGTK::Font::height
|
|
sta line_height
|
|
inc line_height
|
|
|
|
lda #results_window_id
|
|
sta winport_params::window_id
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
;; No need to check results, since window is always visible.
|
|
MGTK_CALL MGTK::SetPort, grafport
|
|
MGTK_CALL MGTK::HideCursor
|
|
|
|
;; TODO: Optimize erasing
|
|
MGTK_CALL MGTK::PaintRect, winfo_results::cliprect
|
|
|
|
lda #0
|
|
sta line
|
|
copy16 #0, pos_ycoord
|
|
loop: add16_8 pos_ycoord, line_height, pos_ycoord
|
|
MGTK_CALL MGTK::MoveTo, pos
|
|
|
|
lda line
|
|
jsr get_entry
|
|
|
|
addr_call draw_string, entry_buf
|
|
inc line
|
|
lda line
|
|
cmp num_entries
|
|
bcc loop
|
|
|
|
MGTK_CALL MGTK::ShowCursor
|
|
done: rts
|
|
|
|
line_height:
|
|
.byte 0
|
|
|
|
line: .byte 0
|
|
pos: DEFINE_POINT 5, 0, pos
|
|
pos_ycoord := pos::ycoord
|
|
|
|
.endproc
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Helper to draw a PASCAL_STRING; call with addr in A,X
|
|
|
|
.proc draw_string
|
|
PARAM_BLOCK params, $06
|
|
addr: .res 2
|
|
length: .res 1
|
|
END_PARAM_BLOCK
|
|
|
|
stax params::addr
|
|
ldy #0
|
|
lda (params::addr),y
|
|
beq done
|
|
sta params::length
|
|
inc16 params::addr
|
|
MGTK_CALL MGTK::DrawText, params
|
|
done: rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Populate entry_buf with entry in A
|
|
|
|
.proc get_entry
|
|
|
|
;; Demo purposes: sample plus suffix
|
|
pha
|
|
|
|
;; sample
|
|
ldy sample
|
|
: lda sample,y
|
|
sta entry_buf,y
|
|
dey
|
|
bpl :-
|
|
|
|
;; suffix
|
|
pla
|
|
ldy entry_buf
|
|
iny
|
|
clc
|
|
adc #'A'
|
|
sta entry_buf,y
|
|
sty entry_buf
|
|
|
|
rts
|
|
|
|
sample: PASCAL_STRING "/Hd/Games/Dig.Dug/"
|
|
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
da_end = *
|
|
.assert * < $1B00, error, "DA too big"
|
|
;; I/O Buffer starts at MAIN $1C00
|
|
;; ... but icon tables start at AUX $1B00
|