AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 51

1903 04126 0 02 04264 LDA ='-20 1904 04127 0 04 04260 STA V$O3 SET FLAG ='-20 1905 04130 -0 02 04123 LDA* V$OD GET DCA OF THE DECIMAL FIELD 1906 04131 0 04 04135 STA *+4 1907 04132 0 12 04123 IRS V$OD CALLING LOCATION PLUS TWO 1908 04133 0 10 04273 JST V$SI INITIALIZE SEVEN BYTE FIELD 1909 04134 000007 DEC 7 1910 04135 0 000000 DAC ** DAC OF 7 BYTES 1911 04136 0 02 04265 LDA ='240 1912 04137 0 10 04320 JST V$SB PUT ONE LEADING SPACE 1913 04140 000000 HLT 1914 04141 0 02 04265 LDA ='240 1915 04142 0 10 04320 JST V$SB PUT SECOND LEADING SPACE 1916 04143 000000 HLT 1917 04144 0 02 04247 LDA V$OX FIELD POINTER 1918 04145 0 04 04262 STA V$O5 1919 04146 0 02 04266 LDA =-4 1920 04147 0 04 04261 STA V$O4 LEADING ZEROS SUPPRESS COUNT 1921 04150 140040 CRA 1922 04151 0 04 04255 STA V$OY SET V$OY=0 1923 04152 0 02 04257 LDA V$O2 LOAD THE WORD 1924 04153 100400 SPL 1925 04154 0 01 04165 JMP V$OQ IF NEGATIVE, CHANGE TO POSITIVE NUMBER 1926 * 1927 04155 140040 V$OO CRA IF POSITIVE, PROCESS THE INTEGER 1928 04156 0 04 04263 STA V$O6 ACCUMULATOR =0 1929 04157 0 02 04257 LDA V$O2 LOAD THE OCTAL NUMBER 1930 04160 -0 07 04262 V$OP SUB* V$O5 SUBTRACT CONVERSION FACTOR 1931 04161 100400 SPL IF POSITIVE, SKIP 1932 04162 0 01 04171 JMP V$OR IF NEG., TRANSFER ACCUM. TO BYTE-STRING 1933 04163 0 12 04263 IRS V$O6 BUMP ACCUM. BY ONE 1934 04164 0 01 04160 JMP V$OP DO MORE CONVERSION 1935 * 1936 04165 0 05 04267 V$OQ ERA =-1 CHANGE THE NEGATIVE INTEGER 1937 04166 0 07 04267 SUB =-1 TO A POSITIVE NUMBER 1938 04167 0 04 04257 STA V$O2 1939 04170 0 01 04155 JMP V$OO GO TO PROCESS IT. 1940 * 1941 04171 -0 06 04262 V$OR ADD* V$O5 RESTORE LAST NUMBER 1942 04172 0 04 04257 STA V$O2 1943 04173 0 02 04263 LDA V$O6 GET ACCUMULATOR 1944 04174 100040 SZE 1945 04175 0 01 04243 JMP V$OW IF N0N-ZER0, GO AND SET FLAG=0 1946 04176 0 02 04260 LDA V$O3 LOAD FLAG 1947 04177 100040 SZE 1948 04200 0 12 04255 IRS V$OY NO. OF ZEROS ACTUALLY SUPPRESSED 1949 04201 0 06 04270 V$OT ADD ='260 FORM THE DECIMAL BYTE 1950 04202 0 10 04320 JST V$SB TRANSFER THE BYTE TO THE STRING 1951 04203 000000 HLT 1952 04204 0 12 04262 IRS V$O5 BUMP FIELD POINTER