add mpy result 0 tests

adelosa · Mar 25, 2022 · 82da894 · 82da894
1 parent d838d21
commit 82da894
Showing 1 changed file with 95 additions and 3 deletions.
diff --git a/tests/TESTINS5.MLC b/tests/TESTINS5.MLC
@@ -38,6 +38,7 @@
 * 2022-03-17 DSH add tests for each CC3 causing S0C8 overflow exception
 * 2022-03-23 DSH add spie to verify fixed point overflow test occurred
 * 2022-03-24 DSH add ESPIE RESET and move CC3 chk before WTO
+* 2022-03-25 DSH add additional 0 tests
 *********************************************************************
 
          PRINT DATACD
@@ -308,6 +309,14 @@ BIC_OK2  EQU    *
          MSG  R1,=FL8'-3'
          CLG    R1,=FL8'6'
          RT1    CC0
+         LG     R1,=FL8'0'
+         MSG  R1,=FL8'-3'
+         CLG    R1,=FL8'0'
+         RT1    CC0
+         LG     R1,=FL8'-2'
+         MSG  R1,=FL8'0'
+         CLG    R1,=FL8'0'
+         RT1    CC0
 * MG
          LMG    R2,R3,=FL8'-1,2'
          MG     R2,=FL8'3'
@@ -333,6 +342,18 @@ BIC_OK2  EQU    *
          RT1    CC0 
          CLG    R3,=FL8'6'
          RT1    CC0
+         LMG    R2,R3,=FL8'-1,0'  ADD 0 TEST FOR ISSUE #300
+         MG     R2,=FL8'-3'
+         CLG    R2,=FL8'0'
+         RT1    CC0 
+         CLG    R3,=FL8'0'
+         RT1    CC0
+         LMG    R2,R3,=FL8'-1,-2'  ADD 0 TEST FOR ISSUE #300
+         MG     R2,=FL8'0'
+         CLG    R2,=FL8'0'
+         RT1    CC0 
+         CLG    R3,=FL8'0'
+         RT1    CC0
 * LGAT NO TRAP TEST
          LG     R1,=FL8'0'
          LGAT   R1,=FL8'1'
@@ -406,6 +427,16 @@ BIC_OK2  EQU    *
          STMG  R2,R3,DWORK
          CLC   DWORK,=FL16'6'
          RT1    CC0 
+         LMG   R5,R6,=FL8'0,-3'  #200 ADD 0 TESTS
+         MGRK  R2,R5,R6
+         STMG  R2,R3,DWORK
+         CLC   DWORK,=FL16'0'
+         RT1    CC0 
+         LMG   R5,R6,=FL8'-2,0'  #200 ADD 0 TESTS
+         MGRK  R2,R5,R6
+         STMG  R2,R3,DWORK
+         CLC   DWORK,=FL16'0'
+         RT1    CC0 
          LMG   R5,R6,=FL8'123456,10000000'
          MGRK  R2,R5,R6
          STMG  R2,R3,DWORK
@@ -428,6 +459,14 @@ BIC_OK2  EQU    *
          MS    R1,=F'-3'
          CL     R1,=F'6'
          RT1  CC0
+         L       R1,=F'0'  #300 ADDED 0 TESTS
+         MS    R1,=F'-3'
+         CL     R1,=F'0'
+         RT1  CC0
+         L       R1,=F'-2'  #300 ADDED 0 TESTS
+         MS    R1,=F'0'
+         CL     R1,=F'0'
+         RT1  CC0
 * MSY
          L      R1,=F'2'
          MSY    R1,=F'3'
@@ -445,6 +484,15 @@ BIC_OK2  EQU    *
          MSY    R1,=F'-3'
           CL     R1,=F'6'
           RT1  CC0
+         L       R1,=F'0'     #300 ADDED 0 TESTS
+         MSY    R1,=F'3'
+         CL     R1,=F'0'
+         RT1  CC0
+         L       R1,=F'-2'    #300 ADDED 0 TESTS
+         MSY    R1,=F'0'
+          CL     R1,=F'0'
+          RT1  CC0
+
 * MSGRKC
          LMG   R5,R6,=FL8'2,3'
          SR       R0,R0
@@ -485,6 +533,20 @@ BIC_OK2  EQU    *
          RT1     CC0
          CLG    R2,=FL8'0'
          RT1    CC0 
+         LMG   R5,R6,=FL8'2,0'  #300 ADD 0 TESTS
+         SR      R0,R0
+         AHI    R0,1    NOT ZERO     
+         MSGRKC  R2,R5,R6
+         RT1     CC0
+         CLG    R2,=FL8'0'
+         RT1    CC0  
+         LMG   R5,R6,=FL8'0,2'  #300 ADD 0 TESTS
+         SR      R0,R0
+         AHI    R0,1    NOT ZERO     
+         MSGRKC  R2,R5,R6
+         RT1     CC0
+         CLG    R2,=FL8'0'
+         RT1    CC0 
          LMG   R5,R6,=FL8'-2,-3'
          SR       R0,R0
          MSGRKC  R2,R5,R6
@@ -527,6 +589,18 @@ MSGRKC_CC3 EQU *
          RT1   CC2
          CL     R2,=F'6'
          RT1    CC0 
+         LM     R5,R6,=F'0,-3' #300 ADD 0 TESTS
+         SR      R0,R0
+         MSRKC  R2,R5,R6
+         RT1   CC0
+         CL     R2,=F'0'
+         RT1    CC0 
+         LM     R5,R6,=F'-2,0' #300 ADD 0 TESTS
+         SR      R0,R0
+         MSRKC  R2,R5,R6
+         RT1   CC0
+         CL     R2,=F'0'
+         RT1    CC0 
          ESPIE SET,ESPIE_EXIT,8,PARAM=MSRKC_CC3
          LM   R5,R6,=XL4'7FFFFFFF,2'
          SR       R0,R0
@@ -557,11 +631,17 @@ MSRKC_CC3 EQU *
           RT1  CC1
           CL    R2,=F'-6'
 	RT1	CC0
-         L	R2,=F'-2'
+         L	R2,=F'0'  #300 ADD 0 TESTS
          SR       R0,R0
 	MSC R2,=F'-3'
-          RT1  CC2
-          CL    R2,=F'6'
+          RT1  CC0
+          CL    R2,=F'0'
+	RT1	CC0
+         L	R2,=F'-2'  #300 ADD 0 TESTS
+         SR       R0,R0
+	MSC R2,=F'0'
+          RT1  CC0
+          CL    R2,=F'0'
 	RT1	CC0
          ESPIE SET,ESPIE_EXIT,8,PARAM=MSC_CC3
          L	R2,=X'7FFFFFFF'
@@ -598,6 +678,18 @@ MSC_CC3 EQU *
 	MSGC R2,=FL8'-3'
           RT1  CC2
           CLG    R2,=FL8'6'
+	RT1	CC0
+         LG	R2,=FL8'-0'  #300 ADD 0 TESTS
+         SR       R0,R0
+	MSGC R2,=FL8'3'
+          RT1  CC0
+          CLG    R2,=FL8'0'
+	RT1	CC0
+         LG	R2,=FL8'-2'  #300 ADD 0 TESTS
+         SR       R0,R0
+	MSGC R2,=FL8'0'
+          RT1  CC0
+          CLG    R2,=FL8'0'
 	RT1	CC0
         LG	R2,=FL8'0'   #300 TEST ZERO RESULT
          SR       R0,R0