6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

add LISP to build process

Browse Source
This commit is contained in:
David Schmenk 2024-07-07 17:15:56 -07:00
parent 66c2104b76
commit 4b4b7e0683
6 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
src/toolsrc/drawl.pla → src/lisp/drawl.pla
View File

21
src/lisp/set.lisp Normal file
View File

@ -0,0 +1,21 @@
(define
(member (lambda (a x)
(cond ((null x) f)
((eq a (car x)) t)
(t (member a (cdr x)))
))
)
(union (lambda (x y)
(cond ((null x) y)
((member (car x) y) (union (cdr x) y))
(t (cons (car x) (union (cdr x) y)))
))
)
(intersection (lambda (x y)
(cond ((null x) nil)
((member (car x) y) (cons (car x) (intersection
(cdr x) y)))
(t (intersection (cdr x) y))
))
)
)

6
src/makefile
View File

@ -172,9 +172,9 @@ $(PLFORTH): toolsrc/plforth.pla
./$(PLASM) -AMOW toolsrc/plforth.pla
acme --setpc 4094 -o $(PLFORTH) toolsrc/plforth.a
$(DRAWL): toolsrc/drawl.pla
./$(PLASM) -AMOW toolsrc/drawl.pla
acme --setpc 4094 -o $(DRAWL) toolsrc/drawl.a
$(DRAWL): lisp/drawl.pla
./$(PLASM) -AMOW lisp/drawl.pla
acme --setpc 4094 -o $(DRAWL) lisp/drawl.a
#
# PLASMA VMs

1
src/mk140
View File

@ -7,3 +7,4 @@
./mkbld
./mkinet
./mkdemos
./mklisp

5
src/mklisp Executable file
View File

@ -0,0 +1,5 @@
cp ../sysfiles/BLANK140.po PLASMA-2.1-LISP.po
./ac.jar -n PLASMA-2.1-LISP.po PLASMA.LISP
cat rel/DRAWL#FE1000 | ./ac.jar -p PLASMA-2.1-LISP.po DRAWL REL
cat lisp/drawl.pla | ./ac.jar -ptx PLASMA-2.1-LISP.po DRAWL.PLA TXT
cat lisp/set.lisp | ./ac.jar -ptx PLASMA-2.1-LISP.po SET.LISP TXT

6
src/mkrel
View File

@ -59,7 +59,6 @@ cp rel/HRFORTH#FE1000 prodos/sys/HRFORTH.REL
cp rel/HR2FORTH#FE1000 prodos/sys/HR2FORTH.REL
cp rel/TX2FORTH#FE1000 prodos/sys/TX2FORTH.REL
cp rel/PLFORTH#FE1000 prodos/sys/PLFORTH.REL
cp rel/DRAWL#FE1000 prodos/sys/DRAWL.REL
mkdir prodos/sys/scripts
cp scripts/plasma.4th prodos/sys/scripts/PLASMA.4TH.TXT
@ -174,6 +173,11 @@ cp scripts/hdinstall.4th prodos/bld/scripts/HDINSTALL.4TH.TXT
cp scripts/hdinstall1.4th prodos/bld/scripts/HDINSTALL1.4TH.TXT
cp scripts/hdinstall2.4th prodos/bld/scripts/HDINSTALL2.4TH.TXT
mkdir prodos/bld/lisp
cp rel/DRAWL#FE1000 prodos/bld/lisp/DRAWL.REL
cp lisp/drawl.pla prodos/bld/lisp/DRAWL.PLA.TXT
cp lisp/set.lisp prodos/bld/lisp/SET.LISP.TXT
#mkdir prodos/bld/examples
#cp samplesrc/examples/ex.1.pla prodos/bld/examples/EX.1.PLA.TXT
#cp samplesrc/examples/ex.2.pla prodos/bld/examples/EX.2.PLA.TXT