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
           MLCWASUM,280
           MLCWAGOT
           MLCWAEXP
           MLCWAEXPECT
           MLCWAACTION
           MLCWAA
           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