Adjust how 80 columns is initialized

src/vmsrc/apple/cmd.pla

@@ -5,6 +5,8 @@ const RELADDR     = $1000
 const symtbl      = $0C00
 const freemem     = $0006
 const getlnbuf    = $01FF
+const CSW         = $36
+const KSW         = $38
 //
 // System flags: memory allocator screen holes.
 //
@@ -1428,7 +1430,7 @@ if  ^MACHID & MACHID_80COL
             ^$C059
     wend
     systemflags = systemflags | vid80col | restxt1
-    call($C300, 12, 0, 0, 0)
+    *CSW = $C300
 fin
 prstr("PLEIADES 64K VM v2.20\n")
 //

src/vmsrc/apple/cmdjit.pla

@@ -4,6 +4,8 @@ const RELADDR     = $1000
 const symtbl      = $0C00
 const freemem     = $0006
 const getlnbuf    = $01FF
+const CSW         = $36
+const KSW         = $38
 //
 // System flags: memory allocator screen holes.
 //
@@ -1509,7 +1511,7 @@ heap = @lastdef
 //
 if  ^MACHID & MACHID_80COL
     systemflags = systemflags | vid80col | restxt1 | resxtxt1
-    call($C300, 12, 0, 0, 0)
+    *CSW = $C300
 fin
 prstr("PLEIADES 128K VM v2.20\n")
 //