1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00

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

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

View File

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