NEW PREFIX AUTO 4,1 .LIST OFF .OP 65C02 .OR $2000 .TF LIB/GUI/LIBGUI *-------------------------------------- .INB INC/MACROS.I .INB INC/A2OSX.I .INB INC/KERNEL.I .INB INC/GFX.I .INB INC/LIBGUI.I *-------------------------------------- WND.MAX .EQ 64 *-------------------------------------- .MA SWAP16 lda ]1 ldx ]2 stx ]1 sta ]2 lda ]1+1 ldx ]2+1 stx ]1+1 sta ]2+1 .EM .MA NOT16 sec lda #0 sbc ]1 sta ]1 lda #0 sbc ]1+1 sta ]1+1 .EM .MA SCMPAX sec sbc ]1 txa sbc ]1+1 bvc :1 eor #$80 :1 .EQ * .EM *-------------------------------------- ZPPtr1 .EQ ZPLIB ZPObjPtr .EQ ZPLIB+4 ZPCBPtr .EQ ZPLIB+6 ZPWNDPtr .EQ ZPLIB+8 *-------------------------------------- * 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 Draw .DA SetCursor .DA SetCursorPos .DA HideCursor .DA ShowCursor .DA UpdateCursor .DA MOU.ReadMouse *-------------------------------------- J.Cmds .DA DrawLine .DA DrawText *-------------------------------------- L.DEVNAME.GFX .DA DEVNAME.GFX L.DEVNAME.MOUSE .DA DEVNAME.MOUSE L.SYSX7 .DA SYSX7 L.SYSX7B .DA SYSX7B L.IOCTL .DA IOCTL L.DCB.GFX .DA DCB.GFX L.MouseClamp .DA MouseClamp L.CB.Cache .DA CB.Cache L.SCR .DA SCR L.WND.Desktop .DA WND.Desktop L.WND.SysBar .DA WND.SysBar *-------------------------------------- L.BM.Apple .DA BM.Apple *-------------------------------------- L.CUR.CB .DA CUR.CB L.CUR.SaveBuf .DA CUR.SaveBuf L.Cursors .DA CUR.Arrow .DA CUR.ResizeX .DA CUR.ResizeY .DA CUR.ResizeXY1 .DA CUR.ResizeXY2 .DA CUR.Cross .DA CUR.Text .DA CUR.Wait1 .DA CUR.Wait2 .DA CUR.Wait3 .DA CUR.Wait4 .DA CUR.Wait5 .DA CUR.Wait6 J.Clip .DA CLIP.Point SETPIXEL .DA CLIP.Point GETPIXEL .DA CLIP.HLine .DA CLIP.VLine .DA CLIP.Rect FILLRECT .DA CLIP.BitBlt .DA CLIP.Rect GETRECTBUFSIZE .DA CLIP.Line .DA CLIP.Text .DA 0 *-------------------------------------- LIB.LOAD lda LibCount bne .8 jsr FON.Init bcs .9 jsr MOU.Init bcs .9 jsr WND.Init bcs .9 jsr WND.Setup lda hDevMouse beq .8 jsr MOU.Setup .8 inc LibCount clc .9 rts *-------------------------------------- LIB.UNLOAD dec LibCount bne .8 jsr MOU.Quit .8 clc rts *-------------------------------------- OBJ.Get >STYA .1+1 ldx #S.OBJ-1 .1 lda $ffff,x SELF MODIFIED sta OBJ.Cache,x dex bpl .1 rts *-------------------------------------- OBJ.SetX2Y2 >STYA ZPObjPtr ldy #S.OBJ.W lda (ZPObjPtr),y clc sbc #0 pha iny lda (ZPObjPtr),y sbc #0 tax pla clc ldy #S.OBJ.X1 adc (ZPObjPtr),y pha txa iny adc (ZPObjPtr),y ldy #S.OBJ.X2+1 sta (ZPObjPtr),y dey pla sta (ZPObjPtr),y ldy #S.OBJ.H lda (ZPObjPtr),y clc sbc #0 pha iny lda (ZPObjPtr),y sbc #0 tax pla clc ldy #S.OBJ.Y1 adc (ZPObjPtr),y pha txa iny adc (ZPObjPtr),y ldy #S.OBJ.Y2+1 sta (ZPObjPtr),y dey pla sta (ZPObjPtr),y rts *-------------------------------------- CB.Get >STYA .1+1 ldx #S.CB-1 .1 lda $ffff,x SELF MODIFIED sta CB.Cache,x dex bpl .1 rts *-------------------------------------- GFXWrite.CB >LDYA L.CB.Cache GFXWrite.YA >PUSHYA >PUSHBI IOCTL.WRITE lda SCR+S.SCREEN.hDEV >SYSCALL IOCTL rts *-------------------------------------- .INB USR/SRC/LIB/LIBGUI.S.BM .INB USR/SRC/LIB/LIBGUI.S.BUT .INB USR/SRC/LIB/LIBGUI.S.CLIP .INB USR/SRC/LIB/LIBGUI.S.CUR .INB USR/SRC/LIB/LIBGUI.S.DRAW .INB USR/SRC/LIB/LIBGUI.S.FON .INB USR/SRC/LIB/LIBGUI.S.MENU .INB USR/SRC/LIB/LIBGUI.S.MOU .INB USR/SRC/LIB/LIBGUI.S.PAT .INB USR/SRC/LIB/LIBGUI.S.WND *-------------------------------------- CS.END *-------------------------------------- .INB USR/SRC/LIB/LIBGUI.G.BM .INB USR/SRC/LIB/LIBGUI.G.CUR .INB USR/SRC/LIB/LIBGUI.G.FON .INB USR/SRC/LIB/LIBGUI.G.WND *-------------------------------------- DEVNAME.GFX .AZ "/DEV/GFX" DEVNAME.MOUSE .AZ "/DEV/MOU1" *-------------------------------------- SYSX7 .AZ "/A2OSX.BUILD/SBIN/GUI/SYSX7" SYSX7B .AZ "/A2OSX.BUILD/SBIN/GUI/SYSX7B" *-------------------------------------- LibCount .BS 1 hDevMouse .BS 1 *-------------------------------------- DX .BS 2 DY .BS 2 IY .BS 1 IE .BS 2 D .BS 2 INE .BS 2 Counter .BS 2 CLIP.Line.P1 .BS 1 CLIP.Line.P2 .BS 1 *-------------------------------------- CB.CmdLen .DA S.CB.Y1+1 SETPIXEL .DA S.CB.Y1+1 GETPIXEL .DA S.CB.X2+1 HLINE .DA S.CB.Y2+1 VLINE .DA S.CB.Y2+1 FILLRECT .DA S.CB.DstPtr+1 BITBLT .DA S.CB.DstPtr+1 GETRECTBUFSIZE .DA S.CB.Y2+1 DRAWLINE .DA S.CB.TxtPtr+1 DRAWTEXT *-------------------------------------- PAT.Buf .BS 1 S.BM.F .DA #1 S.BM.RowBytes .DA 8 S.BM.W .DA 8 S.BM.H .DA 0 S.BM.MASK.OFS .BS 8 (data) *-------------------------------------- IOCTL .BS S.IOCTL DCB.GFX .BS S.DCB.GFX *-------------------------------------- MouseClamp .BS 8 *-------------------------------------- CB.Cache .BS S.CB OBJ.Cache .BS S.OBJ *-------------------------------------- SCR .BS S.SCREEN S.OBJ.T.SCREEN SCR.Childs .BS 2 WND.Desktop .BS 2 WND.SysBar .DA 0 *-------------------------------------- WND.Desktop .DA #S.OBJ.T.WND .BS S.WND-1 *-------------------------------------- WND.SysBar .DA #S.OBJ.T.WND .BS S.WND-1 WND.SysBar.Childs .BS 2 BUT.Sys .DA 0 *-------------------------------------- BUT.Sys .DA #S.OBJ.T.BUT .DA #0 F .DA #0 S .DA #0 ID .DA 0 hOWNER .DA 0 pPARENT *-------------------------------------- MENU.Sys *-------------------------------------- MAN SAVE USR/SRC/LIB/LIBGUI.S ASM