the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Normalized coding style.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5498 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
2012-02-08 15:54:44 +00:00
parent d30ecfbd0e
commit 9aac71b74a
76 changed files with 297 additions and 373 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
libsrc/geos-common/graph/Makefile
View File

@@ -5,31 +5,31 @@
#--------------------------------------------------------------------------
# Object files
S_OBJS += drawline.o \
S_OBJS += bitmapclip.o \
bitmapregs.o \
bitmapup.o \
bitotherclip.o \
drawline.o \
drawpoint.o \
framerectangle.o \
getcharwidth.o \
getintcharint.o \
graphicsstring.o \
hlineregs.o \
horizontalline.o \
imprintrectangle.o \
initdrawwindow.o \
invertline.o \
invertrectangle.o \
loadcharset.o \
pointregs.o \
recoverline.o \
recoverrectangle.o \
rectangle.o \
initdrawwindow.o \
setpattern.o \
testpoint.o \
verticalline.o \
put_char.o \
putdecimal.o \
putstring.o \
recoverline.o \
recoverrectangle.o \
rectangle.o \
setpattern.o \
testpoint.o \
usesystemfont.o \
getcharwidth.o \
loadcharset.o \
bitmapup.o \
bitmapregs.o \
bitmapclip.o \
bitotherclip.o \
graphicsstring.o \
getintcharint.o
verticalline.o \

19
libsrc/geos-common/graph/bitmapclip.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -14,12 +13,12 @@
.include "geossym.inc"
_BitmapClip:
jsr BitmapRegs
jsr popax
sta r12L
stx r12H
jsr popa
sta r11H
jsr popa
sta r11L
jmp BitmapClip
jsr BitmapRegs
jsr popax
sta r12L
stx r12H
jsr popa
sta r11H
jsr popa
sta r11L
jmp BitmapClip

22
libsrc/geos-common/graph/bitmapregs.s
View File

@@ -1,22 +1,20 @@
;
; 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
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

6
libsrc/geos-common/graph/bitmapup.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -6,12 +5,11 @@
; void BitmapUp (struct iconpic *myGfx);
.import BitmapRegs
.export _BitmapUp
.include "jumptab.inc"
_BitmapUp:
jsr BitmapRegs
jmp BitmapUp
jsr BitmapRegs
jmp BitmapUp

31
libsrc/geos-common/graph/bitotherclip.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -20,18 +19,18 @@
.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
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

27
libsrc/geos-common/graph/drawline.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
@@ -16,16 +15,16 @@
.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
tay
PushW r2
tya
jsr _InitDrawWindow
MoveW r2, r11
PopW r2
jsr popa
sta tmp1
clc
bit tmp1
bvc @1
sec
@1: jmp DrawLine

18
libsrc/geos-common/graph/drawpoint.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
@@ -6,7 +5,6 @@
; void DrawPoint (char mode, struct pixel *mypixel);
.import PointRegs
.import popa
.importzp tmp1
@@ -15,11 +13,11 @@
.include "jumptab.inc"
_DrawPoint:
jsr PointRegs
jsr popa
sta tmp1
clc
bit tmp1
bvc @1
sec
@1: jmp DrawPoint
jsr PointRegs
jsr popa
sta tmp1
clc
bit tmp1
bvc @1
sec
@1: jmp DrawPoint

3
libsrc/geos-common/graph/framerectangle.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -10,4 +9,4 @@
.include "jumptab.inc"
_FrameRectangle = FrameRectangle
_FrameRectangle = FrameRectangle

7
libsrc/geos-common/graph/getcharwidth.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
@@ -11,6 +10,6 @@
.include "jumptab.inc"
_GetCharWidth:
jsr GetCharWidth
ldx #0
rts
jsr GetCharWidth
ldx #0
rts

17
libsrc/geos-common/graph/getintcharint.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -10,12 +9,12 @@
.include "geossym.inc"
getintcharint:
sta r11L
stx r11H
jsr popa
sta r1H
jsr popax
sta r0L
stx r0H
rts
sta r11L
stx r11H
jsr popa
sta r1H
jsr popax
sta r0L
stx r0H
rts

7
libsrc/geos-common/graph/graphicsstring.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -12,6 +11,6 @@
.include "geossym.inc"
_GraphicsString:
sta r0L
stx r0H
jmp GraphicsString
sta r0L
stx r0H
jmp GraphicsString

18
libsrc/geos-common/graph/hlineregs.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -6,17 +5,16 @@
.import popax, popa
.export HLineRegs
.include "geossym.inc"
HLineRegs:
stx r4H
sta r4L
jsr popax
stx r3H
sta r3L
jsr popa
sta r11L
rts
stx r4H
sta r4L
jsr popax
stx r3H
sta r3L
jsr popa
sta r11L
rts

8
libsrc/geos-common/graph/horizontalline.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -8,12 +7,11 @@
.import popa
.import HLineRegs
.export _HorizontalLine
.include "jumptab.inc"
_HorizontalLine:
jsr HLineRegs
jsr popa
jmp HorizontalLine
jsr HLineRegs
jsr popa
jmp HorizontalLine

1
libsrc/geos-common/graph/imprintrectangle.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;

22
libsrc/geos-common/graph/initdrawwindow.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -8,18 +7,17 @@
; 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
_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

5
libsrc/geos-common/graph/invertline.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -12,5 +11,5 @@
.include "jumptab.inc"
_InvertLine:
jsr HLineRegs
jmp InvertLine
jsr HLineRegs
jmp InvertLine

1
libsrc/geos-common/graph/invertrectangle.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;

7
libsrc/geos-common/graph/loadcharset.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -12,6 +11,6 @@
.include "geossym.inc"
_LoadCharSet:
sta r0L
stx r0H
jmp LoadCharSet
sta r0L
stx r0H
jmp LoadCharSet

28
libsrc/geos-common/graph/pointregs.s
View File

@@ -1,25 +1,23 @@
;
; 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
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

13
libsrc/geos-common/graph/put_char.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -13,9 +12,9 @@
.include "geossym.inc"
_PutChar:
sta r11L
stx r11H
jsr popa
sta r1H
jsr popa
jmp PutChar
sta r11L
stx r11H
jsr popa
sta r1H
jsr popa
jmp PutChar

7
libsrc/geos-common/graph/putdecimal.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
@@ -13,6 +12,6 @@
.include "jumptab.inc"
_PutDecimal:
jsr getintcharint
jsr popa
jmp PutDecimal
jsr getintcharint
jsr popa
jmp PutDecimal

5
libsrc/geos-common/graph/putstring.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -13,5 +12,5 @@
.include "jumptab.inc"
_PutString:
jsr getintcharint
jmp PutString
jsr getintcharint
jmp PutString

6
libsrc/geos-common/graph/recoverline.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -7,12 +6,11 @@
; void RecoverLine (char y, int xstart, int xend);
.import HLineRegs
.export _RecoverLine
.include "jumptab.inc"
_RecoverLine:
jsr HLineRegs
jmp RecoverLine
jsr HLineRegs
jmp RecoverLine

1
libsrc/geos-common/graph/recoverrectangle.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;

3
libsrc/geos-common/graph/rectangle.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -10,4 +9,4 @@
.include "jumptab.inc"
_Rectangle = Rectangle
_Rectangle = Rectangle

3
libsrc/geos-common/graph/setpattern.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -10,4 +9,4 @@
.include "jumptab.inc"
_SetPattern = SetPattern
_SetPattern = SetPattern

11
libsrc/geos-common/graph/testpoint.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
@@ -13,8 +12,8 @@
.include "jumptab.inc"
_TestPoint:
jsr PointRegs
jsr TestPoint
bcc goFalse
jmp return1
goFalse: jmp return0
jsr PointRegs
jsr TestPoint
bcc goFalse
jmp return1
goFalse:jmp return0

3
libsrc/geos-common/graph/usesystemfont.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -10,4 +9,4 @@
.include "jumptab.inc"
_UseSystemFont = UseSystemFont
_UseSystemFont = UseSystemFont

20
libsrc/geos-common/graph/verticalline.s
View File

@@ -1,4 +1,3 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
@@ -6,19 +5,18 @@
; void VerticalLine (char pattern, char ystart, char yend, int x);
.import popa
.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
stx r4H
sta r4L
jsr popa
sta r3H
jsr popa
sta r3L
jsr popa
jmp VerticalLine