6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-03-20 18:31:13 +00:00
Code Issues Projects Releases Wiki Activity

Fix error in MACHID_MEM

Browse Source
This commit is contained in:
David Schmenk 2024-01-21 08:30:30 -08:00
parent 68e31ccc30
commit da404a8dfa
6 changed files with 20 additions and 3 deletions

4
src/inc/cmdsys.plh

@ -2,7 +2,7 @@ import cmdsys
//
// Useful values for everyone
//
const _SYSVER_ = $0201 // Version built against
const _SYSVER_ = $0210 // Version built against
const FALSE = 0
const TRUE = not FALSE
const NULL = 0
@ -11,7 +11,7 @@ import cmdsys
//
const MACHID_CLOCK = $01
const MACHID_80COL = $02
const MACHID_MEM = $03
const MACHID_MEM = $30
const MACHID_64K = $20
const MACHID_128K = $30
const MACHID_MODEL = $C8

1
src/mk4th

@ -4,6 +4,7 @@ cat rel/HRFORTH#FE1000 | ./ac.jar -p PLASMA-2.1-4TH.po sys/HRFORTH
cat rel/HR2FORTH#FE1000 | ./ac.jar -p PLASMA-2.1-4TH.po sys/HR2FORTH REL
cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1-4TH.po sys/PLFORTH REL
cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/PLASMA.4TH TXT
cat scripts/machid.4th | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/MACHID.4TH TXT
cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/CONIO.4TH TXT
cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/FILEIO.4TH TXT
cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/GRLIB.4TH TXT

1
src/mk800

@ -61,6 +61,7 @@ cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/PLFORTH REL
#mkdir sys/scripts
cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/PLASMA.4TH TXT
cat scripts/machid.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/MACHID.4TH TXT
cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/CONIO.4TH TXT
cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FILEIO.4TH TXT
cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/GRLIB.4TH TXT

1
src/mkrel

@ -61,6 +61,7 @@ cp rel/PLFORTH#FE1000 prodos/sys/PLFORTH.REL
mkdir prodos/sys/scripts
cp scripts/plasma.4th prodos/sys/scripts/PLASMA.4TH.TXT
cp scripts/machid.4th prodos/sys/scripts/MACHID.4TH.TXT
cp scripts/conio.4th prodos/sys/scripts/CONIO.4TH.TXT
cp scripts/fileio.4th prodos/sys/scripts/FILEIO.4TH.TXT
cp scripts/grlib.4th prodos/sys/scripts/GRLIB.4TH.TXT

14
src/scripts/machid.4th Normal file

@ -0,0 +1,14 @@
' MACHID ENDSRC
$01 CONSTANT MACHID_CLOCK
$02 CONSTANT MACHID_80COL
$30 CONSTANT MACHID_MEM
$20 CONSTANT MACHID_64K
$30 CONSTANT MACHID_128K
$C8 CONSTANT MACHID_MODEL
$00 CONSTANT MACHID_II
$40 CONSTANT MACHID_IIPLUS
$80 CONSTANT MACHID_IIE
$C0 CONSTANT MACHID_III
$88 CONSTANT MACHID_IIC
$08 CONSTANT MACHID_I
LOOKUP MACHID C@ CONSTANT MACHID

2
src/scripts/plasma.4th

@ -26,4 +26,4 @@ LOOKUP HEAPAVAIL PLASMA FREEMEM
LOOKUP FILEIO 0 IFACE PLASMA GETPFX
LOOKUP FILEIO 1 IFACE PLASMA SETPFX
: PFX. HERE GETPFX DROP HERE (.") ;
: PFX" 34 WORD SETPFX DROP ;
: PFX" 34 WORD SETPFX DROP ;