empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed some code, to adapt to register-use changes caused by pull request #652.

Browse source
This commit is contained in:
Greg King 2018-07-27 09:07:40 -04:00
parent e86a7db18b
commit e6fc904e3c
4 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
libsrc/tgi/tgi_getset.s
View file

@ -1,8 +1,9 @@
; ;
; Ullrich von Bassewitz, 22.06.2002 ; 2002-06-22, Ullrich von Bassewitz
; 2018-07-27, Greg King
; ;
; Helper function for getpixel/setpixel. Load X/Y from stack and check if ; Helper function for getpixel/setpixel. Load X/Y from arguments;
; the coordinates are valid. Return carry clear if so. ; and, check if the co-ordinates are valid. Return carry clear if so.
; ;
.include "tgi-kernel.inc" .include "tgi-kernel.inc"
@ -15,13 +16,14 @@
jsr tgi_popxy ; Pop X/Y into ptr1/ptr2 jsr tgi_popxy ; Pop X/Y into ptr1/ptr2
; Are the coordinates out of range? First check if any coord is negative. ; Are the co-ordinates out of range? First, check if any coord is negative.
txa txa ; (.X = ptr2+1 from tgi_popxy)
ora ptr2+1 ora ptr1+1
sec ; Return carry set if number is negative
bmi @L9 ; Bail out if negative bmi @L9 ; Bail out if negative
; Check if X is larger than the maximum x coord. If so, bail out ; Check if X is larger than the maximum x coord. If so, bail out.
lda ptr1 lda ptr1
cmp _tgi_xres cmp _tgi_xres
@ -38,4 +40,3 @@
@L9: rts @L9: rts
.endproc .endproc

8
libsrc/tgi/tgi_popxy.s
View file

@ -1,13 +1,14 @@
; ;
; Ullrich von Bassewitz, 02.10.2002 ; 2002-10-02, Ullrich von Bassewitz
; 2018-05-20, Christian Kruger
; ;
; Helper function for tgi functions. Pops X/Y from stack into ptr1/ptr2 ; Helper function for TGI functions. Pops X/Y from arguments into ptr1/ptr2.
; ;
.include "tgi-kernel.inc" .include "tgi-kernel.inc"
.import popptr1 .import popptr1
.importzp ptr1, ptr2 .importzp ptr2
.proc tgi_popxy .proc tgi_popxy
@ -16,4 +17,3 @@
jmp popptr1 ; X jmp popptr1 ; X
.endproc .endproc

4
libsrc/zlib/adler32.s
View file

@ -1,5 +1,6 @@
; ;
; Piotr Fusik, 18.11.2001 ; 2001-11-18, Piotr Fusik
; 2018-05-20, Christian Kruger
; ;
; unsigned long __fastcall__ adler32 (unsigned long adler, unsigned char* buf, ; unsigned long __fastcall__ adler32 (unsigned long adler, unsigned char* buf,
; unsigned len); ; unsigned len);
@ -78,6 +79,7 @@ _adler32:
; return 1L ; return 1L
@L0: sta sreg @L0: sta sreg
sta sreg+1 sta sreg+1
tax ; (popptr1 doesn't set .X)
lda #1 lda #1
; ignore adler ; ignore adler
jmp incsp4 jmp incsp4

6
libsrc/zlib/crc32.s
View file

@ -1,5 +1,6 @@
; ;
; Piotr Fusik, 14.11.2001 ; 2001-11-14, Piotr Fusik
; 2018-05-20, Christian Kruger
; ;
; unsigned long __fastcall__ crc32 (unsigned long crc, unsigned char* buf, ; unsigned long __fastcall__ crc32 (unsigned long crc, unsigned char* buf,
; unsigned len); ; unsigned len);
@ -116,6 +117,7 @@ _crc32:
; return 0L ; return 0L
@L0: sta sreg @L0: sta sreg
sta sreg+1 sta sreg+1
tax ; (popptr1 doesn't set .X)
; ignore crc ; ignore crc
jmp incsp4 jmp incsp4
@ -128,5 +130,3 @@ table_0: .res 256
table_1: .res 256 table_1: .res 256
table_2: .res 256 table_2: .res 256
table_3: .res 256 table_3: .res 256