Disable potentially enabled double-width graphics.

asminc/apple2.inc

@@ -50,15 +50,21 @@ LCBANK2 :=      $C083   ; Swap in LC bank 2
 LCBANK1 :=      $C08B   ; Swap in LC bank 1
 
 ; Video mode switches
-TXTCLR  :=      $C050   ; Display graphics
-TXTSET  :=      $C051   ; Display text
-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
+TXTCLR     :=   $C050   ; Display graphics
+TXTSET     :=   $C051   ; Display text
+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
+DHIRESON   :=   $C05E   ; Enable double-width graphics
+DHIRESOFF  :=   $C05F   ; Disable double-width graphics
 
 ; Game controller
 BUTN0   :=      $C061   ; Open-Apple Key
 BUTN1   :=      $C062   ; Closed-Apple Key
+
+; IOU
+IOUDISON   :=   $C07E   ; Disable IOU
+IOUDISOFF  :=   $C07F   ; Enable IOU

libsrc/apple2/tgi/a2.hi.s

@@ -175,6 +175,10 @@ INIT:
         ; Switch into graphics mode
         bit     MIXCLR
         bit     HIRES
+        .ifdef  __APPLE2ENH__
+        sta     IOUDISON
+        bit     DHIRESOFF
+        .endif
         bit     TXTCLR
 
         ; Beagle Bros Shape Mechanic fonts don't

libsrc/apple2/tgi/a2.lo.s

@@ -126,6 +126,10 @@ INIT:
         bit     $C082           ; Switch in ROM
         jsr     SETGR
         bit     MIXCLR
+        .ifdef  __APPLE2ENH__
+        sta     IOUDISON
+        bit     DHIRESOFF
+        .endif
         bit     $C080           ; Switch in LC bank 2 for R/O
 
         ; Done, reset the error code