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.LIBGUI .DA LIBGUI L.SYSX7 .DA SYSX7 L.SYSX7B .DA SYSX7B L.Filename .DA Filename L.MouseData .DA MouseData L.CB.Paint .DA CB.Paint L.BM.Apple .DA BM.Apple L.TXT.SampleB .DA TXT.SampleB L.TXT.Sample .DA TXT.Sample L.TXT.A2osX .DA TXT.A2osX L.CB.Marylin .DA CB.Marylin L.CB.DrawLine .DA CB.DrawLine L.GC.Clip .DA GC.Clip .DA 0 *-------------------------------------- CS.INIT >LDYA L.LIBGUI >SYSCALL LoadLib.YA bcs .98 sta hLIBGUI >LIBCALL hLIBGUI,LIBGUI.InitGUI bcs .98 >PUSHWI 0 Aux type >PUSHBI $CC Type >PUSHBI SYS.FOpen.R >PUSHW L.SYSX7 >SYSCALL LoadStkObj .98 bcs .99 sta hSYSFON sta CB.DrawText+S.CB.hFont sta CB.DrawA2osX+S.CB.hFont >PUSHWI 0 Aux type >PUSHBI $CC Type >PUSHBI SYS.FOpen.R >PUSHW L.SYSX7B >SYSCALL LoadStkObj bcs .99 sta hSYSFONB sta CB.DrawTextB+S.CB.hFont >PUSHWI 0 Aux type >PUSHBI $CB Type >PUSHBI SYS.FOpen.R >PUSHW L.FILENAME >SYSCALL LoadStkObj .99 bcs CS.INIT.RTS sta CB.Marylin+S.CB.SrcPtr >LDYA L.TXT.SampleB >STYA CB.DrawTextB+S.CB.TxtPtr >LDYA L.TXT.Sample >STYA CB.DrawText+S.CB.TxtPtr >LDYA L.TXT.A2osX >STYA CB.DrawA2osX+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 CS.INIT.RTS 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" hLIBGUI .BS 1 hSYSFON .BS 1 hSYSFONB .BS 1 *-------------------------------------- Filename .AZ "/A2OSX.BUILD/ROOT/MARILYN" *-------------------------------------- SYSX7 .AZ "/A2OSX.BUILD/SBIN/GUI/SYSX7" SYSX7B .AZ "/A2OSX.BUILD/SBIN/GUI/SYSX7B" *-------------------------------------- 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.DrawTextB .DA #S.CB.CMD.DRAWTEXT .DA #S.CB.OP.SET OP .DA #0 M .BS 1 hFont .DA 0 X1 .DA 0 Y1 .DA 0 SrcW .DA 0 SrcH .DA 4 DstX .DA 2 DstY .BS 2 TxtPtr *-------------------------------------- CB.DrawText .DA #S.CB.CMD.DRAWTEXT .DA #S.CB.OP.SET OP .DA #0 M .BS 1 hFont .DA 0 X1 .DA 0 Y1 .DA 0 SrcW .DA 0 SrcH .DA 4 DstX .DA 12 DstY .BS 2 TxtPtr *-------------------------------------- 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 4 DestX .DA 183 DestY .BS 2 SrcPtr .DA 0 DstPtr *-------------------------------------- CB.DrawA2osX .DA #S.CB.CMD.DRAWTEXT .DA #S.CB.OP.SET OP .DA #255 M .BS 1 hFont .DA 0 X1 .DA 0 Y1 .DA 0 SrcW .DA 0 SrcH .DA 24 DstX .DA 183 DstY .BS 2 TxtPtr *-------------------------------------- .DA #0 *-------------------------------------- BM.Apple .DA #S.BM.F.BBP4 .DA #2 RowBytes .DA 16 W .DA 7 H .DA 0 no MASK.OFS .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.SampleB .AZ "A2osX: A Sample Text with SYSX7B.FON Height=7px, Variable Width {}[] #0123456789$ " TXT.Sample .AZ "XXXXXXXX: SYSX7.FON Height=7px, Variable Width @@ /\ () {}[] #0123456789$ " TXT.A2osX .AZ "XXXXXXXXXXXXXXXXX" *-------------------------------------- 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