FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 169

5521 * 5522 * ************************** 5523 * *DATA STATEMENT PROCESSOR* 5524 * ************************** 5525 * PROCESS VARIABLE LIST .THEN OUTPUT LITERAL ITEMS 5526 * TO APPROPRIATE LOCATIONS. MODES MUST AGREE 5527 10725 0 00 00000 T0W4 PZE 0 5528 10726 0 00 00000 T1W4 PZE 0 5529 10727 000300 ALOW OCT 300 'A'-1 5530 10730 000333 AHGH OCT 333 'Z'+1 5531 10731 0 00 00000 G PZE 0 LOWEST INDEX POINT IN LIST 5532 10732 0 02 00113 W4 LDA L0 5533 10733 0 04 00626 STA I I=END OF DATA POOL 5534 10734 0 10 07755 W4B JST IL00 INPUT LIST ELEMENT 5535 10735 0 02 00026 LDA AT D (0) = =WDS/ITEM 5536 10736 0 07 00736 SUB K102 5537 10737 101040 SNZ IF AT = 'STR-ABS' 5538 10740 0 01 11273 JMP W4T GO TO 5539 10741 0 35 00626 LDX I 5540 10742 0 02 00064 LDA S1 S1 = DEFLECTION IF AN ARRAY 5541 10743 0 06 00025 ADD AF 5542 10744 1 04 17400 STA DP,1 DP(E) = AF + SI 5543 10745 0 02 00625 W4C LDA A 5544 10746 1 04 17377 STA DP-1,1 DP (E-1) = A 5545 10747 0 02 00626 LDA I 5546 10750 0 07 00736 SUB K102 5547 10751 0 04 00626 STA I 5548 10752 0 04 10731 STA G 5549 10753 0 02 00067 LDA TC IF TC = , 5550 10754 0 07 00754 SUB K134 5551 10755 101040 SNZ 5552 10756 0 01 10734 JMP W4B GO TO W4B 5553 10757 0 02 00740 LDA K104 5554 10760 0 10 02352 JST TS00 TEST FOR SLASH TERMINATOR 5555 10761 0 02 00643 LDA RPL 5556 10762 0 04 10726 STA T1W4 5557 10763 0 02 00113 LDA L0 5558 10764 0 04 00626 STA I I= END OF DATA POOL 5559 10765 140040 W4E CRA 5560 10766 0 04 00712 STA KPRM K' = KBAR = 0 5561 10767 0 04 00711 STA KBAR 5562 10770 0 10 02346 W4F JST XN00 TEST FOR SPECIAL CASE OR $ OR NAME 5563 10771 0 02 00067 LDA TC X 5564 10772 0 11 00662 CAS K15 '$' 5565 10773 100000 SKP NO 5566 10774 0 01 11036 JMP W4Q YES ... TREAT SPECIAL 5567 10775 0 11 10727 CAS ALOW A NAME BY CHANCE 5568 10776 0 11 10730 CAS AHGH X 5569 10777 0 01 11022 JMP W4X NO ... PROCESS NORMALLY 5570 11000 0 01 11022 JMP W4X DITTO