From af3fbd5edf0e00ae8fca4e26eba297c2c62388ad Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 20 Apr 2025 20:21:11 -0700
Subject: [PATCH] Default Apple /// to 80 columns

---
 images/apple/PLEIADES-2.20-FPSOS.po | Bin 143360 -> 143360 bytes
 src/vmsrc/apple/sossys.pla          |   8 ++++++--
 src/vmsrc/apple/sossysjit.pla       |   8 ++++++--
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/images/apple/PLEIADES-2.20-FPSOS.po b/images/apple/PLEIADES-2.20-FPSOS.po
index ef1895d7bb8d2132f30dca2e7dc11901253dab1f..7cde4af5520faa69ac4db8218b517359fb9b8259 100644
GIT binary patch
delta 789
zcmZp8z|ru4V}mmb?-U~u5eA0C3=AN~<Ny{a6BH392CZQKU_DR25Z9mp1~7<V;AKb_
z2dhVDoQJ7V7opM1GX$tLlYx&xT>?$x8%&LtgCm0>RzXPqZU#mM1|~F(R;*HJj!$Hj
z;zM=(WJad)O>BN!7&#{U?~-O@+MK;BMhVV&a>v4w1*BoRf*7MRs$tUu#2C?nqMJe0
zEg(1~2;sDUQyEwoPP3poZ2CMbI#q%l{an3~bS`FKV|d7krt=N5P6d$5x*4=weO!Hm
z^_=}(T*2Deb~6YvFet!vf|X6T5@$pUjqQozjJxZg-kXN$y=jb6rYM1Rn&En|bC731
z2t4fhuV4xH)0-KYQW>YS%wUv&8a@Nv@a+LJ7|$?6W#?eZ&S5;m4wYSkDZ2!rcLk>G
t3WVMbjLN9deFNyU%|NGZf;(*!x&hMzHZdX+2{`O-0(EsTF5ALb0|1PruBZS2

delta 789
zcmZp8z|ru4V}mmb?<6BG4hDw93=AN~<Ny{a6BH392CZQKU_DR25Z9mp1~7<V;AKb_
z2dhVDoQJ7V7opM1GX$tLlYx&xT>?$x8%&LtgCm0>RzXPqZU#mM1|~F(R;*HJj!$Hj
z;zM=(WJad)O>BN!7#Sw}?~-O@*qps9MhVV&a>v4w1*BoRf*7MRs$tUu#2C?nqMJe0
zEg(1~2;sDUQyEwoPP3poZ2CMbI#q%l{an3~bS`FKV|d7krt=N5P6d$5x*4=weO!Hm
z^_=}(T*2Deb~6YvFet!vf|X6T5@$pUjqQozjJxZg-kXN$y=jb6rYM1Rn&En|bC731
z2t4fhuV4xH)0-KYQW>YS%wUv&8a@Nv@a+LJ7|$?6W#?eZ&S5;m4wYSkDZ2!rcLk>G
t3WVMbjLN9deFNyU%|NGZf;(*!x&hMzHZdX+2{`O-0(EsTF5ALb0|4(VsKfvO

diff --git a/src/vmsrc/apple/sossys.pla b/src/vmsrc/apple/sossys.pla
index 24f3ef2..6a199b9 100755
--- a/src/vmsrc/apple/sossys.pla
+++ b/src/vmsrc/apple/sossys.pla
@@ -18,6 +18,10 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
 // Private addresses
 //
 const instr       = $A020
@@ -56,7 +60,7 @@ byte jitsize      = 0
 byte refcons      = 0
 byte devcons      = 0
 word              = @syslookuptbl
-word systemflags  = 0
+word systemflags  = vid80col
 //
 // String pool.
 //
@@ -69,7 +73,7 @@ byte machid       = $F2 // Apple ///, 80 columns
 // Console and textmode control characters
 //
 byte console[]    = ".CONSOLE"
-byte textmode[]   = 16, 0, 15
+byte textmode[]   = 16, 2, 15
 
 //
 // Working input buffer overlayed with strings table
diff --git a/src/vmsrc/apple/sossysjit.pla b/src/vmsrc/apple/sossysjit.pla
index 749a7de..876e887 100755
--- a/src/vmsrc/apple/sossysjit.pla
+++ b/src/vmsrc/apple/sossysjit.pla
@@ -19,6 +19,10 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
 // Private addresses
 //
 const instr       = $A020
@@ -67,7 +71,7 @@ byte jitsize      = 0
 byte refcons      = 0
 byte devcons      = 0
 word              = @syslookuptbl
-word systemflags  = 0
+word systemflags  = vid80col
 //
 // String pool.
 //
@@ -80,7 +84,7 @@ byte machid       = $F2 // Apple ///, 80 columns
 // Console and textmode control characters
 //
 byte console[]    = ".CONSOLE"
-byte textmode[]   = 16, 0, 15
+byte textmode[]   = 16, 2, 15
 
 //
 // Working input buffer overlayed with strings table