LOAD COMPARE 0110B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB LOAD COMPARE 102 * 103 * HALTS (IN ADDITION TO COMMON PART): 104 * 105 * 534 IN A-STAR AND 538 IN I-STAR: COLUMN 72 OF DETAIL IS NEITHER 106 * L NOR M. START-RESET AND THEN START ASSUMES L. START JUST 107 * LOOPS ON THE HALT. 108 * 109 * EQUATES FOR COMMON CODE. 110 * 111 START EQU 347 0347 112 DETAIL EQU START HERE TO READ DETAIL OR CHAIN NEXT PROGRAM. 0347 113 HEADCT EQU 336 COUNT OF HEADERS READ. USUALLY ZERO. 0336 114 * CHANGE TO ONE TO PRINT ONLY ONE HEADER. 115 WORKED EQU 453 HERE FOR SUCCESS. 0453 116 FAILED EQU 470 HERE FOR FAILURE. 0470 117 REPEAT EQU 495 HERE TO RELOAD PRINT AREA AND REPEAT TEST. 0495 118 ORG 518 TEST STARTS HERE 0518 119 * 120 * 121 * CONTINUE HERE AFTER READING DETAIL 122 * 123 BCE LOAD1,72,L TEST LOAD 8 0518 B 538 072 L 1 124 BCE MOVE,72,M TEST MOVE 8 0526 B 549 072 M 1 125 BADINP H BADINP BAD INPUT -- NEITHER L NOR M 4 0534 . 534 1 126 LOAD1 SW 210,241 7 0538 , 210 241 1 127 B LOAD2 4 0545 B 568 1 128 MOVE SW 241,270 7 0549 , 241 270 1 129 MCW 210,270 7 0556 M 210 270 2 130 MCW 1 0563 M 2 131 B BTEST 4 0564 B 576 2 132 LOAD2 LCA 210,270 LOAD OP WITH CHAINING 7 0568 L 210 270 2 133 LCA ,, 1 0575 L 2 134 BTEST BSS REPEAT,B 5 0576 B 495 B 2 135 CW 270 TEST FOR ERROR 4 0581 ) 270 2 136 C 270,250 ,, 7 0585 C 270 250 3 137 BU FAILED BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0592 B 470 / 3 138 BUMP A *-6,COUNT BUMP COUNTER 7 0597 A 597 626 3 139 BCE CLEAR,COUNT-1,9 NINETY TIMES YET? 8 0604 B 616 625 9 3 140 B REPEAT 4 0612 B 495 3 141 CLEAR S COUNT CLEAR COUNTER 4 0616 S 626 3 142 B WORKED 4 0620 B 453 3 143 COUNT DCW 000 3 0626 4 144 DCW @"@ GMWM 1 0627 4 145 END START / 347 080 1 LOAD COMPARE 0110B PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BADINP 534 BTEST 576 BUMP 597 CLEAR 616 COUNT 626 DETAIL 347 FAILED 470 HEADCT 336 LOAD1 538 LOAD2 568 MOVE 549 REPEAT 495 START 347 WORKED 453