TEST CHARACTER & BRANCH                                    0050A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   TEST CHARACTER & BRANCH
  102                CTL   6611
  103         *
  104         * EQUATES FOR COMMON CODE.
  105         *
  106         START  EQU   347                                                         0347
  107         DETAIL EQU   START   HERE TO READ DETAIL OR CHAIN NEXT PROGRAM.          0347
  108         HEADCT EQU   336     COUNT OF HEADERS READ.  USUALLY ZERO.               0336
  109         *                      CHANGE TO ONE TO PRINT ONLY ONE HEADER.
  110         WORKED EQU   453     HERE FOR SUCCESS.                                   0453
  111         FAILED EQU   470     HERE FOR FAILURE.                                   0470
  112         REPEAT EQU   495     HERE TO RELOAD PRINT AREA AND REPEAT TEST.          0495
  113                ORG   518     TEST STARTS HERE                                           0518
  114         *
  115                SW    202,241          ,,                                      7  0518  , 202 241            1
  116                BCE   TESTEQ,250,B   SHOULD BE EQUAL                           8  0525  B 559 250 B          1
  117                MCW   202,*&8        MOVE D MODIFIER TO TEST CHARAC OP         7  0533  M 202 547            1
  118         SCOPE  BCE   SBFAIL,224,X   TEST UNEQUAL CHARACTERS                   8  0540  B 599 224 X          1
  119                BCE                    ,,                                      1  0548  B                    1
  120                BCE                    ,,                                      1  0549  B                    1
  121                BSS   SCOPE,B        B ON TO SCOPE                             5  0550  B 540 B              1
  122                B     RESULT         BRANCH TO LOAD RESULT COMMENT             4  0555  B 588                2
  123         TESTEQ MCW   202,*&8        MOVE D MODIFIER TO TEST CHARAC OP         7  0559  M 202 573            2
  124         SCOPE2 BCE   ISEQ,222,X     TEST EQUAL CHARACTERS                     8  0566  B 583 222 X          2
  125                BSS   SCOPE2,B       B ON TO SCOPE                             5  0574  B 566 B              2
  126                B     FAILED         BRANCH TO ERROR PRINT ROUTINE             4  0579  B 470                2
  127         ISEQ   BSS   SCOPE2,B       B ON TO SCOPE                             5  0583  B 566 B              2
  128         RESULT LCA   247,267        LOAD RESULT COMMENT                       7  0588  L 247 267            3
  129                B     WORKED                                                   4  0595  B 453                3
  130         SBFAIL BSS   SCOPE,B        B ON TO SCOPE                             5  0599  B 540 B              3
  131                B     FAILED                                                   4  0604  B 470                3
  132                DCW   @"@            GMWM                                      1  0608                       3
1                                                                                     COMM                PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  133                JOB
  134                END   START                                                             / 347 080
1                                                                                     COMM                PAGE    3
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    HEADCT    336    ISEQ      583    REPEAT    495    RESULT    588    SBFAIL    599   
 SCOPE     540    SCOPE2    566    START     347    TESTEQ    559    WORKED    453