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 .AZ "libgui.o" MSG.INIT .AZ "GUI:Init...\r\n" hLIBGUI .BS 1 hSYSFONT .BS 1 *-------------------------------------- Filename .AZ "/A2OSX.BUILD/ROOT/MARILYN" *-------------------------------------- SYSFONT .AZ "/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 .AZ "@@@@@@@@@ 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