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

use new mgtk methods

Browse Source
This commit is contained in:
Joshua Bell 2019-02-24 11:33:15 -08:00
parent 14850e9bb3
commit bb2726b624
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
desk.acc/control.panel.s
View File

@ -11,8 +11,6 @@
.org $800
desktop_pattern := $65AA
entry:
;;; Copy the DA to AUX for easy bank switching
@ -1036,19 +1034,19 @@ current_counter:
;;; ============================================================
.proc init_pattern
ldy #7
: copy desktop_pattern,y, pattern,y
ptr = $06
MGTK_CALL MGTK::GetDeskPat, ptr
ldy #.sizeof(MGTK::Pattern)-1
: lda (ptr),y
sta pattern,y
dey
bpl :-
rts
.endproc
.proc handle_pattern_click
;; TODO: Replace this horrible hack
ldy #7
: copy pattern,y, desktop_pattern,y
dey
bpl :-
MGTK_CALL MGTK::SetDeskPat, pattern
MGTK_CALL MGTK::OpenWindow, winfo_fullscreen
MGTK_CALL MGTK::CloseWindow, winfo_fullscreen