A2osX/LIB/LIBGUI.S.MENU.txt
2020-09-15 16:48:35 +02:00

44 lines
749 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
* Y,A = ptr to menu definition
*--------------------------------------
MENU.New >STYA ZPPtr1
lda #2 1px Border
sta DX
sta DY
stz DX+1
stz DY+1
clc
rts
*--------------------------------------
MENU.Paint
MENU.Close
*--------------------------------------
MENU.MenubarInit
>STYA ZPPtr1
clc
rts
*--------------------------------------
MENUBAR.New
MENUBAR.Paint
MENUBAR.Close
*--------------------------------------
MENUITEM.New
MENUITEM.Paint
MENUITEM.Close
clc
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.menu
LOAD usr/src/lib/libgui.s
ASM