A2osX/ROOT/asmtest/TESTGUI.S.txt

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