F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 16

0630 * EXECUTE A 'DOES>' 0631 * SAVES CORRECTED IP TO THE RETURN STACK, THEN PICKS UP 0632 * THE FIRST PARAMETER, WHICH WILL BE JUMPED TO, AND 0633 * THE SECOND PARAMETER, WHICH IS PUSHED ONTO THE STACK 0634 * 0635 00152 0 000000 DODS DAC ** NO INDIRECT BIT SET 0636 00153 0 02 00100 LDA IP 0637 00154 140100 SSP 0638 00155 141206 AOA 0639 00156 0 10 00220 JST RPSH 0640 00157 -0 02 00152 LDA* DODS 0641 00160 0 07 00736 SUB =1 0642 00161 140500 SSM SET THE INDIRECT BIT 0643 00162 0 04 00100 STA IP 0644 00163 0 02 00152 LDA DODS 0645 00164 141206 AOA 0646 00165 0 01 00116 JMP PUSH 0647 EJCT