A2osX/SBIN/GUI.S.txt

NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
				.LIST OFF
				.OP	65C02
				.OR	$2000
				.TF /A2OSX.BUILD/SBIN/GUI/GUI
*--------------------------------------
				.INB /A2OSX.BUILD/INC/IO.I
				.INB /A2OSX.BUILD/INC/MACROS.I
				.INB /A2OSX.BUILD/INC/A2OSX.I
				.INB /A2OSX.BUILD/INC/GUI.I
				.INB /A2OSX.BUILD/INC/LIBGUI.I
*--------------------------------------
ZPPtr1			.EQ ZPBIN
*--------------------------------------
*			File Header (16 Bytes)
*--------------------------------------
CS.START		cld
				jmp (.1,x)
				.DA #$61				6502,Level 1 (65c02)
				.DA #1					BIN Layout Version 1
				.DA 0
				.DA CS.END-CS.START		CS
				.DA DS.END-DS.START		DS
				.DA #16					SS
				.DA #2					ZP
				.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1				.DA CS.INIT
				.DA CS.RUN
				.DA CS.DOEVENT
				.DA	CS.QUIT
L.MSG.INIT		.DA MSG.INIT
L.LIBGUI		.DA LIBGUI
L.SYSFONT		.DA SYSFONT
L.Filename		.DA Filename
L.MouseData		.DA MouseData
L.CB.Paint		.DA CB.Paint
L.BM.Apple		.DA BM.Apple
L.TXT.Sample	.DA TXT.Sample
L.CB.Marylin	.DA CB.Marylin
L.CB.DrawLine	.DA CB.DrawLine
L.GC.Clip		.DA GC.Clip
				.DA 0
*--------------------------------------
CS.INIT			>LDYA L.MSG.INIT
				>SYSCALL PrintF.YA
				
				>LDYA L.LIBGUI
				>SYSCALL LoadLib.YA
				bcs .99
				sta hLIBGUI

				>LIBCALL hLIBGUI,LIBGUI.InitGUI
				bcs .99
				
				>PUSHWI 0				Aux type
				>PUSHBI $CC				Type
				>PUSHBI	SYS.FOpen.R	
				>PUSHW L.SYSFONT
				>SYSCALL LoadStkObj
				bcs .99
				sta hSYSFONT
				sta CB.DrawText+S.CB.hFont

				>PUSHWI 0				Aux type
				>PUSHBI $CB				Type
				>PUSHBI	SYS.FOpen.R	
				>PUSHW L.FILENAME
				>SYSCALL LoadStkObj
.99				bcs .9
				
				sta CB.Marylin+S.CB.SrcPtr
				
				>LDYA L.TXT.Sample
				>STYA CB.DrawText+S.CB.TxtPtr

				>LDYA L.BM.Apple
				>STYA CB.Apple+S.CB.SrcPtr

				jsr Destop.Paint
				
				lda #CUR.T.ARROW
				>STA.G CUR.T			
				>LIBCALL hLIBGUI,LIBGUI.SetCursor.A
				
				>LIBCALL hLIBGUI,LIBGUI.ShowCursor
				
				lda (pPs)
				ora #S.PS.F.EVENT		Now accept events
				sta (pPs)

				clc	
.9				rts
*--------------------------------------
CS.RUN			lda A2osX.ASCREEN		GUI screen active ?
				cmp #3
				bne .8					no, exit....
				
				>PUSHW L.MouseData
				>LIBCALL hLIBGUI,LIBGUI.ReadMouse
				bcs .4
				
				lda MouseData+S.MOUSE.S
				bit #S.MOUSE.S.MOVE
				beq .1

				>PUSHW L.MouseData
				>LIBCALL hLIBGUI,LIBGUI.SetCursorPos
				
				lda MouseData+S.MOUSE.S
				
.1				bit #S.MOUSE.S.CLK
				beq .4
				
				>LDA.G CUR.T
				inc
				inc
				cmp #CUR.T.WAIT+2
				bne .2

				lda #CUR.T.ARROW
				
.2				>STA.G CUR.T			
				>LIBCALL hLIBGUI,LIBGUI.SetCursor.A

				lda MouseData+S.MOUSE.X1
				sta CB.Marylin+S.CB.DstX
				lda MouseData+S.MOUSE.X1+1
				sta CB.Marylin+S.CB.DstX+1
				
				lda MouseData+S.MOUSE.Y1
				sta CB.Marylin+S.CB.DstY
				lda MouseData+S.MOUSE.Y1+1
				sta CB.Marylin+S.CB.DstY+1

				jsr Destop.Paint
				
.4
		
.8				clc
				rts	
*--------------------------------------
CS.DOEVENT		lda (pEvent)
				bpl .9
				asl
				bpl .9
				
				>LIBCALL hLIBGUI,LIBGUI.UpdateCursor
				
.9				sec
				rts
*--------------------------------------
CS.QUIT			clc
				rts
*--------------------------------------
Destop.Paint	>LIBCALL hLIBGUI,LIBGUI.HideCursor

				>LIBCALL hLIBGUI,LIBGUI.GetScreenGC
				>PUSHYA
				>PUSHW L.CB.Paint
				>LIBCALL hLIBGUI,LIBGUI.Draw

*				>LIBCALL hLIBGUI,LIBGUI.GetScreenGC
*				>PUSHYA

				>PUSHW L.GC.Clip
				
				>PUSHW L.CB.Marylin
				>LIBCALL hLIBGUI,LIBGUI.Draw
			
				>LIBCALL hLIBGUI,LIBGUI.ShowCursor
				rts				
*--------------------------------------
CS.END
LIBGUI			>CSTR "libgui.o"
MSG.INIT		>CSTR "GUI:Init...\r\n"
hLIBGUI			.BS 1
hSYSFONT		.BS 1
*--------------------------------------
Filename		>CSTR "/A2OSX.BUILD/ROOT/MARILYN"
*--------------------------------------
SYSFONT			>CSTR "/A2OSX.BUILD/SBIN/GUI/SYSTEM"
*--------------------------------------
MouseData		.BS S.MOUSE
*--------------------------------------
CB.Paint		.DA	#S.CB.CMD.FILLRECT
				.DA #S.CB.OP.SET
				.DA #S.CB.M.MONO
				.DA #1
				.DA 0					X1
				.DA 0					Y1	
				.DA 559					X2
				.DA 191					Y2
				
				.DA	#S.CB.CMD.FILLRECT
				.DA #S.CB.OP.SET
				.DA #S.CB.M.C16
				.DA #4
				.DA 40					X1
				.DA 20					Y1
				.DA 519					X2
				.DA 171					Y2
*--------------------------------------
CB.Apple		.DA #S.CB.CMD.BITBLT
				.DA #S.CB.OP.SET
				.DA #S.CB.M.C16
				.DA #0
				.DA 0					X1
				.DA 0					Y1
				.DA 16					W
				.DA 7					H	
				.DA 28					DestX
				.DA 180					DestY
				.BS 2					SrcPtr
				.DA 0					DstPtr
*--------------------------------------				
CB.DrawText		.DA	#S.CB.CMD.DRAWTEXT
				.DA #S.CB.OP.SET		OP
				.DA #S.CB.M.MONO		M
				.BS 1					hFont
				.DA 0					X1
				.DA 0					Y1
				.DA 0					SrcW
				.DA 0					SrcH
				.DA 4					DstX
				.DA 7					DstY
				.BS 2					TxtPtr
*--------------------------------------
				.DA #0
*--------------------------------------
BM.Apple		.DA #S.BM.F.BBP4
				.DA #2					RowBytes
				.DA 16					W
				.DA 7					H
				.DA 0
				
				.HS FFF6				green (8)
				.HS 6FF6				green (8)
				.HS EEEE				yellow (15)
				.HS	CCFC				orange (14)
				.HS 88F8				magenta (10)
				.HS 9999				violet (11)
				.HS 1FF1				Dark blue (4)
*--------------------------------------
TXT.Sample		>CSTR "@@@@@@@@@ This Is A Sample Text with System Font Height=7px, Variable Width {}[] #0123456789$ @@@@@@@@@"
*--------------------------------------
CB.Marylin		.DA #S.CB.CMD.BITBLT
				.DA #S.CB.OP.SET
				.DA #S.CB.M.MONO
				.DA #0
				.DA 0					X1
				.DA 0					Y1
				.DA 141					W
				.DA 150					H	
				.DA 200					DestX
				.DA 21					DestY
				.BS 2					SrcPtr
				.DA 0					DstPtr
				
				.DA #0
*--------------------------------------				
CB.DrawLine		.DA #0
				.DA	#S.CB.CMD.DRAWLINE
				.DA #S.CB.OP.XOR
				.DA #S.CB.M.MONO
				.DA #1
				.BS 2					X1
				.BS 2					Y1
				.BS 2					X2
				.BS 2					Y2

				.DA #0
*--------------------------------------
GC.Clip			.DA #0
				.DA #0
				.DA #0
				.DA #0
				
				.DA 40					X1
				.DA 20					Y1
				.DA 519					X2
				.DA 171					Y2
*--------------------------------------
				.DUMMY
				.OR 0
DS.START
CUR.T			.BS 1
DS.END
				.ED
MAN
SAVE /A2OSX.SRC/SBIN/GUI.S
ASM