F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 45

1822 01464 0 12 00000 IRS 0 DISCARD A WORD 1823 01465 0 01 00124 JMP BINA 1824 * 1825 * **** MINUS **** 1826 * ( N --- N ) 1827 * HEAD FNUL,MINUS,MINS 1828 001466 TLNK SET * 1829 01466 002715 VFD 1,0,1,FNUL,6,5,8,'315 1830 * =<FNUL,5>,'M' 1831 01467 144716 BCI 1,IN 1832 01470 152523 VFD 8,'325,8,'123 ='US' 1833 01471 0 001446 DAC LINK 1834 001466 LINK SET TLNK 1835 001472 MINS EQU * 1836 01472 1 02 00001 LDA 1,1 1837 01473 140407 TCA 1838 01474 0 01 00125 JMP PUT 1839 * **** DMINUS **** 1840 * ( D --- D ) 1841 * HEAD FNUL,DMINUS,DMNS 1842 001475 TLNK SET * 1843 01475 003304 VFD 1,0,1,FNUL,6,6,8,'304 1844 * =<FNUL,6>,'D' 1845 01476 146711 BCI 2,MINU 01477 147325 1846 01500 051400 VFD 8,'123 ='S' 1847 01501 0 001466 DAC LINK 1848 001475 LINK SET TLNK 1849 001502 DMNS EQU * 1850 01502 1 02 00002 LDA 2,1 1851 01503 140407 TCA 1852 01504 1 04 00002 STA 2,1 1853 01505 140200 RCB 1854 01506 101040 SNZ ZERO? 1855 01507 140600 SCB YES - SET CARRY 1856 01510 1 02 00001 LDA 1,1 MS WORD 1857 01511 140401 CMA 1858 01512 141216 ACA ADD ANY CARRY IN 1859 01513 0 01 00125 JMP PUT 1860 EJCT