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:
parent
2241c0c65f
commit
61eaeef9c1
@ -1,4 +1,5 @@
|
||||
include "inc/cmdsys.plh"
|
||||
sysflags nojitc // Keep tone() from compiling and sounding different
|
||||
//
|
||||
// Handy constants.
|
||||
//
|
||||
|
@ -1,4 +1,5 @@
|
||||
include "inc/cmdsys.plh"
|
||||
sysflags nojitc // It's file I/O. No need to hurry up and wait.
|
||||
//
|
||||
// CFFA1 addresses.
|
||||
//
|
||||
|
@ -1,4 +1,5 @@
|
||||
include "inc/cmdsys.plh"
|
||||
sysflags nojitc // No need to speed this up
|
||||
|
||||
def argDelim(str)
|
||||
byte n
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user