6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-27 15:29:46 +00:00
Code Issues Projects Releases Wiki Activity

Changes from Stefan Haubenthal

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2780 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2003-12-18 17:41:57 +00:00
parent ae8c0dc667
commit c92b4ac06c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,7 +103,6 @@ TEXTDIR = $F9
.rodata
DEFPALETTE: .byte $00, $05, $04, $01, $00, $08, $06, $01; 6 unique colors
PALETTESIZE = * - DEFPALETTE
SHAPE: .byte $64,$01,$d0,$00,$d5,$00,$da,$00,$e0,$00,$ef,$00,$fe,$00,$0c,$01
.byte $19,$01,$1d,$01,$25,$01,$2d,$01,$3d,$01,$46,$01,$4b,$01,$52,$01
@ -303,8 +302,11 @@ SETVIEWPAGE:
SETDRAWPAGE:
tax
beq @L1
jmp HGR2
@L1: jmp HGR
lda #>$4000 ; Page 2
.byte $2C
@L1: lda #>$2000 ; Page 1
sta $E6
rts
; ------------------------------------------------------------------------
; SETCOLOR: Set the drawing color (in A). The new color is already checked