F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 73

3055 02662 0 10 00130 OCT JST DOCL 3056 02663 0 000241 DAC LIT 3057 02664 000010 DEC 8 3058 02665 0 002152 DAC BASE 3059 02666 0 001577 DAC STOR 3060 02667 0 001361 DAC SMIS 3061 * 3062 * **** (;CODE) **** 3063 * HEAD FNUL,(;CODE),PSCD,DOCL 3064 002670 TLNK SET * 3065 02670 003650 VFD 1,0,1,FNUL,6,7,8,'250 3066 * =<FNUL,7>,'(' 3067 02671 135703 BCI 2,;COD 02672 147704 3068 02673 142451 VFD 8,'305,8,'051 ='E)' 3069 02674 0 002657 DAC LINK 3070 002670 LINK SET TLNK 3071 02675 0 10 00130 PSCD JST DOCL 3072 02676 0 001412 DAC FRMR SHOULD POINT AT JST INSTRUCTION 3073 02677 0 001565 DAC AT PICK UP THAT INSTRUCTION 3074 02700 0 002357 DAC LTST 3075 02701 0 002423 DAC PFA 3076 02702 0 002376 DAC CFA 3077 02703 0 001577 DAC STOR 3078 02704 0 001361 DAC SMIS 3079 * 3080 * ***** THE DEFINITION OF ';CODE' WAS MOVED TO THE END OF 3081 * THE DICTIONARY, BECAUSE IT IS NOT PURE CODE (IT IS PATCHED 3082 * WHEN A FORTH ASSEMBLER IS LOADED). 3083 * 3084 * 3085 * **** <BUILDS **** CREATE NEW DATA TYPE WITH CODE ROUTINE IN 3086 * HIGHER-LEVEL FORTH. 3087 * HEAD FNUL,<BUILDS,BULD,DOCL 3088 002705 TLNK SET * 3089 02705 003674 VFD 1,0,1,FNUL,6,7,8,'274 3090 * =<FNUL,7>,'<' 3091 02706 141325 BCI 2,BUIL 02707 144714 3092 02710 142123 VFD 8,'304,8,'123 ='DS' 3093 02711 0 002670 DAC LINK 3094 002705 LINK SET TLNK 3095 02712 0 10 00130 BULD JST DOCL 3096 02713 0 001716 DAC ZERO 3097 02714 0 001664 DAC CON 3098 02715 0 001361 DAC SMIS 3099 * 3100 * **** DOES> **** 3101 * HEAD FNUL,DOES>,DOES,DOCL 3102 002716 TLNK SET *