AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 61

2879 * 2880 05156 0 12 05162 ASNR IRS ASRB INCREMENT COUNTER 2881 05157 0 01 05077 JMP BUST SEE IF ASR STILL BUSY 2882 05160 000000 HLT ASR NOT READY AFTER 2883 05161 0 01 05101 JMP SASO 250 MILLISECOND DELAY 2884 * 2885 05162 000000 ASRB BSZ 1 2886 05163 000000 IENL BSZ 1 2887 05164 000000 ITMP BSZ 1 2888 05165 0 005106 DHLT DAC HALT 2889 * 2890 * 2891 * 2892 * 2893 * SUBROUTINE T101 2894 * TEST SINGLE PRECISION MULTIPLY CAPABILITY 2895 * 2896 05166 000101 OCT 101 TEST NO. 2897 05167 0 000000 MPYT DAC ** 2898 05170 0 02 05166 LDA *-2 2899 05171 0 04 00777 STA '777 STORE TEST NO. AT '777 2900 05172 101000 NOP 2901 05173 0 02 00455 LDA CNTY 2902 05174 0 04 05237 STA MDCT INITIALIZE TEST COUNT 2903 05175 0 02 05763 LDA ='77555 INITIALIZE THE 2904 05176 0 04 05233 STA X001 FIRST TWO 2905 05177 0 04 05213 STA MPY3 2906 05200 0 02 05762 LDA ='7701 FIELDS 2907 05201 0 04 05234 STA X002 2908 05202 0 04 05205 STA MPY2 2909 05203 0 02 05233 MPY1 LDA X001 2910 05204 0 10 05303 JST MPY GO TO MULTIPLY ROUTINE 2911 05205 0 000000 MPY2 DAC ** SECOND FIELD 2912 05206 0 04 05235 STA Y001 STORE THE 2913 05207 000201 IAB RESULT 2914 05210 0 04 05236 STA Y002 2915 05211 0 02 05234 LDA X002 REVERSE THE MULTIPLIER 2916 05212 0 10 05303 JST MPY AND THE MULTIPLICAND 2917 05213 0 000000 MPY3 DAC ** AND MULTIPLY AGAIN 2918 05214 0 05 05235 ERA Y001 COMPARE WITH PREVIOUS RESULT 2919 05215 100040 SZE 2920 05216 000000 HLT ERROR 2921 05217 000201 IAB GET B REG AND COMPARE 2922 05220 0 05 05236 ERA Y002 2923 05221 100040 SZE 2924 05222 000000 HLT ERROR 2925 05223 0 02 05233 LDA X001 MODIFY THE FIRST FIELD 2926 05224 0 06 05761 ADD =105 2927 05225 0 04 05233 STA X001 2928 05226 0 04 05213 STA MPY3