BASIC-16A

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

1333 * SOURCE TEXT EDITOR 1334 * 1335 * 1336 * FUNCTION: 1337 * 1338 * THIS RQUTINE IS CALLED BY THE COMMAND LINE 1339 * RESPONSE ROUTINE WHEN A STATEMENT NUMBER IS DETECTED AT 1340 * THE BEGINNING OF A RESPONSE LINE. DEPENDING ON THE 1341 * LINE ENTERED, THE FOLLOWING ACTIONS MAY BE TAKEN: 1342 * 1343 * 1. IF IT IS A LINE NUMBER IMMEDIATELY FOLLOWED BY A 1344 * CARRIAGE RETURN, ANY EXISTING LINE WITH THAT NUMBER WILL 1345 * BE DELETED FROM STORAGE. 1346 * 2. IF A CARRIAGE RETURN DOES NOT IMMEDIATELY FOLLOW 1347 * THE LINE NUMBER, AND A STATEMENT WITH THAT NUMBER ALREADY 1348 * EXISTS, THE PREVIOUS COPY WILL BE DELETED AND THE NEW TEXT 1349 * WILL BE INSERT IN ITS PLACE. 1350 * 3. IF A CARRIAGE RETURN DOES NOT IMMEDIAIELY FOLLOW 1351 * THE LINE NUMBER, AND A STATEMENT WITH THAT NUMBER DOES 1352 * NOT EXIST, THE NEW LINE WILL BE ADDED TO THE PROGRAM. 1353 * 1354 * 1355 * 1356 01313 0 10 02770 STMT JST CLRT CLEAR ALL TABLES EXECPT PROGRAM TEXT AND SI 1357 01314 0 04 00320 STA STT7 CLEAR MEMORY OVERFLOW FLAG 1358 01315 0 10 04556 JST ISN GET THE STATEMENT NUMBER IN SNUM 1359 01316 0 02 00037 LDA SBP SAVE POINTER TO NEW STATEMENT 1360 01317 0 04 00312 STA STT1 A UNTIL WE ARE READY FOR IT 1361 01320 0 10 04475 JST SISR DO WE ALREADY HAVE A STMT WITH THAT NUMEER? 1362 01321 0 01 01450 JMP ST01 NO...GO APPEND A STATEMENT 1363 01322 0 10 04540 ST02 JST SES FIND END OF STATEMENT 1364 01323 0 11 00401 CAS C215 IS IT ACTUAL END OF LINE? 1365 01324 0 01 01322 JMP ST02 NO... CONTINUE SCAN 1366 01325 0 02 00037 LDA SBP CALCULATE THE NUMBER OF 1367 01326 141206 AOA BYTES IN THE LINE TO BE 1368 01327 1 07 00001 SUB 1,1 DELETED, ROUNDING UP IF IT ENDS 1369 01330 0 03 00466 ANA M2 ON A HALF WORD BOUNDRY 1370 01331 0 04 00313 STA STT2 X 1371 01332 1 06 00001 ADD 1,1 GET ADDRESS OF FIRST WORD OF 1372 01333 0404 77 LGR 1 NEXT STATEMENT 1373 01334 0 07 00371 SUB C1 1374 01335 0 04 00315 STA STT4 IT IS FIRST SOURCE ADDRESS-1 FOR TABLE MOVE 1375 01336 1 02 00001 LDA 1,1 A GET ADDRESS OF FIRST WORD OF STATEMENT 1376 01337 0404 77 LGR 1 IT IS FIRST DESTINATION ADDRESS FOR 1377 01340 0 04 00316 STA STT5 TABLE MOVE 1378 01341 0 02 00315 ST04 LDA STT4 ANY MORE TEXT TO 1379 01342 0 11 00021 CAS PTH BE MOVED? 1380 01343 000000 OCT 0 NEVER CAN EXECUTE THIS WORD A 1381 01344 0 01 01352 JMP ST03 NO...HOLE IN TABLE IS FILLED 1382 01345 0 12 00315 IRS STT4 GET ADDRESS OF NEXT SOURCE WORD