S2         JOB  TEST OVERFLOW CONDITIONS (SUBTRACT)
           ORG  500
START      CS   332
           CS
           MLCWA@TEST OF OVERFLOW CONDITIONS (SUBTRACT)@,250
           W
           CS   299
           MLCWA@--------------------------------------@,250
           W
           CS   299
           H
* CHECK OVERFLOW OF NO-BIT TO A-BIT
           A    ONE,VN99
           MLCWAVN99,280
           MLCWAGOT
           MLCWA@Ø0@
           MLCWAEXPECT
           MLCWAADD
           W
           CS   299
           S    ONE,VN99
           MLCWAVN99,280
           MLCWAGOT
           MLCWA@99@
           MLCWAEXPECT
           MLCWASUB
           W
           CS   299
*      CHECK OVERFLOW OF A-BIT TO B-BIT
           A    ONE,VA99
           MLCWAVA99,280
           MLCWAGOT
           MLCWA@!0@
           MLCWAEXPECT
           MLCWAADD
           W
           S    ONE,VA99
           MLCWAVA99,280
           MLCWAGOT
           MLCWA@Z9@
           MLCWAEXPECT
           MLCWASUB
           W
           CS   299
* CHECK OVERFLOW OF B-BIT TO AB-BIT
           A    ONE,VB99
           MLCWAVB99,280
           MLCWAGOT
           MLCWA@?0@
           MLCWAEXPECT
           MLCWAADD
           W
           CS   299
           S    ONE,VB99
           MLCWAVB99,280
           MLCWAGOT
           MLCWA@R9@
           MLCWAEXPECT
           MLCWASUB
           W
           CS   299
* CHECK OVERFLOW OF AB-BIT TO NO-BIT
           A    ONE,VAB99
           MLCWAVAB99,280
           MLCWAGOT
           MLCWA@00@
           MLCWAEXPECT
           MLCWAADD
           W
           CS   299
           S    ONE,VAB99
           MLCWAVAB99,280
           MLCWAGOT
           MLCWA@I9@
           MLCWAEXPECT
           MLCWASUB
* CHECK COMPLEX OVERFLOW
           A    C2,C1
           MLCWAC1,280
           MLCWAGOT
           MLCWA@?0@
           MLCWAEXPECT
           MLCWAADD
           W
           CS   299
           S    C2,C1
           MLCWAC1,280
           MLCWAGOT
           MLCWA@Z9@
           MLCWAEXPECT
           MLCWASUB
           W
           CS   299
           H    *-3
VN99       DCW  99
VA99       DCW  @Z9@
VB99       DCW  @R9@
VAB99      DCW  @I9@
ONE        DCW  01
C1         DCW  @Z9@
C2         DCW  @Ø1@
GOT        DCW  @, GOT: @
EXPECT     DCW  @EXPECTED @
ADD        DCW  @ADD: @
SUB        DCW  @SUB: @
           END  START