mirror of
https://github.com/dschmenk/PLASMA.git
synced 2025-01-07 15:31:49 +00:00
Add new ASM build tools/files
This commit is contained in:
parent
6efc2b1a98
commit
d3b9fe14a0
@ -123,8 +123,12 @@ cp samplesrc/APPLE3.PIX#060000 prodos/demos/apple3/APPLE3.PIX.BIN
|
||||
|
||||
rm -rf prodos/bld
|
||||
mkdir prodos/bld
|
||||
cp rel/PLASM#FE1000 prodos/bld/PLASM.REL
|
||||
cp rel/CODEOPT#FE1000 prodos/bld/CODEOPT.REL
|
||||
cp rel/PLASM#FE1000 prodos/bld/PLASM.REL
|
||||
cp rel/CODEOPT#FE1000 prodos/bld/CODEOPT.REL
|
||||
cp ../sysfiles/EDASM#FF2000 prodos/bld/EDASM.SYS
|
||||
cp ../sysfiles/EDASM.ASM#063000 prodos/bld/EDASM.ASM.BIN
|
||||
cp ../sysfiles/EDASM.ED#063000 prodos/bld/EDASM.ED.BIN
|
||||
cp ../sysfiles/EDASM.SWAP#062000 prodos/bld/EDASM.SWAP.BIN
|
||||
|
||||
mkdir prodos/bld/samples
|
||||
cp samplesrc/hello.pla prodos/bld/samples/HELLO.PLA.TXT
|
||||
@ -155,6 +159,7 @@ cp utilsrc/apple/zipchip.pla prodos/bld/samples/ZIPCHIP.PLA.TXT
|
||||
cp libsrc/apple/dhgrlib.pla prodos/bld/samples/DHGR.PLA.TXT
|
||||
cp samplesrc/testrel.asm prodos/bld/samples/TESTREL.ASM.TXT
|
||||
cp samplesrc/testext.asm prodos/bld/samples/TESTEXT.ASM.TXT
|
||||
cp samplesrc/testasm.pla prodos/bld/samples/TESTASM.PLA.TXT
|
||||
|
||||
mkdir prodos/bld/scripts
|
||||
cp scripts/rod.4th prodos/bld/scripts/ROD.4TH.TXT
|
||||
|
11
src/samplesrc/testasm.pla
Normal file
11
src/samplesrc/testasm.pla
Normal file
@ -0,0 +1,11 @@
|
||||
include "inc/cmdsys.plh"
|
||||
import test
|
||||
predef hello#0
|
||||
predef goodbye#0
|
||||
end
|
||||
|
||||
hello
|
||||
puts("Did it load?\n")
|
||||
goodbye
|
||||
hello
|
||||
done
|
@ -947,13 +947,13 @@ def allocxheap(size)#1
|
||||
word xaddr
|
||||
xaddr = xheap
|
||||
xheap = xheap + size
|
||||
if systemflags & (restxt1 | resxtxt1)
|
||||
if systemflags & resxtxt1
|
||||
if uword_islt(xaddr, $0800) and uword_isgt(xheap, $0400)
|
||||
xaddr = $0800
|
||||
xheap = xaddr + size
|
||||
fin
|
||||
fin
|
||||
if systemflags & (restxt2 | resxtxt2)
|
||||
if systemflags & resxtxt2
|
||||
if uword_islt(xaddr, $0C00) and uword_isgt(xheap, $0800)
|
||||
xaddr = $0C00
|
||||
xheap = xaddr + size
|
||||
|
Loading…
Reference in New Issue
Block a user