JOB TEST FOR ZONE OR WM & BR 0060A 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 BCE 600,224,* BR TO SET WM IN ALL * AND % CHARAC 450 BCE 600,224,% ,, 458 BCE 493,41, BR TO TEST EQUAL ZONES IF BLANK IN 041 466 MCW 201,480 MOVE D MODIFIER TO TEST ZONE OP 473 BWZ 895,224,X TEST UNEQUAL ZONES OR WM 481 BWZ ,, 482 BWZ ,, 483 BWZ ,, 484 BSS 473,B B ON TO SCOPE 489 B 522 BRANCH TO LOAD RESULT COMMENT 493 MCW 201,507 MOVE D MODIFIER TO TEST ZONE OP 500 BWZ 517,224,X TEST EQUAL ZONES OR WM 508 BSS 500,B B ON TO SCOPE 513 B 900 BRANCH TO ERROR PRINT ROUTINE IF UNEQ 517 BSS 500,B B ON TO SCOPE 522 SW 241 LOAD RESULT COMMENT 526 LCA 247,267 ,, 533 BSS 950,C C ON TO CORRECT PRINT ROUTINE 538 BIN 958, BRANCH TO SENSE D ORG 600 600 SW 224 SET WM IN 224 IF * OR % 604 BIN 458, ,, ORG 895 895 BSS 473,B B ON TO SCOPE 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 @D MODIFIER @ ,, 1159 DCW @B FIELD CHARACTERS @ ,, 1179 DCW @RESULT SHOULD BE @ ,, 1199 DCW @RESULT IS @ ,, END