2020-10-27 07:09:20 +00:00
|
|
|
|
NEW
|
|
|
|
|
AUTO 3,1
|
2022-10-18 05:56:59 +00:00
|
|
|
|
.LIST OFF
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2022-10-25 06:05:54 +00:00
|
|
|
|
.TF root/asmtest/testgui
|
2020-10-27 07:09:20 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB inc/macros.i
|
|
|
|
|
.INB inc/a2osx.i
|
2022-10-07 19:21:37 +00:00
|
|
|
|
.INB inc/mli.i
|
2022-10-18 05:56:59 +00:00
|
|
|
|
.INB inc/libgui.i
|
2020-10-27 07:09:20 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR ZPBIN
|
|
|
|
|
ZS.START
|
|
|
|
|
hLogo .BS 2 00xx
|
|
|
|
|
hWND .BS 1
|
2022-10-18 05:56:59 +00:00
|
|
|
|
hMBAR .BS 1
|
2020-10-27 07:09:20 +00:00
|
|
|
|
ZS.END .ED
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
.DA #S.PS.F.EVENT S.PS.F
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA CS.END-CS.START Code Size (without Constants)
|
|
|
|
|
.DA DS.END-DS.START Data Segment Size
|
|
|
|
|
.DA #64 Stack Size
|
|
|
|
|
.DA #ZS.END-ZS.START Zero Page Size
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
|
|
|
|
.DA CS.DOEVENT
|
|
|
|
|
.DA CS.QUIT
|
|
|
|
|
L.LIBGUI .DA LIBGUI
|
|
|
|
|
L.LOGOFILE .DA LOGOFILE
|
|
|
|
|
L.WND.TITLE .DA WND.TITLE
|
|
|
|
|
L.WND.MBAR .DA WND.MBAR
|
|
|
|
|
L.WND.STATUS .DA WND.STATUS
|
|
|
|
|
L.WND.Test.fPaint .DA WND.Test.fPaint
|
|
|
|
|
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.INIT >LDYA L.LIBGUI
|
|
|
|
|
>SYSCALL LoadLib
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
sta hLIBGUI
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2022-10-07 19:21:37 +00:00
|
|
|
|
CS.RUN >PUSHW L.LOGOFILE
|
|
|
|
|
>PUSHBI O.RDONLY
|
|
|
|
|
>PUSHBI S.FI.T.PIX
|
|
|
|
|
>PUSHWZ Aux type
|
2020-10-27 07:09:20 +00:00
|
|
|
|
>SYSCALL LoadStkObj
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
stx hLogo
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
jsr WND.Test
|
|
|
|
|
bcs .9
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.1 >SLEEP
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
bra .1
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.DOEVENT lda (pEvent)
|
|
|
|
|
bpl .9
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.9 sec never discard TIME event
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.QUIT clc
|
|
|
|
|
CS.QUIT.RTS rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
WND.Test >PUSHBI S.WND.F.RESIZE+S.WND.F.MOVE+S.WND.F.CLOSE+S.WND.F.MAX+S.WND.F.MIN
|
|
|
|
|
|
2022-10-18 05:56:59 +00:00
|
|
|
|
>PUSHWI 80
|
2022-10-25 06:05:54 +00:00
|
|
|
|
>PUSHWI 40
|
2020-10-27 07:09:20 +00:00
|
|
|
|
>PUSHWI 360
|
|
|
|
|
>PUSHWI 96
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.WND.New
|
|
|
|
|
bcs CS.QUIT.RTS
|
|
|
|
|
sta hWND
|
|
|
|
|
|
|
|
|
|
>PUSHA A = hWND
|
|
|
|
|
>PUSHBI S.WND.BGCOLOR
|
|
|
|
|
>PUSHWI C.WHITE
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
|
|
|
|
|
|
|
|
|
>PUSHB hWND
|
|
|
|
|
>PUSHBI S.WND.BGBM
|
|
|
|
|
>PUSHW hLogo
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
|
|
|
|
|
|
|
|
|
>PUSHB hWND
|
2022-10-18 05:56:59 +00:00
|
|
|
|
>PUSHBI S.WND.pTITLE
|
2020-10-27 07:09:20 +00:00
|
|
|
|
>PUSHW L.WND.TITLE
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
|
|
|
|
|
|
|
|
|
>PUSHB hWND
|
|
|
|
|
>PUSHW L.WND.MBAR
|
2022-10-18 05:56:59 +00:00
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.WND.SetMBar
|
|
|
|
|
|
|
|
|
|
>PUSHB hWND
|
|
|
|
|
>PUSHBI S.WND.pSTATUS
|
2020-10-27 07:09:20 +00:00
|
|
|
|
>PUSHW L.WND.STATUS
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
|
|
|
|
|
|
|
|
|
>PUSHB hWND
|
|
|
|
|
>PUSHBI S.WND.fPaint
|
|
|
|
|
>PUSHW L.WND.Test.fPaint
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
|
|
|
|
>STYA WND.Test.fPaint1+1
|
|
|
|
|
|
|
|
|
|
lda hWND
|
|
|
|
|
>LIBCALL hLIBGUI,LIBGUI.WND.Show
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
WND.Test.fPaint sta hWND
|
|
|
|
|
|
|
|
|
|
WND.Test.fPaint1
|
|
|
|
|
jsr $ffff Default WND.fPaint
|
|
|
|
|
|
|
|
|
|
* >PUSHB hWND
|
|
|
|
|
* >PUSHBI S.CB.OP.SET
|
|
|
|
|
* >PUSHBI C.BLACK
|
|
|
|
|
* >PUSHWI 10
|
|
|
|
|
* >PUSHWI 10
|
|
|
|
|
* >PUSHWI 200
|
|
|
|
|
* >PUSHWI 60
|
|
|
|
|
* >LIBCALL hLIBGUI,LIBGUI.DrawLine
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.END
|
|
|
|
|
LIBGUI .AZ "libgui"
|
|
|
|
|
hLIBGUI .BS 1
|
|
|
|
|
*--------------------------------------
|
2022-10-07 19:21:37 +00:00
|
|
|
|
LOGOFILE .AZ "${ROOT}A2osX.logo"
|
2022-10-25 06:05:54 +00:00
|
|
|
|
WND.TITLE .AZ "Libgui ASM API test"
|
2020-10-27 07:09:20 +00:00
|
|
|
|
WND.STATUS .AZ "Window status bar message"
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
WND.MBAR .AZ "File"
|
|
|
|
|
.DA WND.MENU.FILE
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Edit"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
.DA WND.MENU.EDIT
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Options"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
.DA WND.MENU.OPTIONS
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "?"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
.DA WND.MENU.HELP
|
|
|
|
|
.DA #0
|
2020-10-27 07:09:20 +00:00
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
WND.MENU.FILE .DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #02 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'N'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "New"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #04 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'O'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Open..."
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #06 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'S'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Save"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #08 ID
|
|
|
|
|
.DA #KEYMOD.OA+KEYMOD.CTRL,#'S'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Save As..."
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #10 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'Q'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Quit"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
WND.MENU.EDIT .DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #12 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'X'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Cut"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #14 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'C'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Copy"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #16 ID
|
|
|
|
|
.DA #KEYMOD.CTRL,#'V'
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Paste"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
WND.MENU.OPTIONS
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #18 ID
|
|
|
|
|
.DA #0,#0
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "Check Me"
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.SEP
|
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.SUBMENU
|
|
|
|
|
.DA WND.MENU.SUB
|
|
|
|
|
.DA 0 pICON
|
|
|
|
|
.AZ "Sub Menu"
|
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
WND.MENU.HELP .DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #20 ID
|
|
|
|
|
.DA #0,#0
|
|
|
|
|
.DA 0 pICON
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.AZ "About..."
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
WND.MENU.SUB .DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #18 ID
|
|
|
|
|
.DA #0,#0
|
|
|
|
|
.DA 0 pICON
|
|
|
|
|
.AZ "Sub 1"
|
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #18 ID
|
|
|
|
|
.DA #0,#0
|
|
|
|
|
.DA 0 pICON
|
|
|
|
|
.AZ "Sub 2"
|
|
|
|
|
|
|
|
|
|
.DA #S.MITEM.T.ITEM
|
|
|
|
|
.DA #18 ID
|
|
|
|
|
.DA #0,#0
|
|
|
|
|
.DA 0 pICON
|
|
|
|
|
.AZ "Sub 3"
|
|
|
|
|
|
2020-10-27 07:09:20 +00:00
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR 0
|
2022-10-18 05:56:59 +00:00
|
|
|
|
DS.START
|
2020-10-27 07:09:20 +00:00
|
|
|
|
DS.END .ED
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2022-10-25 06:05:54 +00:00
|
|
|
|
SAVE root/asmtest/testgui.s
|
2020-10-27 07:09:20 +00:00
|
|
|
|
ASM
|