F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 42

1692 * **** LEAVE **** 1693 * ( --- ) 1694 * HEAD FNUL,LEAVE,LEAV 1695 001367 TLNK SET * 1696 01367 002714 VFD 1,0,1,FNUL,6,5,8,'314 1697 * =<FNUL,5>,'L' 1698 01370 142701 BCI 1,EA 1699 01371 153105 VFD 8,'326,8,'105 ='VE' 1700 01372 0 001356 DAC LINK 1701 001367 LINK SET TLNK 1702 001373 LEAV EQU * 1703 01373 -0 02 00101 LDA* RP 1704 01374 -0 04 00102 STA* RP1 1705 * 1706 * NEXT 1707 01375 0 12 00100 IRS IP 1708 01376 -0 01 00100 JMP* IP 1709 * 1710 * **** >R **** 1711 * ( N --- ) 1712 * HEAD FNUL,>R,TOR 1713 001377 TLNK SET * 1714 01377 001276 VFD 1,0,1,FNUL,6,2,8,'276 1715 * =<FNUL,2>,'>' 1716 01400 051000 VFD 8,'122 ='R' 1717 01401 0 001367 DAC LINK 1718 001377 LINK SET TLNK 1719 001402 TOR EQU * 1720 01402 1 02 00001 LDA 1,1 1721 01403 0 12 00000 IRS 0 1722 01404 0 10 00220 JST RPSH 1723 * 1724 * NEXT 1725 01405 0 12 00100 IRS IP 1726 01406 -0 01 00100 JMP* IP 1727 EJCT