BASIC-16A

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

2545 * TABLE POINTER INITIALIZATION ROUTINE 2546 * 2547 * 2548 * CALLING SEQUENCE: 2549 * 2550 * JST CLRT 2551 * ......RETURN 2552 * 2553 * THE FOLLOWING OPERATIONS ARE PERFORMED BY 2554 * THIS ROUTINE: 2555 * 2556 * 1) THE DEFINED FUNCTION INDEX, THE FOR-NEXT STACK, 2557 * THE SIMPLE VARIABLE TABLE, THE DIMENSIONED VARIABLE TABLE, 2558 * AND THE RETURN STACK ARE CLEARED. 2559 * 2560 * 2) THE 'CONTINUE' POINTER IS RESET 2561 * 2562 * 3) THE READ STATEMENT DATA POINTER IS INITIALIZED. 2563 * 2564 * 4) THE AMOUT OF FREE SPACE IS CALCULATED. 2565 * 2566 * 2567 * 2568 02770 0 000000 CLRT DAC ** 2569 02771 0 35 00463 LDX M10 CLEAR DFI, FN, SV, 2570 02772 140040 CRA AND DV TABLES. 2571 02773 1 04 00032 STA DFB+'10,1 X 2572 02774 0 12 00000 IRS 0 X 2573 02775 0 01 02773 JMP *-2 X 2574 02776 0 04 00101 STA CON1 CLEAR 'CONTINUE' POINTER 2575 02777 0 07 00032 SUB SIB CALUCLATE NO. OF WORDS 2576 03000 0 06 00021 ADD PTH OF USER SPACE ARE AVAILABLE 2577 03001 0 06 00376 ADD C2 ALLOW A SLIGHT MARGIN 2578 03002 101400 SMI ANY WORDS AVAILABLE ? 2579 03003 0 01 03027 JMP MEMO .....NO..... REPORT MEMORY OVERFLOW 2580 03004 0 04 00047 STA FSC SET THE COUNTER 2581 03005 0 02 00476 LDA RTB INITIALIZE THE RETURN STACK 2582 03006 0 04 00036 STA RTP X 2583 03007 0 10 04202 JST REST GO INITIALIZE DATA STMT POINTERS 2584 03010 -0 01 02770 JMP* CLRT RETURN 2585 * 2586 * 2587 * 2588 EJCT