Clean up Virtual ][ 80 column card mode set

2026-03-12 16:42:08 +00:00 · 2025-05-09 08:48:00 -07:00
parent 5d9ff1c492
commit 9a7fedabc2
6 changed files with 2 additions and 0 deletions
--- a/images/apple/DRAWL.po
+++ b/images/apple/DRAWL.po
--- a/images/apple/PLEIADES-2.20-INST.po
+++ b/images/apple/PLEIADES-2.20-INST.po
--- a/images/apple/PLEIADES-2.20.po
+++ b/images/apple/PLEIADES-2.20.po
--- a/images/apple/PLFORTH.po
+++ b/images/apple/PLFORTH.po
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -1431,6 +1431,7 @@ if  ^MACHID & MACHID_80COL
    wend
    systemflags = systemflags | vid80col | restxt1
    *CSW = $C300
+    crout; cout(12)
 fin
 prstr("PLEIADES 64K VM v2.20\n")
 //
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -1512,6 +1512,7 @@ heap = @lastdef
 if  ^MACHID & MACHID_80COL
    systemflags = systemflags | vid80col | restxt1 | resxtxt1
    *CSW = $C300
+    cout(12)
 fin
 prstr("PLEIADES 128K VM v2.20\n")
 //