FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 171

5621 11063 0415 77 ALS 1 K ' = E-3* KBAR 5622 11064 140407 TCA 5623 11065 0 06 00626 ADD I 5624 11066 0 04 00712 STA KPRM 5625 11067 0 35 00626 W4M LDX I 5626 11070 1 02 17377 LDA DP-1,1 5627 11071 0 04 00625 STA A A = DP (E-1) 5628 11072 0 02 00706 LDA IM 5629 11073 0 04 10725 STA T0W4 T0 = IM 5630 11074 0 10 03317 JST FA00 5631 11075 0 02 00644 LDA BDF IF BDF NOT ZERO 5632 11076 100040 SZE 5633 11077 0 01 11222 JMP W4S GO TO W4S 5634 11100 0 10 07625 JST NM00 NON-COMMON TEST 5635 11101 0 35 00626 W4O LDX I 5636 11102 1 02 17400 LDA DP,1 5637 11103 0 04 00643 STA RPL RPL = AF 5638 11104 0 10 13531 JST FS00 FLUSH 5639 11105 0 02 01347 LDA HOLF IS IT HOLLERITH DATA 5640 11106 100040 SZE NO 5641 11107 0 01 11125 JMP WHOW YES, GO TO OUTPUT IT 5642 11110 0 35 00030 LDX D0 5643 11111 1 01 11111 JMP *,1 SWITCH ON NUMBER OF WORDS TO OUTPUT 5644 11112 0 01 11164 JMP W405 5645 11113 0 01 11154 JMP W403 5646 11114 0 01 11160 JMP W404 5647 11115 0 02 00776 LDA TID+2 5648 11116 0 10 13243 JST OC00 5649 11117 0 02 00775 LDA TID+1 5650 11120 0 10 13243 JST OC00 5651 11121 0 02 03273 LDA TIDB+2 5652 11122 0 10 13243 JST OC00 5653 11123 0 02 03272 LDA TIDB+1 5654 11124 0 01 11165 JMP W406 5655 11125 0 02 00030 WHOW LDA D0 (A)=NO. OF WORDS PER ITEM 5656 11126 0415 77 ALS 1 (A)=NO. OF CHARS. PER ITEM 5657 11127 0 04 00056 STA NTID NTID=NO. OF CHARS. TO BE OUTPUT 5658 11130 0 07 01347 SUB HOLF 5659 11131 100400 SPL 5660 11132 0 01 11173 JMP WERR 5661 11133 0 02 00774 LDA ID FIRST WORD 5662 11134 0 10 11144 JST WSNG OUTPUT IT 5663 11135 0 02 00775 LDA ID+1 2ND WORD 5664 11136 0 10 11144 JST WSNG OUTPUT IT 5665 11137 0 02 00776 LDA ID+2 3RD WORD 5666 11140 0 10 11144 JST WSNG OUTPUT IT 5667 11141 0 02 00777 LDA ID+3 4TH WORD 5668 11142 0 10 13243 JST OC00 OUTPUT IT 5669 11143 0 01 11175 JMP W420 TO CHECK NEXT DATA 5670 *