From 4321eec00f4986c7a9cc5d84258fd4ec0ead251e Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Fri, 14 Mar 2025 19:45:55 -0700
Subject: [PATCH] Better INITSLOT 0 processing

---
 images/apple/PLASMA-2.20.po    | Bin 33553920 -> 33553920 bytes
 src/utilsrc/apple/initslot.pla |  15 +++++++++++----
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/images/apple/PLASMA-2.20.po b/images/apple/PLASMA-2.20.po
index 25c4007775657e742dab1064991fce76d4c42623..9dd52d52a535c7412f799fb6fb185c24e861d130 100644
GIT binary patch
delta 2380
zcmYk-bx@T{7{~E_52y%=C=y~T7NCNK-HE72EKtM*j@aF}pe~At9z~Ch-5sE)h~0(V
z-JPf)=YG%Vy>oZw^X#*~nRj<*_K#O)ne$1D)mmRI-b86Nsi+p=<Pg`>!`nSxM7Rhq
zVUyq=EDS=_Jrz((csO+wmN+CcVVsN56Sxt0_)si!K}%`$zr+xj=B;-W)<WDcHxyUQ
zQly%vi4?PCXLE*S53lLjg26Z5UURcW&42sKng7MYAy^+H{#?ta<!0Nzt*@W|(7$a}
z_qL{IeKk+lKljWn3_+Z0Cv-x5=iJX`lS8QHqPdyMhiU_TqlJ|*M(B)jFd~8VHX)2j
zNE5ckv$!s7qaFzn^%fcAnx-X%Y2nYc-Z2J$9jsuD9LR}Wut9Fv!VY<m7xu^p2joWq
zIHDk&;0zbIq7d9r7)4MN#ZVk2P!gq38ty2AvM7i0r~nUm!V48q36<duA5=kAR6}*t
zfG=vI7HXpo>Y^U%qX8PC5gMZjnxYw+qXk-`75vZ|{%C`?Xa_yoBLE%H5uMN(T@Z*M
zbVWA=qdP*-13l3TmN)2wz6eDa!eKx^M4&$gU?2uzFos|#hG95HU?fIiG{#^o#$h}r
zU?L(h2@+9=#$-&vR4Bw?8m1!_GZ2TFh{r6<h7ofx7YUe$`7mJt7Ge<=V+odG84|G^
zE3gu)uo`Qy7VEGc8?X_Zuo+vh72B{KJFpYGup4`jgk<c+KBQnj4&WeCaR_NRj3YRT
zV>pfzIEhm@jWallb2yI+xQI)*jC5SVRb0b$+`vuT!fo8a-DHFRy#+o+jAb=zqo<}B
zn`px5r->*%bBJbZjMc17(oW}Wsvl~f$F%*n&fb*1C6|-wL!vH!vc74KcumQBO5RuU
zfszlEe5B-KC7&qyRLN&bK3DREk}s8frQ~ZR-zfQ3$#+V=SMr0BAC>&1<Yy(nDEU>%
zZ%TewGDFE9O8!*xmy(%EW-0kw$!sOfu~Lhd8g#INHF6*)a=`|<VGBFtL0;G+9~_V$
z1>lH+aDp>j;EF<ULtzv_Q4~XQlt4+8LTR|849cP$%A*22;0Z5OL?u*)H+)b9RZ$Jq
zQ3JlHiCU<QI;e|!sE-C{h(>6PCTNOgXpR<WiB|AKYxtuL+M*rwXpaDNKu2^!XLLaz
zg3uM+5RC2!K@apqFZ4zq@JExO2tzmw=!XdO#{dk(APmM348<@E#|VtXD2&D!jKw&N
z#{^77BqqV~{!xg=WK6+SD8yhIrXv<J5QmwF$1Kc-5pysX37CiZFkt}}Vi6W&36^3R
z60saBuoA1V8f&l?>#!ahuo0WE8C$Rw+prxwuoJtm8+(w1WbDO0q+mY|;2=_Q2x&Ns
zBRGm<IF1uIiBmX@GdPQLIFAdsh)cMPbX>tzT*GzTz)jr3ZQQ|K+{1l5z(YL3V?4oA
wJi~Lmz)QTsYrMf*yu*8Zz(;(-XMDj|e8YES;0J!<7c!BB-^kXsO0yRE4;H7Yw*UYD

delta 2317
zcmXxh1yIya6u|NQ;aP{up@e~rg{UAV24Dy3sfdLQf*9B>EQ)I(a*CW{cPl2gV7J(b
z4R*Jv=lA}xGoQEf-pqUZW>)^P*h#C^TCmp5OlTSPLWDaSVtc!JxDFTL&ca>fN$?L8
zVM5eD-N8$^IR*%8xo395cxPdxP?Un3r!_cOgWvyYSeH}}V<DjvBE#Y<Zd;@{ZkaAp
zE!LTqZ`N-2YT1HAgNM5?1Q{c&FPk%iHGA8x|1II=TFb13Xq5~9yGf$8OQim@ptpx1
zX|gZ}g=m9)VuX!p2I8<m2vail3w`tnA)?c9mpoHwCcUOJ*=fS$q={%3ZZ}PD3e<FF
zX=~$TZWvM^w_QhrP8>@+?{CnHv@54h?&+_EW@!bdh56ec2Xx4ZT*!?)$O}Dekq`M%
z0Cq6I9@ZI!-~dNB!5M{71VvE{E+~!?D2Y-ijWQ?;SCm6}R6s>kf*UHs9aT^j)!+e7
zREHO8peAaeHtL`*yipJJ(EttM17G-|5gMZjnxYw+qXk-`6<Wg|ZO|6&U_^U#Kt}|i
z69Um0UC<TX&>cbOfu87v-spqA=!am0pg%$ph5-o2Kn%iQ3_%2jVi<;F1V&;MMq>=d
zVjRX}0w!V-A`u0NXiUZw#9%5EreQi}U?yfE7PAqDIf#b|b1@GIn2$u5u>cE^ghg14
zC0L4OSdJA~iB(vQHCT&vSdR_Zh)vjxE!c`}NXB;Tz)tMKZtOt{_F^CQ;{Xog5Dw!A
zQjvzEIELdmfs;6e(>Q~(IEVANfQz_<bX>+2T*Wn9#|_-XE!@T(+{L|=F#n7No+-x2
zjAU(I{3oN58A{$)@_~{Mm3*Y+V<n#``BceFC9{-#rsQ)aUnu!f$yZ9gR`QLKZ<Tzf
z<a;GQDEU#zPfC7P@{5vRmHejUcO`!)`BTYkC4VXTTgg94T4qWuPHM104(N~*xsV%q
zkQaK`A|LXj0PJ9ZJqn@_9N-8iIHNF%peTyL1;tSUB~c2cQ3hq<igGBA3aE%ma6@Id
zqYA2`8a&{M>hMAh)I=@RMjh0JH|n828lWM3;0r%ALSr;RQ#3<!v_MO=LTmV=4cej|
zjA)Mz=!gJxLLfS$3%a5kx+4fZ&=bAT8-36h{Sb^0^hYSdFaY5gh(Q>PA&9_G48w4Y
zz(|b3XpF&FjKg?Lz(h<!B%)yb|7c9c6vSXE6sBQ1W?&{}Ar`X{hdGFc33D+I37C&W
zn6Us0k%UE9j3ro#Wmt|CScz3wjWt+{by$xL*oaNoj4jxTZAiv;?7&X!!fxzA3ie_j
z_TvB!;t&qw2vU)Tqd11+IDwNmh0{2Lvp9$IxPXhegmhfS6<ozNT*nRE#4X&$9o)q|
zWZ*s?;2|F2F`nQlGLeO6c#ao%iC1`yH+YM8c#jYGh)?*8FZhaY_>Ld=iERABZ~W1=
IN{bfx7Y`$wF#rGn

diff --git a/src/utilsrc/apple/initslot.pla b/src/utilsrc/apple/initslot.pla
index 031d4af..4b42f00 100644
--- a/src/utilsrc/apple/initslot.pla
+++ b/src/utilsrc/apple/initslot.pla
@@ -24,13 +24,15 @@ if ^arg
                     break
                 is MACHID_IIPLUS
                 is MACHID_II
-                    putc(26); putc('1') // Videx disable
-                    putc(20); putc('A'); putc('1')// ALS SmartTerm disable
+                    putc(26); putc('1'); putln // Videx disable
+                    putc(20); putc('A'); putc('1'); putln// ALS SmartTerm disable
                     ^$C058
             wend
             cmdsys:_sysflags_ = cmdsys:_sysflags_ & ~vid80col
         fin
-        call($FB2F, 0, 0, 0, 0)
+        call($FE89, 0, 0, 0, 0) // IN#0
+        call($FE93, 0, 0, 0, 0) // PR#0
+        call($FB2F, 0, 0, 0, 0) // INIT
         return modflagkeep
     elsif arg->1 >= '1' and arg->1 <= '7'
         if arg->1 == '3'
@@ -39,9 +41,14 @@ if ^arg
                 puts("80 column card not present\n")
                 return 0
             fin
+            when MACHID & MACHID_MODEL
+                is MACHID_IIPLUS
+                is MACHID_II
+                    ^$C059
+            wend
             cmdsys:_sysflags_ = cmdsys:_sysflags_ | vid80col
         fin
-        call($C000 + ((arg->1 - '0') << 8), 0, 0, 0, 0)
+        call($C000 + ((arg->1 - '0') << 8), '\n', 0, 0, 0)
         return modflagkeep
     fin
 fin