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 ,, 446 BAV 451 RESET OVERFLOW LATCH 451 LCA 222,262 LOAD B FIELD 458 A 202,262 ADD 465 BAV 487 BRANCH IF OVERFLOW 470 BSS 451,B B ON TO SCOPE 475 BCE 504,6,N NO ERROR IF N IN 006 483 B 900 BRANCH TO ERROR PRINT ROUTINE 487 BSS 451,B B ON TO SCOPE 492 BCE 504,6, NO ERROR IF BLANK IN 006 500 B 900 BRANCH TO ERROR PRINT ROUTINE 504 BSS 950,C C ON TO CORRECT PRINT ROUTINE 509 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