ZS     JOB   TEST ZERO-AND-SUBTRACT
       ORG   500
START  CS    332
       CS    
       MLCWA @TEST OF ZERO-AND-SUBTRACT@,250
       W
       CS    299
       H
* NO SIGN
       MLCWA @001@,ACTION
       MLCWA @   @,SUM
       MLCWA @00J@,EXP
       B     WRT
* AB-BIT SIGN
       MLCWA @00A@,ACTION
       MLCWA @   @,SUM
       MLCWA @00J@,EXP
       B     WRT
* A-BIT SIGN
       MLCWA @00/@,ACTION
       MLCWA @   @,SUM
       MLCWA @00J@,EXP
       B     WRT
* B-BIT SIGN
       MLCWA @00J@,ACTION
       MLCWA @   @,SUM
       MLCWA @00A@,EXP
       B     WRT
*
*
* ZONES NOT IN SIGN
*
       MLCWA @AA1@,ACTION
       MLCWA @   @,SUM
       MLCWA @11J@,EXP
       B     WRT
*
       MLCWA @AAA@,ACTION
       MLCWA @   @,SUM
       MLCWA @11J@,EXP
       B     WRT
*
       MLCWA @AAJ@,ACTION
       MLCWA @   @,SUM
       MLCWA @11A@,EXP
       B     WRT
*
* SHORT FIELD TO LONG FIELD
*
       MLCWA @01@,ACTION
       MLCWA @      @,SUM
       MLCWA @00000J@,EXP
       B     WRT
*
       MLCWA @END OF ZS TEST@,250
       W
       CS    299
       H     *-3
*
* SUBROUTINE TO ZS THE RESULT
*
WRT    SBR   WRTR+3
       ZS    ACTION,SUM
       MLCWA SUM,280
       MLCWA GOT
       MLCWA EXP
       MLCWA EXPECT
       MLCWA ACTION
       MLCWA A
       SBR   P1+3
       C     EXP,SUM
       BE    OK
P1     NOP   0
       MLCWA @**********  @
OK     W
       CS    299
WRTR   B     0
*
ACTION DCW   #20
SUM    DCW   #20
EXP    DCW   #20
GOT    DCW   @, GOT: @
EXPECT DCW   @, EXPECTED: @
A      DCW   @A-DATA: @
       END   START