JOB  LOAD COMPARE                                           0110A
               ORG  377
  377          BIN  389,           USE WHEN TESTS ARE RUN FROM TAPE
               ORG  385
  385          B    1288             ,,
  389          NOP  0                ,,
  393          MCW  360,392          ,,
  400          CS   332            START TEST
  404          CS
  405          BCE  1200,1252,1    BR TO TITLE PRINT ROUTINE IF 1 IN S52
  413          CS   80             CLEAR READ AREA
  417          B    348            BRANCH TO PROGRAM CHAINING ROUTINE
  421          SW   1,78           LOAD PRINT AREA
  428          LCA  80,299           ,,
  435          LCA  72,272           ,,
  442          SW   210,241          ,,
  449          LCA  210,270        LOAD OP WITH CHAINING
  456          LCA                   ,,
  457          BSS  449,B          B ON TO SCOPE
  462          CW   270            TEST FOR ERROR
  466          C    270,250          ,,
  473          BU   900            BRANCH TO ERROR PRINT ROUTINE IF UNEQ
  478          BSS  950,C          C ON TO CORRECT PRINT ROUTINE
  483          BIN  958,           BRANCH TO SENSE D
               ORG  900
  900          LCA  1114,285       BEGIN ERROR PRINT ROUTINE
  907          BSS  916,E          E ON TO ERROR STOP
  912          W    958            ERROR PRINT
  916          H    958            ERROR STOP
  939          DCW  @                    @   WORD MARK
               ORG  950
  950          LCA  1119,285       CORRECT PRINT ROUTINE
  957          W                     ,,
  958          BSS  421,D          D ON TO REPEAT
  963          BIN  417,           BRANCH TO READ NEXT RECORD
               ORG  1110
 1114          DCW  @ERROR@        CONSTANTS
 1119          DCW  @     @          ,,
 1139          DCW  @A FIELD             @     ,,
 1159          DCW  @B FIELD             @     ,,
 1179          DCW  @RESULT SHOULD BE    @     ,,
 1199          DCW  @RESULT IS           @     ,,
               END