1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-10 21:30:04 +00:00

Disable JITC on certain modules.

This commit is contained in:
David Schmenk 2018-04-07 10:48:11 -07:00
parent 2241c0c65f
commit 61eaeef9c1
5 changed files with 13 additions and 10 deletions

View File

@ -1,4 +1,5 @@
include "inc/cmdsys.plh"
sysflags nojitc // Keep tone() from compiling and sounding different
//
// Handy constants.
//

View File

@ -1,4 +1,5 @@
include "inc/cmdsys.plh"
sysflags nojitc // It's file I/O. No need to hurry up and wait.
//
// CFFA1 addresses.
//

View File

@ -1,4 +1,5 @@
include "inc/cmdsys.plh"
sysflags nojitc // No need to speed this up
def argDelim(str)
byte n

View File

@ -1,7 +1,7 @@
cp rel/apple/CMD#061000 prodos/CMD.BIN
cp rel/apple/CMDJIT#061000 prodos/CMDJIT.BIN
cp rel/apple/PLASMA.SYSTEM#FF2000 prodos/PLASMA.SYSTEM.SYS
cp rel/apple/PLASMAJIT.SYSTEM#FF2000 prodos/PLAJIT.SYSTEM.SYS
cp rel/apple/PLASMAJIT.SYSTEM#FF2000 prodos/PLIJIT.SYSTEM.SYS
cp rel/apple/PLASMA16.SYSTEM#FF2000 prodos/PLASMA16.SYSTEM.SYS
cp rel/apple/SOS.INTERP#050000 prodos/SOS.INTERP.\$05
cp rel/apple/SOS.CMD#FE1000 prodos/SOS.CMD.REL

View File

@ -7,6 +7,7 @@
include "inc/cmdsys.plh"
include "inc/args.plh"
include "inc/fileio.plh"
sysflags nojitc // Keep JITC from compiling and pausing while editing
//
// Hardware constants
//
@ -169,8 +170,8 @@ def sizemask(size)
return 0
end
def strpoolalloc(size)
byte szmask, i
word mapmask, addr
byte szmask
word mapmask, addr, i
szmask = sizemask(size)
for i = strplmapsize - 1 downto 0
@ -357,14 +358,13 @@ def writetxt(filename)#0
//
// Remove blank lines at end of text.
//
while numlines > 1 and strlinbuf=>[numlines - 1] == @nullstr; numlines = numlines - 1; loop
while numlines > 1 and strlinbuf=>[numlines - 1] == @nullstr; numlines--; loop
//
// Write all the text line to the file.
//
for i = 0 to numlines - 1
cpyln(strlinbuf=>[i], @txtbuf)
txtbuf = txtbuf + 1
txtbuf[txtbuf] = $0D
txtbuf++; txtbuf[txtbuf] = $0D // Add CR to end of line
fileio:write(refnum, @txtbuf + 1, txtbuf)
if !(i & $0F); putc('.'); fin
next
@ -503,7 +503,7 @@ end
def pgup#0
byte i
for i = pgjmp downto 0
for i = 0 to pgjmp
cursup
next
end
@ -523,7 +523,7 @@ end
def pgdown#0
byte i
for i = pgjmp downto 0
for i = 0 to pgjmp
cursdown
next
end
@ -543,7 +543,7 @@ end
def pgleft#0
byte i
for i = 7 downto 0
for i = 0 to 7
cursleft
next
end
@ -563,7 +563,7 @@ end
def pgright#0
byte i
for i = 7 downto 0
for i = 0 to 7
cursright
next
end