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 POWER2NOTEPAD PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB POWER2NOTEPAD 102 * 103 CTL 6611 *6=16,000C;6=16,000T;1=OBJDECK;,1=MODADD 104 * 1 2 3 4 5 6 7 8 105 *78901234567890123456789012345678901234567890123456789012345678901234567890 106 * LABEL | OP | OPERATION |XXXXXXX 107 ORG 100 * START ABOVE INDEX "REGISTERS" 0100 108 PRINTD CS 633 * START CLEARING DOWN TO 200, PRINT AREA 4 0100 / 633 4 109 CS * 500S 500 IS HIGH ORDER OF WORK AREA 1 - TO 1 0104 / 4 110 CS * 400S 1 0105 / 4 111 CS * 300S 350 IS HIGH ORDER OF WORK AREA 2 - TO 1 0106 / 4 112 CS * 200S 201 IS HIGH ORDER OF PRINT AREA - TO 1 0107 / 4 113 SW 500,350 * SET WORD MARKS FOR WORK AREAS 7 0108 , 500 350 4 114 SW 200 * SET WORD MARK FOR PRINT AREA COMPARE 4 0115 , 200 4 ** *** ** Name must not be followed by * or character literal ERROR 115 MCW @1@,632 * SET INITIAL 2^0 1 0119 # 5 BAD STATEMENT 116 MCW @56789@,204 * SET TEST PATTERN FOR BUG CHECK ;-)) 7 0120 M 186 204 5 117 W *WRITE THE TEST PATTERN AREA TO THE PRINTER 1 0127 2 5 118 * SEE IF LOCATION 202 IS KLOBBERED :-)) 119 PR1LOP ZA @1@,334 * SET ZEROS FOR EDIT COMMAND INTO PRINT FIE 7 0128 ? 181 334 5 120 MCE 632,332 * EDIT FROM WORK AREA 2 INTO PRINT BUFFER 7 0135 E 632 332 5 121 W *WRITE THE PRINT AREA TO THE PRINTER 1 0142 2 5 122 MCW 632,482 * COPY WORK AREA 1 INTO WORK AREA 2 7 0143 M 632 482 5 123 SW 200 * RESTORE WORD MARK OBLITERATED BY MCW 4 0150 , 200 6 124 A 482,632 * ADD WORK AREA 2 TO WORK AREA 1 7 0154 A 482 632 6 125 C @ @,201 * ARE WE DONE WITH RON'S PRINT VERSION 7 0161 C 188 201 6 126 BE PR1LOP * NO, DO SOME MORE 5 0168 B 128 S 6 127 H PRINTD * HALT - OH RATS, I FORGOT TO EJECT THE P 4 0173 . 100 6 128 B PRINTD * AND DO IT AGAIN :-) 4 0177 B 100 6 DCW @1@ 1 0181 LIT 6 DCW @56789@ 5 0186 LIT 7 DCW @ @ 2 0188 LIT 7 129 END PRINTD * LAST CARD IN DECK, TRANSFER ADDRESS / 100 080 1 PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS PR1LOP 128 PRINTD 100 ***** ** 2 Errors ERROR