Previous File Previous Page Single Page Next Page Next File

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

4384 * LOCATE SIMPLE VARIABLE 4385 * 4386 * 4387 * CALLING SEQUENCE: 4388 * 4389 * JST LSV 4390 * ......RETURN IF NAME NOT FOUND 4391 * ......RETURN IF NAME FOUND 4392 * 4393 * REQUIRED SETUP: 4394 * 4395 * THE VARIASLE NAME MUST HAVE PREVIOUSLY 4396 * BEEN ISOLATED AND LEFT IN THE LOCATION VARN. 4397 * 4398 * 4399 * RETURN STATUS: 4400 * 4401 * IF THE NAME IS FOUND, THE INDEX IS 4402 * LEFT POINTING TO THE FIRST WORD OF THE 4403 * WORD PAIR CONTAINING THE VALUE OF THE 4404 * VARIABLE. 4405 * 4406 * 4407 04721 0 000000 LSV DAC ** 4408 04722 0 02 00107 LDA VARN TEST FOR REFERENCE TO THE DUMMY 4409 04723 0 11 00052 CAS DEFN VARIABLE IN A PROGRAMMER DEFINED FUNCTION 4410 04724 100000 SKP NO 4411 04725 0 01 04747 JMP LS01 YES...ITS VALUE IS IN A SPECIAL PLACE 4412 04726 0 02 00026 LDA SVB START TABLE SEARCH 4413 04727 101040 SNZ IS THE TABLE EMPTY ? 4414 04730 -0 01 04721 JMP* LSV YES...TAKE THE NOT FOUND RETURN 4415 04731 0 11 00027 LS04 CAS SVT ARE WE PAST END OF TABLE ? 4416 04732 -0 01 04721 JMP* LSV YES ... TAKE NOT FOUND RETURN 4417 04733 000000 OCT 0 A NEVER CAN EXECUTE THIS WORD 4418 04734 0 04 00000 STA 0 X POINTS TO 1ST WORD OF CURRENT ENTRY 4419 04735 -0 02 00000 LDA* 0 COMPARE NAME OF CURRENT ENTRY WITH 4420 04736 0 05 00107 ERA VARN THE SEARCH TARGET 4421 04737 100040 SZE DO THEY MATCH ? 4422 04740 0 01 04744 JMP LS02 NO....GO CHECK NEXT ENTRY 4423 04741 0 12 00000 IRS 0 YES...X POINTS TO VARIABLE VALUE 4424 04742 0 12 04721 LS03 IRS LSV TAKE NAME FOUND RETURN 4425 04743 -0 01 04721 JMP* LSV X 4426 * 4427 04744 0 02 00000 LS02 LDA 0 NOT THIS ENTRY, 4428 04745 0 06 00426 ADD C3 TRY THE NEXT 4429 04746 0 01 04731 JMP LS04 X 4430 * 4431 04747 0 35 00514 LS01 LDX DFVD X POINTS TO DUMMY VARIABLE VALUE 4432 04750 0 01 04742 JMP LS03 TAKE NAME FOUND RETURN 4433 *
Previous File Previous Page Single Page Next Page Next File