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

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

5737 * 5738 12141 0 00 00000 WSNG PZE 0 5739 12142 0 10 14127 JST OA00 OUTPUT (A) 5740 12143 0 02 00575 LDA NTID NO. OF CHARS, REMAINED TO BE OUTPUT 5741 12144 0 07 00720 SUB K102 5742 12145 0 04 00575 STA NTID NTID=NTID-2 5743 12146 101040 SNZ 5744 12147 0 01 12172 JMP W420 ALL FINISHED, CHECK NEXT ITEM 5745 12150 -0 01 12141 JMP* WSNG SOME HOLLERITH CHARS, REMAINED 5746 12151 0 02 01477 W403 LDA TID+2 REAL OUTPUT 5747 12152 0 10 14127 JST OA00 5748 12153 0 02 01476 LDA TID+1 5749 12154 0 01 12162 JMP W406 5750 12155 0 02 01477 W404 LDA TID+2 DOUBLE PRECISION OUTPUT 5751 12156 0 10 14127 JST OA00 5752 12157 0 02 01476 LDA TID+1 5753 12160 0 10 14127 JST OA00 5754 12161 0 02 01475 W405 LDA TID INTEGER OUTPUT 5755 12162 0 10 14127 W406 JST OA00 5756 12163 0 02 11757 LDA T0W4 5757 12164 0 05 00653 ERA IM 5758 12165 0 03 00723 ANA K105 5759 12166 101040 SNZ 5760 12167 0 01 12172 JMP *+3 5761 * TO BE OUTPUT, RETURN 5762 12170 0 10 03116 WERR JST ER00 5763 12171 142315 BCI 1,DM DATA AND DATA NAME MODE DO NOT AGREE 5764 12172 0 02 00041 W420 LDA I 5765 12173 0 07 00720 SUB K102 5766 12174 0 04 00041 STA I I = I-2 5767 12175 0 11 00657 CAS KPRM 5768 12176 101000 NOP 5769 12177 0 01 12061 JMP W4M MORE TO DO 5770 12200 0 07 11761 SUB G TEST FOR COMPLETE 5771 12201 100040 SZE 5772 12202 0 01 12214 JMP W4P 5773 12203 0 02 00722 LDA K104 5774 12204 0 10 02547 JST TS00 5775 12205 0 02 11760 LDA T1W4 5776 12206 0 04 00060 STA RPL 5777 12207 0 10 01256 JST CH00 INPUT NEXT CHARACTER 5778 12210 0 07 00672 SUB K5 ='254 (,) 5779 12211 100040 SZE SKIP IF CHAR = COMMA 5780 12212 0 01 04266 JMP A1 CHECK FOR (CR) 5781 12213 0 01 11762 JMP W4 PROCESS NEXT DATA GROUP 5782 12214 0 02 00752 W4P LDA K134 5783 12215 0 10 02547 JST TS00 5784 12216 0 01 12016 JMP W4E 5785 12217 0 10 14523 W4S JST FS00 FLUSH BUFFER IF NECESSARY 5786 12220 0 02 00630 LDA AF POSITION WITHIN COMMON BLOCK