mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-24 14:31:05 +00:00
9a7d20a7e1
FORMAT: new switches & checks SH:BREAK in FOR and WHILE ASM / S-C MASM: new directives, CString support and .HX LC / UC:bugfix DHGR.DRV:bugfix LIBGUI:wip CC:wip
355 lines
6.8 KiB
Plaintext
355 lines
6.8 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
.OP 65C02
|
||
.OR $2000
|
||
.TF root/asmtest/testgui
|
||
*--------------------------------------
|
||
.INB inc/macros.i
|
||
.INB inc/a2osx.i
|
||
.INB inc/mli.i
|
||
.INB inc/gfx.i
|
||
.INB inc/libgui.i
|
||
*--------------------------------------
|
||
.DUMMY
|
||
.OR ZPBIN
|
||
ZS.START
|
||
hLogo .BS 2 00xx
|
||
hWND .BS 1
|
||
hMBAR .BS 1
|
||
TmpWord .BS 2
|
||
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
|
||
L.MENU.FILE .DA MENU.FILE
|
||
L.MENU.EDIT .DA MENU.EDIT
|
||
L.MENU.OPTIONS .DA MENU.OPTIONS
|
||
L.MENU.HELP .DA MENU.HELP
|
||
L.MENU.SUBMENU .DA MENU.SUBMENU
|
||
|
||
.DA 0
|
||
*--------------------------------------
|
||
CS.INIT >LDYA L.LIBGUI
|
||
>SYSCALL LoadLib
|
||
bcs .9
|
||
|
||
sta hLIBGUI
|
||
|
||
* clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
CS.RUN >PUSHW L.LOGOFILE
|
||
>PUSHBI O.RDONLY
|
||
>PUSHBI S.FI.T.PIX
|
||
>PUSHWZ Aux type
|
||
>SYSCALL LoadStkObj
|
||
bcs .9
|
||
|
||
stx hLogo
|
||
|
||
jsr WND.Test
|
||
bcs .9
|
||
|
||
.1 >SLEEP
|
||
|
||
|
||
bra .1
|
||
|
||
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
|
||
|
||
>PUSHWI 40
|
||
>PUSHWI 40
|
||
>PUSHWI 400
|
||
>PUSHWI 120
|
||
>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
|
||
>PUSHBI S.WND.hPTR
|
||
>PUSHWI PTR.T.WAIT
|
||
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
||
|
||
>PUSHB hWND
|
||
>PUSHBI S.WND.pTITLE
|
||
>PUSHW L.WND.TITLE
|
||
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
|
||
|
||
>LDYA L.MENU.FILE
|
||
>STYA WND.MBAR.1
|
||
>LDYA L.MENU.EDIT
|
||
>STYA WND.MBAR.2
|
||
>LDYA L.MENU.OPTIONS
|
||
>STYA WND.MBAR.3
|
||
>LDYA L.MENU.HELP
|
||
>STYA WND.MBAR.4
|
||
>LDYA L.MENU.SUBMENU
|
||
>STYA MENU.OPTIONS.2
|
||
|
||
>PUSHB hWND
|
||
>PUSHW L.WND.MBAR
|
||
>LIBCALL hLIBGUI,LIBGUI.WND.SetMBar
|
||
|
||
>PUSHB hWND
|
||
>PUSHBI S.WND.pSTATUS
|
||
>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
|
||
|
||
.1 jsr WND.Test.1
|
||
>PUSHW TmpWord
|
||
>PUSHWI 0
|
||
jsr WND.Test.2
|
||
|
||
jsr WND.Test.1
|
||
>PUSHW TmpWord
|
||
>PUSHWI 94
|
||
jsr WND.Test.2
|
||
|
||
jsr WND.Test.3
|
||
|
||
lda TmpWord
|
||
cmp #400
|
||
lda TmpWord+1
|
||
sbc /400
|
||
bcc .1
|
||
|
||
stz TmpWord
|
||
stz TmpWord+1
|
||
|
||
.3
|
||
jsr WND.Test.1
|
||
>PUSHWI 0
|
||
>PUSHW TmpWord
|
||
jsr WND.Test.2
|
||
|
||
jsr WND.Test.1
|
||
>PUSHWI 399
|
||
>PUSHW TmpWord
|
||
jsr WND.Test.2
|
||
|
||
jsr WND.Test.4
|
||
|
||
lda TmpWord
|
||
cmp #94
|
||
lda TmpWord+1
|
||
sbc /94
|
||
bcc .3
|
||
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
WND.Test.1 >PUSHB hWND
|
||
>PUSHBI S.CB.OP.SET +S.CB.OP.COLOR
|
||
>PUSHBI C.BLACK C16.D.GREEN
|
||
rts
|
||
|
||
WND.Test.2 >PUSHWI 240
|
||
>PUSHWI 60
|
||
>LIBCALL hLIBGUI,LIBGUI.DRAW.Line
|
||
rts
|
||
|
||
WND.Test.3 lda TmpWord
|
||
clc
|
||
adc #4
|
||
sta TmpWord
|
||
bcc .1
|
||
|
||
inc TmpWord+1
|
||
|
||
.1 rts
|
||
|
||
WND.Test.4 lda TmpWord
|
||
clc
|
||
adc #4
|
||
sta TmpWord
|
||
bcc .1
|
||
|
||
inc TmpWord+1
|
||
|
||
.1 rts
|
||
*--------------------------------------
|
||
CS.END
|
||
LIBGUI .AZ "libgui"
|
||
hLIBGUI .BS 1
|
||
*--------------------------------------
|
||
LOGOFILE .AZ "${ROOT}A2osX.logo"
|
||
WND.TITLE .AZ "Libgui ASM API test"
|
||
WND.STATUS .AZ "Window status bar message"
|
||
*--------------------------------------
|
||
WND.MBAR .AZ "File"
|
||
WND.MBAR.1 .DA MENU.FILE
|
||
.AZ "Edit"
|
||
WND.MBAR.2 .DA MENU.EDIT
|
||
.AZ "Options"
|
||
WND.MBAR.3 .DA MENU.OPTIONS
|
||
.AZ "?"
|
||
WND.MBAR.4 .DA MENU.HELP
|
||
.DA #0
|
||
*--------------------------------------
|
||
MENU.FILE .DA #S.MITEM.T.ITEM
|
||
.DA #02 ID
|
||
.DA #KEYMOD.CTRL,#'N'
|
||
.DA 0 pICON
|
||
.AZ "New"
|
||
|
||
.DA #S.MITEM.T.ITEM
|
||
.DA #04 ID
|
||
.DA #KEYMOD.CTRL,#'O'
|
||
.DA 0 pICON
|
||
.AZ "Open..."
|
||
|
||
.DA #S.MITEM.T.ITEM
|
||
.DA #06 ID
|
||
.DA #KEYMOD.CTRL,#'S'
|
||
.DA 0 pICON
|
||
.AZ "Save"
|
||
|
||
.DA #S.MITEM.T.ITEM
|
||
.DA #08 ID
|
||
.DA #KEYMOD.OA+KEYMOD.CTRL,#'S'
|
||
.DA 0 pICON
|
||
.AZ "Save As..."
|
||
|
||
.DA #S.MITEM.T.ITEM
|
||
.DA #10 ID
|
||
.DA #KEYMOD.CTRL,#'Q'
|
||
.DA 0 pICON
|
||
.AZ "Quit"
|
||
|
||
.DA #0
|
||
*--------------------------------------
|
||
MENU.EDIT .DA #S.MITEM.T.ITEM
|
||
.DA #12 ID
|
||
.DA #KEYMOD.CTRL,#'X'
|
||
.DA 0 pICON
|
||
.AZ "Cut"
|
||
|
||
.DA #S.MITEM.T.ITEM
|
||
.DA #14 ID
|
||
.DA #KEYMOD.CTRL,#'C'
|
||
.DA 0 pICON
|
||
.AZ "Copy"
|
||
|
||
.DA #S.MITEM.T.ITEM
|
||
.DA #16 ID
|
||
.DA #KEYMOD.CTRL,#'V'
|
||
.DA 0 pICON
|
||
.AZ "Paste"
|
||
|
||
.DA #0
|
||
*--------------------------------------
|
||
MENU.OPTIONS .DA #S.MITEM.T.ITEM
|
||
.DA #18 ID
|
||
.DA #0,#0
|
||
.DA 0 pICON
|
||
.AZ "Check Me"
|
||
|
||
.DA #S.MITEM.T.SEP
|
||
|
||
.DA #S.MITEM.T.SUBMENU
|
||
MENU.OPTIONS.2 .DA MENU.SUBMENU
|
||
.DA 0 pICON
|
||
.AZ "Sub Menu"
|
||
|
||
.DA #0
|
||
*--------------------------------------
|
||
MENU.HELP .DA #S.MITEM.T.ITEM
|
||
.DA #20 ID
|
||
.DA #0,#0
|
||
.DA 0 pICON
|
||
.AZ "About..."
|
||
|
||
.DA #0
|
||
*--------------------------------------
|
||
MENU.SUBMENU .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"
|
||
|
||
.DA #0
|
||
*--------------------------------------
|
||
.DUMMY
|
||
.OR 0
|
||
DS.START
|
||
DS.END .ED
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE root/asmtest/testgui.s
|
||
ASM
|