*DECK C$ZN
          IDENT  C$ZN 
          TITLE  CBZN -  TABLE TO INSERT OVERPUNCH SIGNS
  
          MACHINE  ANY,I
          COMMENT  TABLE TO INSERT OVERPUNCH SIGNS
          SPACE  4
**        CBZN -  TABLE TO INSERT OVERPUNCH SIGNS 
* 
*         THIS 10 WORD TABLE IS USED INSERT A NEGATIVE OVERPUNCH SIGN 
*         IN A NUMERIC DISPLAY FIELD. 
*         IT IS TYPICALLY REFERENCED BY:  
* 
*         X0 =   77777777777777777700B
*         X1 =   NUMERIC DISPLAY VALUE,  LOW-ORDER DIGIT IS SIGN
*         BX2    -X0*X1 
*         SA2    C.ZN-1R0+X2
*       [ BX2    -X0*X2 ]                        (SEE NOTE) 
*         BX1    X1-X2
* 
*         X1 NOW CONTAINS NEGATIVE NUMERIC DISPLAY NUMBER.
* 
*         NOTE-  COBOL HAS THE PRINCIPLE THAT IN ILLEGAL CHARACTER
*         IN ONE FIELD MAY PROPAGATE ERRORS THROUGHOUT THE FIELD
*         BUT NOT TO ADJACENT FIELDS.  SINCE THE SIGN DIGIT MAY BE
*         AN ILLEGAL CHARACTER, A FULL WORD OF GARBAGE MAY BE LOADED. 
*         THE MASK INSTRUCTION SHOULD BE USED IF THIS MAY AFFECT
*         MORE THAN THE ONE FIELD.
  
  
          MACRO  DIGIT,UNSIGNED,SIGNED
          CON    1R_UNSIGNED_&1R_SIGNED 
 DIGIT    ENDM
  
  
          ENTRY  C.ZN 
 C.ZN     BSS    0
 0        DIGIT  !
 1        DIGIT  J
 2        DIGIT  K
 3        DIGIT  L
 4        DIGIT  M
 5        DIGIT  N
 6        DIGIT  O
 7        DIGIT  P
 8        DIGIT  Q
 9        DIGIT  R
          SPACE  4
          END 
