BASIC-16A

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

1305 01270 0 04 00045 STA CPOS PREVENT A C/R-L/F FROM BEING GENERATED 1306 01271 0 02 00405 LDA C240 SURPASS ALL SPACES IN NUMBER 1307 01272 0 10 02154 JST PCVL PRINT THE NUMBERS 1308 01273 0 01 01213 JMP LT03 A GO WORK ON NEXT CHARACTER 1309 * 1310 * HERE FOR END FOR LINE TEST 1311 * 1312 01274 0 11 00401 LT06 CAS C215 IS CURRENT CHAR A C/R ? 1313 01275 0 01 01213 JMP LT03 NO...GO PROCESS NEXT ITEM 1314 01276 0 10 00000 JST LFCR ADVANCE ASR LINE 1315 01277 0 13 00103 IMA BRKF HAS THE USER HAD ENOUGH ? 1316 01300 100040 SZE X 1317 01301 0 01 01305 JMP LT02 YES ... RETURN TO COMMAND MODE 1318 01302 0 02 00034 LT14 LDA LTT1 UPDATE SI POINTER TO 1319 01303 0 06 00376 ADD C2 NEXT ENTRY 1320 01304 0 01 01171 JMP LT01 GO TEST FOR END OF LISTING 1321 * 1322 * HERE AT END OF LISTING 1323 * 1324 01305 0 10 00000 LT02 JST LFCR PRINT A COUPLE OF BLANK LINES 1325 01306 0 10 00000 JST LFCR X 1326 01307 0 13 00106 IMA LSTF FETCH AND CLEAR PUNCH FLAG 1327 01310 100040 SZE WERE WE PUNCHING ? 1328 01311 0 10 00000 JST ETAPE YES ... PUNCH TRAILER 1329 01312 0 01 01000 JMP CMOD GO PROCESS NEXT COMMAND 1330 * 1331 * 1332 EJCT