mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-30 00:55:03 +00:00
29 lines
462 B
Plaintext
29 lines
462 B
Plaintext
|
NEW
|
|||
|
|
PREFIX /A2OSX.BUILD
|
|||
|
|
AUTO 4,1
|
|||
|
|
*--------------------------------------
|
|||
|
|
PopupMenu >STYA ZPPtr1
|
|||
|
|
|
|||
|
|
|
|||
|
|
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)
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE /A2OSX.SRC/LIB/LIBGUI.S.MENU
|
|||
|
|
LOAD /A2OSX.SRC/LIB/LIBGUI.S
|
|||
|
|
ASM
|