S4         JOB  TEST SINGLE-CHARACTER SUBTRACT
           ORG  500
START      CS   332
           CS   
           MLCWA@SINGLE-CHARACTER SUBTRACT TESTS@,260
           W
           CS   299
           H
           MLCWATWO,SUM
           S    @1@,SUM
           MLCWASUM,270
           MLCWA@) GOT: @
           MLCWATWO
           MLCWA@S @1@,SUM (@
           W
           CS   299
           MLCWATWO,SUM
           S    @01@,SUM
           MLCWASUM,270
           MLCWA@) GOT: @
           MLCWATWO
           MLCWA@S @01@,SUM (@
           W
           CS   299
           MLCWATWO,SUM
           S    @001@,SUM
           MLCWASUM,270
           MLCWA@) GOT: @
           MLCWATWO
           MLCWA@S @001@,SUM (@
           W
           CS   299
           ZA   TWO,SUMA
           S    @01@,SUMA
           MLCWASUMA,270
           MLCWA@) GOT: @
           MLCWATWO
           MLCWA@S @01@,SUMA (@
           W
           CS   299
           H    *-3
*
TWO        DCW  02
SUM        DCW  #2
SUMA       DCW  #3
           END  START