CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB 102 CTL 6611 103 X1 EQU 89 0089 104 ORG 1 0001 105 ORG 333 0333 106 333 START LCA K000,X1 7 0333 L 726 089 107 340 SW 1500 4 0340 , V00 108 344 CS CS 3999 4 0344 / I99 109 348 SBR CS&3 4 0348 H 347 110 352 BW CS,1500 8 0352 V 344 V00 1 111 360 H PRINT START TO PRINT, START RESET TO PUNCH 4 0360 . 372 112 364 SW FLAG FLAG SET MEANS PUNCH 4 0364 , 723 113 368 B GBLKP 4 0368 B 558 114 * 115 * PRINT RECORDS 116 * 117 372 PRINT CC 1 2 0372 F 1 118 374 SW 201 4 0374 , 201 119 * 120 * GET A BLOCK TO PRINT 121 * 122 378 GBLKW RT 1,1501 8 0378 M %U1 V01 R 123 386 BER TPERR 5 0386 B 495 L 124 391 C 1560,BBBBB 7 0391 C V60 722 125 398 BE 588 5 0398 B 588 S 126 403 RECW C 1560&X1,LLLLL 7 0403 C VW0 717 127 410 BE GBLKP 5 0410 B 558 S 128 415 BCE CC1,1501&X1,1 8 0415 B 483 V|1 1 129 423 BCE CCL,1501&X1,0 8 0423 B 489 V|1 0 130 431 LINE MCW 1633&X1,332 7 0431 M WT3 332 131 438 W 1 0438 2 132 439 A K01,COUNT1 7 0439 A 728 730 133 446 BCE BLKW,COUNT1-1,1 DONE WITH BLOCK? 8 0446 B 465 729 1 134 454 A K134,X1 NO 7 0454 A 733 089 135 461 B RECW GET NEXT RECORD FROM BLOCK 4 0461 B 403 136 465 BLKW MCW K00,COUNT1 RESET TO FIRST RECORD IN BLOCK 7 0465 M 735 730 137 472 MCW K000,X1 7 0472 M 726 089 138 479 B GBLKW 4 0479 B 378 139 483 CC1 CC 1 2 0483 F 1 140 485 B LINE 4 0485 B 431 141 489 CCL CC L 2 0489 F L 142 491 B LINE 4 0491 B 431 143 * 144 * TAPE ERROR HANDLER 145 * 146 495 TPERR SBR TPERX&3 4 0495 H 527 147 499 MCW K00,COUNT2 7 0499 M 735 737 1 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 506 RETRY BSP 1 5 0506 U %U1 B 149 511 RT 1,1501 8 0511 M %U1 V01 R 150 519 BER *&5 5 0519 B 528 L 151 524 TPERX B 0 4 0524 B 000 152 528 A K01,COUNT2 7 0528 A 728 737 153 535 BCE *&5,COUNT2-1,1 TEN ERRORS? 8 0535 B 547 736 1 154 543 B RETRY NO 4 0543 B 506 155 547 H 1,1 7 0547 . 001 001 156 554 B RETRY 4 0554 B 506 157 * 158 * SEARCH FOR A BLOCK TO PUNCH 159 * 160 558 GBLKP RT 1,1501 8 0558 M %U1 V01 R 161 566 BER TPERR 5 0566 B 495 L 162 571 C 1560,BBBBB 7 0571 C V60 722 163 578 BE PTEST 5 0578 B 588 S 164 583 BU GBLKP 5 0583 B 558 / 165 588 PTEST BW BLKP,FLAG 8 0588 V 604 723 1 166 596 H BLKP START TO PUNCH, START RESET TO QUIT 4 0596 . 604 167 600 B DONE 4 0600 B 697 168 * 169 * READ A BLOCK TO PUNCH 170 * 171 604 BLKP MCW K000,X1 7 0604 M 726 089 172 611 MCW K00,COUNT1 7 0611 M 735 730 173 618 SW 101 4 0618 , 101 174 622 RT 1,1501 8 0622 M %U1 V01 R 175 630 BER TPERR 5 0630 B 495 L 176 635 BEF LAST 5 0635 B 692 K 177 * 178 * TEST WHETHER TO PUNCH THE NEXT RECORD 179 * 180 640 RECP C 1560&X1,LLLLL 7 0640 C VW0 717 181 647 BE LAST 5 0647 B 692 S 182 652 MCW 1580&X1,180 7 0652 M VY0 180 183 659 P 1 0659 4 184 660 SS 4 2 0660 K 4 185 662 A K01,COUNT1 7 0662 A 728 730 186 669 BCE BLKPB,COUNT1-1,2 DONE WITH BLOCK? 8 0669 B 688 729 2 187 677 A K081,X1 NO 7 0677 A 740 089 188 684 B RECP GET NEXT RECORD FROM BLOCK 4 0684 B 640 189 688 BLKPB B BLKP 4 0688 B 604 190 692 LAST CS 180 4 0692 / 180 191 696 P 1 0696 4 192 697 DONE RWD 1 5 0697 U %U1 R 193 702 FIN H 999,999 7 0702 . 999 999 194 709 B FIN 4 0709 B 702 195 717 LLLLL DCW @LLLLL@ 5 0717 196 722 BBBBB DCW @BBBBB@ 5 0722 197 723 FLAG DC #1 1 0723 1 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 726 K000 DSA 0 DCW '000' 3 0726 000 199 728 K01 DCW 01 2 0728 200 730 COUNT1 DCW #2 2 0730 201 733 K134 DSA 134 DCW '134' 3 0733 134 202 735 K00 DCW 00 2 0735 203 737 COUNT2 DCW #2 2 0737 204 740 K081 DCW 081 3 0740 205 END START / 333 080 1 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BBBBB 722 BLKP 604 BLKPB 688 BLKW 465 CC1 483 CCL 489 COUNT1 730 COUNT2 737 CS 344 DONE 697 FIN 702 FLAG 723 GBLKP 558 GBLKW 378 K00 735 K000 726 K01 728 K081 740 K134 733 LAST 692 LINE 431 LLLLL 717 PRINT 372 PTEST 588 RECP 640 RECW 403 RETRY 506 START 333 TPERR 495 TPERX 524 X1 89