F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 41

1651 * **** RP! **** 1652 * ( --- ) INITIALISE RETURN STACK POINTER 1653 * HEAD FNUL,RP!,RPST 1654 001342 TLNK SET * 1655 01342 001722 VFD 1,0,1,FNUL,6,3,8,'322 1656 * =<FNUL,3>,'R' 1657 01343 150041 VFD 8,'320,8,'041 ='P!' 1658 01344 0 001327 DAC LINK 1659 001342 LINK SET TLNK 1660 001345 RPST EQU * 1661 01345 0 02 00103 LDA UP 1662 01346 0 06 00714 ADD ='4 OFFSET 4 IN USER AREA 1663 01347 0 04 00104 STA T1 POINT TO LOCATION IN TABLE 1664 01350 -0 02 00104 LDA* T1 GET VALUE 1665 01351 0 04 00101 STA RP 1666 01352 141206 AOA 1667 01353 0 04 00102 STA RP1 1668 * 1669 * NEXT 1670 01354 0 12 00100 IRS IP 1671 01355 -0 01 00100 JMP* IP 1672 * 1673 * **** ;S **** 1674 * ( --- N ) RETURN? 1675 * HEAD FNUL,;S,SMIS 1676 001356 TLNK SET * 1677 01356 001273 VFD 1,0,1,FNUL,6,2,8,'273 1678 * =<FNUL,2>,';' 1679 01357 051400 VFD 8,'123 ='S' 1680 01360 0 001342 DAC LINK 1681 001356 LINK SET TLNK 1682 001361 SMIS EQU * 1683 01361 0 10 00227 JST RPOP 1684 01362 0 07 00736 SUB =1 1685 01363 140500 SSM 1686 01364 0 04 00100 STA IP 1687 * 1688 * NEXT 1689 01365 0 12 00100 IRS IP 1690 01366 -0 01 00100 JMP* IP 1691 EJCT