F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 52

2057 ****************************************************************** 2058 * 2059 * PRE-COMPILED FORTH SECTION 2060 * 2061 ****************************************************************** 2062 * 2063 * 2064 * 2065 * NOTE - A FEW OF THE FOLLOWING OPERATIONS HAVE BEEN 2066 * CONVERTED TO CODE FOR SPEED. HOWEVER, THE WORD ORDER 2067 * IN THE DICTIONARY HAS NOT BEEN CHANGED. 2068 * 2069 * **** : **** 2070 * HEAD FIMD,:,COLN,DOCL 2071 001630 TLNK SET * 2072 01630 040472 VFD 1,0,1,FIMD,6,1,8,'072 2073 * =<FIMD,1>,':' 2074 01631 0 001621 DAC LINK 2075 001630 LINK SET TLNK 2076 01632 0 10 00130 COLN JST DOCL 2077 01633 0 002506 DAC QEXC 2078 01634 0 002443 DAC SCSP 2079 01635 0 002136 DAC CURR 2080 01636 0 001565 DAC AT 2081 01637 0 002127 DAC CONT 2082 01640 0 001577 DAC STOR 2083 01641 0 003746 DAC CRAT 2084 01642 0 002612 DAC RBRC 2085 01643 0 002675 DAC PSCD 2086 01644 0 10 00130 JST DOCL PICKED UP BY PSCD 2087 * 2088 * **** ; **** 2089 * HEAD FIMD,;,SEMI,DOCL 2090 001645 TLNK SET * 2091 01645 040473 VFD 1,0,1,FIMD,6,1,8,'073 2092 * =<FIMD,1>,';' 2093 01646 0 001630 DAC LINK 2094 001645 LINK SET TLNK 2095 01647 0 10 00130 SEMI JST DOCL 2096 01650 0 002534 DAC QCSP 2097 01651 0 002570 DAC COMP 2098 01652 0 001361 DAC SMIS 2099 01653 0 002625 DAC SMDG 2100 01654 0 002603 DAC LBRC 2101 01655 0 001361 DAC SMIS 2102 * 2103 * **** CONSTANT **** 2104 * HEAD FNUL,CONSTANT,CON,DOCL 2105 001656 TLNK SET * 2106 01656 004303 VFD 1,0,1,FNUL,6,8,8,'303