CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 WRITE CHAIN TAPE WRITE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB WRITE CHAIN TAPE 102 * 103 * READ PROGRAM HEADERS, PROGRAMS AND DETAIL CARDS, AND WRITE THEM 104 * ON TAPE 6. EVERYTHING IS WRITTEN WITH WORD MARKS, SO PROGRAMS 105 * NEED TO READ DETAIL RECORDS WITH WORD MARKS, AND NOT EXPECT 106 * WORD MARKS THEY SET TO BE PRESERVED. THERE'S A WORD MARK IN 1 107 * FOR DETAIL RECORDS. 108 * 109 * PROGRAM HEADERS HAVE A IN COLUMN 80, ID IN 73-76, C IN 79 FOR 110 * THE CHAIN LOADER, H IN 79 FOR THE PAGE HEADING PRINTING PROGRAM, T 111 * IN 79 FOR TEST PROGRAMS, E IN 79 FOR THE END-OF-FILE PROGRAM, AN 112 * OPTIONAL TITLE IN 49-71, AND THE FOLLOWING IN 1-27 IF IT'S NOT AN 113 * END-OF-FILE PROGRAM: 114 * 115 * ....5...10...15...20...25.. 116 * ,008015,022026N0000001001 117 * 1 1 1 1 1 118 * 119 * ON THE TAPE, 1-27 ARE REPLACED BY 120 * 121 * ....5...10...15...20...25.. 122 * L%U1201RB018LB###U%U1B.001 123 * 1 1 1 1 1 1 124 * 125 * THE ### IS FILLED FROM THE ENTRY ADDRESS ON THE END CARD OF THE 126 * PROGRAM'S OBJECT DECK. 127 * 128 * IF IT IS AN END-OF-FILE PROGRAM, THE FOLLOWING IS EXPECTED IN 1-36: 129 * 130 * ....5...10...15...20...25...30...35. 131 * ,008015,022027,031032U%U1RN099.B001 132 * 133 * THE SOURCE CODE FOR THIS IS AT THE END OF THIS DECK. 134 * 135 * THE PROGRAM IS WRITTEN ON THE TAPE FROM 201 UP TO ITS GMWM, AND 136 * IS READ BACK INTO 201. THIS IS TO PRESERVE THE PARAMETER BLOCK 137 * AT 181-199. THUS, THE PROGRAM SHOULDN'T BOTHER TO LOAD ANYTHING 138 * BELOW THAT. IN PARTICULAR, IT SHOULDN'T DEPEND UPON INITIALIZING 139 * THE INDEX REGISTERS. 140 * 141 * PROGRAM DECKS ARE IN AUTOCODER FORMAT. 142 * THE PROGRAM CANNOT HAVE A GMWM WITHIN IT. IF IT HAS NONE AT THE 143 * END, THE ONE JUST BEFORE "HEADER" WILL SERVE. 144 * 145 * THE ENTRY POINT FOR EVERY PROGRAM IS TAKEN FROM THE /XXX080 CARD 146 * AT THE END OF ITS DECK. 147 * 1 WRITE CHAIN TAPE WRITE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * HALTS IDENTIFIED BY A/B-STAR CONTENTS: 149 * 111 => TAPE WRITE ERROR, START WRITES BLANK TAPE AND RETRIES 150 * 666 => FIRST CARD IS NOT A HEADER, START READS ANOTHER 151 * 999 => DONE, START LOOPS ON THE HALT 152 * 153 SYSTP EQU %U6 %U6 154 * 155 START R 1 0333 1 4 156 BCE HEADER,80,A IS IT A HEADER 8 0334 B G26 080 A 4 157 NOP 666 4 0342 N 666 4 158 H 1 0346 . 4 159 B START 4 0347 B 333 4 160 * 161 * THIS GMWM IS FOR WRITING DETAIL RECORDS. 162 * 163 ORG 81 0081 164 DCW @"@ 1 0081 5 165 * 166 * THIS GMWM IS FOR WRITING HEADERS. 167 * 168 ORG 181 0181 169 DCW @"@ 1 0181 6 170 * 171 * SOME CONSTANTS 172 * 173 ORG 3692 3692 174 GMWM DCW @"@ 1 3692 7 175 ORG *&X00 3700 176 ORG *-100 3600 177 BCLEAR EQU * 3599 178 ORG GMWM&1 3693 179 KCLEAR DSA BCLEAR 3 3695 E99 7 180 * TAPE LOADER TO PUT IN THE HEADER THAT'S WRITTEN ON TAPE 181 RTW 1,201 8 3696 L %U1 201 R 7 182 BER 21 5 3704 B 021 L 7 183 ENTRY CS 345,80 7 3709 / 345 080 7 184 BSP 1 5 3716 U %U1 B 7 185 H 1 4 3721 . 001 7 186 TAPLDR DCW #1 1 3725 8 187 * 188 * SAVE THE HEADER IN 101-180 189 * 190 HEADER SW 1,201 SET UP FOR AUTOCODER FORMAT, CLEAR 7 3726 , 001 201 8 191 LCA 80,180 7 3733 L 080 180 8 192 BCE WHEAD,79,E END-FILE RECORD? 8 3740 B H82 079 E 8 193 * 194 * LOAD AN AUTOCODER-FORMAT PROGRAM INTO LOW MEMORY. ALL LOAD 195 * CARDS HAVE "1040" IN 68-71. 196 * 197 MCW KCLEAR,CLEAR&3 7 3748 M F95 G62 8 1 WRITE CHAIN TAPE WRITE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 CS GMWM-1 4 3755 / F91 8 199 CLEAR CS 0-0 4 3759 / 000 8 200 SW CLEAR&1 4 3763 , G60 9 201 A @I0@,CLEAR&2 SUBTRACT 100 FROM CLEAR ADDRESS 7 3767 A I99 G61 9 202 CW CLEAR&1 4 3774 ) G60 9 203 BW CLEAR,201 CLEAR MORE IF NOT ALL DONE 8 3778 V G59 201 1 9 204 SKIP R SKIP CLEAR CORE CARDS 1 3786 1 9 205 BCE LOAD,68,1 BOOTSTRAP CARD? 8 3787 B G99 068 1 9 206 B SKIP 4 3795 B G86 9 207 LOAD MCW RBACK,71 SETUP TO COME BACK TO LOADR 7 3799 M H23 071 10 208 B 1 RUN BOOTSTRAP CARD TO SET WORD MARKS 4 3806 B 001 10 209 LOADL MCW RBACK,71 SETUP TO COME BACK TO LOADR 7 3810 M H23 071 10 210 B 40 LOAD THE CARD 4 3817 B 040 10 211 RBACK DSA LOADR 3 3823 H24 10 212 LOADR BCE LOADZ,40,/ 8 3824 B H40 040 / 10 213 BCE LOADL,68,1 LOAD THE CARD 8 3832 B H10 068 1 11 214 * 215 * THE WHOLE PROGRAM HAS BEEN READ. WRITE THE HEADER. 216 * 217 LOADZ MCW 43,ENTRY&3 7 3840 M 043 G12 11 218 CS 80 CLEAR AUTOCODER LOADER'S WORD MARKS 4 3847 / 080 11 219 LCA TAPLDR,130 OVERLAY THE HEADER'S CARD LOADER 7 3851 L G25 130 11 220 CHAIN 5 MACRO 221 LCA 1 3858 L GEN 11 222 LCA 1 3859 L GEN 11 223 LCA 1 3860 L GEN 11 224 LCA 1 3861 L GEN 12 225 LCA 1 3862 L GEN 12 226 B WHEAD 4 3863 B H82 12 227 WHEADE BSP SYSTP 5 3867 U %U6 B 12 228 NOP 111 4 3872 N 111 12 229 H 1 3876 . 12 230 SKP SYSTP WRITE BLANK TAPE 5 3877 U %U6 E 12 231 WHEAD WTW SYSTP,101 WRITE THE HEADER 8 3882 L %U6 101 W 13 232 BER WHEADE ERROR 5 3890 B H67 L 13 233 BCE DONE,179,E END FILE PROGRAM? 8 3895 B I84 179 E 13 234 B LOADW 4 3903 B I22 13 235 * 236 * ERROR HANDLER FOR WRITING THE PROGRAM 237 * 238 LOADE BSP SYSTP ERROR HANDLER 5 3907 U %U6 B 13 239 NOP 111 4 3912 N 111 13 240 H 1 3916 . 13 241 SKP SYSTP 5 3917 U %U6 E 14 242 * 243 * WRITE THE PROGRAM 244 * 245 LOADW WTW SYSTP,201 WRITE THE PROGRAM 8 3922 L %U6 201 W 14 246 BER LOADE 5 3930 B I07 L 14 247 SW 1 SO PROGRAMS CAN ASSUME IT 4 3935 , 001 14 1 WRITE CHAIN TAPE WRITE PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 * 249 * WRITE DETAIL CARDS WITH WORD MARKS. 250 * 251 DETAIL R 1 3939 1 14 252 BCE HEADER,80,A IS IT A HEADER? 8 3940 B G26 080 A 14 253 DETLW WTW SYSTP,1 8 3948 L %U6 001 W 14 254 BER DETLE 5 3956 B I65 L 15 255 B DETAIL 4 3961 B I39 15 256 DETLE BSP SYSTP 5 3965 U %U6 B 15 257 NOP 111 4 3970 N 111 15 258 H 1 3974 . 15 259 SKP SYSTP 5 3975 U %U6 E 15 260 B DETLW 4 3980 B I48 15 261 * 262 * WRITE AN END-OF-FILE PROGRAM 263 * 264 DONE WTM SYSTP 5 3984 U %U6 M 16 265 DONEL NOP 999 4 3989 N 999 16 266 H 1 3993 . 16 267 B DONEL 4 3994 B I89 16 268 * DCW @I0@ 2 3999 LIT 16 269 END START / 333 080 1 WRITE CHAIN TAPE WRITE PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCLEAR 3599 CLEAR 3759 DETAIL 3939 DETLE 3965 DETLW 3948 DONE 3984 DONEL 3989 ENTRY 3709 GMWM 3692 HEADER 3726 KCLEAR 3695 LOAD 3799 LOADE 3907 LOADL 3810 LOADR 3824 LOADW 3922 LOADZ 3840 RBACK 3823 SKIP 3786 START 333 SYSTP %U6 TAPLDR 3725 WHEAD 3882 WHEADE 3867