PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
				.LIST OFF	
				.OP	65C02
				.OR	$2000
				.TF /A2OSX.BOOT/LIB/LIBGFX.O
*--------------------------------------
				.INB INC/MACROS.I
				.INB INC/A2OSX.I
				.INB INC/LIBGFX.I
*--------------------------------------
ZPPtr1			.EQ ZPLIB
*--------------------------------------
*			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
				.DA 0
				.DA 0
				.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1				.DA LIB.LOAD
				.DA LIB.UNLOAD
				.DA InitDevA
				.DA CUR.Show
				.DA CUR.Hide
				.DA CUR.Select
				.DA 0
*--------------------------------------
LIB.LOAD
LIB.UNLOAD		clc
				rts
				
*--------------------------------------
InitDevA		sta hDev
				>SYSCALL SYS.GetDevInfoA
				bcs .9
				>STYA ZPPtr1
				
				
				clc
				rts
				
.9				stz hDev
				sec
				rts
*--------------------------------------
				.INB LIB/LIBGFX.S.CUR
*--------------------------------------
CS.END
hDev			.BS 1
*--------------------------------------
CUR.Arrow.And	.DA	#%00000001
				.DA #%00000011
				.DA #%00000101
				.DA #%00001001
				.DA #%00010001
				.DA #%00100011
				.DA #%01110101
				.DA #%00011000
*--------------------------------------
CUR.Arrow.Ora	.DA	#%00000000
				.DA	#%00000000
				.DA	#%00000010
				.DA	#%00000110
				.DA	#%00001110
				.DA	#%00011100
				.DA	#%00001000
				.DA	#%00000000
*--------------------------------------
MAN
SAVE LIB/LIBGFX.S
ASM