Previous File Previous Page Single Page Next Page Next File

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 31

1456 02511 0 11 00720 CAS K102 1457 02512 0 01 02514 JMP *+2 1458 02513 -0 01 02443 JMP* IS00 !!! 1459 02514 0 10 03116 JST ER00 1460 02515 151316 BCI 1,RN REFERENCE TO A SPECIFICATION STMNT NUMBER 1461 02516 000337 K79 OCT 337 1462 02517 157660 K79X OCT 157660 1463 * 1464 02520 0 000000 SY00 DAC ** INPUT SYMBOL 1465 02521 0 02 00717 LDA K101 1466 02522 0 04 00574 STA NTF NTF NOT 0 - DON'T SET IU IN AS00 1467 02523 0 10 02373 JST NA00 INPUT NAME 1468 02524 -0 01 02520 JMP* SY00 EXIT 1469 * 1470 * ************************ 1471 * *EXAMINE NEXT CHARACTER* 1472 * ************************ 1473 * CHECK NEXT CHAR FOR DIGIT (BACKUP ONE COL, THEN EXIT) 1474 * 1475 02525 0 000000 XN00 DAC ** 1476 02526 0 10 01342 JST ID00 INPUT DIGIT 1477 02527 0 10 01251 JST UC00 UNINPUT COLUMM 1478 02530 -0 01 02525 JMP* XN00 1479 02531 152322 K1 BCI 3,TRUE. 02532 152705 02533 127240 1480 02534 143301 K2 BCI 3,FALSE. 02535 146323 02536 142656 1481 02537 000247 K3 OCT 247 1482 02540 147317 KNOT BCI 3,NOT. CONSTANT FOR .NOT. TEST 02541 152256 02542 120240 1483 02543 000304 K11 OCT 304 0D 1484 02544 000310 K14 OCT 310 0H 1485 02545 000316 K62 OCT 316 0N 1486 02546 000336 K64 OCT 336 0) 1487 * 1488 * 1489 * ******************** 1490 * *ALL CHARACTER TEST* 1491 * ******************** 1492 * 1493 02547 0 000000 TS00 DAC ** TEST (A) AGAINST TC 1494 02550 0 07 00607 SUB TC 1495 02551 101040 SNZ 1496 02552 -0 01 02547 JMP* TS00 RETURN 1497 02553 0 10 03116 JST ER00 TO ERROR TEST 1498 02554 141710 BCI 1,CH IMPROPER TERMINATING CHARACTER 1499 *
Previous File Previous Page Single Page Next Page Next File