BASIC-16A

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

1383 01346 -0 02 00315 LDA* STT4 MOVE NEXT WORD 1384 01347 -0 04 00316 STA* STT5 X 1385 01350 0 12 00316 IRS STT5 A BUMP DESTINATION ADDRESS POINTER 1386 01351 0 01 01341 JMP ST04 GO CHECK FOR COMPLETION 1387 01352 0 02 00316 ST03 LDA STT5 UPDATE PROGRAM TEXT HIGH POINTER 1388 01353 0 04 00021 STA PTH X 1389 01354 0 15 00316 STX STT5 SAVE INDEX AS CLRT DESTROYS IT 1390 01355 0 10 02770 JST CLRT ACCOUNT FOR THE SPACE WE OPENED UP 1391 01356 0 35 00316 LDX STT5 RE$TORE INDEX AS CLRT HAS DONE ITS THING 1392 * 1393 * UPDATE STATEMENT INDEX POINTERS 1394 * 1395 * ALL POINTERS TO STATEMENTS THAT WERE PHYSICALLY 1396 * LOCATED ABOVE THE STATEMENT THAT WAS DELETED MUST BE 1397 * ADJUSTED TO POINT TO THE NEW LOCATION OF THE STATEMENTS. 1398 * 1399 01357 0 02 00032 LDA SIB START SCAN AT BASE OF TABLE 1400 01360 0 11 00033 ST06 CAS SIT PAST END OF INDEX ? 1401 01361 0 01 01375 JMP ST05 YES...STATEMENT INDEX IS UPDATED 1402 01362 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 1403 01363 141206 AOA GET POINTER TO SBP OF CURRENT ENTRY 1404 01364 0 04 00315 STA STT4 X 1405 01365 -0 02 00315 LDA* STT4 DOES SBP IN CURRENT ENTRY POINT TO 1406 01366 1 11 00001 CAS 1,1 STATEMENT ABOVE THE DELETED ONE? 1407 01367 0 07 00313 SUB STT2 YES...CORRECT THE POINTER 1408 01370 101000 NOP X 1409 01371 -0 04 00315 STA* STT4 SET CORRECT POINTER VALUE 1410 01372 0 02 00315 LDA STT4 UPDATE STATEMENT INDEX POINTER 1411 01373 141206 AOA X 1412 01374 0 01 01360 JMP ST06 CONTINUE SCAN 1413 * 1414 * DELETION/REPLACEMENT CHECK 1415 * 1416 01375 0 02 00312 ST05 LDA STT1 RESTORE POINTER TO THE NEW 1417 01376 0 04 00037 STA SBP LINE 1418 01377 0 10 03054 JST XCHR DOES A CARRIAGE RETURN 1419 01400 0 05 00401 ERA C215 IMMEDIATELY FOLLOW THE 1420 01401 100040 SZE LINE NUMBER? 1421 01402 0 01 01421 JMP ST07 NO...GO APPEND A STATEMENT 1422 * 1423 * HERE TO DELETE STATEMENT INDEX ENTRY 1424 * 1426 01403 1 02 77777 ST08 LDA -1,1 MOVE ENTRY BELOW CURRENT 1430 01404 1 04 00001 STA 1,1 ENTRY INTO POSITION OF 1432 01405 1 02 77776 LDA -2,1 THE CURRENT ENTRY 1436 01406 1 04 00000 STA 0,1 X 1437 01407 0 02 00000 LDA 0 HAVE ALL ENTRIES BELOW THE 1441 01410 0 11 00032 CAS SIB DELETED ENTRY BEEN MOVED UP? 1442 01411 100000 SKP NO...KEEP GOING 1443 01412 0 01 01416 JMP ST09 YES...WRAP UP