PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101         * EQUATES FOR COMMON CODE.
  102         *
  103         START  EQU   347                                                         0347
  104         DETAIL EQU   START   HERE TO READ DETAIL OR CHAIN NEXT PROGRAM.          0347
  105         HEADCT EQU   336     COUNT OF HEADERS READ.  USUALLY ZERO.               0336
  106         *                      CHANGE TO ONE TO PRINT ONLY ONE HEADER.
  107         WORKED EQU   453     HERE FOR SUCCESS.                                   0453
  108         FAILED EQU   470     HERE FOR FAILURE.                                   0470
  109                ORG   518     TEST STARTS HERE.                                          0518
1                                                                                                         PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    HEADCT    336    START     347    WORKED    453