BASIC-16A

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

2616 * PUSH DOWN STACK HANDLING ROUTINES 2617 * 2618 * 2619 * PUSH - ADD ENTRY TO SLACK 2620 * 2621 * 2622 * CALLING SEQUENCE: 2623 * 2624 * LDA WORD A CONTAINS WORD TO BE ADDED TO STACK 2625 * JST PUSH 2626 * ......RETURN UNLESS STACK OVERFLOW 2627 * 2628 * 2629 03022 0 000000 PUSH DAC ** 2630 03023 -0 04 00035 STA* PDLP PLACE ENTRY IN THE STACK. 2631 03024 0 12 00035 IRS PDLP UPDATE THE STACK POINTER 2632 03025 0 12 00047 IRS FSC UPDATE THE FREE STORAGE COUNT 2633 03026 -0 01 03022 JMP* PUSH NO OVERFLOW...RETURN 2634 03027 0 10 05243 MEMO JST ERR REPORT MEMQRY OVERFLOW 2635 03030 146717 BCI 1,MO X 2636 * 2637 * 2638 * POP - REMOVE ENTRY FROM THE PUSH DOWN STACK 2639 * 2640 * 2641 * CALLING SEQUENCE85 2642 * 2643 * JST POP 2644 * ......RETURN TOP STACK ENTRY IN A 2645 * 2646 * 2647 03031 0 000000 POP DAC ** 2648 03032 0 02 00035 LDA PDLP DECREMENT THE STACK POINTER 2649 03033 0 07 00371 SUB C1 X 2650 03034 0 04 00035 STA PDLP X 2651 03035 0 02 00462 LDA M1 A UPDATE THE FREE STORAGE COUNT 2652 03036 0 10 03041 JST UFSC X 2653 03037 -0 02 00035 LDA* PDLP REMOVE TOP ENTRY FROM THE STACK 2654 03040 -0 01 03031 JMP* POP AND RETURN 2655 * 2656 * 2657 * 2658 EJCT