BASIC-16A

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

1252 01211 101000 NOP 1253 01212 0 10 02764 LT12 JST SPAC X 1254 01213 0 10 03047 LT03 JST GCHR GET THE NEXT SOURCE CHARACTER 1255 01214 0 11 00455 CAS INTF TEST FOR INTEGER CONSTANT 1256 01215 100000 SKP NO 1257 01216 0 01 01257 JMP LT04 YES...GO PRINT IT 1258 01217 0 11 00456 CAS RELF NO...TEST FOR REAL CONSTANT 1259 01220 100000 SKP NO 1260 01221 0 01 01262 JMP LT05 YES...GO RRINT IT 1261 01222 0 11 00401 CAS C215 TEST FOR NORMAL CHARACTER 1262 01223 0 10 00000 JST OTA1 YES...PRINT IT 1263 01224 0 01 01274 JMP LT06 GO SEE IF IT WAS CARRIAGE RETURN 1264 01225 140407 TCA SPECIAL IDENTIFIER...NEGATE FOR TABLE SCAN 1265 01226 0 04 00312 STA LTT2 SAVE FOR LATER REFERENCE 1266 01227 0 04 00313 STA LTT3 SAVE FOR COUNTING 1267 01230 0 11 00500 CAS SMAX DOES THIS IDENTIFIER REQUIRE A LEADING SPACE? 1268 01231 0 10 02764 JST SPAC YES...PRINT ONE 1269 01232 101000 NOP NO 1270 01233 0 35 00037 LDX SBP SAVE POINTER TO CURRENT STATEMENT 1271 01234 0 02 00461 LDA LSBP SET POINTER TO START OF THE 1275 01235 0 04 00037 STA SBP IDENTIFIER LIST 1276 01236 0 12 00313 LT09 IRS LTT3 ARE WE AT THE CORRECT ENTRY? 1277 01237 0 01 01253 JMP LT07 NO...GO FEED THROUGH CURRENT ENTRY 1278 01240 0 10 03047 LT08 JST GCHR GET CHARACTER OF EXPANSION 1279 01241 100040 SZE DO NOT PRINT IT IF IDENTIFIER MARK 1280 01242 0 10 00000 JST OTA1 PRINT CHARACTER OF IDENTIFIER EXPANSION 1281 01243 100040 SZE HAS ALL OF THE IDENTIFIER BEEN PRINTED? 1282 01244 0 01 01240 JMP LT08 NO...GO PRINT NEXT CHARACTER OF IDENTIFIER 1283 01245 0 15 00037 STX SBP RESTORE POINTER TO STMT WE ARE PRINTING 1284 01246 0 02 00312 LDA LTT2 PRINT TRAILING SPACE 1285 01247 0 11 00500 CAS SMAX IF REQUIRED 1286 01250 0 01 01212 JMP LT12 REQUIRED...GO PRINT SPACE 1287 01251 0 01 01213 JMP LT03 NOT REQUIRED 1288 01252 0 01 01213 JMP LT03 NOT REQUIRED 1289 01253 0 10 03047 LT07 JST GCHR STEP THROUGH CURRENT IDENTIFIER 1290 01254 100040 SZE END OF IDENTIFIER? 1291 01255 0 01 01253 JMP LT07 NO...CONTINUE SCAN 1292 01256 0 01 01236 JMP LT09 HIT THE END OF IT 1293 * 1294 * HERE TO PRINT CONSTANTS 1295 * 1296 01257 0 10 03077 LT04 JST GCPK PACK THE INTEGER CONSTANT 1297 01260 0 10 00000 JST FINT FLOAT IT 1298 01261 0 01 01266 JMP LT10 NOW TREAT AS REAL 1299 01262 0 10 03077 LT05 JST GCPK PACK FIRST WORD OF REAL CONSTANT 1300 01263 000201 IAB X 1301 01264 0 10 03077 JST GCPK PACK SECOND WORD OF THE-CONSTANT 1302 01265 000201 IAB PUT NUMBER IN NORMAL FORM 1303 01266 0 10 03207 LT10 JST SCVL PRINT ROUTINE LOOKS FOR NUMBER IN CVAL 1304 01267 140040 CRA CLEAR CARRIAGE POSITION COUNTER TO