AB16-CCT4

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

2929 05227 0 12 05237 IRS MDCT ARE WE FINISHED 2930 05230 0 01 05203 JMP MPY1 NO, DO NEXT MULTIPLICATION 2931 05231 101000 NOP 2932 05232 -0 01 05167 JMP* MPYT RETURN 2933 * 2934 05233 000000 X001 BSZ 1 2935 05234 000000 X002 BSZ 1 2936 05235 000000 Y001 BSZ 1 2937 05236 000000 Y002 BSZ 1 2938 05237 000000 MDCT BSZ 1 2939 * 2940 * 2941 * 2942 * SUBROUTINE T102 2943 * TEST SINGLE PRECISION DIVIDE CAPABILITY 2944 * 2945 * 2946 05240 000102 OCT 102 TEST NO. 2947 05241 0 000000 DIVT DAC ** 2948 05242 0 02 05240 LDA *-2 2949 05243 0 04 00777 STA '777 STORE TEST NO. AT '777 2950 05244 101000 NOP 2951 05245 0 02 00455 LDA CNTY 2952 05246 0 04 05237 STA MDCT INITIALIZE TEST COUNT 2953 05247 0 02 05760 LDA =30000 INITIALIZE THE 2954 05250 0 04 05233 STA X001 TWO FIELDS 2955 05251 0 04 05262 STA DIV2 2956 05252 0 02 05757 LDA =12345 2957 05253 0 04 05234 STA X002 2958 05254 0 04 05257 STA DIV1+2 2959 * 2960 05255 0 02 05233 DIV1 LDA X001 MULTIPLIER 2961 05256 0 10 05303 JST MPY GO TO MULTIPLY ROUT 2962 05257 0 000000 DAC ** MULTIPLICAND 2963 05260 101000 NOP RESULT IS IN A AND B REGS 2964 05261 0 10 05417 JST DIV DIVIDE ROUTINE 2965 05262 0 000000 DIV2 DAC ** DIVISOR 2966 05263 000000 HLT ERROR HALT 2967 05264 101000 NOP OPTIONAL HALT 2968 05265 0 05 05234 ERA X002 COMPARE OUOTIENT WITH 2ND FIELD 2969 05266 100040 SZE 2970 05267 000000 HLT ERROR IN DIVIDE 2971 05270 000201 IAB TEST REMAINDER 2972 05271 100040 SZE SHOULD BE ZERO 2973 05272 000000 HLT ERROR 2974 05273 0 02 05233 LDA X001 MODIFY THE FIRST FIELD 2975 05274 0 06 05756 ADD =25 2976 05275 0 04 05233 STA X001 2977 05276 0 04 05262 STA DIV2 2978 05277 0 12 05237 IRS MDCT ARE WE FINISHED