BASIC-16A

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

4340 * LOCATE/ASSIGN SIMPLE VARIABLE 4341 * 4342 * 4343 * CALLING SEQUENCE: 4344 * 4345 * JST ASV 4346 * ......RETURN X POINTS TO WORD PAIR FOR VALUE 4347 * OF THE VARIABLE 4348 * 4349 * REQUIRED SETUP: 4350 * 4351 * THE VARIABLE NAME MUST HAVE PREVIOUSLY BEEN 4352 * ISOLATED AND LEFT IN LHE LOCATION VARN. 4353 * 4354 * 4355 * 4356 04671 0 000000 ASV DAC ** 4357 04672 0 10 04721 JST LSV IS NAME ALREADY IN THE TABLE ? 4358 04673 100000 SKP NO....WE MUST ADD IT 4359 04674 -0 01 04671 JMP* ASV YES...RETURN 4360 04675 0 02 00426 LDA C3 MAKE SURE THERE IS ROOM FOR 4361 04676 0 10 03041 JST UFSC ANOTHER ENTRY 4362 04677 0 02 00027 LDA SVT IS THE TABLE EMPTY ? 4363 04700 100040 SZE X 4364 04701 0 01 04711 JMP AS01 NO ... GO APPEND ENTRY 4365 04702 0 02 00030 LDA DVB GET HIGHEST UNUSED CORE LOCATION 4366 04703 101040 SNZ X 4367 04704 0 02 00032 LDA SIB X 4368 04705 0 07 00371 SUB C1 X 4369 04706 0 04 00027 STA SVT SET TABLE TOP 4370 04707 141206 AOA ADJUST SO THE TABLE 4371 04710 100000 SKP BASE COMES OUT RIGHT 4372 04711 0 02 00026 AS01 LDA SVB GET PREVIQUS TABLE BASE 4373 04712 0 07 00426 SUB C3 APPEND THREE WORDS 4374 04713 0 04 00026 STA SVB SET NEW BASE 4375 04714 0 04 00000 STA 0 X POINTS TO WORD FOR VARIABLE NAME 4376 04715 0 02 00107 LDA VARN PUT VARIABLE NAME 4377 04716 -0 04 00000 STA* 0 IN FIRST WORD OF ENTRY 4378 04717 0 12 00000 IRS 0 S POINTS TO FIRST WORD OF VARIABLE VALUE 4379 04720 -0 01 04671 JMP* ASV RETURN 4380 * 4381 * 4382 * 4383 EJCT