*DECK S$ZERO
          IDENT  S$ZERO 
          TITLE  TRUE IFF PARAMETER IS ZERO 
          COMMENT  TRUE IFF PARAMETER IS ZERO 
          SPACE  4
**        S$ZERO -  TRUE IFF PARAMETER IS ZERO
* 
*     CALLING SEQUENCE- 
*         IF S$ZERO(COLSEQ)  THEN ...            (E.G.) 
* 
*     GIVEN-
*         1-WORD PARAMETER  (USUALLY CHARACTER TYPE)
* 
*     DOES- 
*         SETS S$ZERO = TRUE IFF PARAMETER IS BINARY ZERO 
  
  
          ENTRY   S$ZERO
 S$ZERO   SUBR
          SA2    X1          X2 = VALUE OF PARAMETER
          IFTHEN X2=0        IF VALUE IS ZERO 
            SX6    1 TRUE      RETURN TRUE
          ELSE-              ELSE 
            SX6    0 FALSE     RETURN FALSE 
            ENDIF.
          EXIT
          SPACE  4
          END 
