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

git-svn-id: svn://svn.cc65.org/cc65/trunk@4999 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/apple2/apple2-280-192-8.s b/libsrc/apple2/apple2-280-192-8.s
index 97a7014e088c57f1fe577de7caf30a33f81b064c..3b99a242e0cb9bc2caf1897a6ee8e42219f0a039 100644 (file)
--- a/libsrc/apple2/apple2-280-192-8.s
+++ b/libsrc/apple2/apple2-280-192-8.s
@@ -142,12 +142,11 @@ FONT:
 INSTALL:
        .ifdef  __APPLE2ENH__
        ; No page switching if 80 column store is enabled
 INSTALL:
        .ifdef  __APPLE2ENH__
        ; No page switching if 80 column store is enabled

-       lda     #$02

        bit     RD80COL
        bpl     :+
        lda     #$01
        bit     RD80COL
        bpl     :+
        lda     #$01

-:      sta     pages
-       .endif
+       sta     pages
+:      .endif

 
        ; Fall through
 
 
        ; Fall through
 


@@ -175,7 +174,7 @@ INIT:
 
        ; Beagle Bros Shape Mechanic fonts don't
        ; scale well so use fixed scaling factor
 
        ; 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
        sta     SCALE
 
        ; Done, reset the error code


@@ -402,7 +401,7 @@ OUTTEXT:
        php                     ; Save Z flag
        beq     :+              ; Not horizontal
        sec
        php                     ; Save Z flag
        beq     :+              ; Not horizontal
        sec

-       sbc     #7              ; Adjust X
+       sbc     #$07            ; Adjust X

        bcs     :+
        dey
 :      tax
        bcs     :+
        dey
 :      tax


@@ -410,7 +409,7 @@ OUTTEXT:
        plp                     ; Restore Z flag
        bne     :+              ; Not vertical
        sec
        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"
 :      jsr     HPOSN
        clc
        lda     FONT+2*99       ; "connection char"