BASIC-16A

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

4591 * LOCATE DIMENSIONED VARIABLE 4592 * 4593 * 4594 * CALLING SEQUENCE: 4595 * 4596 * JST LDV 4597 * ......RETURN IF NAME NOT IN TABLE 4598 * ......RETURN IF NAME FOUND, X POINTS TO ARRAY ELEMENT 4599 * 4600 * REQUIRED SETUP: 4601 * 4602 * THE VARIABLE NAME MUST HAVE PREVIOUSLY 4603 * BEEN ISOLATED AND LEFT IN THE LOCATION VARN. 4604 * 4605 * IF THE NAME IS IN THE TABLE, THE SUBSCRIPT 4606 * WILL BE EVALUATED AND THE INDEX REGISTER WILL BE SET 4607 * TO THE ADDRESS OF THE SELECTED ARRAY ELEMENT. 4608 * 4609 * 4610 * 4611 05135 0 000000 LDV DAC ** 4612 05136 0 02 00031 LDA DVT PICK UP THREAD TO FIRST ENTRY 4613 05137 101040 LD02 SNZ AT END OF TABLE | 4614 05140 -0 01 05135 JMP* LDV YES...TAKE NOT FOUND RETURN 4618 05141 0 04 00000 STA 0 X POINTS TO TOP WORD OF ENTRY 4619 05142 1 02 00000 LDA 0,1 GET WORD CONTAINING NAME 4620 05143 0400 70 LRL 8 NO. OF DIMS TO B, NAME IN A 4621 05144 0 05 00107 ERA VARN COMPARE WITH TARGET 4622 05145 101040 SNZ X 4623 05146 0 01 05151 JMP LD01 FOUND ENTRY !!! 4625 05147 1 02 77777 LDA -1,1 PICK UP LINK TO NEXT ENTRY 4629 05150 0 01 05137 JMP LD02 GO CHECK IT 4630 * 4631 05151 0 12 05135 LD01 IRS LDV BUMP RETURN ADDRESS TO FOUND RETURN 4632 05152 0 02 05135 LDA LDV PUT RETURN ADDRESS ON THE STACK 4633 05153 0 10 03022 JST PUSH X 4634 05154 0 02 00071 LDA DPTR PUT EXISTING VALUES OF THE TEMP 4635 05155 0 10 03022 JST PUSH STORAGE LOCATIONS THAT THIS ROUTINE USES 4636 05156 0 02 00072 LDA DCT1 ON THE STACK, AS THIS IS A RE-ENTRANT 4637 05157 0 10 03022 JST PUSH ROUTINE 4638 05160 0 02 00073 LDA DCT2 X 4639 05161 0 10 03022 JST PUSH X 4640 05162 140040 CRA NO. OF DIMENSIONS TO A 4641 05163 0410 70 LLL 8 X 4642 05164 140407 TCA NEGATE FOR COUN 4643 05165 0 04 00072 STA DCT1 SAVE FOR TWO LOOPS THROUGH ENTRY 4644 05166 0 04 00073 STA DCT2 X 4645 05167 0 02 00000 LDA 0 SET TABLE POINTER TO LIMIT OF 4646 05170 0 07 00426 SUB C3 DIMENSION 1 4650 05171 0 04 00071 STA DPTR X