From 11d5b42cf3b32714f142ddd8eb5c0092bd55b124 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Thu, 8 May 2025 10:30:46 -0700
Subject: [PATCH] Make 80 column mode the default

---
 images/apple/PLEIADES-2.20-INST.po | Bin 143360 -> 143360 bytes
 images/apple/PLEIADES-2.20.po      | Bin 33553920 -> 33553920 bytes
 src/vmsrc/apple/cmd.pla            |  28 ++++++++++++++++++++++++++++
 src/vmsrc/apple/cmdjit.pla         |  23 +++++++++++++++++++++++
 4 files changed, 51 insertions(+)

diff --git a/images/apple/PLEIADES-2.20-INST.po b/images/apple/PLEIADES-2.20-INST.po
index a72cf958117fdd35c1113a6581843b1f7e007ef7..3d3595117022f0139b19e320ee82e54fb3e03114 100644
GIT binary patch
delta 1167
zcmZp8z|ru4V}mmb?+PP1E(V6f3<@B|<Ny|Na~FOFm>`(J#Gvl%>!N39WWfLhY{m>+
z466lDl}(<<B4q;82sVw0K_kE?%oj=Le;1&}#e#5+U}clvU~0S^92pF=4Mg*YGB7bP
zu)sBf8I!G8rQq&|h$ON~nZn!v7GYu#cMJ{j4+`~z8OQR2fssL+0o5p`$&5?^o7gg9
z%rj=}w_)-zWB}18f;bs6A`ch@aD#0B_TPcw)Bh|f0UZX8X?BcNAjV+{ps^uUf(Dy2
zk`fu2e6lw)r7RLugcu^t09S0sf~33-sC-GOHPfaF86y^Ouq&)mM)OF(Dnwv{of^uZ
z=H}_+>gf;j2gAQI26l$!T&NzIJP%W&inD(}q&Hk2!@mxo#^2}~-(YG~4s!MLL)JK%
zftf**3C%{U)flm`8pH8oey-szo<VR&{F?)eg-MKPMy<!xDB>989*pdU1wf6*(V}nj
z-_`Qd;E4|!UaFpcA;v~<8yWsB0Vbfotf*E_4{&0{aIAz!kdd2zP>2Uq^S>29I}Oq7
zoIVeWPW1pEWQ`2}Rx`*m6j-C#`39(y4<(r{1g5_?+guoB{J;rfy22zzv=lKtU=q4R
zPcmpa`}=wN>zTk@%5okUL95UrX!<;CI^BbOJe`nqUIpq*MA!KSi%u;MRIMzxfx-F$
dEo)A<n#_onDyAm_g;0Hc66ovlWm6dE0030=06zc#

delta 1085
zcmZvbJ4?e*6vxlKrYeGuf><e{6`yqwjEYhxZL5vOB&4k(xKtb*U3`p=;@B%@k@|kn
z4vGc8fQUFbh?9$>Lq32YMz67n$xXA|%i;dc|9>9YdaK@gtG<qMwP$>*AK(r`zZar#
zfsxvJu!80VLr-)z)<3|HLg}j<gc{gsa6cnCE;wX?W;P7Hia0mxAirZ2Jn`G0`HbjZ
z@Hx4VwA6mj`ZQnw&IZj3iTHxH|G!Aa7aX=cm=O$t@pMX7(~^~r`v3$1aHqlqVdbWB
zWwCg$ltH8ck6>}Sh?kH3#rw4}OatvVn=L$NHYt?vU}Tm2f9Yo8G;~i2VqB0dRWR0}
z3NC8gvLxpPJEO9)Fk^FIY*X-)1$8gjp~fZ22@<G)FlH1Z1y9ck9`j97d_E?qwh3dO
z_AHB-R99ZGaa^5BIz1dx@PTP|@vG3bXRk`BUtNNf8su$7Fiz>XzkF^<O_@L*v&{*W
zpOn>9q68b4RC9pQ)N*CW9z}G5U=*MYR>v4kosxB~r8=V9qTj|)i)1c@7Rn-KBQzz;
z8hwOtRF(v}f5>vmJ<$Q>nE`3Ja^#dM3KI_Ug_0ST)XR{42{+2U(zd=cKav(9h}jA)
QLqqPWA8FMa=eubC2kwRIZ2$lO

diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po
index f27129713616716ba4c605ebf56c4f5456b65c80..6ee78d7020e604257777abf8a8cfcfac8dfa55c4 100644
GIT binary patch
delta 1955
zcmY++ceED*7{>A6y>3HAw<0MbqoK4!(bBMsP{_{eYFHVm<SM=@WW=|uP$5d<mQ{qz
zY$YT!C3|FxJPyv`J?C@Y=a1)o%hzwHSsrr-mbC9#voLdZ!)jFvs|uxmh2lb!9=&_E
zY}2+w;h(A8y-=+%tMvc1im4?_MpiGIvZzyWuQrA3$*rms)va5<v_+w+U5ZBh6&Baa
zhrT0fwXP^DA5c`>Yj8#Jm}#{d{e9G+FzDZMmy-X~N2fkxQpe&kVi6YOMp%NCurgM`
zs<<&$!|GTAH^EJ@CYE9?tc`VWGu#~O;ucsBx5WC`0Jp-eu_11Q+hQZ!4!6f0a7S#6
zO|U68!=11>w!odSCAPxW*aq9;F4zut#oe$ycEH_n5A2AYurqeSuDB<5!|vDvd*WWW
zH|~S`;(oY49)P{DHy(%wVIMpg55YsRFZRR3@Nhf=`{R*#6dsMo;IVid9*+a?1UwN>
z!jth79EfFjDh|TII0T2{X?QxGfoI}bI1JCmbMRa|4~OIVI08rFD7*ki<Aqp`7vUHj
zix=Z12wsZga6C@H%kXl%0w>~?cokla*We_)7Oz8bGETwk@dmsRZ^D~#D&B&(;%zt$
zr{fH~9q+(9aVFk{cjGLajrZUjycg%<eRw}s;5?j<58#9N5I&5L-~wETkK$vv2p`8M
z@JU>ZPvO(}3_gp`;q$lzU%(gfC43oQ!B_D$d>xnKGJFG<<D2*vzKtvJ9bAd;;(Pc$
zet;k1N4N?<#?`n6Kf$&5DSn2Z;}`fPeuZD-H~1}nhwJcr`~iQ&pYUh=1%Jiga6SHx
zf8d4*7EQD$iesZFiAqs9szlY;II2bUs1cjQrcpCWqgK?8I<Z-79(7}js25vC{b&$d
z#n#a<wux<{QEV66#}2V$G>#_GG@8Xu(L7qj&e1YjMeAr2ZDW^c7rVx8(LOrF?y*O7
zj84%xx<uF5GrC3h=n*|*uh={GiG5?g*gp=4UeP-ajDw<292|$lq0u+`#bI%H91;EF
z$T%vFj$`83I4+Kl0dYc{7$?QaaY_t~vN$yc#o!ncL*ukKJ<f<T<E$7KXU92lZk!jx
z<NO#ABV$xt5ToP5D36O`OpJ|-<B}jQjd3wPCd6fNd0Y__<I1=yu8wPBQd}F?g)up%
z#PxAQ+!!~-%`r7@iCg2gm=@DxM%*5E#GNrS?uxr(R?LojVoux}bK}0aKPqBg%#R1+
z!FVVhjz?laER09vu~-z3#}n~nERLt*>3AldjpyR|SQ0P9i}6yt9IwQy@mjndOJiBQ
z5zFJvcq`tH74c52jCbR`ct1Xf596a)6(7gySQDSb+W0g+i_hbW_%gnVuj8BeHol8>
d@qPRdKgLh-bNmv&#&5Acevdzj=D4A#>`(m&Yt8@w

delta 1891
zcmY+)ceD@!0EO}Qo+pV^$kq@=5v9Bmny56Sp_GwO8ure3J@p}ElrOWCLa9`*O_`C5
zvNN)>v&yF7I>$fmIlpu6x#yN{+FGSFW)Cbbsa&OC>WmuIDi*9OsQPayDyY}CbGwF(
z8aFHWFBRGpR4N!<_5Zi>3B@aimrpG1UpT&1zrvEDP94jO$|hGUUp}@)(Z5UWGO-Yg
za2qVfZLtDwhZS*qtb{w@j#wFY!YWu5tKrVL3+{^5aW~u@_rN`IFWejV!F{m?*2G#^
z8~4LHxIZ3%b+H~EhzDVPY=8&jA=nTP#lx@>HpauT2{y$eumqc7b377T;8A!q9)m5h
z6}HAU*cRL2v3MLFkL|GocEl5~6L!Wf*cDI2Zg>)Q#~#=dd*R908~flX*cbcZsdyTm
zj%Q$hJQD}tS$H;{g9C98o{NKV2oA+zcpjdQ7vP0>5nha!;H7vOUXEAbm3S2n$E)!g
zycVy+QXGM0cs-89Q3&3EH{wk=8gIs1@Kzjyx8d!02i}QeaU9--;&{9p@4<WVKD-|v
zzzH}JAH+#G86UzaI29kpNAOXchSTveoPjfO7Cw%%aSqPKa-4_raRDyGMYtH3;1l>H
zF2!Z|6h4j5;IsG~K99@s1$+@#;7hm?U&dGPReTLs;c9#x-@rHVEqoi_!FO>DzK8GQ
z2lyeb#gFh~`~*M6&u|@nj$h!H_!WMQ-{7~n9>2ry@dx}7f5Hv85r4*C@K^i|f5$)Y
zPy7r2#!a{xx8T;%7LKtniej56j%}ktY!?+{`=}H<#Ewxpc8V%dHLAtVu}kb4)nm8V
zJ@$w_W3Sjd_KAI?M%0X2Q9JgFI<bEo5Ot$o92f^h{b&#e$05-$4voX2Q8bRjqe(Q4
zBcddlMe{f^TEtOtbQ}{cqgAwyHqkcP#j$Z*93SnYLv)N2qEmE^F3~kkjBasKbdMg<
zGkV3z(L4IYDbY9j#i?;xoE~RH|2Q)S#9486oD&0MP@EfsV@M2*VR2rZ9~Z=haZy|x
zm&B!USzI1h#FcSX43Dehnz%Nui_#boWpRCsj8Q?{5I4q6F*<IJTjJIj6Su|faYx)4
zV`E(06~_3uJMM{l<G#2*9*7AsF&>ObF*zQJDKRx3jz{9rm=@FHv6vAvV^%yKvtv%o
zjq;cm^J76Qj770Hmc$eBWGszk@l-q=&&0FwTs$Ak<Ar!JR>VuOGG2~X;?;O9R>kUg
zJ>G~n<E?l*-idc(O}rQH#|QCYtc{Q2<M<>#jn86Td>&uKm+@769pA*au|B?w@8gH~
lF@A~-u`zy*U*gyJEq;$b;?MXi{*FztIkptea%<tBe*o~LUN8Uv

diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 05fb949..1f93265 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -23,6 +23,25 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
+// Machine ID values
+//
+const MACHID_CLOCK = $01
+const MACHID_80COL = $02
+const MACHID_MEM   = $30
+const MACHID_64K   = $20
+const MACHID_128K  = $30
+const MACHID_MODEL = $C8
+const MACHID_II    = $00
+const MACHID_IIPLUS= $40
+const MACHID_IIE   = $80
+const MACHID_III   = $C0
+const MACHID_IIC   = $88
+const MACHID_I     = $08
+//
 // Prefix commands
 //
 const GET_PFX     = $C7
@@ -1402,6 +1421,15 @@ heap = @lastdef
 //
 // Print PLASMA version
 //
+if  ^MACHID & MACHID_80COL
+    when ^MACHID & MACHID_MODEL
+        is MACHID_IIPLUS
+        is MACHID_II
+            ^$C059
+    wend
+    systemflags = systemflags | vid80col | restxt1
+    call($C300, 12, 0, 0, 0)
+fin
 prstr("PLEIADES 64K VM v2.20\n")
 //
 // Init symbol table.
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 5faadc7..d3f9a04 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -23,6 +23,25 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
+// Machine ID values
+//
+const MACHID_CLOCK = $01
+const MACHID_80COL = $02
+const MACHID_MEM   = $30
+const MACHID_64K   = $20
+const MACHID_128K  = $30
+const MACHID_MODEL = $C8
+const MACHID_II    = $00
+const MACHID_IIPLUS= $40
+const MACHID_IIE   = $80
+const MACHID_III   = $C0
+const MACHID_IIC   = $88
+const MACHID_I     = $08
+//
 // Prefix commands
 //
 const GET_PFX     = $C7
@@ -1488,6 +1507,10 @@ heap = @lastdef
 //
 // Print PLASMA version
 //
+if  ^MACHID & MACHID_80COL
+    systemflags = systemflags | vid80col | restxt1 | resxtxt1
+    call($C300, 12, 0, 0, 0)
+fin
 prstr("PLEIADES 128K VM v2.20\n")
 //
 // Init symbol table.