Available Flex Documents


6809 FLEX FIG-FORTH Notes

Included with the release of the emulator is a version of FIG FORTH which as nearly as I can tell seems to work.

I had to do some work to get the source to assemble, but all of the changes were not of a type to substantially affect the program's internal logic or structure. I've attempted to test the implementation. I'm afraid that wasn't very extensive since I'm not a FORTH programmer by any means. Still, everything I tried worked as I expected, based on a couple of books on FORTH I own.

There are no documents for this version, other than a short demonstration program (DEMO.TXT on the DISK1 file). To try and alleviate the large set of unknowns here, I've gone through the assembler source - all of it - and located all of the FORTH "words" that this version offers. Some of them may not be intended for use by the programmer, but I can't be certain. What you can do with this list is when working with the program you can check to see if the word you're looking for is there. That implies you have some knowledge about FORTH, at least have a tutorial or a book handy.

With all of that in mind, here's the list of words in the supplied 6809 version of FIG-FORTH:

Word Word Word Word Word
! !CSP # #> #DR
#S > >R < <#
<BUILDS ' (+LOOP) (;CODE) (ABORT)
(DO) (FIND) (IMMEDIATE) (LINE) (LOOP)
(NUMBER) (_) * */ */MOD
+ +! +- +BUF +LOOP
, - --> -DUP -FIND
-TRAILING . .LINE .R /
/MOD 0 0< 0= 1
1+ 1- 2 2+ 2-
3 : ; ;CODE ;S
= ? ?COMP ?CSP ?ERROR
?EXEC ?LOADING ?PAIRS ?STACK @
ABORT ABS AGAIN ALLOT AND
B/BUF B/SCR BACK BEGIN BL
BLANKS BLOCK BRANCH BUFFER C!
C, C@ CFA CLOSE CLOSEIN
CLOSEOUT CMOVE COLD COMPILE CONSTANT
COUNT CR D+ D+- D.
D.R DABS DECIMAL DEFINITIONS DELETE
DIGIT DISKIN DISKOUT DISKRW DLITERAL
DMINUS DO DOES> DOS DR0
DR1 DRIVE DROP DRSIM DUMP
DUP ELSE EMIT EMPTY-BUFFERS ENCLOSE
END ENDIF ERASE ERROR EXECUTE
EXPECT FILL FIRST FLUSH FORGET
FREE GO HERE HEX HI
HOLD I ID. IF IMMEDIATE
INTERPRET J JSR K KEY
LATEST LEAVE LFA LIMIT LIST
LIT LITERAL LO LOAD LOOP
M* M/ M/MOD MAX MESSAGE
MIN MINUS MOD MON NFA
NOOP NUMBER OBRANCH OPEN OR
ORIGIN OVER PAD PFA PREV
QUERY QUIT R R> R/W
R0 READ REPEAT REWIND ROT
RP! S->D S0 SCR>BLK SEC/TRK
SIGN SMUDGE SP! SP@ SPACE
SPACES SWAP TERMINAL THEN TOGGLE
TRAVERSE TRK/DISK TYPE U* U/
UNTIL UPDATE USE USEBLK USER
VARIABLE VLIST VOCABULARY WARM WHILE
WORD WRITE XOR [ [COMPILE]
]


Available Flex Documents