F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 43

1728 * 1729 * **** R> **** 1730 * ( --- R ) 1731 * HEAD FNUL,R>,FRMR 1732 001407 TLNK SET * 1733 01407 001322 VFD 1,0,1,FNUL,6,2,8,'322 1734 * =<FNUL,2>,'R' 1735 01410 037000 VFD 8,'076 ='>' 1736 01411 0 001377 DAC LINK 1737 001407 LINK SET TLNK 1738 001412 FRMR EQU * 1739 01412 0 10 00227 JST RPOP 1740 01413 0 01 00116 JMP PUSH 1741 * 1742 * **** R **** 1743 * ( --- N ) 1744 * HEAD FNUL,R,R 1745 001414 TLNK SET * 1746 01414 000522 VFD 1,0,1,FNUL,6,1,8,'122 1747 * =<FNUL,1>,'R' 1748 01415 0 001407 DAC LINK 1749 001414 LINK SET TLNK 1750 001416 R EQU * 1751 01416 -0 02 00101 LDA* RP 1752 01417 0 01 00116 JMP PUSH 1753 * 1754 * **** 0= **** 1755 * ( N --- N ) 1756 * HEAD FNUL,0=,ZEQU 1757 001420 TLNK SET * 1758 01420 001260 VFD 1,0,1,FNUL,6,2,8,'260 1759 * =<FNUL,2>,'0' 1760 01421 036400 VFD 8,'075 ='=' 1761 01422 0 001414 DAC LINK 1762 001420 LINK SET TLNK 1763 001423 ZEQU EQU * 1764 01423 1 02 00001 LDA 1,1 1765 01424 100040 SZE IS IT ZERO? 1766 01425 0 01 01430 JMP ZEQ0 1767 01426 0 02 00736 ZEQ1 LDA =1 RETURN TRUE 1768 01427 0 01 00125 JMP PUT 1769 01430 140040 ZEQ0 CRA RETURN FALSE 1770 01431 0 01 00125 JMP PUT 1771 EJCT