BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 69

2589 * INITIALIZE PUSH DOWN STACK 2590 * 2591 * 2592 * CALLING SEQUENCE: 2593 * 2594 * JST IPDS 2595 * ......RETURN 2596 * 2597 * THE PUSH DOWN STACK POINTER, PDSP, IS SET TO THE 2598 * FIRST FREE WORD ABOVE THE TABLES THAT EXTEND FROM THE TOP 2599 * OF THE COMPILER. 2600 * 2601 * 2602 * 2603 03011 0 000000 IPDS DAC ** 2604 03012 0 02 00025 LDA FNT USE FOR-NEXT TABLE TOP 2605 03013 101040 SNZ UNLESS IT IS EMPTY, IN WHICH CASE 2606 03014 0 02 00023 LDA DFT USE DEFINED FUNCTION TABLE TOP 2607 03015 101040 SNZ UNLESS IT IS EMPTY, IN WHICH CASE 2608 03016 0 02 00021 LDA PTH USE PROGRAM TEXT TOP. 2609 03017 141206 AOA +1 TO GET ADDRESS OF FREE WORD 2610 03020 0 04 00035 STA PDLP SET THE POINTER 2611 03021 -0 01 03011 JMP* IPDS AND RETURN 2612 * 2613 * 2614 * 2615 EJCT