F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 12

0470 CF1 SHOULD WORK ON 116, 316, 516, 716 0471 ABS 0472 SETB NXTZ 0473 SUBR GFORTH,ORGN GLOBAL LABEL - NORMALLY NOT USED 0474 ****************************************************************** 0475 * 0476 * SYSTEM PARAMETERS 0477 * 0478 ****************************************************************** 0479 000001 HSA EQU 1 SET TO 1 TO USE HIGH-SPEED ARITHMETIC OPTION 0480 000000 XTND EQU 0 SET TO 1 TO USE EXTENDED ADDRESSING OPTION 0481 000000 DISK EQU 0 SET TO 1 IF HAVE DISK 0482 000001 PTW EQU 1 SET TO 1 TO INCLUDE PAPERTAPE WORDS 0483 * 0484 000000 DBGW EQU 0 SET TO 1 TO INCLUDE 'DEBUG' WORD 0485 * 0486 000000 RSRV EQU 0 WORDS TO RESERVE AT MEMORY TOP 0487 * 0488 000000 ECHO EQU 0 SET TO 1 IF ECHO TO TERMINAL REQUIRED 0489 000001 ECLF EQU 1 SET TO 1 TO ECHO LF IN RESPONSE TO CR 0490 * 0491 * CHARACTER CONSTANTS 0492 * 0493 000204 CEOT EQU '204 END OF TRANSMISSION (END OF PAPERTAPE) 0494 000215 CCR EQU '215 CARRIAGE RETURN 0495 000212 CLF EQU '212 LINE FEED 0496 000210 CBS EQU '210 BACKSPACE 0497 000240 CSPC EQU '240 =' ' SPACE 0498 000242 CDQT EQU '242 ='"' DOUBLE QUOTE 0499 000251 CRPR EQU '251 =')' RIGHT PARENTHESIS 0500 000255 CMNS EQU '255 ='-' MINUS 0501 000256 CDOT EQU '256 ='.' FULL STOP (PERIOD) 0502 000260 CZRO EQU '260 ='0' (DIGIT ZERO) 0503 000377 CDEL EQU '377 DELETE 0504 * 0505 * OTHER CONSTANTS 0506 * 0507 000042 KPAD EQU 34 =68 BYTES 0508 ****************************************************************** 0509 * 0510 * VARIABLES 0511 * 0512 ****************************************************************** 0513 IFN XTND 0514 EXD 0515 ENDC 0516 ORG '100 0517 00100 IP BSS 1 INTERPRETER POINTER 0518 00101 RP BSS 1 RETURN STACK POINTER 0519 00102 RP1 BSS 1 RETURN STACK POINTER+1