F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 18

0685 ****************************************************************** 0686 * 0687 * RETURN STACK 0688 * 0689 ****************************************************************** 0690 * 0691 * PUSH A VALUE ONTO THE RETURN STACK 0692 * 0693 00220 0 000000 RPSH DAC ** 0694 00221 0 13 00101 IMA RP TEMP. SAVE VALUE 0695 00222 0 04 00102 STA RP1 NEXT-ON-STACK-POINTER 0696 00223 0 07 00736 SUB =1 DECREMENT POINTER 0697 00224 0 13 00101 IMA RP NEW POINTER, GET VALUE TO PUSH BACK 0698 00225 -0 04 00101 STA* RP 0699 00226 -0 01 00220 JMP* RPSH 0700 * 0701 * POP A VALUE FROM THE RETURN STACK 0702 * 0703 00227 0 000000 RPOP DAC ** 0704 00230 -0 02 00101 LDA* RP GET VALUE 0705 00231 0 13 00102 IMA RP1 SAVE AND GET RP+1 0706 00232 0 04 00101 STA RP WHICH IS NEW VALUE OF RP 0707 00233 141206 AOA INCREMENT TO NEW VALUE OF RP1 0708 00234 0 13 00102 IMA RP1 UPDATE RP1, RETRIEVE VALUE 0709 00235 -0 01 00227 JMP* RPOP 0710 000236 NXTW EQU * 0711 EJCT