6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-11-04 11:07:00 +00:00
Code Issues Projects Releases Wiki Activity

Remove xheap from 64K cmdsys. Rework init message

Browse Source
This commit is contained in:
David Schmenk 2018-04-24 10:26:48 -07:00
parent e6fc45a798
commit d3a19cccbf
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/vmsrc/apple/cmd.pla
View File

@ -121,7 +121,6 @@ word sysmodsym = @exports
//
word systemflags = 0
word heap
word xheap = $0800
word lastsym = symtbl
//
// Utility functions
@ -1310,17 +1309,15 @@ def execsys(sysfile)#0
end
def execmod(modfile)#1
byte moddci[17]
word saveheap, savexheap, savesym, saveflags
word saveheap, savesym, saveflags
perr = 1
if stodci(modfile, @moddci)
saveheap = heap
savexheap = xheap
savesym = lastsym
saveflags = systemflags
if loadmod(@moddci) < modkeep
lastsym = savesym
xheap = savexheap
heap = saveheap
fin
^lastsym = 0
@ -1335,7 +1332,7 @@ heap = *freemem
//
// Print PLASMA version
//
prstr("PLASMA 64K 2.0 Dev\n")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
prstr("PLASMA 2.0 Dev 64K \n")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
//
// Init symbol table.
//

2
src/vmsrc/apple/cmdjit.pla
View File

@ -1400,7 +1400,7 @@ heap = *freemem
//
// Print PLASMA version
//
prstr("PLASMA 128K 2.0 Dev ")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
prstr("PLASMA 2.0 Dev 128K ")//; prbyte(version.1); cout('.'); prbyte(version.0); crout
//
// Init symbol table.
//

2
src/vmsrc/apple/sossys.pla
View File

@ -1287,7 +1287,7 @@ cmdlnptr = @cmdln
// Print PLASMA version
//
init_cons
prstr("PLASMA JITC 2.0 Dev\n")//; putb(version.1); putc('.'); putb(version.0); putln
prstr("PLASMA 2.0 Dev JITC\n")//; putb(version.1); putc('.'); putb(version.0); putln
prstr("MEM:$"); prword(availheap); crout
//
// Exec command line parser