From: ol.sc Date: Sat, 4 Feb 2012 17:17:32 +0000 (+0000) Subject: Moved the 'graph' files from 'geos-cbm' to 'geos-common' which are believed to work... X-Git-Tag: V2.13.3~26 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=0828464f26cbcbe1ba3c8e905a5936a360c3b863;p=cc65 Moved the 'graph' files from 'geos-cbm' to 'geos-common' which are believed to work as-is on Apple GEOS too. git-svn-id: svn://svn.cc65.org/cc65/trunk@5439 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- diff --git a/libsrc/geos-cbm/graph/Makefile b/libsrc/geos-cbm/graph/Makefile deleted file mode 100644 index 9973a06fe..000000000 --- a/libsrc/geos-cbm/graph/Makefile +++ /dev/null @@ -1,35 +0,0 @@ -# -# makefile for CC65 runtime library -# - -#-------------------------------------------------------------------------- -# Object files - -S_OBJS += drawline.o \ - drawpoint.o \ - framerectangle.o \ - hlineregs.o \ - horizontalline.o \ - imprintrectangle.o \ - invertline.o \ - invertrectangle.o \ - pointregs.o \ - recoverline.o \ - recoverrectangle.o \ - rectangle.o \ - initdrawwindow.o \ - setpattern.o \ - testpoint.o \ - verticalline.o \ - put_char.o \ - putdecimal.o \ - putstring.o \ - usesystemfont.o \ - getcharwidth.o \ - loadcharset.o \ - bitmapup.o \ - bitmapregs.o \ - bitmapclip.o \ - bitotherclip.o \ - graphicsstring.o \ - getintcharint.o diff --git a/libsrc/geos-cbm/graph/bitmapclip.s b/libsrc/geos-cbm/graph/bitmapclip.s deleted file mode 100644 index 5785cb465..000000000 --- a/libsrc/geos-cbm/graph/bitmapclip.s +++ /dev/null @@ -1,25 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 21.12.99 - -; void BitmapClip (char skipl, char skipr, int skipy, struct iconpic *myGfx); - - .import popa, popax - .import BitmapRegs - .export _BitmapClip - - .include "jumptab.inc" - .include "geossym.inc" - -_BitmapClip: - jsr BitmapRegs - jsr popax - sta r12L - stx r12H - jsr popa - sta r11H - jsr popa - sta r11L - jmp BitmapClip diff --git a/libsrc/geos-cbm/graph/bitmapregs.s b/libsrc/geos-cbm/graph/bitmapregs.s deleted file mode 100644 index c1824ffd8..000000000 --- a/libsrc/geos-cbm/graph/bitmapregs.s +++ /dev/null @@ -1,22 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 21.12.99 - - .importzp ptr4 - - .export BitmapRegs - - .include "geossym.inc" - -BitmapRegs: ;a/x is a struct iconpic* - sta ptr4 - stx ptr4+1 - ldy #0 -bmpLp: lda (ptr4),y - sta r0L,y - iny - cpy #6 - bne bmpLp - rts diff --git a/libsrc/geos-cbm/graph/bitmapup.s b/libsrc/geos-cbm/graph/bitmapup.s deleted file mode 100644 index dc87fe37e..000000000 --- a/libsrc/geos-cbm/graph/bitmapup.s +++ /dev/null @@ -1,17 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 21.12.99 - -; void BitmapUp (struct iconpic *myGfx); - - - .import BitmapRegs - .export _BitmapUp - - .include "jumptab.inc" - -_BitmapUp: - jsr BitmapRegs - jmp BitmapUp diff --git a/libsrc/geos-cbm/graph/bitotherclip.s b/libsrc/geos-cbm/graph/bitotherclip.s deleted file mode 100644 index 1d6ddabfa..000000000 --- a/libsrc/geos-cbm/graph/bitotherclip.s +++ /dev/null @@ -1,37 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 21.12.99 - -; void BitOtherClip (void *proc1, void* proc2, char skipl, char skipr, int skipy, -; struct iconpic *myGfx); - -; both proc1, proc2 should be: char __fastcall something (void); -; proc1 is called before reading a byte (.A returns next data) -; proc2 is called before reading each byte which is not pattern (code >219) - - - .import popa, popax - .import BitOtherRegs - .export _BitOtherClip - - .include "jumptab.inc" - .include "geossym.inc" - -_BitOtherClip: - jsr BitOtherRegs - jsr popax - sta r12L - stx r12H - jsr popa - sta r11H - jsr popa - sta r11L - jsr popax - sta r14L - stx r14H - jsr popax - sta r13L - stx r13H - jmp BitOtherClip diff --git a/libsrc/geos-cbm/graph/drawline.s b/libsrc/geos-cbm/graph/drawline.s deleted file mode 100644 index 79030561b..000000000 --- a/libsrc/geos-cbm/graph/drawline.s +++ /dev/null @@ -1,31 +0,0 @@ - -; -; Maciej 'YTM/Elysium' Witkowiak -; -; 29.10.99, 5.03.2003 - -; void DrawLine (char mode, struct window *mywindow); - - .import _InitDrawWindow - .import popa - .importzp tmp1 - .export _DrawLine - - .include "jumptab.inc" - .include "geossym.inc" - .include "geosmac.ca65.inc" - -_DrawLine: - tay - PushW r2 - tya - jsr _InitDrawWindow - MoveW r2, r11 - PopW r2 - jsr popa - sta tmp1 - clc - bit tmp1 - bvc @1 - sec -@1: jmp DrawLine diff --git a/libsrc/geos-cbm/graph/drawpoint.s b/libsrc/geos-cbm/graph/drawpoint.s deleted file mode 100644 index d8fac4dc1..000000000 --- a/libsrc/geos-cbm/graph/drawpoint.s +++ /dev/null @@ -1,25 +0,0 @@ - -; -; Maciej 'YTM/Elysium' Witkowiak -; -; 29.10.99, 05.3.2003 - -; void DrawPoint (char mode, struct pixel *mypixel); - - - .import PointRegs - .import popa - .importzp tmp1 - .export _DrawPoint - - .include "jumptab.inc" - -_DrawPoint: - jsr PointRegs - jsr popa - sta tmp1 - clc - bit tmp1 - bvc @1 - sec -@1: jmp DrawPoint diff --git a/libsrc/geos-cbm/graph/framerectangle.s b/libsrc/geos-cbm/graph/framerectangle.s deleted file mode 100644 index d8bcc3cc5..000000000 --- a/libsrc/geos-cbm/graph/framerectangle.s +++ /dev/null @@ -1,13 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void FrameRectangle (char pattern); - - .export _FrameRectangle - - .include "jumptab.inc" - -_FrameRectangle = FrameRectangle diff --git a/libsrc/geos-cbm/graph/getcharwidth.s b/libsrc/geos-cbm/graph/getcharwidth.s deleted file mode 100644 index 0f971a8de..000000000 --- a/libsrc/geos-cbm/graph/getcharwidth.s +++ /dev/null @@ -1,16 +0,0 @@ - -; -; Maciej 'YTM/Elysium' Witkowiak -; -; 21.12.1999, 2.1.2003 - -; char GetCharWidth (char character); - - .export _GetCharWidth - - .include "jumptab.inc" - -_GetCharWidth: - jsr GetCharWidth - ldx #0 - rts diff --git a/libsrc/geos-cbm/graph/getintcharint.s b/libsrc/geos-cbm/graph/getintcharint.s deleted file mode 100644 index 1c31df4ed..000000000 --- a/libsrc/geos-cbm/graph/getintcharint.s +++ /dev/null @@ -1,21 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 11.03.2000 - - .import popa, popax - .export getintcharint - - .include "geossym.inc" - -getintcharint: - sta r11L - stx r11H - jsr popa - sta r1H - jsr popax - sta r0L - stx r0H - rts - diff --git a/libsrc/geos-cbm/graph/graphicsstring.s b/libsrc/geos-cbm/graph/graphicsstring.s deleted file mode 100644 index 5dc3064a7..000000000 --- a/libsrc/geos-cbm/graph/graphicsstring.s +++ /dev/null @@ -1,17 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 25.12.99 - -; void GraphicsString (char *myString); - - .export _GraphicsString - - .include "jumptab.inc" - .include "geossym.inc" - -_GraphicsString: - sta r0L - stx r0H - jmp GraphicsString diff --git a/libsrc/geos-cbm/graph/hlineregs.s b/libsrc/geos-cbm/graph/hlineregs.s deleted file mode 100644 index 921081e28..000000000 --- a/libsrc/geos-cbm/graph/hlineregs.s +++ /dev/null @@ -1,22 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - - - .import popax, popa - - .export HLineRegs - - .include "geossym.inc" - -HLineRegs: - stx r4H - sta r4L - jsr popax - stx r3H - sta r3L - jsr popa - sta r11L - rts diff --git a/libsrc/geos-cbm/graph/horizontalline.s b/libsrc/geos-cbm/graph/horizontalline.s deleted file mode 100644 index 7d8ecf122..000000000 --- a/libsrc/geos-cbm/graph/horizontalline.s +++ /dev/null @@ -1,19 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void HorizontalLine (char pattern, char y, int xstart, int xend); - - .import popa - .import HLineRegs - - .export _HorizontalLine - - .include "jumptab.inc" - -_HorizontalLine: - jsr HLineRegs - jsr popa - jmp HorizontalLine diff --git a/libsrc/geos-cbm/graph/imprintrectangle.s b/libsrc/geos-cbm/graph/imprintrectangle.s deleted file mode 100644 index 61cfb7fa3..000000000 --- a/libsrc/geos-cbm/graph/imprintrectangle.s +++ /dev/null @@ -1,14 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 21.12.99 - -; void ImprintRectangle (void); - - .export _ImprintRectangle - - .include "jumptab.inc" - -_ImprintRectangle = ImprintRectangle - diff --git a/libsrc/geos-cbm/graph/initdrawwindow.s b/libsrc/geos-cbm/graph/initdrawwindow.s deleted file mode 100644 index e34ee5cd2..000000000 --- a/libsrc/geos-cbm/graph/initdrawwindow.s +++ /dev/null @@ -1,25 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 -; 11.03.2000 - -; void InitDrawWindow (struct window *myWindow); - - .importzp ptr4 - - .export _InitDrawWindow - - .include "geossym.inc" - -_InitDrawWindow: ;a/x is a struct window* - sta ptr4 - stx ptr4+1 - ldy #0 -copyWin: lda (ptr4),y - sta r2L,y - iny - cpy #6 - bne copyWin - rts diff --git a/libsrc/geos-cbm/graph/invertline.s b/libsrc/geos-cbm/graph/invertline.s deleted file mode 100644 index 9456c7bf5..000000000 --- a/libsrc/geos-cbm/graph/invertline.s +++ /dev/null @@ -1,16 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void InvertLine (char y, int xstart, int xend); - - .import HLineRegs - .export _InvertLine - - .include "jumptab.inc" - -_InvertLine: - jsr HLineRegs - jmp InvertLine diff --git a/libsrc/geos-cbm/graph/invertrectangle.s b/libsrc/geos-cbm/graph/invertrectangle.s deleted file mode 100644 index aac5176c4..000000000 --- a/libsrc/geos-cbm/graph/invertrectangle.s +++ /dev/null @@ -1,14 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void InvertRectangle (void); - - .export _InvertRectangle - - .include "jumptab.inc" - -_InvertRectangle = InvertRectangle - diff --git a/libsrc/geos-cbm/graph/loadcharset.s b/libsrc/geos-cbm/graph/loadcharset.s deleted file mode 100644 index 503275023..000000000 --- a/libsrc/geos-cbm/graph/loadcharset.s +++ /dev/null @@ -1,17 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 21.12.99 - -; void LoadCharSet (struct fontdesc *myFont); - - .export _LoadCharSet - - .include "jumptab.inc" - .include "geossym.inc" - -_LoadCharSet: - sta r0L - stx r0H - jmp LoadCharSet diff --git a/libsrc/geos-cbm/graph/pointregs.s b/libsrc/geos-cbm/graph/pointregs.s deleted file mode 100644 index a9cef94e8..000000000 --- a/libsrc/geos-cbm/graph/pointregs.s +++ /dev/null @@ -1,25 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - - .importzp ptr4 - - .export PointRegs - - .include "geossym.inc" - -PointRegs: ;a/x is a struct pixel* - sta ptr4 - stx ptr4+1 - ldy #0 - lda (ptr4),y - sta r3L - iny - lda (ptr4),y - sta r3H - iny - lda (ptr4),y - sta r11L - rts diff --git a/libsrc/geos-cbm/graph/put_char.s b/libsrc/geos-cbm/graph/put_char.s deleted file mode 100644 index 7f7066866..000000000 --- a/libsrc/geos-cbm/graph/put_char.s +++ /dev/null @@ -1,21 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 30.10.99 - -; void PutChar (char character, char y, int x); - - .import popa - .export _PutChar - - .include "jumptab.inc" - .include "geossym.inc" - -_PutChar: - sta r11L - stx r11H - jsr popa - sta r1H - jsr popa - jmp PutChar diff --git a/libsrc/geos-cbm/graph/putdecimal.s b/libsrc/geos-cbm/graph/putdecimal.s deleted file mode 100644 index 918d0bd4f..000000000 --- a/libsrc/geos-cbm/graph/putdecimal.s +++ /dev/null @@ -1,18 +0,0 @@ - -; -; Maciej 'YTM/Elysium' Witkowiak -; -; 30.10.99, 17.8.2003 - -; void PutDecimal (char style, unsigned value, char y, int x); - - .import popa, popax - .import getintcharint - .export _PutDecimal - - .include "jumptab.inc" - -_PutDecimal: - jsr getintcharint - jsr popa - jmp PutDecimal diff --git a/libsrc/geos-cbm/graph/putstring.s b/libsrc/geos-cbm/graph/putstring.s deleted file mode 100644 index a962be2a2..000000000 --- a/libsrc/geos-cbm/graph/putstring.s +++ /dev/null @@ -1,17 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 30.10.99 - -; void PutString (char *mytxt, char y, int x); - - .import popax, popa - .import getintcharint - .export _PutString - - .include "jumptab.inc" - -_PutString: - jsr getintcharint - jmp PutString diff --git a/libsrc/geos-cbm/graph/recoverline.s b/libsrc/geos-cbm/graph/recoverline.s deleted file mode 100644 index 181507b0b..000000000 --- a/libsrc/geos-cbm/graph/recoverline.s +++ /dev/null @@ -1,18 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void RecoverLine (char y, int xstart, int xend); - - .import HLineRegs - - .export _RecoverLine - - .include "jumptab.inc" - -_RecoverLine: - jsr HLineRegs - jmp RecoverLine - diff --git a/libsrc/geos-cbm/graph/recoverrectangle.s b/libsrc/geos-cbm/graph/recoverrectangle.s deleted file mode 100644 index da0a5c496..000000000 --- a/libsrc/geos-cbm/graph/recoverrectangle.s +++ /dev/null @@ -1,14 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void RecoverRectangle (void); - - .export _RecoverRectangle - - .include "jumptab.inc" - -_RecoverRectangle = RecoverRectangle - diff --git a/libsrc/geos-cbm/graph/rectangle.s b/libsrc/geos-cbm/graph/rectangle.s deleted file mode 100644 index b3afafae1..000000000 --- a/libsrc/geos-cbm/graph/rectangle.s +++ /dev/null @@ -1,13 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void Rectangle (void); - - .export _Rectangle - - .include "jumptab.inc" - -_Rectangle = Rectangle diff --git a/libsrc/geos-cbm/graph/setpattern.s b/libsrc/geos-cbm/graph/setpattern.s deleted file mode 100644 index 1f437da06..000000000 --- a/libsrc/geos-cbm/graph/setpattern.s +++ /dev/null @@ -1,13 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void SetPattern (char pattern); - - .export _SetPattern - - .include "jumptab.inc" - -_SetPattern = SetPattern diff --git a/libsrc/geos-cbm/graph/testpoint.s b/libsrc/geos-cbm/graph/testpoint.s deleted file mode 100644 index 11af3daff..000000000 --- a/libsrc/geos-cbm/graph/testpoint.s +++ /dev/null @@ -1,20 +0,0 @@ - -; -; Maciej 'YTM/Elysium' Witkowiak -; -; 29.10.1999, 2.1.2003 - -; char TestPoint (struct pixel *mypixel); - - .import PointRegs - .import return0, return1 - .export _TestPoint - - .include "jumptab.inc" - -_TestPoint: - jsr PointRegs - jsr TestPoint - bcc goFalse - jmp return1 -goFalse: jmp return0 diff --git a/libsrc/geos-cbm/graph/usesystemfont.s b/libsrc/geos-cbm/graph/usesystemfont.s deleted file mode 100644 index 4c732d5aa..000000000 --- a/libsrc/geos-cbm/graph/usesystemfont.s +++ /dev/null @@ -1,13 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 30.10.99 - -; void UseSystemFont (void); - - .export _UseSystemFont - - .include "jumptab.inc" - -_UseSystemFont = UseSystemFont diff --git a/libsrc/geos-cbm/graph/verticalline.s b/libsrc/geos-cbm/graph/verticalline.s deleted file mode 100644 index a80bdd6fc..000000000 --- a/libsrc/geos-cbm/graph/verticalline.s +++ /dev/null @@ -1,24 +0,0 @@ - -; -; Maciej 'YTM/Alliance' Witkowiak -; -; 29.10.99 - -; void VerticalLine (char pattern, char ystart, char yend, int x); - - .import popa - - .export _VerticalLine - - .include "jumptab.inc" - .include "geossym.inc" - -_VerticalLine: - stx r4H - sta r4L - jsr popa - sta r3H - jsr popa - sta r3L - jsr popa - jmp VerticalLine diff --git a/libsrc/geos-common/graph/Makefile b/libsrc/geos-common/graph/Makefile new file mode 100644 index 000000000..9973a06fe --- /dev/null +++ b/libsrc/geos-common/graph/Makefile @@ -0,0 +1,35 @@ +# +# makefile for CC65 runtime library +# + +#-------------------------------------------------------------------------- +# Object files + +S_OBJS += drawline.o \ + drawpoint.o \ + framerectangle.o \ + hlineregs.o \ + horizontalline.o \ + imprintrectangle.o \ + invertline.o \ + invertrectangle.o \ + pointregs.o \ + recoverline.o \ + recoverrectangle.o \ + rectangle.o \ + initdrawwindow.o \ + setpattern.o \ + testpoint.o \ + verticalline.o \ + put_char.o \ + putdecimal.o \ + putstring.o \ + usesystemfont.o \ + getcharwidth.o \ + loadcharset.o \ + bitmapup.o \ + bitmapregs.o \ + bitmapclip.o \ + bitotherclip.o \ + graphicsstring.o \ + getintcharint.o diff --git a/libsrc/geos-common/graph/bitmapclip.s b/libsrc/geos-common/graph/bitmapclip.s new file mode 100644 index 000000000..5785cb465 --- /dev/null +++ b/libsrc/geos-common/graph/bitmapclip.s @@ -0,0 +1,25 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 21.12.99 + +; void BitmapClip (char skipl, char skipr, int skipy, struct iconpic *myGfx); + + .import popa, popax + .import BitmapRegs + .export _BitmapClip + + .include "jumptab.inc" + .include "geossym.inc" + +_BitmapClip: + jsr BitmapRegs + jsr popax + sta r12L + stx r12H + jsr popa + sta r11H + jsr popa + sta r11L + jmp BitmapClip diff --git a/libsrc/geos-common/graph/bitmapregs.s b/libsrc/geos-common/graph/bitmapregs.s new file mode 100644 index 000000000..c1824ffd8 --- /dev/null +++ b/libsrc/geos-common/graph/bitmapregs.s @@ -0,0 +1,22 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 21.12.99 + + .importzp ptr4 + + .export BitmapRegs + + .include "geossym.inc" + +BitmapRegs: ;a/x is a struct iconpic* + sta ptr4 + stx ptr4+1 + ldy #0 +bmpLp: lda (ptr4),y + sta r0L,y + iny + cpy #6 + bne bmpLp + rts diff --git a/libsrc/geos-common/graph/bitmapup.s b/libsrc/geos-common/graph/bitmapup.s new file mode 100644 index 000000000..dc87fe37e --- /dev/null +++ b/libsrc/geos-common/graph/bitmapup.s @@ -0,0 +1,17 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 21.12.99 + +; void BitmapUp (struct iconpic *myGfx); + + + .import BitmapRegs + .export _BitmapUp + + .include "jumptab.inc" + +_BitmapUp: + jsr BitmapRegs + jmp BitmapUp diff --git a/libsrc/geos-common/graph/bitotherclip.s b/libsrc/geos-common/graph/bitotherclip.s new file mode 100644 index 000000000..1d6ddabfa --- /dev/null +++ b/libsrc/geos-common/graph/bitotherclip.s @@ -0,0 +1,37 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 21.12.99 + +; void BitOtherClip (void *proc1, void* proc2, char skipl, char skipr, int skipy, +; struct iconpic *myGfx); + +; both proc1, proc2 should be: char __fastcall something (void); +; proc1 is called before reading a byte (.A returns next data) +; proc2 is called before reading each byte which is not pattern (code >219) + + + .import popa, popax + .import BitOtherRegs + .export _BitOtherClip + + .include "jumptab.inc" + .include "geossym.inc" + +_BitOtherClip: + jsr BitOtherRegs + jsr popax + sta r12L + stx r12H + jsr popa + sta r11H + jsr popa + sta r11L + jsr popax + sta r14L + stx r14H + jsr popax + sta r13L + stx r13H + jmp BitOtherClip diff --git a/libsrc/geos-common/graph/drawline.s b/libsrc/geos-common/graph/drawline.s new file mode 100644 index 000000000..79030561b --- /dev/null +++ b/libsrc/geos-common/graph/drawline.s @@ -0,0 +1,31 @@ + +; +; Maciej 'YTM/Elysium' Witkowiak +; +; 29.10.99, 5.03.2003 + +; void DrawLine (char mode, struct window *mywindow); + + .import _InitDrawWindow + .import popa + .importzp tmp1 + .export _DrawLine + + .include "jumptab.inc" + .include "geossym.inc" + .include "geosmac.ca65.inc" + +_DrawLine: + tay + PushW r2 + tya + jsr _InitDrawWindow + MoveW r2, r11 + PopW r2 + jsr popa + sta tmp1 + clc + bit tmp1 + bvc @1 + sec +@1: jmp DrawLine diff --git a/libsrc/geos-common/graph/drawpoint.s b/libsrc/geos-common/graph/drawpoint.s new file mode 100644 index 000000000..d8fac4dc1 --- /dev/null +++ b/libsrc/geos-common/graph/drawpoint.s @@ -0,0 +1,25 @@ + +; +; Maciej 'YTM/Elysium' Witkowiak +; +; 29.10.99, 05.3.2003 + +; void DrawPoint (char mode, struct pixel *mypixel); + + + .import PointRegs + .import popa + .importzp tmp1 + .export _DrawPoint + + .include "jumptab.inc" + +_DrawPoint: + jsr PointRegs + jsr popa + sta tmp1 + clc + bit tmp1 + bvc @1 + sec +@1: jmp DrawPoint diff --git a/libsrc/geos-common/graph/framerectangle.s b/libsrc/geos-common/graph/framerectangle.s new file mode 100644 index 000000000..d8bcc3cc5 --- /dev/null +++ b/libsrc/geos-common/graph/framerectangle.s @@ -0,0 +1,13 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void FrameRectangle (char pattern); + + .export _FrameRectangle + + .include "jumptab.inc" + +_FrameRectangle = FrameRectangle diff --git a/libsrc/geos-common/graph/getcharwidth.s b/libsrc/geos-common/graph/getcharwidth.s new file mode 100644 index 000000000..0f971a8de --- /dev/null +++ b/libsrc/geos-common/graph/getcharwidth.s @@ -0,0 +1,16 @@ + +; +; Maciej 'YTM/Elysium' Witkowiak +; +; 21.12.1999, 2.1.2003 + +; char GetCharWidth (char character); + + .export _GetCharWidth + + .include "jumptab.inc" + +_GetCharWidth: + jsr GetCharWidth + ldx #0 + rts diff --git a/libsrc/geos-common/graph/getintcharint.s b/libsrc/geos-common/graph/getintcharint.s new file mode 100644 index 000000000..1c31df4ed --- /dev/null +++ b/libsrc/geos-common/graph/getintcharint.s @@ -0,0 +1,21 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 11.03.2000 + + .import popa, popax + .export getintcharint + + .include "geossym.inc" + +getintcharint: + sta r11L + stx r11H + jsr popa + sta r1H + jsr popax + sta r0L + stx r0H + rts + diff --git a/libsrc/geos-common/graph/graphicsstring.s b/libsrc/geos-common/graph/graphicsstring.s new file mode 100644 index 000000000..5dc3064a7 --- /dev/null +++ b/libsrc/geos-common/graph/graphicsstring.s @@ -0,0 +1,17 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 25.12.99 + +; void GraphicsString (char *myString); + + .export _GraphicsString + + .include "jumptab.inc" + .include "geossym.inc" + +_GraphicsString: + sta r0L + stx r0H + jmp GraphicsString diff --git a/libsrc/geos-common/graph/hlineregs.s b/libsrc/geos-common/graph/hlineregs.s new file mode 100644 index 000000000..921081e28 --- /dev/null +++ b/libsrc/geos-common/graph/hlineregs.s @@ -0,0 +1,22 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + + + .import popax, popa + + .export HLineRegs + + .include "geossym.inc" + +HLineRegs: + stx r4H + sta r4L + jsr popax + stx r3H + sta r3L + jsr popa + sta r11L + rts diff --git a/libsrc/geos-common/graph/horizontalline.s b/libsrc/geos-common/graph/horizontalline.s new file mode 100644 index 000000000..7d8ecf122 --- /dev/null +++ b/libsrc/geos-common/graph/horizontalline.s @@ -0,0 +1,19 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void HorizontalLine (char pattern, char y, int xstart, int xend); + + .import popa + .import HLineRegs + + .export _HorizontalLine + + .include "jumptab.inc" + +_HorizontalLine: + jsr HLineRegs + jsr popa + jmp HorizontalLine diff --git a/libsrc/geos-common/graph/imprintrectangle.s b/libsrc/geos-common/graph/imprintrectangle.s new file mode 100644 index 000000000..61cfb7fa3 --- /dev/null +++ b/libsrc/geos-common/graph/imprintrectangle.s @@ -0,0 +1,14 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 21.12.99 + +; void ImprintRectangle (void); + + .export _ImprintRectangle + + .include "jumptab.inc" + +_ImprintRectangle = ImprintRectangle + diff --git a/libsrc/geos-common/graph/initdrawwindow.s b/libsrc/geos-common/graph/initdrawwindow.s new file mode 100644 index 000000000..e34ee5cd2 --- /dev/null +++ b/libsrc/geos-common/graph/initdrawwindow.s @@ -0,0 +1,25 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 +; 11.03.2000 + +; void InitDrawWindow (struct window *myWindow); + + .importzp ptr4 + + .export _InitDrawWindow + + .include "geossym.inc" + +_InitDrawWindow: ;a/x is a struct window* + sta ptr4 + stx ptr4+1 + ldy #0 +copyWin: lda (ptr4),y + sta r2L,y + iny + cpy #6 + bne copyWin + rts diff --git a/libsrc/geos-common/graph/invertline.s b/libsrc/geos-common/graph/invertline.s new file mode 100644 index 000000000..9456c7bf5 --- /dev/null +++ b/libsrc/geos-common/graph/invertline.s @@ -0,0 +1,16 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void InvertLine (char y, int xstart, int xend); + + .import HLineRegs + .export _InvertLine + + .include "jumptab.inc" + +_InvertLine: + jsr HLineRegs + jmp InvertLine diff --git a/libsrc/geos-common/graph/invertrectangle.s b/libsrc/geos-common/graph/invertrectangle.s new file mode 100644 index 000000000..aac5176c4 --- /dev/null +++ b/libsrc/geos-common/graph/invertrectangle.s @@ -0,0 +1,14 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void InvertRectangle (void); + + .export _InvertRectangle + + .include "jumptab.inc" + +_InvertRectangle = InvertRectangle + diff --git a/libsrc/geos-common/graph/loadcharset.s b/libsrc/geos-common/graph/loadcharset.s new file mode 100644 index 000000000..503275023 --- /dev/null +++ b/libsrc/geos-common/graph/loadcharset.s @@ -0,0 +1,17 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 21.12.99 + +; void LoadCharSet (struct fontdesc *myFont); + + .export _LoadCharSet + + .include "jumptab.inc" + .include "geossym.inc" + +_LoadCharSet: + sta r0L + stx r0H + jmp LoadCharSet diff --git a/libsrc/geos-common/graph/pointregs.s b/libsrc/geos-common/graph/pointregs.s new file mode 100644 index 000000000..a9cef94e8 --- /dev/null +++ b/libsrc/geos-common/graph/pointregs.s @@ -0,0 +1,25 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + + .importzp ptr4 + + .export PointRegs + + .include "geossym.inc" + +PointRegs: ;a/x is a struct pixel* + sta ptr4 + stx ptr4+1 + ldy #0 + lda (ptr4),y + sta r3L + iny + lda (ptr4),y + sta r3H + iny + lda (ptr4),y + sta r11L + rts diff --git a/libsrc/geos-common/graph/put_char.s b/libsrc/geos-common/graph/put_char.s new file mode 100644 index 000000000..7f7066866 --- /dev/null +++ b/libsrc/geos-common/graph/put_char.s @@ -0,0 +1,21 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 30.10.99 + +; void PutChar (char character, char y, int x); + + .import popa + .export _PutChar + + .include "jumptab.inc" + .include "geossym.inc" + +_PutChar: + sta r11L + stx r11H + jsr popa + sta r1H + jsr popa + jmp PutChar diff --git a/libsrc/geos-common/graph/putdecimal.s b/libsrc/geos-common/graph/putdecimal.s new file mode 100644 index 000000000..918d0bd4f --- /dev/null +++ b/libsrc/geos-common/graph/putdecimal.s @@ -0,0 +1,18 @@ + +; +; Maciej 'YTM/Elysium' Witkowiak +; +; 30.10.99, 17.8.2003 + +; void PutDecimal (char style, unsigned value, char y, int x); + + .import popa, popax + .import getintcharint + .export _PutDecimal + + .include "jumptab.inc" + +_PutDecimal: + jsr getintcharint + jsr popa + jmp PutDecimal diff --git a/libsrc/geos-common/graph/putstring.s b/libsrc/geos-common/graph/putstring.s new file mode 100644 index 000000000..a962be2a2 --- /dev/null +++ b/libsrc/geos-common/graph/putstring.s @@ -0,0 +1,17 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 30.10.99 + +; void PutString (char *mytxt, char y, int x); + + .import popax, popa + .import getintcharint + .export _PutString + + .include "jumptab.inc" + +_PutString: + jsr getintcharint + jmp PutString diff --git a/libsrc/geos-common/graph/recoverline.s b/libsrc/geos-common/graph/recoverline.s new file mode 100644 index 000000000..181507b0b --- /dev/null +++ b/libsrc/geos-common/graph/recoverline.s @@ -0,0 +1,18 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void RecoverLine (char y, int xstart, int xend); + + .import HLineRegs + + .export _RecoverLine + + .include "jumptab.inc" + +_RecoverLine: + jsr HLineRegs + jmp RecoverLine + diff --git a/libsrc/geos-common/graph/recoverrectangle.s b/libsrc/geos-common/graph/recoverrectangle.s new file mode 100644 index 000000000..da0a5c496 --- /dev/null +++ b/libsrc/geos-common/graph/recoverrectangle.s @@ -0,0 +1,14 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void RecoverRectangle (void); + + .export _RecoverRectangle + + .include "jumptab.inc" + +_RecoverRectangle = RecoverRectangle + diff --git a/libsrc/geos-common/graph/rectangle.s b/libsrc/geos-common/graph/rectangle.s new file mode 100644 index 000000000..b3afafae1 --- /dev/null +++ b/libsrc/geos-common/graph/rectangle.s @@ -0,0 +1,13 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void Rectangle (void); + + .export _Rectangle + + .include "jumptab.inc" + +_Rectangle = Rectangle diff --git a/libsrc/geos-common/graph/setpattern.s b/libsrc/geos-common/graph/setpattern.s new file mode 100644 index 000000000..1f437da06 --- /dev/null +++ b/libsrc/geos-common/graph/setpattern.s @@ -0,0 +1,13 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void SetPattern (char pattern); + + .export _SetPattern + + .include "jumptab.inc" + +_SetPattern = SetPattern diff --git a/libsrc/geos-common/graph/testpoint.s b/libsrc/geos-common/graph/testpoint.s new file mode 100644 index 000000000..11af3daff --- /dev/null +++ b/libsrc/geos-common/graph/testpoint.s @@ -0,0 +1,20 @@ + +; +; Maciej 'YTM/Elysium' Witkowiak +; +; 29.10.1999, 2.1.2003 + +; char TestPoint (struct pixel *mypixel); + + .import PointRegs + .import return0, return1 + .export _TestPoint + + .include "jumptab.inc" + +_TestPoint: + jsr PointRegs + jsr TestPoint + bcc goFalse + jmp return1 +goFalse: jmp return0 diff --git a/libsrc/geos-common/graph/usesystemfont.s b/libsrc/geos-common/graph/usesystemfont.s new file mode 100644 index 000000000..4c732d5aa --- /dev/null +++ b/libsrc/geos-common/graph/usesystemfont.s @@ -0,0 +1,13 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 30.10.99 + +; void UseSystemFont (void); + + .export _UseSystemFont + + .include "jumptab.inc" + +_UseSystemFont = UseSystemFont diff --git a/libsrc/geos-common/graph/verticalline.s b/libsrc/geos-common/graph/verticalline.s new file mode 100644 index 000000000..a80bdd6fc --- /dev/null +++ b/libsrc/geos-common/graph/verticalline.s @@ -0,0 +1,24 @@ + +; +; Maciej 'YTM/Alliance' Witkowiak +; +; 29.10.99 + +; void VerticalLine (char pattern, char ystart, char yend, int x); + + .import popa + + .export _VerticalLine + + .include "jumptab.inc" + .include "geossym.inc" + +_VerticalLine: + stx r4H + sta r4L + jsr popa + sta r3H + jsr popa + sta r3L + jsr popa + jmp VerticalLine