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

Update from Stefan Haubenthal

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2712 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2003-12-05 18:29:06 +00:00
parent 298767d71a
commit 7ef718d69e
2 changed files with 60 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
libsrc/apple2/apple2-280-192-6.s
View File

@ -232,7 +232,7 @@ INIT:
; Switch into graphics mode
jsr HGR
bit MIXOFF
bit MIXOFF
; Done, reset the error code
@ -288,9 +288,9 @@ CLEAR = HCLR
SETVIEWPAGE:
tax
beq @L1
bit PG2ON
bit PG2ON
rts
@L1: bit PG2OFF
@L1: bit PG2OFF
rts
; ------------------------------------------------------------------------
@ -392,7 +392,7 @@ SETPIXEL:
ldy X1+1
lda Y1
jmp HPLOT
; ------------------------------------------------------------------------
; GETPIXEL: Read the color value of a pixel and return it in A/X. The
; coordinates passed to this function are never outside the visible screen
@ -400,38 +400,40 @@ SETPIXEL:
GETPIXEL:
ldx X1
ldy X1+1
lda Y1
jsr HPOSN ; 1st pixel
HBASL = $26
HMASK = $30
ldx #0
lda (HBASL),y
and HMASK
beq @L1
inx
@L1: stx tmp1
lda $E0 ; which neighbour
tax
and #$01
bne @odd
asl tmp1
inx
.byte $24
@odd: dex
ldy $E1
lda $E2
jsr HPOSN ; 2nd pixel
ldx #0
lda (HBASL),y
and HMASK
beq @L2
inx
@L2: txa
ora tmp1
ldx #0
rts
ldx X1
ldy X1+1
lda Y1
jsr HPOSN ; 1st pixel
HBASL = $26
HMASK = $30
ldx #0
lda (HBASL),y
and HMASK
beq @L1
inx
@L1: stx tmp1
lda $E0 ; which neighbour
tax
and #$01
bne @odd
asl tmp1
inx
.byte $24
@odd: dex
ldy $E1
lda $E2
jsr HPOSN ; 2nd pixel
ldx #0
lda (HBASL),y
and HMASK
beq @L2
inx
@L2: txa
ora tmp1
ldx #0
rts
; ------------------------------------------------------------------------
; LINE: Draw a line from X1/Y1 to X2/Y2, where X1/Y1 = ptr1/ptr2 and
@ -441,14 +443,14 @@ HMASK = $30
;
LINE:
ldx X1
ldy X1+1
lda Y1
jsr HPOSN
lda X2
ldx X2+1
ldy Y2
jmp HLIN
ldx X1
ldy X1+1
lda Y1
jsr HPOSN
lda X2
ldx X2+1
ldy Y2
jmp HLIN
; ------------------------------------------------------------------------
; BAR: Draw a filled rectangle with the corners X1/Y1, X2/Y2, where
@ -456,12 +458,12 @@ LINE:
; Contrary to most other functions, the graphics kernel will sort and clip
; the coordinates before calling the driver, so on entry the following
; conditions are valid:
; X1 <= X2
; Y1 <= Y2
; (X1 >= 0) && (X1 < XRES)
; (X2 >= 0) && (X2 < XRES)
; (Y1 >= 0) && (Y1 < YRES)
; (Y2 >= 0) && (Y2 < YRES)
; X1 <= X2
; Y1 <= Y2
; (X1 >= 0) && (X1 < XRES)
; (X2 >= 0) && (X2 < XRES)
; (Y1 >= 0) && (Y1 < YRES)
; (Y2 >= 0) && (Y2 < YRES)
;
; Must set an error code: NO
;
@ -743,8 +745,7 @@ OUTTEXT:
abs:
; a/y := abs(a/y)
dey
iny
cpy #0
bpl @L1
; negay
clc

14
libsrc/apple2/tgi_mode_table.s
View File

@ -1,10 +1,10 @@
;
; Ullrich von Bassewitz, 2003-11-12
; Ullrich von Bassewitz, 31.05.2002
;
; Apple ][ mode table for tgi_map_mode
; Apple II mode table for tgi_map_mode
;
.export _tgi_mode_table
.export _tgi_mode_table
.include "tgi-mode.inc"
@ -17,7 +17,7 @@
.rodata
_tgi_mode_table:
.byte TGI_MODE_280_192_6, "apple2-280-192-6.tgi", 0
.byte 0 ; End marker
.byte TGI_MODE_280_192_6, "APPLE2.HI.TGI", 0
.byte TGI_MODE_40_40_16, "APPLE2.LO.TGI", 0
; .byte TGI_MODE_560_192_2, "APPLE2.DHI.TGI", 0
.byte 0 ; End marker