MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:54 Page 1 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) S3 JOB TEST SIGN BIT MANIPULATION (SUBTRACT) 500 500 ORG 500 500 500 /332 START CS 332 504 504 / CS 505 505 LK66250 MLCWA@TEST OF SIGN BIT CONTROLS (SUBTRACT)@, 512 512 2 W 513 513 /299 CS 299 517 517 LL02250 MLCWA@------------------------------------@, 524 524 2 W 525 525 /299 CS 299 529 529 . H * 530 530 LL12250 MLCWA@A: NO SIGN@,250 537 537 2 W 538 538 /299 CS 299 * * A=0 B=0, B B * 542 542 MK17K25 MLC N2,ADATA 549 549 MK15K27 MLC N1,BDATA 556 556 MK07K23 MLC B1,EXP 563 563 BX78 B WRT * * A=0, B=0, B=A => AB * 567 567 MK17K25 MLC N2,ADATA 574 574 MK17K27 MLC N2,BDATA 581 581 MJ89K23 MLC AB0,EXP 588 588 BX78 B WRT * * A=B, B=0 B>A => AB * 592 592 MK15K25 MLC N1,ADATA 599 599 MK17K27 MLC N2,BDATA 606 606 MJ91K23 MLC AB1,EXP 613 613 BX78 B WRT * * A=0, B=A B B * 617 617 MK17K25 MLC N2,ADATA 624 624 MJ99K27 MLC A1,BDATA 631 631 MK07K23 MLC B1,EXP 638 638 BX78 B WRT * * A=0, B = A, A=B => AB * 642 642 MK15K25 MLC N1,ADATA 649 649 MJ99K27 MLC A1,BDATA 656 656 MJ89K23 MLC AB0,EXP 663 663 BX78 B WRT * * A=0, B=A, B>A => AB MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 2 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) * 667 667 MK15K25 MLC N1,ADATA 674 674 MK01K27 MLC A2,BDATA 681 681 MJ91K23 MLC AB1,EXP 688 688 BX78 B WRT * * A=0, B=B, B B * 692 692 MK17K25 MLC N2,ADATA 699 699 MK07K27 MLC B1,BDATA 706 706 MK11K23 MLC B3,EXP 713 713 BX78 B WRT * * A=0, B=B, B>A => B * 717 717 MK15K25 MLC N1,ADATA 724 724 MK09K27 MLC B2,BDATA 731 731 MK11K23 MLC B3,EXP 738 738 BX78 B WRT * 742 742 LL20250 MLCWA@A: A-BIT@,250 749 749 2 W 750 750 /299 CS 299 * * A=A, B=0, B < A => B * 754 754 MK01K25 MLC A2,ADATA 761 761 MK15K27 MLC N1,BDATA 768 768 MK07K23 MLC B1,EXP 775 775 BX78 B WRT * * A=A, B=0, B>A => AB * 779 779 MJ99K25 MLC A1,ADATA 786 786 MK17K27 MLC N2,BDATA 793 793 MJ91K23 MLC AB1,EXP 800 800 BX78 B WRT * * A=A, B=0, B=A => AB * 804 804 MJ99K25 MLC A1,ADATA 811 811 MK15K27 MLC N1,BDATA 818 818 MJ89K23 MLC AB0,EXP 825 825 BX78 B WRT * * A=A, B=A, B B * 829 829 MK01K25 MLC A2,ADATA 836 836 MJ99K27 MLC A1,BDATA 843 843 MK07K23 MLC B1,EXP 850 850 BX78 B WRT * MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 3 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) * A=A, B=A, B>A => AB * 854 854 MJ99K25 MLC A1,ADATA 861 861 MK01K27 MLC A2,BDATA 868 868 MJ91K23 MLC AB1,EXP 875 875 BX78 B WRT * * A=A, B=A, B=A => AB * 879 879 MJ99K25 MLC A1,ADATA 886 886 MJ99K27 MLC A1,BDATA 893 893 MJ89K23 MLC AB0,EXP 900 900 BX78 B WRT * * A=A, B=B, B B * 904 904 MK01K25 MLC A2,ADATA 911 911 MK07K27 MLC B1,BDATA 918 918 MK11K23 MLC B3,EXP 925 925 BX78 B WRT * * A=A, B=B, B>A => B * 929 929 MJ99K25 MLC A1,ADATA 936 936 MK09K27 MLC B2,BDATA 943 943 MK11K23 MLC B3,EXP 950 950 BX78 B WRT * * A=A, B=B, A=B => B * 954 954 MJ99K25 MLC A1,ADATA 961 961 MK07K27 MLC B1,BDATA 968 968 MK09K23 MLC B2,EXP 975 975 BX78 B WRT * * A=A, B=AB, B B * 979 979 MK01K25 MLC A2,ADATA 986 986 MJ91K27 MLC AB1,BDATA 993 993 MK07K23 MLC B1,EXP 1000 Ø00 BX78 B WRT * * A=A, B=AB, B>A => AB * 1004 Ø04 MJ99K25 MLC A1,ADATA 1011 Ø11 MJ93K27 MLC AB2,BDATA 1018 Ø18 MJ91K23 MLC AB1,EXP 1025 Ø25 BX78 B WRT * * A=A, B=AB, B=A => AB * 1029 Ø29 MJ99K25 MLC A1,ADATA MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 4 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) 1036 Ø36 MJ91K27 MLC AB1,BDATA 1043 Ø43 MJ89K23 MLC AB0,EXP 1050 Ø50 BX78 B WRT * 1054 Ø54 LL28250 MLCWA@A: B-BIT@,250 1061 Ø61 2 W 1062 Ø62 /299 CS 299 * * A=B, B=0 B 0 * 1066 Ø66 MK09K25 MLC B2,ADATA 1073 Ø73 MK15K27 MLC N1,BDATA 1080 Ø80 MK19K23 MLC N3,EXP 1087 Ø87 BX78 B WRT * * A=B, B=0, B>A => 0 * 1091 Ø91 MK07K25 MLC B1,ADATA 1098 Ø98 MK17K27 MLC N2,BDATA 1105 /05 MK19K23 MLC N3,EXP 1112 /12 BX78 B WRT * * A=B, B=0, A=B => 0 * 1116 /16 MK07K25 MLC B1,ADATA 1123 /23 MK15K27 MLC N1,BDATA 1130 /30 MK17K23 MLC N2,EXP 1137 /37 BX78 B WRT * * A=B, B=A, B A * 1141 /41 MK09K25 MLC B2,ADATA 1148 /48 MJ99K27 MLC A1,BDATA 1155 /55 MK03K23 MLC A3,EXP 1162 /62 BX78 B WRT * * A=B, B=A, B>A => A * 1166 /66 MK07K25 MLC B1,ADATA 1173 /73 MK01K27 MLC A2,BDATA 1180 /80 MK03K23 MLC A3,EXP 1187 /87 BX78 B WRT * * A=B, B=A, A=B => A * 1191 /91 MK07K25 MLC B1,ADATA 1198 /98 MJ99K27 MLC A1,BDATA 1205 S05 MK01K23 MLC A2,EXP 1212 S12 BX78 B WRT * * A=B, B=B, B AB * MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 5 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) 1216 S16 MK09K25 MLC B2,ADATA 1223 S23 MK07K27 MLC B1,BDATA 1230 S30 MJ91K23 MLC AB1,EXP 1237 S37 BX78 B WRT * * A=B, B=B, B>A => B * 1241 S41 MK07K25 MLC B1,ADATA 1248 S48 MK09K27 MLC B2,BDATA 1255 S55 MK07K23 MLC B1,EXP 1262 S62 BX78 B WRT * * A=B, B=B, B=A => B * 1266 S66 MK07K25 MLC B1,ADATA 1273 S73 MK07K27 MLC B1,BDATA 1280 S80 MK05K23 MLC B0,EXP 1287 S87 BX78 B WRT * * A=B, B=AB, BAB * 1291 S91 MK09K25 MLC B2,ADATA 1298 S98 MJ91K27 MLC AB1,BDATA 1305 T05 MJ95K23 MLC AB3,EXP 1312 T12 BX78 B WRT * * A=B, B=AB, B>A => AB * 1316 T16 MK07K25 MLC B1,ADATA 1323 T23 MJ93K27 MLC AB2,BDATA 1330 T30 MJ95K23 MLC AB3,EXP 1337 T37 BX78 B WRT * * A=B, B=AB, A=B => AB * 1341 T41 MK07K25 MLC B1,ADATA 1348 T48 MJ91K27 MLC AB1,BDATA 1355 T55 MJ93K23 MLC AB2,EXP 1362 T62 BX78 B WRT * 1366 T66 LL37250 MLCWA@A: AB-BIT@,250 1373 T73 2 W 1374 T74 /299 CS 299 * * A = AB, B=0, B B * 1378 T78 MJ93K25 MLC AB2,ADATA 1385 T85 MK15K27 MLC N1,BDATA 1392 T92 MK07K23 MLC B1,EXP 1399 T99 BX78 B WRT * * A=AB, B=0, B>A => AB MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 6 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) * 1403 U03 MJ91K25 MLC AB1,ADATA 1410 U10 MK17K27 MLC N2,BDATA 1417 U17 MJ91K23 MLC AB1,EXP 1424 U24 BX78 B WRT * * A=AB, B=0, B=A => AB * 1428 U28 MJ91K25 MLC AB1,ADATA 1435 U35 MK15K27 MLC N1,BDATA 1442 U42 MJ89K23 MLC AB0,EXP 1449 U49 BX78 B WRT * * A = AB, B=A, B B * 1453 U53 MJ93K25 MLC AB2,ADATA 1460 U60 MJ99K27 MLC A1,BDATA 1467 U67 MK07K23 MLC B1,EXP 1474 U74 BX78 B WRT * * A=AB, B=A, B>A => AB * 1478 U78 MJ91K25 MLC AB1,ADATA 1485 U85 MK01K27 MLC A2,BDATA 1492 U92 MJ91K23 MLC AB1,EXP 1499 U99 BX78 B WRT * * A=AB, B=A, B=A => AB * 1503 V03 MJ91K25 MLC AB1,ADATA 1510 V10 MJ99K27 MLC A1,BDATA 1517 V17 MJ89K23 MLC AB0,EXP 1524 V24 BX78 B WRT * * A=AB,B=B, A>B => B * 1528 V28 MJ93K25 MLC AB2,ADATA 1535 V35 MK07K27 MLC B1,BDATA 1542 V42 MK11K23 MLC B3,EXP 1549 V49 BX78 B WRT * * A=AB, B=B, A B * 1553 V53 MJ91K25 MLC AB1,ADATA 1560 V60 MK09K27 MLC B2,BDATA 1567 V67 MK11K23 MLC B3,EXP 1574 V74 BX78 B WRT * * A=AB, B=B, A=B => B * 1578 V78 MJ91K25 MLC AB1,ADATA 1585 V85 MK07K27 MLC B1,BDATA MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 7 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) 1592 V92 MK09K23 MLC B2,EXP 1599 V99 BX78 B WRT * * A=AB, B=AB, B B * 1603 W03 MJ93K25 MLC AB2,ADATA 1610 W10 MJ91K27 MLC AB1,BDATA 1617 W17 MK07K23 MLC B1,EXP 1624 W24 BX78 B WRT * * A=AB, B=AB, B>A => AB * 1628 W28 MJ91K25 MLC AB1,ADATA 1635 W35 MJ93K27 MLC AB2,BDATA 1642 W42 MJ91K23 MLC AB1,EXP 1649 W49 BX78 B WRT * * A=AB, B=AB, B=A => AB * 1653 W53 MJ91K25 MLC AB1,ADATA 1660 W60 MJ91K27 MLC AB1,BDATA 1667 W67 MJ89K23 MLC AB0,EXP 1674 W74 BX78 B WRT * * TEST OF SUBTRACT FROM SELF * 1678 W78 LL60250 MLCWA@SINGLE-OPERAND SUBTRACT@,250 1685 W85 2 W 1686 W86 /299 CS 299 * NO SIGN 1690 W90 MK15K25 MLC N1,ADATA 1697 W97 MJ89K23 MLC AB0,EXP 1704 X04 B!08 B WRT1 * AB SIGN 1708 X08 MJ91K25 MLC AB1,ADATA 1715 X15 MJ89K23 MLC AB0,EXP 1722 X22 B!08 B WRT1 * A SIGN 1726 X26 MJ99K25 MLC A1,ADATA 1733 X33 MJ89K23 MLC AB0,EXP 1740 X40 B!08 B WRT1 * B SIGN 1744 X44 MK07K25 MLC B1,ADATA 1751 X51 MK05K23 MLC B0,EXP 1758 X58 B!08 B WRT1 * * THAT'S ALL * 1762 X62 LL76250 MLCWA@END OF SIGN TEST@,250 1769 X69 2 W 1770 X70 /299 CS 299 1774 X74 .X74 H *-3 MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 8 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) * * SUBROUTINE TO COMPUTE RESULT AND PRINT IT OUT * 1778 X78 H!07 WRT SBR WRTR+3 1782 X82 MK27K21 MLC BDATA,SUM 1789 X89 SK25K21 S ADATA,SUM 1796 X96 YK21K28 MLZS SUM,SIGN 1803 Y03 DK21K30 MLNS SUM,DIGITS 1810 Y10 M MLC 1811 Y11 LL77280 MLCWA@)@,280 1818 Y18 LK28 MLCWASIGN 1822 Y22 LK30 MLCWADIGITS 1826 Y26 LL79 MLCWA@ (@ 1830 Y30 LK21 MLCWASUM 1834 Y34 LL86 MLCWA@, GOT: @ 1838 Y38 HY60 SBR P1+3 1842 Y42 YK23K28 MLZS EXP,SIGN 1849 Y49 DK23K30 MLNS EXP,DIGITS 1856 Y56 M MLC 1857 Y57 N000 P1 NOP 0 1861 Y61 LL77 MLCWA@)@ 1865 Y65 LK28 MLCWASIGN 1869 Y69 LK30 MLCWADIGITS 1873 Y73 LL79 MLCWA@ (@ 1877 Y77 LK23 MLCWAEXP 1881 Y81 LL98 MLCWA@: EXPECTED: @ 1885 Y85 HZ07 SBR P2+3 1889 Y89 YK27K28 MLZS BDATA,SIGN 1896 Y96 DK27K30 MLNS BDATA,DIGITS 1903 Z03 M MLC 1904 Z04 N000 P2 NOP 0 1908 Z08 LL77 MLCWA@)@ 1912 Z12 LK28 MLCWASIGN 1916 Z16 LK30 MLCWADIGITS 1920 Z20 LL79 MLCWA@ (@ 1924 Z24 LK27 MLCWABDATA 1928 Z28 LM01 MLCWA@ + @ 1932 Z32 HZ54 SBR P3+3 1936 Z36 YK25K28 MLZS ADATA,SIGN 1943 Z43 DK25K30 MLNS ADATA,DIGITS 1950 Z50 M MLC 1951 Z51 N000 P3 NOP 0 1955 Z55 LL77 MLCWA@)@ 1959 Z59 LK28 MLCWASIGN 1963 Z63 LK30 MLCWADIGITS 1967 Z67 LL79 MLCWA@ (@ 1971 Z71 LK25 MLCWAADATA 1975 Z75 HZ94 SBR P4+3 1979 Z79 CK21K23 C SUM,EXP 1986 Z86 BZ99S BE OK 1991 Z91 N000 P4 NOP 0 1995 Z95 LM13 MLCWA@********** @ MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 9 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) 1999 Z99 2 OK W 2000 !00 /299 CS 299 2004 !04 B000 WRTR B 0 * * SUBROUTINE TO SUBTRACT FIELD FROM ITSELF AND PRINT RE * 2008 !08 HJ87 WRT1 SBR WRT1R+3 2012 !12 MK25K21 MLC ADATA,SUM 2019 !19 SK21 S SUM 2023 !23 YK21K28 MLZS SUM,SIGN 2030 !30 DK21K30 MLNS SUM,DIGITS 2037 !37 M MLC 2038 !38 LL77280 MLCWA@)@,280 2045 !45 LK28 MLCWASIGN 2049 !49 LK30 MLCWADIGITS 2053 !53 LL79 MLCWA@ (@ 2057 !57 LK21 MLCWASUM 2061 !61 LL86 MLCWA@, GOT: @ 2065 !65 H!87 SBR P1A+3 2069 !69 YK23K28 MLZS EXP,SIGN 2076 !76 DK23K30 MLNS EXP,DIGITS 2083 !83 M MLC 2084 !84 N000 P1A NOP 0 2088 !88 LL77 MLCWA@)@ 2092 !92 LK28 MLCWASIGN 2096 !96 LK30 MLCWADIGITS 2100 J00 LL79 MLCWA@ (@ 2104 J04 LK23 MLCWAEXP 2108 J08 LL98 MLCWA@: EXPECTED: @ 2112 J12 HJ34 SBR P2A+3 2116 J16 YK25K28 MLZS ADATA,SIGN 2123 J23 DK25K30 MLNS ADATA,DIGITS 2130 J30 M MLC 2131 J31 N000 P2A NOP 0 2135 J35 LL77 MLCWA@)@ 2139 J39 LK28 MLCWASIGN 2143 J43 LK30 MLCWADIGITS 2147 J47 LL79 MLCWA@ (@ 2151 J51 LM35 MLCWA@ ONE-ADDRESS SUBTRACT @ 2155 J55 HJ74 SBR P4A+3 2159 J59 CK21K23 C SUM,EXP 2166 J66 BJ79S BE OKA 2171 J71 N000 P4A NOP 0 2175 J75 LM13 MLCWA@********** @ 2179 J79 2 OKA W 2180 J80 /299 CS 299 2184 J84 B000 WRT1R B 0 * 2189 J89 AB0 DCW +00 2191 J91 AB1 DCW +01 2193 J93 AB2 DCW +02 2195 J95 AB3 DCW +03 MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 10 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) 2197 J97 A0 DCW @0Ø@ 2199 J99 A1 DCW @0/@ 2201 K01 A2 DCW @0S@ 2203 K03 A3 DCW @0T@ 2205 K05 B0 DCW -00 2207 K07 B1 DCW -01 2209 K09 B2 DCW -02 2211 K11 B3 DCW -03 2213 K13 N0 DCW 00 2215 K15 N1 DCW 01 2217 K17 N2 DCW 02 2219 K19 N3 DCW 03 2221 K21 SUM DCW #2 2223 K23 EXP DCW #2 2225 K25 ADATA DCW #2 2227 K27 BDATA DCW #2 2228 K28 SIGN DCW @ @ 2230 K30 DIGITS DCW #2 500 500 END START 2266 K66 LTRL @TEST OF SIGN BIT CONTROLS (SUBTRACT)@ 2302 L02 LTRL @------------------------------------@ 2312 L12 LTRL @A: NO SIGN@ 2320 L20 LTRL @A: A-BIT@ 2328 L28 LTRL @A: B-BIT@ 2337 L37 LTRL @A: AB-BIT@ 2360 L60 LTRL @SINGLE-OPERAND SUBTRACT@ 2376 L76 LTRL @END OF SIGN TEST@ 2377 L77 LTRL @)@ 2379 L79 LTRL @ (@ 2386 L86 LTRL @, GOT: 2398 L98 LTRL @: EXPECTED: 2401 M01 LTRL @ + 2413 M13 LTRL @********** 2435 M35 LTRL @ ONE-ADDRESS SUBTRACT MINI-AUTOCODER S3 WEDNESDAY, 21-DEC-94 19:59:55 Page 11 S3 TEST SIGN BIT MANIPULATION (SUBTRACT) A0 02197 A1 02199 A2 02201 A3 02203 AB0 02189 AB1 02191 AB2 02193 AB3 02195 ADATA 02225 B0 02205 B1 02207 B2 02209 B3 02211 BDATA 02227 DIGITS 02230 EXP 02223 N0 02213 N1 02215 N2 02217 N3 02219 OK 01999 OKA 02179 P1 01857 P1A 02084 P2 01904 P2A 02131 P3 01951 P4 01991 P4A 02171 SIGN 02228 START 00500 SUM 02221 WRT 01778 WRT1 02008 WRT1R 02184 WRTR 02004