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

label tidying, a few todos

Browse Source
This commit is contained in:
Joshua Bell 2017-09-03 00:31:23 -07:00
parent 471719dace
commit 467a1783c6
3 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
desk.acc/show.text.file/stf.list
View File

@ -484,7 +484,7 @@ Current file: stf.s
00094E 1 00 00 00 00
000952 1
000952 1 white_pattern:
000952 1 FF FF FF FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
000952 1 FF FF FF FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
000956 1 FF FF FF FF
00095A 1
00095A 1 window_id := $64
@ -533,7 +533,7 @@ Current file: stf.s
00097C 1 00 .byte 0 ; ???
00097D 1 .endproc
00097D 1
00097D 1 .proc close_btn ; queried after close clicked to see if aborted/finished
00097D 1 .proc close_btn_params ; queried after close clicked to see if aborted/finished
00097D 1 00 state: .byte 0 ; 0 = aborted, 1 = clicked
00097E 1 00 00 .byte 0,0 ; ???
000980 1 .endproc
@ -844,9 +844,9 @@ Current file: stf.s
000B21 1 ;;; Close Button
000B21 1
000B21 1 .proc on_close_click
000B21 1 20 00 40 43 A2D_CALL A2D_BTN_CLICK, close_btn ; wait to see if the click completes
000B21 1 20 00 40 43 A2D_CALL A2D_BTN_CLICK, close_btn_params ; wait to see if the click completes
000B25 1 7D 09
000B27 1 AD 7D 09 lda close_btn::state ; did click complete?
000B27 1 AD 7D 09 lda close_btn_params::state ; did click complete?
000B2A 1 F0 A5 beq input_loop ; nope
000B2C 1 20 AF 08 jsr close_file
000B2F 1 20 00 40 39 A2D_CALL A2D_DESTROY_WINDOW, window_params

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

13
desk.acc/show.text.file/stf.s
View File

@ -5,6 +5,11 @@
.include "../../inc/auxmem.inc"
.include "a2d.inc"
;; Big questions:
;; * How is initial window position specified?
;; * How can we hide/show the cursor on demand?
;; * Can we trigger menu redraw?
start: jmp copy2aux
save_stack:.byte 0
@ -213,7 +218,7 @@ black_pattern:
.byte $00,$00,$00,$00,$00,$00,$00,$00
white_pattern:
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
window_id := $64
@ -261,7 +266,7 @@ ycoord: .word 0
.byte 0 ; ???
.endproc
.proc close_btn ; queried after close clicked to see if aborted/finished
.proc close_btn_params ; queried after close clicked to see if aborted/finished
state: .byte 0 ; 0 = aborted, 1 = clicked
.byte 0,0 ; ???
.endproc
@ -563,8 +568,8 @@ title: jsr on_title_bar_click
;;; Close Button
.proc on_close_click
A2D_CALL A2D_BTN_CLICK, close_btn ; wait to see if the click completes
lda close_btn::state ; did click complete?
A2D_CALL A2D_BTN_CLICK, close_btn_params ; wait to see if the click completes
lda close_btn_params::state ; did click complete?
beq input_loop ; nope
jsr close_file
A2D_CALL A2D_DESTROY_WINDOW, window_params