BASIC-16A

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

4540 05064 0 04 00000 STA 0 X 4541 05065 0 02 00066 LDA ADT6 CALCULATE - NO. OF WORDS OF ELEMENT STORAGE 4542 05066 0414 77 LGL 1 X 4543 05067 140407 TCA X 4544 05070 0 04 00061 STA ADT1 X 4545 05071 140040 CRA SET ENTIRE ARRAY TO ZERO 4546 05072 1 04 00000 STA 0,1 X 4547 05073 0 12 00000 IRS 0 X 4548 05074 0 12 00061 IRS ADT1 X 4549 05075 0 01 05072 JMP *-3 X 4550 05076 0 02 00064 LDA ADT4 SETUP TO MOVE DIMENSION LIMITS FROM 4551 05077 140407 TCA THE STACK TO THE ENTRY 4552 05100 0 04 00061 STA ADT1 X 4553 05101 0 10 03031 JST POP REMOVE DIMENSION LIMIT FROM THE STACK 4554 05102 1 04 00000 STA 0,1 PUT IT IN TABLE ENTRY 4555 05103 0 12 00000 IRS 0 BUMP TABLE ENTRY POINTER 4556 05104 0 12 00061 IRS ADT1 BUMP DIMENSION COUNT 4557 05105 0 01 05101 JMP *-4 GO MOVE ANOTHER LIMIT 4558 05106 0 02 00030 LDA DVB PUT IN ADDRESS OF FIRST WORD OF ARRAY 4559 05107 1 04 00000 STA 0,1 STORAGE FOR THIS VARIABLE 4560 05110 140040 CRA CLEAR ETNRY THREAD 4561 05111 1 04 00001 STA 1,1 X 4562 05112 0 02 00064 LDA ADT4 FIRST WORD OF ENTRY CONTAINS 4563 05113 0400 70 LRL 8 NAME IN BITS 1 TO 8 AND NUMBER 4564 05114 0 02 00063 LDA ADT3 OF DIMENSIONS IN BITS 9-16 4565 05115 0 04 00107 STA VARN X 4566 05116 0410 70 LLL 8 X 4567 05117 1 04 00002 STA 2,1 X 4568 05120 0 02 00104 LDA DIMF IS THIS A DIMENSION STATEMENT | 4569 05121 101040 SNZ X 4570 05122 -0 01 04751 JMP* ADV YES...DO NOT NEED TO LOCATE A SPECIFIC ITEM 4571 05123 0 02 00070 LDA ADT8 RESTORE BYTE POINTER TO START OF SUBSCRIPT 4572 05124 0 04 00037 STA SBP X 4573 05125 0 01 04753 JMP AD07 GO LOCATE SPECIFIC ARRAY ITEM 4574 * 4575 05126 0 35 00065 AD04 LDX ADT5 SET THREAD IN LAST ENTRY TO 4576 05127 0 02 00030 LDA DVB POINT TO THIS ENTRY 4577 05130 0 07 00371 SUB C1 X 4579 05131 1 04 77777 STA -1,1 X 4583 05132 0 01 05061 JMP AD05 GO SETUP THIS ENTRY 4584 * 4585 05133 0 10 05243 AD08 JST ERR REPORT SUBSCRIPT ERROR 4586 05134 140723 BCI 1,AS 4587 * 4588 * 4589 * 4590 EJCT