Bugfix from Oliver Schmidt

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

libsrc/apple2/apple2.inc

@@ -32,6 +32,8 @@ KBD     :=	$C000	; Read keyboard
 KBDSTRB :=      $C010	; Clear keyboard strobe
 
 ; 80 column card switches
+CLR80COL:=      $C000	; Disable 80 column store
+SET80COL:=      $C001	; Enable 80 column store
 CLRALTCHAR :=   $C00E   ; Normal Apple II char set
 SETALTCHAR :=   $C00F   ; Norm/inv LC, no flash
 ALTCHARSET :=   $C01E   ; >127 if alt charset switched in
@@ -42,6 +44,8 @@ MIXCLR  :=	$C052	; Disable 4 lines of text
 MIXSET  :=      $C053	; Enable 4 lines of text
 LOWSCR  :=      $C054	; Page 1
 HISCR   :=      $C055	; Page 2
+LORES   :=	$C056	; Lores graphics
+HIRES   :=	$C057	; Hires graphics
 
 ; Game controller
 BUTN0   :=      $C061	; Open-Apple Key

libsrc/apple2/cputc.s

@@ -19,6 +19,7 @@
         .ifdef  __APPLE2ENH__
 initconio:
         sta     SETALTCHAR      ; Switch in alternate charset
+        bit	LORES		; Limit SET80COL-HISCR to text
         rts
         .endif
 
@@ -84,9 +85,9 @@ put:    ldy     CH
         tay
         pla
         bcs     col40           ; Odd cols go in 40 col memory
-        bit     HISCR
+        bit     HISCR           ; Assume SET80COL
         sta     (BASL),Y
-        bit     LOWSCR
+        bit     LOWSCR          ; Assume SET80COL
         rts
         .endif
 col40:  sta     (BASL),Y