FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 123

3843 * ************************ 3844 * *TRANS HOLLERITH STRING* 3845 * ************************ 3846 * FORM HOLLERITH STRING. CHARACTER COUNT IN ID ON 3847 * ENTRY. C/R WILL ALSO TERMINATE STRING. 3848 06046 0 000000 HS00 DAC ** 3849 06047 0 10 01061 HS10 JST IC00 INPUT 1 CHARACTER 3850 06050 0 11 00702 CAS CRET CHECK FOR CHAR = C/R 3851 06051 0 01 06053 JMP *+2 3852 06052 0 01 06062 JMP HS15 HOLLERITH STRING EXTENDS PAST END OF CARD 3853 06053 0 10 11444 JST OK00 OUTPUT PACK THE CHARACTER 3854 06054 0 02 00774 LDA ID 3855 06055 0 07 00735 SUB K101 REDUCE CHARACTER COUNT BY 1 3856 06056 0 04 00774 STA ID 3857 06057 100040 SZE 3858 06060 0 01 06047 JMP HS10 INPUT MORE CHARACTERS 3859 06061 -0 01 06046 JMP* HS00 3860 06062 0 10 02615 HS15 JST ER00 3861 06063 144323 BCI 1,HS HOLLERITH STRING EXTENDS OVER STATEMENT 3862 EJCT