mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-06-12 14:29:54 +00:00
29 lines
802 B
Forth
29 lines
802 B
Forth
' IFACE ENDSRC
|
|
: IFACE 2 * + @ ;
|
|
LOOKUP CMDSYS 0 IFACE CONSTANT PLASMAVER
|
|
LOOKUP CMDSYS 2 IFACE CONSTANT CMDLINE
|
|
LOOKUP CMDSYS 3 IFACE PLASMA EXECMOD
|
|
LOOKUP STRCPY PLASMA STRCPY
|
|
LOOKUP STRCAT PLASMA STRCAT
|
|
LOOKUP TOUPPER PLASMA TOUPPER
|
|
LOOKUP HEAPAVAIL PLASMA FREEMEM
|
|
: LOADMOD
|
|
CMDLINE " . " STRCPY DROP
|
|
CMDLINE SWAP STRCAT DROP
|
|
EXECMOD 0< ABORT" Failed to load module" ;
|
|
: LOADMOD"
|
|
PAD SWAP STRCPY
|
|
CHAR " WORD
|
|
LOADMOD ;
|
|
: EDIT " ED" " " LOADMOD ;
|
|
: EDIT" " ED" LOADMOD" ;
|
|
: CAT " CAT" " " LOADMOD ;
|
|
: CAT" " CAT" LOADMOD" ;
|
|
: DEL" " DEL" LOADMOD" ;
|
|
: REN" " REN" LOADMOD" ;
|
|
: COPY" " COPY" LOADMOD" ;
|
|
: NEWDIR" " NEWDIR" LOADMOD" ;
|
|
LOOKUP FILEIO 0 IFACE PLASMA GETPFX
|
|
LOOKUP FILEIO 1 IFACE PLASMA SETPFX
|
|
: PFX. HERE GETPFX DROP HERE (.") ;
|
|
: PFX" 34 WORD SETPFX DROP ; |