2018-05-04 14:55:29 +00:00
|
|
|
|
NEW
|
|
|
|
|
PREFIX /A2OSX.BUILD
|
|
|
|
|
AUTO 4,1
|
|
|
|
|
*--------------------------------------
|
2018-05-09 14:57:05 +00:00
|
|
|
|
MENU.New >STYA ZPPtr1
|
2018-05-04 14:55:29 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
lda #2 1px Border
|
|
|
|
|
sta DX
|
|
|
|
|
sta DY
|
|
|
|
|
stz DX+1
|
|
|
|
|
stz DY+1
|
|
|
|
|
|
|
|
|
|
lda ZPPtr1
|
|
|
|
|
clc
|
|
|
|
|
adc #S.MENU
|
|
|
|
|
sta ZPPtr2
|
|
|
|
|
|
|
|
|
|
lda ZPPtr1+1
|
|
|
|
|
adc /S.MENU
|
|
|
|
|
sta ZPPtr2+1
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPPtr2)
|
|
|
|
|
*--------------------------------------
|
2018-05-09 14:57:05 +00:00
|
|
|
|
MENU.SysMenu
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MENU.MenuEditor .AZ "File"
|
|
|
|
|
.DA #02 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.CTRL
|
|
|
|
|
.DA #'N'
|
|
|
|
|
.AZ "New"
|
|
|
|
|
.DA #04 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.CTRL
|
|
|
|
|
.DA #'O'
|
|
|
|
|
.AZ "Open..."
|
|
|
|
|
.DA #06 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.CTRL
|
|
|
|
|
.DA #'S'
|
|
|
|
|
.AZ "Save"
|
|
|
|
|
.DA #08 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.OA+S.MITEM.HOTKEY.CTRL
|
|
|
|
|
.DA #'S'
|
|
|
|
|
.AZ "Save As..."
|
|
|
|
|
.DA #10 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.CTRL
|
|
|
|
|
.DA #'Q'
|
|
|
|
|
.AZ "Quit"
|
|
|
|
|
.DA #0
|
|
|
|
|
.AZ "Edit"
|
|
|
|
|
.DA #12 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.OA
|
|
|
|
|
.DA #'X'
|
|
|
|
|
.AZ "Cut"
|
|
|
|
|
.DA #14 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.OA
|
|
|
|
|
.DA #'C'
|
|
|
|
|
.AZ "Copy"
|
|
|
|
|
.DA #16 ID
|
|
|
|
|
.DA #S.MITEM.HOTKEY.OA
|
|
|
|
|
.DA #'V'
|
|
|
|
|
.AZ "Paste"
|
|
|
|
|
.DA #0
|
|
|
|
|
.AZ "Options"
|
|
|
|
|
.DA #18 ID
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA #0
|
|
|
|
|
.AZ "Check Me"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
2018-05-04 14:55:29 +00:00
|
|
|
|
MAN
|
|
|
|
|
SAVE /A2OSX.SRC/LIB/LIBGUI.S.MENU
|
|
|
|
|
LOAD /A2OSX.SRC/LIB/LIBGUI.S
|
|
|
|
|
ASM
|