FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 172

5671 11144 0 00 00000 WSNG PZE 0 5672 11145 0 10 13243 JST OC00 OUTPUT (A) 5673 11146 0 02 00056 LDA NTID NO. OF CHARS. REMAINED TO BE OUTPUT 5674 11147 0 07 00736 SUB K102 5675 11150 0 04 00056 STA NTID NTID=NTID-2 5676 11151 101040 SNZ 5677 11152 0 01 11175 JMP W420 ALL FINISHED, CHECK NEXT ITEM 5678 11153 -0 01 11144 JMP* WSNG SOME HOLLERITH CHARS. REMAINED 5679 11154 0 02 00776 W403 LDA TID+2 REAL OUTPUT 5680 11155 0 10 13243 JST OC00 5681 11156 0 02 00775 LDA TID+1 5682 11157 0 01 11165 JMP W406 5683 11160 0 02 00776 W404 LDA TID+2 DOUBLE PRECISION OUTPUT 5684 11161 0 10 13243 JST OC00 5685 11162 0 02 00775 LDA TID+1 5686 11163 0 10 13243 JST OC00 5687 11164 0 02 00774 W405 LDA TID INTEGER OUTPUT 5688 11165 0 10 13243 W406 JST OC00 5689 11166 0 02 10725 LDA T0W4 5690 11167 0 05 00706 ERA IM 5691 11170 0 03 00741 ANA K105 5692 11171 101040 SNZ 5693 11172 0 01 11175 JMP *+3 5694 * TO BE OUTPUT, RETURN 5695 11173 0 10 02615 WERR JST ER00 5696 11174 142315 BCI 1,DM DATA AND DATA NAME MODE DO NOT AGREE 5697 11175 0 02 00626 W420 LDA I 5698 11176 0 07 00736 SUB K102 5699 11177 0 04 00626 STA I I = I-2 5700 11200 0 11 00712 CAS KPRM 5701 11201 101000 NOP 5702 11202 0 01 11067 JMP W4M MORE TO DO 5703 11203 0 07 10731 SUB G TEST FOR COMPLETE 5704 11204 100040 SZE 5705 11205 0 01 11217 JMP W4P 5706 11206 0 02 00740 LDA K104 5707 11207 0 10 02352 JST TS00 5708 11210 0 02 10726 LDA T1W4 5709 11211 0 04 00643 STA RPL 5710 11212 0 10 01157 JST CH00 INPUT NEXT CHARACTER 5711 11213 0 07 00734 SUB K5 ='254 (,) 5712 11214 100040 SZE SKIP IF CHAR = COMMA 5713 11215 0 01 03637 JMP A1 CHECK FOR (CR) 5714 11216 0 01 10732 JMP W4 PROCESS NEXT DATA GROUP 5715 11217 0 02 00754 W4P LDA K134 5716 11220 0 10 02352 JST TS00 5717 11221 0 01 10765 JMP W4E 5718 11222 0 10 13531 W4S JST FS00 FLUSH BUFFER IF NECESSARY 5719 11223 0 02 00025 LDA AF POSITION WITHIN COMMON BLOCK 5720 11224 0400 62 LRL 14