BASIC-16A

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

1447 01413 0 07 00376 SUB C2 DECREMENT THE TABLE POINTER 1448 01414 0 04 00000 STA 0 X 1449 01415 0 01 01403 JMP ST08 CONTINUE WITH TABLE COMPRESSION 1450 01416 0 12 00032 ST09 IRS SIB CORRECT THE STATEMENT INDEX 1451 01417 0 12 00032 IRS SIB BASE POINTER 1452 01420 0 01 01443 JMP ST10 GO CLOSE OUT THIS OPERATION 1453 * 1454 * ADD STATEMENT TEXT TO TOP OF PROGRAM TEXT TABLE 1455 * 1456 01421 0 02 00021 ST07 LDA PTH PUT BYTE POINTER TO NEW STATEMENT IN 1457 01422 0414 77 LGL 1 SECOND WORD OF THE 1458 01423 1 04 00001 STA 1,1 STATEMENT INDEX ENTRY 1459 01424 0 02 00040 LDA DBP CALCULATE NUMBER OF 1460 01425 0 07 00037 SUB SBP WORDS IN THE STATEMENT 1461 01426 0 07 00371 SUB C1 X 1462 01427 0404 77 LGR 1 X 1463 01430 140401 CMA X 1464 01431 0 04 00312 STA STT1 SAVE FOR COUNTING 1465 01432 140407 TCA MAKE SURE THERE IS ENOUGH FREE 1466 01433 0 06 00047 ADD FSC SPACE FOR THE STATEMENT 1467 01434 101400 SMI X 1468 01435 0 01 01502 JMP ST14 NO ... FAIL SOFT PROCESSING REQUIRED 1469 01436 0 10 03077 ST11 JST GCPK MOVE TWO CHARACTERS TO 1470 01437 -0 04 00021 STA* PTH THE PROGRAM TEXT TABLE 1471 01440 0 12 00021 IRS PTH BUMP THE TABLE POINTER 1472 01441 0 12 00312 IRS STT1 BUMP THE WORD COUNTER 1473 01442 0 01 01436 JMP ST11 MORE TO MOVE 1474 * 1475 * HERE FOR FINAL WRAP UP 1476 * 1477 01443 0 04 00051 ST10 STA SEQI SET EXECUTION INHIBITION TRIGGER 1478 01444 0 02 00320 LDA STT7 HAS MEMORY OVERFLOW BEEN DETECTED 1479 01445 101040 SNZ X 1480 01446 0 01 01052 JMP CLER NO .... GO PROCESS NEXT COMMAND LINE 1481 01447 0 01 03027 JMP MEMO YES ... REPORT IT 1482 * 1483 * HERE FOR NEW STATEMENT ADDITION 1484 * 1485 01450 0 02 00376 ST01 LDA C2 MAKE SURE THAT THEREIS ROOM FOR 1486 01451 0 10 03041 JST UFSC A NEW STATEMENT INDEX ENTRY 1488 01452 0 35 00032 LDX SIB START SEARCH TO FIND POSITION OF THIS ENTRY 1489 01453 0 02 00000 ST13 LDA 0 ARE WE AT THE END OF THE TABLE? 1490 01454 0 11 00033 CAS SIT X 1498 01455 0 01 01471 JMP ST12 YES...ADD ENTRY TO TOP OF TABLE 1499 01456 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 1504 01457 1 02 00000 LDA 0,1 COMPARE NUMBER OF THIS ENTRY 1505 01460 0 11 00050 CAS SNUM WITH NUMBER OF LINE TO BE INSERTED 1506 01461 0 01 01471 JMP ST12 NEW ENTRY GOES JUST BEFORE THIS ENTRY 1507 01462 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 1509 01463 1 04 77776 STA -2,1 NEW ENTRY GOES ABOVE THIS...MOVE THIS