6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-21 04:39:48 +00:00
Code Issues Projects Releases Wiki Activity

Allow lower case input for PLFORTH. Remove PLVM16 from DRAWL.PO and change directory to LISP at startup

Browse Source
This commit is contained in:
David Schmenk 2025-04-06 12:22:42 -07:00
parent 75eb25b67c
commit 1ea090b08e
4 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/DRAWL.po
View File

Binary file not shown.

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

5
src/mklisp
View File

@ -7,9 +7,9 @@ cat rel/apple/CMD#061000 | java -jar ac.jar -p $PO_IMAGE CMD BIN $10
cat rel/apple/CMD.128#061000 | java -jar ac.jar -p $PO_IMAGE CMD.128 BIN $1000
cat rel/apple/PLASMA.SYSTEM#FF2000 | java -jar ac.jar -p $PO_IMAGE PLASMA.SYSTEM SYS
cat rel/apple/PLVM.128#FF2000 | java -jar ac.jar -p $PO_IMAGE PLVM.128 SYS
cat rel/apple/PLVM16#FF2000 | java -jar ac.jar -p $PO_IMAGE PLVM16 SYS
#cat rel/apple/PLVM16#FF2000 | java -jar ac.jar -p $PO_IMAGE PLVM16 SYS
cat rel/apple/JIT#FE1000 | java -jar ac.jar -p $PO_IMAGE sys/JIT REL
cat rel/apple/JIT16#FE1000 | java -jar ac.jar -p $PO_IMAGE sys/JIT16 REL
#cat rel/apple/JIT16#FE1000 | java -jar ac.jar -p $PO_IMAGE sys/JIT16 REL
cat rel/apple/FILEIO#FE1000 | java -jar ac.jar -p $PO_IMAGE sys/FILEIO REL
cat rel/apple/CONIO#FE1000 | java -jar ac.jar -p $PO_IMAGE sys/CONIO REL
cat rel/apple/VBLANK#FE1000 | java -jar ac.jar -p $PO_IMAGE sys/VBLANK REL
@ -38,3 +38,4 @@ cat lisp/prog.lisp | java -jar ac.jar -ptx $PO_IMAGE lisp/PROG.L
cat lisp/lores.lisp | java -jar ac.jar -ptx $PO_IMAGE lisp/LORES.LISP TXT
cat lisp/defun.lisp | java -jar ac.jar -ptx $PO_IMAGE lisp/DEFUN.LISP TXT
cat lisp/rod.lisp | java -jar ac.jar -ptx $PO_IMAGE lisp/ROD.LISP TXT
echo "P LISP" | java -jar ac.jar -ptx $PO_IMAGE AUTORUN TXT

17
src/toolsrc/plforth.pla
View File

@ -513,18 +513,14 @@ asm _cfa_(dentry)#1
LDY #$06
+ LDA ESTKL,X
STA ESTKH-1,X
LDA (ESTKH-1,X)
TYA
CLC
ADC (ESTKH-1,X)
ADC ESTKL,X
STA ESTKL,X
BCC +
INC ESTKH,X
CLC
+ TYA
ADC ESTKL,X
STA ESTKL,X
BCC +
INC ESTKH,X
+ RTS
end
//def hashname(chars, len)#1
@ -689,6 +685,9 @@ def find(matchchars, matchlen)#1
word dentry
byte i
for i = 0 to matchlen-1
^(matchchars + i) = toupper(^(matchchars + i))
next
dentry = hashtbl[hashname(matchchars, matchlen)]
matchchars--
while dentry
@ -1036,11 +1035,15 @@ def _latest_#1
end
def newdict#0
word plist, namechars, namelen
byte i
namechars, namelen = nextword(' ')
plist = latest
latest = heapalloc(namelen + 8)
memcpy(latest + 1, namechars, namelen)
for i = 0 to namelen-1
^(latest + i + 1) = toupper(^(namechars + i))
next
//memcpy(latest + 1, namechars, namelen)
^latest = namelen
^_ffa_(latest) = 0
*_lfa_(latest) = plist