F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 15

0587 * EXECUTE A COLON DEFINITION 0588 * SAVES CORRECTED IP TO THE RETURN STACK, THEN PICKS UP 0589 * THE PARAMETER ADDRESS, THAT WOULD COMMONLY BE IN THE 0590 * W REGISTER, FROM DOCL - WHERE IT WAS PLACED BY THE 0591 * JST INSTRUCTION AT THE CFA IN THE HEADER - AND 0592 * JUMPS TO THAT LOCATION 0593 * 0594 00130 -0 000000 DOCL DAC* ** INDIRECT BIT SET 0595 00131 0 02 00100 LDA IP 0596 00132 140100 SSP 0597 00133 141206 AOA 0598 00134 0 10 00220 JST RPSH 0599 00135 0 02 00130 LDA DOCL NOTE INDIRECT BIT IS SET BY DAC* 0600 00136 0 04 00100 NXT1 STA IP 0601 00137 -0 01 00100 JMP* IP EFFECTVELY NEXT 0602 * 0603 * EXECUTE A CONSTANT 0604 * SIMPLY PICKS UP THE VALUE AT THE PARAMETER ADDRESS 0605 * AND PUSHES IT ONTO THE STACK 0606 * 0607 00140 0 000000 DOCN DAC ** 0608 00141 -0 02 00140 LDA* DOCN 0609 00142 0 01 00116 JMP PUSH 0610 * 0611 * EXECUTE A VARIABLE 0612 * PICKS UP THE ADDRESS OF THE PARAMETER ADDRESS AND 0613 * PUSHES IT ONTO THE STACK 0614 * 0615 00143 0 000000 DOVR DAC ** 0616 00144 0 02 00143 LDA DOVR 0617 00145 0 01 00116 JMP PUSH 0618 * 0619 * EXECUTE A USER VARIABLE 0620 * PICK UP THE VALUE IN THE PARAMETER ADDRESS, WHICH IS 0621 * AN OFFSET INTO THE USER AREA, ADD IT ONTO THE USER AREA 0622 * BASE POINTER AND PUSH THE RESULTING ADDRESS ONTO THE 0623 * STACK 0624 * 0625 00146 0 000000 DOUS DAC ** 0626 00147 -0 02 00146 LDA* DOUS 0627 00150 0 06 00103 ADD UP 0628 00151 0 01 00116 JMP PUSH 0629 EJCT