JOB  TEST CHARACTER & BRANCH                                0050B
               ORG  333
  333          SW   8,12
  340          SW   1
  344          R    1
  348          R
  349          BCE  361,80,A
  357          B    421
  361          CS   340,80
  376          DCW  @         @
  377          BIN  389,
               ORG  385
  385          B    1288
  389          NOP  0
  393          MCW  360,392
  400          CS   332
  404          CS
  405          BCE  1200,1252,1
  413          CS   80
  417          B    348
  421          SW   1,78
  428          LCA  80,299
  435          LCA  72,272
  442          SW   202,241
  449          MCW  72,456
  459          DCW  @ 493@
  460          MCW  202,474
  467          BCE  971,224,X
  475          DCW  @B@
  476          DCW  @B@
  477          BSS  935,B
  482          LCA  247,267
  489          B    920
  493          MCW  202,507
  500          BCE  477,222,X
  508          B    971
  512          DCW  #1
               ORG  900
  900          LCA  1114,285
  907          BSS  916,E
  912          W    920
  916          H    920
  920          A    920,970
  927          BCE  944,969,9
  935          CS   332
  939          CS
  940          B    421
  944          S    970
  948          BSS  957,C
  953          B    958
  957          W
  958          BSS  421,D
  963          B    348
  970          DCW  @000?@
  971          BSS  935,B
  976          B    900
  980          DCW  #1
               ORG  1110
 1114          DCW  @ERROR@
 1119          DCW  @     @
 1139          DCW  @D MODIFIER          @
 1159          DCW  @B FIELD CHARACTERS  @
 1179          DCW  @RESULT SHOULD BE    @
 1199          DCW  @RESULT IS           @
 1200          W
 1201          SW   49
 1205          LCA  77,277
 1212          W
 1213          CS   277
 1217          W
 1218          CW   1140,1160
 1225          CW   1180
 1229          LCA  1189,270
 1236          W
 1237          CS   270
 1241          W    413
               END  333