JOB 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 221,241 ,, 449 NOP 0 ,, 453 BCE 484,2, BR TO ADD 1 DIGIT FLD IF 002 IS BLANK 461 LCA 222,262 LOAD B FIELD 468 A 202,262 ZONE ADD WITH 2 DIGIT FIELDS 475 BSS 461,B B ON TO SCOPE 480 B 503 BRANCH TO TEST FOR ERROR 484 LCA 221,261 LOAD B FIELD 491 A 201,261 ZONE ADD WITH 1 DIGIT FIELDS 498 BSS 484,B B ON TO SCOPE 503 C 262,242 TEST FOR ERROR 510 BU 900 BRANCH TO ERROR PRINT ROUTINE IF UNEQ 515 BSS 950,C C ON TO CORRECT PRINT ROUTINE 520 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 920 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 1110 MCE 10886&X2,R CONSTANTS 1115 DCW @ @ ,, 1120 DCW @A FIELD @ ,, 1140 DCW @B FIELD @ ,, 1160 DCW @RESULT SHOULD BE @ ,, 1180 DCW @RESULT IS @ ,, END