Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 46

1861 * **** OVER **** 1862 * ( N1 N2 --- N1 N2 N1 ) 1863 * HEAD FNUL,OVER,OVER 1864 001514 TLNK SET * 1865 01514 002317 VFD 1,0,1,FNUL,6,4,8,'317 1866 * =<FNUL,4>,'O' 1867 01515 153305 BCI 1,VE 1868 01516 051000 VFD 8,'122 ='R' 1869 01517 0 001475 DAC LINK 1870 001514 LINK SET TLNK 1871 001520 OVER EQU * 1872 01520 1 02 00002 LDA 2,1 1873 01521 0 01 00116 JMP PUSH 1874 * **** DROP **** 1875 * ( N --- ) 1876 * HEAD FNUL,DROP,DROP 1877 001522 TLNK SET * 1878 01522 002304 VFD 1,0,1,FNUL,6,4,8,'304 1879 * =<FNUL,4>,'D' 1880 01523 151317 BCI 1,RO 1881 01524 050000 VFD 8,'120 ='P' 1882 01525 0 001514 DAC LINK 1883 001522 LINK SET TLNK 1884 001526 DROP EQU * 1885 01526 0 01 00113 JMP POP 1886 * **** SWAP **** 1887 * ( N1 N2 --- N2 N1 ) 1888 * HEAD FNUL,SWAP,SWAP 1889 001527 TLNK SET * 1890 01527 002323 VFD 1,0,1,FNUL,6,4,8,'323 1891 * =<FNUL,4>,'S' 1892 01530 153701 BCI 1,WA 1893 01531 050000 VFD 8,'120 ='P' 1894 01532 0 001522 DAC LINK 1895 001527 LINK SET TLNK 1896 001533 SWAP EQU * 1897 01533 1 02 00001 LDA 1,1 1898 01534 1 13 00002 IMA 2,1 1899 01535 0 01 00125 JMP PUT 1900 EJCT
  Previous Page Single Page Next Page