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

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

3851 06637 1 02 15404 LDA DP+4,1 TEST FOR PREFIX G 3852 06640 0 03 06634 ANA *-4 3853 06641 0 07 06634 SUB *-5 3854 06642 100040 SZE 3855 06643 0 01 06467 JMP W5F STRONG VARIABLE (IU = NON 0) 3856 06644 0 02 00655 W5T5 LDA IU 3857 06645 100040 SZE 3858 06646 0 01 06562 JMP W5P 3859 06647 0 10 03116 JST ER00 3860 06650 152723 BCI 1,US 3861 06651 0 000000 W5X DAC ** 3862 06652 0400 60 LRL 16 3863 06653 0 04 00640 STA DF 3864 06654 000201 IAB 3865 06655 0 10 14127 JST OA00 OUTPUT ABS 3866 06656 0 10 02672 JST STXA REST "A" 3867 06657 -0 01 06651 JMP* W5X EXIT 3868 000727 W5Z1 EQU K100 000377 3869 000740 W5Z2 EQU K122 040000 3870 000733 W5Z3 EQU K116 177400 3871 * 3872 * 3873 * 3874 * 3875 * 3876 * ************************ 3877 * *INPUT CHAR/OUTPUT PACK* 3878 * ************************ 3879 06660 0 000000 PO00 DAC ** 3880 06661 0 10 01256 JST CH00 INPUT CHAR 3881 06662 0 10 12437 JST OK00 OUTPUT PACK 3882 06663 -0 01 06660 JMP* PO00 RETURN 3883 * ************************ 3884 * *TRANS HOLLERITH STRING* 3885 * ************************ 3886 * FORM HOLLERITH STRING, CHARACTER COUNT IN ID 0N 3887 * ENTRY. C/R WILL ALSO TERMINATE STRING. 3888 06664 0 000000 HS00 DAC ** 3889 06665 0 10 01066 HS10 JST IC00 INPUT 1 CHARACTER 3890 06666 0 11 00756 CAS CRET CHECK FOR CHAR = C/R 3891 06667 0 01 06671 JMP *+2 3892 06670 0 01 06700 JMP HS15 HOLLERITH STRING EXTENDS PAST END 0F CARD 3893 06671 0 10 12437 JST OK00 OUTPUT PACK THE CHARACTER 3894 06672 0 02 01475 LDA ID 3895 06673 0 07 00717 SUB K101 REDUCE CHARACTER COUNT BY 1 3896 06674 0 04 01475 STA ID 3897 06675 100040 SZE 3898 06676 0 01 06665 JMP HS10 INPUT MORE CHARACTERS 3899 06677 -0 01 06664 JMP* HS00 3900 06700 0 10 03116 HS15 JST ER00