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 SW 202 ,, 453 BCE 484,13,S BR TO USE SUBTRACT CODE IF S IN 013 461 LCA 230,270 LOAD B FIELD 468 A 210,270 ADD WITH LIKE SIGNS 475 BSS 461,B B ON TO SCOPE 480 B 503 BRANCH TO TEST FOR ERROR 484 LCA 230,270 LOAD B FIELD 491 S 210,270 SUBTRACT WITH UNLIKE SIGNS 498 BSS 484,B B ON TO SCOPE 503 C 270,250 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