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

No need to explicitly set two page in 40 column mode as two pages are the default anyway.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4999 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc 2011-04-28 13:06:37 +00:00
parent a27eee5718
commit 905c1252f5
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -142,12 +142,11 @@ FONT:
INSTALL: INSTALL:
.ifdef __APPLE2ENH__ .ifdef __APPLE2ENH__
; No page switching if 80 column store is enabled ; No page switching if 80 column store is enabled
lda #$02
bit RD80COL bit RD80COL
bpl :+ bpl :+
lda #$01 lda #$01
: sta pages sta pages
.endif : .endif
; Fall through ; Fall through
@ -175,7 +174,7 @@ INIT:
; Beagle Bros Shape Mechanic fonts don't ; Beagle Bros Shape Mechanic fonts don't
; scale well so use fixed scaling factor ; scale well so use fixed scaling factor
lda #1 lda #$01
sta SCALE sta SCALE
; Done, reset the error code ; Done, reset the error code
@ -402,7 +401,7 @@ OUTTEXT:
php ; Save Z flag php ; Save Z flag
beq :+ ; Not horizontal beq :+ ; Not horizontal
sec sec
sbc #7 ; Adjust X sbc #$07 ; Adjust X
bcs :+ bcs :+
dey dey
: tax : tax
@ -410,7 +409,7 @@ OUTTEXT:
plp ; Restore Z flag plp ; Restore Z flag
bne :+ ; Not vertical bne :+ ; Not vertical
sec sec
sbc #7 ; Adjust Y sbc #$07 ; Adjust Y
: jsr HPOSN : jsr HPOSN
clc clc
lda FONT+2*99 ; "connection char" lda FONT+2*99 ; "connection char"