diff --git a/images/apple/PLEIADES-2.20-FPSOS.po b/images/apple/PLEIADES-2.20-FPSOS.po index ef1895d..7cde4af 100644 Binary files a/images/apple/PLEIADES-2.20-FPSOS.po and b/images/apple/PLEIADES-2.20-FPSOS.po differ 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