FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 43

1481 * 1482 * 1483 * ************************ 1484 * *INPUT STATEMENT NUMBER* 1485 * ************************ 1486 * NUMBER IS FORMED AS SPECIAL NAME , NOT CONVERTED 1487 * TO NUMERIC 1488 * 1489 02264 0 000000 IS00 DAC ** 1490 02265 140040 IS04 CRA 1491 02266 0 04 00054 STA NT 1492 02267 0 04 00706 STA IM 1493 02270 0 04 00710 STA IU IU = IM = IT = 0 1494 02271 0 04 00056 STA NTID PUT LEADING '$' IN STATEMENT NO. 1495 02272 0 02 02337 LDA K79 1496 02273 0 10 02555 JST PACK 1497 02274 0 10 01240 IS10 JST ID00 INPUT DIGIT 1498 02275 100040 SZE 1499 02276 0 01 02312 JMP IS20 NOT A DIGIT GO TO IS20 1500 02277 0 02 00056 LDA NTID 1501 02300 0 07 00742 SUB K106 1502 02301 101400 SMI 1503 02302 0 01 02316 JMP IS22 1504 02303 0 02 00067 LDA TC 1505 02304 0 10 02555 JST PACK PACK TC TO ID - LEGAL ST. NO. CHAR 1506 02305 0 02 00774 LDA TID I 1507 02306 0 11 02340 CAS K79X 1508 02307 0 01 02274 JMP IS10 1509 02310 0 01 02265 JMP IS04 IGNORE LEAD ZERO ON ST. NO. 1510 02311 0 01 02274 JMP IS10 1511 02312 0 02 00056 IS20 LDA NTID 1512 02313 0 07 00735 SUB K101 1513 02314 101400 SMI 1514 02315 0 01 02320 JMP IS25 1515 02316 0 10 02615 IS22 JST ER00 1516 02317 151724 BCI 1,ST ILLEGAL STATEMENT NUMBER FORMAT 1517 02320 0 10 02762 IS25 JST AS00 ASSIGN ITEM 1518 02321 0 35 00625 LDX A 1519 02322 1 02 17401 LDA DP+1,1 1520 02323 0 03 00670 ANA K111 1521 02324 1 04 17401 STA DP+1,1 IU = 0 1522 02325 0 02 00025 LDA AF ADDRESS FIELD IS 1523 02326 0 11 00640 CAS XST LE XST - ALREADY ASSIGNED 1524 02327 -0 01 02264 JMP* IS00 1525 02330 -0 01 02264 JMP* IS00 OK - OTHERWISE 1526 02331 0 02 00026 LDA AT MUST HAVE STR-ABS OTHERWISE 1527 02332 0 11 00736 CAS K102 1528 02333 101000 NOP STRING-REL IS ALSO OK 1529 02334 -0 01 02264 JMP* IS00 1530 02335 0 10 02615 JST ER00