6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-05 06:28:57 +00:00
Code Issues Projects Releases Wiki Activity

fixed bugs

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1865 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst 2002-12-31 16:37:53 +00:00
parent 0264d31e7c
commit 960b042496
1 changed files with 17 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
libsrc/geos/devel/geos-tgi.s
View File

@ -2,10 +2,6 @@
; Graphics driver for the 320x200x2 or 640x200x2 mode on GEOS 64/128
; Maciej 'YTM/Elysium' Witkowiak <ytm@elysium.pl>
; 28-31.12.2002
;
; - not tested OutText
; - not tested on VDC
; - erratic Circle when needs to clip
.include "zeropage.inc"
@ -425,10 +421,9 @@ SETDRAWPAGE:
SETCOLOR:
tax
beq @L1
inx
@L1: stx BITMASK
txa ; need to have either 0 or 1
jmp SetPattern
lda #1
@L1: sta BITMASK
jmp SetPattern ; need to have either 0 or 1
; ------------------------------------------------------------------------
; SETPALETTE: Set the palette (not available with all drivers/hardware).
@ -515,25 +510,25 @@ SETPIXELCLIP:
bmi @finito ; y<0
lda X1+1
bmi @finito ; x<0
lda xres
ldx xres+1
sta ADDR
stx ADDR+1
ldx #ADDR
lda X1
ldy X1+1
jsr icmp ; if (xres<x1)
bcs @cont ; !(xres<x1)
@finito:rts
@cont: lda yres
ldx yres+1
ldx X1+1
sta ADDR
stx ADDR+1
ldx #ADDR
lda xres
ldy xres+1
jsr icmp ; ( x < xres ) ...
bcs @finito
lda Y1
ldy Y1+1
jsr icmp ; if (yres<y1)
bcc @finito
ldx Y1+1
sta ADDR
stx ADDR+1
ldx #ADDR
lda yres
ldy yres+1
jsr icmp ; ... && ( y < yres )
bcc SETPIXEL
@finito:rts
SETPIXEL:
lda X1