O16-11T1

* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 4

0151 * THIS PROGRAM TESTS THE ARITHMETIC OPTION INSTRUCTIONS IN THE 0152 * FOLLOWING ORDER - 0153 * MPY, DIV, SCA, NRM, DLD, DST, DAD, DSB. 0154 * FINALLY, THE MPY AND DIV INSTRUCTIONS ARE EXTENSIVELY TESTED USING 0155 * A TABLE CONSISTING OF 112 MOST-SIGNIFICANT ENTRIES AND 112 LEAST- 0156 * SIGNIFICANT ENTRIES. 0157 * 0158 * 0159 * ABBREVIATIONS 0160 * 0161 * A - REGISTER A 0162 * B - REGISTER B 0163 * M - MEMORY REGISTER 0164 * ASR - TELETYPEWRITER (AUTOMATIC SEND-RECEIVE SET) 0165 * ASCII-AMERICAN STANDARD CODE FOR INFORMATION INTERCHANGE 0166 * 0167 * 0168 ************************************************************************ 0169 * 0170 ORG '1000 0171 01000 0 35 02711 LDX =-9 SET INDEX FOR 9 LOCATIONS 0172 01001 0 02 02710 LDA =-10 RESTORE PASS COUNTERS 0173 01002 1 04 02171 STA NPAS+9,1 0174 01003 0 12 00000 IRS 0 0175 01004 0 01 01002 JMP *-2 0176 01005 0 02 02707 LDA =-5000 RESTORE TIMED PRINTOUT 0177 01006 0 04 02157 STA CTR2 0178 01007 0 01 02566 STRT JMP TITL PRINT TITLE 0179 * 0180 01010 0 10 01553 MPY1 JST JSTL * TESTING MPY (1) * (0) 0181 01011 0 10 01012 JST *+1 0182 01012 0 00 00002 JL01 PZE 2 0183 01013 0 02 02706 LDA =1 A=1, B=0 0184 01014 0 16 02705 MPY =0 MPY BY 0 0185 01015 100040 SZE A=0 0186 01016 000000 HLT 0187 01017 000201 IAB 0188 01020 100040 SZE B=0 0189 01021 000000 HLT 0190 * 0191 01022 0 10 01553 MPY2 JST JSTL * TESTING MPY (+) * (+) 0192 01023 0 10 01024 JST *+1 0193 01024 0 00 00002 JL02 PZE 2 0194 01025 0 02 02704 LDA =-1 0195 01026 000201 IAB B='177777 (SHOULD HAVE NO EFFECT) 0196 01027 0 02 02706 LDA =1 A='000001 0197 01030 0 16 02706 MPY =1 MPY BY '000001 0198 01031 100040 SZE A=0 0199 01032 000000 HLT 0200 01033 000201 IAB