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

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

3901 06701 144323 BCI 1,HS HOLLERITH STRING EXTENDS OVER STATEMENT 3902 * 3903 * 3904 * ********** 3905 * *DO INPUT* 3906 * ********** 3907 * SET UP DO TABLE ENTRIES. 3908 06702 0 000000 DP00 DAC ** 3909 06703 0 02 00057 LDA D D = D+5 3910 06704 0 06 00723 ADD K105 IFLG = NON-ZERO 3911 06705 0 04 00652 STA IFLG 3912 06706 0 04 00057 STA D 3913 06707 0 06 00661 ADD DO I = D0+D 3914 06710 0 04 00041 STA I 3915 06711 0 10 02676 JST STXI 3916 06712 0 02 00040 LDA A DP (1-4) = (B) 3917 06713 1 04 15376 STA DP-2,1 DP (1-2) = A 3918 06714 000201 IAB 3919 06715 1 04 15374 STA DP-4,1 3920 06716 0 10 02432 JST IV00 INPUT INT VAR/CON 3921 06717 0 02 00752 LDA K134 = , 3922 06720 0 10 02547 JST TS00 COMMA TEST 3923 06721 0 10 02676 JST STXI 3924 06722 0 02 00040 LDA A 3925 06723 1 04 15400 STA DP,1 DP(I) = INITIAL VALUE POINTER 3926 06724 0 10 02432 JST IV00 INPUT INT VAR/CON 3927 06725 0 10 02676 JST STXI 3928 06726 0 02 00040 LDA A 3929 06727 1 04 15377 STA DP-1,1 DP (I-1) = A - FINAL VALUE POINTER 3930 06730 0 02 00607 LDA TC 3931 06731 0 07 00752 SUB K134 = , 3932 06732 100040 SZE IF THIRD TERM 3933 06733 0 01 06743 JMP DP20 3934 06734 0 10 02432 JST IV00 READ AND ASSIGN, 3935 06735 0 10 02676 DP10 JST STXI 3936 06736 0 02 00040 LDA A 3937 06737 1 04 15375 STA DP-3,1 DP(I-3) = INCREMENT POINTER 3938 06740 140040 CRA 3939 06741 0 04 00652 STA IFLG CLEAR IFLAG 3940 06742 -0 01 06702 JMP* DP00 EXIT 3941 06743 0 02 00717 DP20 LDA K101 3942 06744 0 04 01475 STA ID THIRD TERM = 1 3943 06745 0 10 04241 JST AI00 ASSIGN CONSTANT 3944 06746 0 01 06735 JMP DP10 3945 * *************** 3946 * *DO INITIALIZE* 3947 * *************** 3948 * GENERATE DO INITIALIZATION CODE. 3949 06747 0 000000 DS00 DAC ** 3950 06750 0 10 02676 JST STXI ESTABLISH I