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