6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-09 01:25:00 +00:00
Code Issues Projects Releases Wiki Activity

Better INITSLOT 0 processing

Browse Source
This commit is contained in:
David Schmenk
2025-03-14 19:45:55 -07:00
parent 10cd4969f4
commit 4321eec00f
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLASMA-2.20.po
View File

Binary file not shown.

15
src/utilsrc/apple/initslot.pla
View File

@@ -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