Previous File Previous Page Single Page Next Page Next File

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

1513 01464 1 02 00001 LDA 1,1 ENTRY INTO VACATED POSITION 1515 01465 1 04 77777 STA -1,1 BELOW IT. 1520 01466 0 12 00000 IRS 0 BUMP TABLE POINTER TO NEXT ENTRY 1521 01467 0 12 00000 IRS 0 X 1522 01470 0 01 01453 JMP ST13 X 1530 01471 0 02 00000 ST12 LDA 0 SET POINTER TO ENTRY 1531 01472 0 07 00376 SUB C2 BEING CREATED 1532 01473 0 04 00000 STA 0 X 1533 01474 0 02 00050 LDA SNUM STATEMENT NUMBER GOES INTO 1534 01475 1 04 00000 STA 0,1 THE FIRST WORD OF THE ENTRY 1535 01476 0 02 00032 LDA SIB UPDATE STATEMENT INDEX BASE 1536 01477 0 07 00376 SUB C2 POINTER TO ACCOUNT FOR 1537 01500 0 04 00032 STA SIB THE NEW ENTRY 1538 01501 0 01 01375 JMP ST05 GO ADD LINE TO TEXT STORAGE 1539 * 1540 * 1541 01502 0 12 00320 ST14 IRS STT7 SET MEMORY OVERFLOW FLAG 1542 01503 0 01 01403 JMP ST08 GO DELETE HANGING SI ENTRY 1543 * 1544 * 1545 EJCT
Previous File Previous Page Single Page Next Page Next File