1401 CART | 08/01/67 0101 JOB DETAR C A R T 0102 CTL 4351 0103 * VERSION OF 12/30/64 0104 ORG 101 0105 * BOOTSP WILL BE RELOCATED -100 CHARS AS ADDRESS INDICATE 0106 BOOTSP CS 3999 CLEAR 0107 SBR BOOTSP-97 STORAGE 0108 BCE BOOTS1-100,BOOTSP-99,0 100 - 399 0109 B BOOTSP-100 AND 0110 BOOTS1 BER *-99 LOAD 0111 BOOTS2 SBR 3,5 PROGRAM 0112 RTW 1,CREATE IN RECORD 2. 0113 BER BOOTS3-100 0114 CS REPROD,80 IF NO ERROR, START XEQ. 0115 BOOTS3 MA @I9I@,3 ERROR... 0116 BSP 1 BACKSPACE 0117 BCE BOOTS2-93,1,0 AND RETRY FOUR 0118 H BOOTS2-100 TIMES - THEN HALT. 0119 BOOTS4 DCW @ @ 0120 ORG 600 0121 RECORD DA 1X800 RECORD BLOCKING 10 BCD, 5 BIN 0122 RECMAX EQU * 0123 DC #2 0124 * 0125 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0126 * CREATE SELF-LOADING TAPE FROM CARD FILES 0127 CREATE CS 332 0128 CS 0129 CC 1 0130 MCW @SELF-REPRODUCING TAPE GENERATOR LOADED@,238 0131 W 0132 MCW @AND BINARY AND BCD DECKS IN READER@,255 0133 MCW @READY SCRATCH TAPE 1 @ 0134 W 0135 CS 255 0136 MCW PUSHST,210 0137 W 0138 CS 210 0139 CC 6 0140 H 0141 RWD 1 0142 BEF *&1 0143 BER *&1 0144 LCA @}@,LAST 0145 LCA @}@,BOOTS4 0146 CW @}@ 0147 WTW 1,BOOTSP GENERATE BOOTSTRAP RECD 0148 WTW 1,CREATE GENERATE PROGRAM RECD 0149 SW @}@ 0150 CS 580 0151 CS 0152 CS 80 0153 LCA @}@,RECMAX&1 0154 LCA @}@,BCDFLG&6 0155 LCA @}@,BINFLG&6 0156 LCA @}@,EOTFLG&6 0157 * BEGIN FILE LOOP 0158 SW 1,401 0159 CRE007 CW BINMOD#1 RESET MODE INDICATORS 0160 SW BCDMOD#1 FIRST RECORD IS IN BCD MODE 0161 WT 1,BCDFLG 0162 BER *&1 IGNORE ERROR 0163 * BEGIN RECORD LOOP 0164 CRE010 CS RECMAX 0165 CHAIN7 0166 SBR RECMOV#3 ENTER RECORD STARTING ADDRESS 0167 * BEGIN CARD LOOP 0168 CRE020 SW NOCDSW#1 0169 BLC CRE023 IF LAST CARD, USE MODE OF PRECEDING 0170 RCB 0171 BCE CRE021,501,6 7-8 PUNCH 0172 B CRE024 0173 CRE021 BCE CRE023,401, CHECK FOR 7-8 ONLY 0174 B CRE024 0175 CRE023 BWZ CRE027,BINMOD,1 0176 B CRE117 0177 CRE024 CW NOCDSW 0178 CRE025 BCE CRE115,501,5 CHECK FOR 7-9 PUNCH%COL BIN) 0179 CRE026 BWZ CRE030,BCDMOD,1 IF IN BCD MODE ALREADY, CONTINUE 0180 CRE027 C RECMOV,&RECORD-1 OTHERWISE OUTPUT BINARY BUFFER 0181 BE CRE028 IF NOT EMPTY. 0182 MA @001@,RECMOV 0183 MCW RECMOV,*&7 0184 LCA @}@,0 0185 B WBIN 0186 CS RECMAX CLEAR RECORD 0187 CHAIN7 0188 SBR RECMOV RESET RECMOV 0189 CRE028 BWZ CRE200,NOCDSW,1 AVOID BUFFERING NO CARD 0190 WTB 1,BCDFLG WRITE BCD FLAG 0191 BER *&1 IGNORE ERROR 0192 CW BINMOD CHANGE 0193 SW BCDMOD MODE 0194 CRE030 MA @080@,RECMOV STEP BUFFER ADDRESS 0195 MCW RECMOV,*&7 MOVE IN 0196 MCW 80,0 CARD. 0197 C RECMOV,&RECMAX CHECK FOR FULL BUFFER 0198 BU CRE020 NOT FULL-CONTINUE 0199 B WBCD OTHERWISE WRITE BCD 0200 B CRE010 AND CLEAR BEFORE READING NEXT CARD 0201 * BINARY CARD 0202 CRE115 BWZ CRE130,BINMOD,1 IF ALREADY IN BIN MODE, CONTINUE 0203 CRE117 C RECMOV,&RECORD-1 OUTPUT BCD BUFFER 0204 BE CRE128 %SEE COMMENTS IN BCD SECTION) 0205 MA @001@,RECMOV 0206 MCW RECMOV,*&7 0207 LCA @}@,0 0208 B WBCD 0209 CS RECMAX 0210 CHAIN7 0211 SBR RECMOV 0212 CRE128 BWZ CRE200,NOCDSW,1 0213 WT 1,BINFLG 0214 BER *&1 IGNORE ERROR 0215 CW BCDMOD 0216 SW BINMOD 0217 CRE130 MA @160@,RECMOV 0218 MCW RECMOV,*&7 0219 MBD 580,0 0220 C RECMOV,&RECMAX 0221 BU CRE020 0222 B WBIN 0223 B CRE010 0224 * END OF RECORD LOOP 0225 CRE200 BLC HALT IF LAST CARD - HALT 0226 WTM 1 WRITE END OF FILE 0227 B CRE007 0228 * END OF FILE LOOP 0229 HALT WTM 1 0230 H CRE007 0231 * END OF CARDS LOOP 0232 * 0233 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0234 WBIN SBR WRIEND&3 0235 MCW WTB&3,WRITAP&3 0236 B WRITE 0237 WTB WTB 1 0238 WBCD SBR WRIEND&3 0239 MCW WT&3,WRITAP&3 0240 B WRITE 0241 WT WT 1 0242 WRITE SBR TERCT,2 0243 WRITAP WT 0,RECORD 0244 BEF WRIETT 0245 BER WRIERR 0246 WRIEND B 0 0247 WRIERR MA @I9I@,TERCT 0248 BSP 1 0249 BCE WRITAP,TERCT-2,0 0250 SKP 1 0251 CC 1 0252 MCW @TAPE WRITE ERROR@,216 0253 W 0254 MCW PUSHST,219 0255 MCW @TO RETRY @ 0256 W 0257 CS 219 0258 CC 6 0259 H WRITE 0260 WRIETT CC 6 0261 MCW @END OF REEL@,211 0262 W 0263 MCW @MOUNT NEW REEL@,214 0264 W 0265 CS 214 0266 MCW PUSHST,210 0267 W 0268 CS 210 0269 CC 1 0270 BSP 1 0271 WT 1,EOTFLG 0272 BER *&1 0273 RWU 1 0274 H WRITE 0275 * 0276 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0277 * ENTRY FROM LOAD TAPE BOOTSTRAP 0278 REPROD SBR FILCT,0 ZERO FILE COUNT 0279 CC 6 0280 MCW @PUNCH AND PRINT PROGRAM LOADED@,230 0281 W 0282 REP000 MCW @SENSE SWITCH F ON TO PRINT BCD@,230 0283 W 0284 MCW @D ON TO PUNCH DECKS@,232 0285 W 0286 MCW @AND F OFF TO SKIP FILE@,237 0287 W 0288 CS 237 0289 MCW PUSHST,210 0290 W 0291 CC 1 0292 H 0293 SW 101,401 0294 MCW RT&3,REPTAP&3 0295 CW BINMOD CHANGE TO BCD MODE FOR FLAG RECORD 0296 * BEGIN RECORD LOOP 0297 REP010 SBR TERCT,10 0298 REPTAP RT 1,RECORD 0299 MCW @ @ SKIP BACK TO LAST CHAR ADDR 0300 SBR ENDADR#3 SAVE FINAL ADDRESS 0301 BEF REPEOF 0302 BER REPERR 0303 REP012 C ENDADR,&RECORD&5 CHECK FOR FLAG RECORD 0304 BU REP050 NOT FLAG RECORD - 0305 C RECORD&5,BCDFLG&5 CHECK FOR @@BCD@@ 0306 BU REP020 NOT BCD 0307 REP015 MCW RT&3,REPTAP&3 BCD - USE BCD TAPE ADDR 0308 CW BINMOD CHANGE TO BCD MODE 0309 * N.B. ONLY BINMOD IS USED IN THIS SECTION 0310 B REP010 0311 RT RT 1 0312 REP020 C RECORD&5,BINFLG&5 CHECK FOR @@BINARY@@ 0313 BU REP030 0314 REP025 MCW RTB&3,REPTAP&3 BIN - USE BIN TAPE ADDR 0315 SW BINMOD CHANGE TO BIN MODE 0316 B REP010 0317 RTB RTB 1 0318 REP030 C RECORD&5,EOTFLG&5 CHECK FOR END TAPE 0319 BU REP040 0320 CC 1 END OF TAPE 0321 MCW @END OF REEL@,211 0322 W 0323 MCW @MOUNT NEW REEL@,214 0324 W 0325 CS 214 0326 MCW PUSHST,210 0327 W 0328 CS 210 0329 CC 6 0330 RWU 1 0331 H REP010 0332 REP040 CC 1 0333 MCW @NOISE RECORD ENCOUNTERED@,224 0334 W 0335 MCW @MODE ERRORS MAY RESULT @,224 0336 W 0337 CC 6 0338 CS REP010,223 0339 REPMOV EQU RECMOV 0340 REP050 SBR REPMOV,RECORD-1 0341 BWZ REPBIN,BINMOD,1 0342 * BEGIN CARD LOOP 0343 REPBCD MA @080@,REPMOV 0344 BSS REP060,D 0345 B REP065 0346 REP060 MCW REPMOV,*&4 0347 MCW 0,180 0348 P PUNCH BCD 0349 REP065 BSS REP070,F 0350 B REP075 0351 REP070 SW 201 0352 MCW REPMOV,*&4 0353 MCW 0,280 0354 W PRINT BCD 0355 BCV PAGE 0356 CS 280 0357 REP075 C REPMOV,ENDADR CHECK FOR 0358 BU REPBCD END 0359 B REP010 0360 * BINARY CARD LOOP 0361 REPBIN MA @160@,REPMOV 0362 BSS REP160,D 0363 B REP165 0364 REP160 MCW REPMOV,*&4 0365 MBC 0,580 0366 PCB 0367 REP165 C REPMOV,ENDADR 0368 BU REPBIN 0369 B REP010 0370 REPERR MA @I9I@,TERCT#3 0371 BCE REPER0,TERCT-2,I OVER 10 RETRIES 0372 BSP 1 0373 B REPTAP 0374 REPER0 CC 6 0375 MCW @PARITY ERRORS@,213 0376 W 0377 MCW @TO CHANGE MODE AND RETRY,@,225 0378 W 0379 MCW PUSHST,231 0380 MCW @TURN ON SWITCH B AND @ 0381 W 0382 MCW @ @,231 0383 MCW PUSHST 0384 MCW @TO ABANDON ATTEMPT @ 0385 W 0386 CS 231 0387 CC 1 0388 H 0389 BSS REPER1,B 0390 B REP012 ABANDON ATTEMPT 0391 REPER1 BSP 1 CHANGE MODE AND RETRY 0392 BWZ REP015,BINMOD,1 0393 B REP025 0394 REPEOF MA @001@,FILCT#3 0395 MCW @END OF FILE NO.@,215 0396 MCS FILCT,219 0397 CC 1 0398 W 0399 CC 6 0400 CS 580 0401 CS 0402 MN @6@,501 0403 PCB PUNCH END OF FILE 0404 CS REP000,219 0405 PAGE SBR PAGEND&3 0406 PAGEND CCB 0,1 NO PAGE HEADING USED IN THIS VERSIO 0407 * 0408 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0409 PUSHST DCW @PUSH START@ 0410 BCDFLG EQU *&1 0411 DCW @BCD @ 0412 BINFLG EQU *&1 0413 DCW @BIN @ 0414 EOTFLG EQU *&1 0415 DCW @EOT @ 0416 LTORG 0417 LAST EQU *&1 0418 END CREATE { 1401 CARTN | 08/01/67 0101 JOB 1052 D F D E T A R 0102 CTL 4351 0103 * 0104 * REVISION OF DEC. 30, 1964 0105 * 0106 * MODIFICATION OF @C A R T@, %C.E. DETAR) 0107 * 0108 * THIS IS A SOMEWHAT SPECIAL PURPOSE MODIFICATION, 0109 * WITH THE IDEA THAT SHOULD THIS PROGRAM BE USED AS 0110 * A RETRIEVER PROGRAM ON A TAPE WHICH IS SUBSEQUENTLY 0111 * SENT TO ANOTHER INSTITUTION, ALLOWANCE SHOULD BE MADE 0112 * FOR GETTING ONLY A CERTAIN @GROUP@ OF PROGRAMS OFF 0113 * THE TAPE, LEAVING THE OTHERS. 0114 * ACCORDINGLY, BY PUTTING A SPECIAL EOGROUP CARD IN TO 0115 * SIGNAL THE END OF A GROUP, IT IS POSSIBLE TO SKIP 0116 * TO ANY GROUP BY MERELY CHECKING FOR THIS SPECIAL EOGROUP 0117 * CARD WHICH CONTAINS 7-8 PUNCHES IN BOTH COLS. 1 AND 2. 0118 * EOF MARKS. 0119 * 0120 * THIS IS DONE WHEN THE PROGRAM IS FIRST LOADED FROM 0121 * TAPE, BY MERELY PUTTING UP SENSE SWITCH @G@ AND PUSHING 0122 * START. 0123 * ALSO, WHENEVER AN END OF GROUP IS SENSED WHILE READING 0124 * TAPE, NOTICE IS GIVEN, AND THE NUMBER OF THE GROUP 0125 * IS PRINTED OUT. 0126 * 0127 * 0128 * JOHN W. NALL 0129 * COMPUTING CENTER 0130 * FLORIDA STATE UNIVERSITY 0131 * TALLAHASSEE, FLORIDA 0132 * DECEMBER 10, 1964 0133 * 0134 JOB DETAR C A R T 0135 ORG 101 0136 * BOOTSP WILL BE RELOCATED -100 CHARS AS ADDRESS INDICATE 0137 BOOTSP CS 3999 CLEAR 0138 SBR BOOTSP-97 STORAGE 0139 BCE BOOTS1-100,BOOTSP-99,0 100 - 399 0140 B BOOTSP-100 AND 0141 BOOTS1 BER *-99 LOAD 0142 BOOTS2 SBR 3,5 PROGRAM 0143 RTW 1,CREATE IN RECORD 2. 0144 BER BOOTS3-100 0145 CS REPROD,80 IF NO ERROR, START XEQ. 0146 BOOTS3 MA @I9I@,3 ERROR... 0147 BSP 1 BACKSPACE 0148 BCE BOOTS2-93,1,0 AND RETRY FOUR 0149 H BOOTS2-100 TIMES - THEN HALT. 0150 BOOTS4 DCW @ @ 0151 ORG 600 0152 RECORD DA 1X800 RECORD BLOCKING 10 BCD, 5 BIN 0153 RECMAX EQU * 0154 DC #2 0155 * 0156 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0157 * CREATE SELF-LOADING TAPE FROM CARD FILES 0158 CREATE CS 332 0159 CS 0160 CW RECBUF&10 0161 CC 1 0162 MCW @SELF-REPRODUCING TAPE GENERATOR LOADED@,238 0163 W 0164 MCW @AND BINARY AND BCD DECKS IN READER@,255 0165 MCW @READY SCRATCH TAPE 1 @ 0166 W 0167 CS 255 0168 MCW PUSHST,210 0169 W 0170 CS 210 0171 CC 6 0172 H 0173 BEF *&1 0174 BER *&1 0175 LCA @}@,LAST 0176 LCA @}@,BOOTS4 0177 CW @}@ 0178 WTW 1,BOOTSP GENERATE BOOTSTRAP RECD 0179 WTW 1,CREATE GENERATE PROGRAM RECD 0180 SW @}@ 0181 CS 580 0182 CS 0183 CS 80 0184 LCA @}@,RECMAX&1 0185 LCA @}@,BCDFLG&6 0186 LCA @}@,BINFLG&6 0187 LCA @}@,EOTFLG&6 0188 SW RECBUF&10 0189 SW ENDTP&1 0190 * BEGIN FILE LOOP 0191 SW 1,401 0192 CRE007 CW BINMOD#1 RESET MODE INDICATORS 0193 SW BCDMOD#1 FIRST RECORD IS IN BCD MODE 0194 WT 1,BCDFLG 0195 BER *&1 IGNORE ERROR 0196 * BEGIN RECORD LOOP 0197 CRE010 CS RECMAX 0198 CHAIN7 0199 SBR RECMOV#3 ENTER RECORD STARTING ADDRESS 0200 * BEGIN CARD LOOP 0201 CRE020 SW NOCDSW#1 0202 BLC CRE023 IF LAST CARD, USE MODE OF PRECEDING 0203 RCB 0204 BCE CRE021,501,6 7-8 PUNCH 0205 B CRE024 0206 CRE021 BCE CRE023,401, CHECK FOR 7-8 ONLY 0207 B CRE024 0208 CRE023 BWZ CRE027,BINMOD,1 0209 B CRE117 0210 CRE024 CW NOCDSW 0211 CRE025 BCE CRE115,501,5 CHECK FOR 7-9 PUNCH%COL BIN) 0212 CRE026 BWZ CRE030,BCDMOD,1 IF IN BCD MODE ALREADY, CONTINUE 0213 CRE027 C RECMOV,&RECORD-1 OTHERWISE OUTPUT BINARY BUFFER 0214 BE CRE028 IF NOT EMPTY. 0215 MA @001@,RECMOV 0216 MCW RECMOV,*&7 0217 LCA @}@,0 0218 B WBIN 0219 CS RECMAX CLEAR RECORD 0220 CHAIN7 0221 SBR RECMOV RESET RECMOV 0222 CRE028 BWZ CRE200,NOCDSW,1 AVOID BUFFERING NO CARD 0223 WTB 1,BCDFLG WRITE BCD FLAG 0224 BER *&1 IGNORE ERROR 0225 CW BINMOD CHANGE 0226 SW BCDMOD MODE 0227 CRE030 MA @080@,RECMOV STEP BUFFER ADDRESS 0228 MCW RECMOV,*&7 MOVE IN 0229 MCW 80,0 CARD. 0230 C RECMOV,&RECMAX CHECK FOR FULL BUFFER 0231 BU CRE020 NOT FULL-CONTINUE 0232 B WBCD OTHERWISE WRITE BCD 0233 B CRE010 AND CLEAR BEFORE READING NEXT CARD 0234 * BINARY CARD 0235 CRE115 BWZ CRE130,BINMOD,1 IF ALREADY IN BIN MODE, CONTINUE 0236 CRE117 C RECMOV,&RECORD-1 OUTPUT BCD BUFFER 0237 BE CRE128 %SEE COMMENTS IN BCD SECTION) 0238 MA @001@,RECMOV 0239 MCW RECMOV,*&7 0240 LCA @}@,0 0241 B WBCD 0242 CS RECMAX 0243 CHAIN7 0244 SBR RECMOV 0245 CRE128 BWZ CRE200,NOCDSW,1 0246 WT 1,BINFLG 0247 BER *&1 IGNORE ERROR 0248 CW BCDMOD 0249 SW BINMOD 0250 CRE130 MA @160@,RECMOV 0251 MCW RECMOV,*&7 0252 MBD 580,0 0253 C RECMOV,&RECMAX 0254 BU CRE020 0255 B WBIN 0256 B CRE010 0257 * END OF RECORD LOOP 0258 CRE200 BLC HALT IF LAST CARD - HALT 0259 WTM 1 WRITE END OF FILE 0260 BCE SEC78,502,6 0261 B CRE007 0262 SEC78 BCE VOOM,402, 0263 B CRE007 0264 VOOM WTM 1 0265 B CRE007 0266 * END OF FILE LOOP 0267 HALT WTM 1 0268 BCE *&5,502,6 0269 B QUID 0270 BCE *&5,402, 0271 B QUID 0272 WTM 1 0273 QUID WT 1,ENDTP-8 0274 H CRE007 0275 * END OF CARDS LOOP 0276 * 0277 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0278 WBIN SBR WRIEND&3 0279 MCW WTB&3,WRITAP&3 0280 B WRITE 0281 WTB WTB 1 0282 WBCD SBR WRIEND&3 0283 MCW WT&3,WRITAP&3 0284 B WRITE 0285 WT WT 1 0286 WRITE SBR TERCT,2 0287 WRITAP WT 0,RECORD 0288 BEF WRIETT 0289 BER WRIERR 0290 WRIEND B 0 0291 WRIERR MA @I9I@,TERCT 0292 BSP 1 0293 BCE WRITAP,TERCT-2,0 0294 SKP 1 0295 CC 1 0296 MCW @TAPE WRITE ERROR@,216 0297 W 0298 MCW PUSHST,219 0299 MCW @TO RETRY @ 0300 W 0301 CS 219 0302 CC 6 0303 H WRITE 0304 WRIETT CC 6 0305 MCW @END OF REEL@,211 0306 W 0307 MCW @MOUNT NEW REEL@,214 0308 W 0309 CS 214 0310 MCW PUSHST,210 0311 W 0312 CS 210 0313 CC 1 0314 BSP 1 0315 WT 1,EOTFLG 0316 BER *&1 0317 RWU 1 0318 H WRITE 0319 * 0320 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0321 * ENTRY FROM LOAD TAPE BOOTSTRAP 0322 REPROD SBR FILCT,0 ZERO FILE COUNT 0323 CC 6 0324 MCW @PUNCH AND PRINT PROGRAM LOADED@,230 0325 W 0326 REP000 MCW @SENSE SWITCH F ON TO PRINT BCD@,230 0327 W 0328 MCW @D ON TO PUNCH DECKS@,232 0329 W 0330 MCW @AND F OFF TO SKIP FILE@,237 0331 W 0332 MCW @SENSE SWITCH C ON FOR CONTINUOUS OPERATION@,242 0333 W 0334 MCW @GROUPS SKIPPED OR PRINTED@,257 0335 MCW @G ON TO SKIP GROUP @ 0336 MCS GRPCNT,278 0337 W 0338 CS 278 0339 MCW PUSHST,210 0340 W 0341 CC 1 0342 H 0343 BSS SKPGP,G 0344 SW 101,401 0345 REP007 MCW RT&3,REPTAP&3 0346 CW BINMOD CHANGE TO BCD MODE FOR FLAG RECORD 0347 * BEGIN RECORD LOOP 0348 REP010 SBR TERCT,10 0349 REPTAP RT 1,RECORD 0350 MCW @ @ SKIP BACK TO LAST CHAR ADDR 0351 SBR ENDADR#3 SAVE FINAL ADDRESS 0352 BEF DUBCHK 0353 BER REPERR 0354 REP012 C ENDADR,&RECORD&5 CHECK FOR FLAG RECORD 0355 BU REP050 NOT FLAG RECORD - 0356 C RECORD&5,BCDFLG&5 CHECK FOR @@BCD@@ 0357 BU REP020 NOT BCD 0358 REP015 MCW RT&3,REPTAP&3 BCD - USE BCD TAPE ADDR 0359 CW BINMOD CHANGE TO BCD MODE 0360 * N.B. ONLY BINMOD IS USED IN THIS SECTION 0361 B REP010 0362 RT RT 1 0363 REP020 C RECORD&5,BINFLG&5 CHECK FOR @@BINARY@@ 0364 BU REP030 0365 REP025 MCW RTB&3,REPTAP&3 BIN - USE BIN TAPE ADDR 0366 SW BINMOD CHANGE TO BIN MODE 0367 B REP010 0368 RTB RTB 1 0369 REP030 C RECORD&5,EOTFLG&5 CHECK FOR END TAPE 0370 BU REP040 0371 CC 1 END OF TAPE 0372 MCW @END OF REEL@,211 0373 W 0374 MCW @MOUNT NEW REEL@,214 0375 W 0376 CS 214 0377 MCW PUSHST,210 0378 W 0379 CS 210 0380 CC 6 0381 RWU 1 0382 H REP010 0383 REP040 CC 1 0384 MCW @NOISE RECORD ENCOUNTERED@,224 0385 W 0386 MCW @MODE ERRORS MAY RESULT @,224 0387 W 0388 CC 6 0389 CS REP010,223 0390 REPMOV EQU RECMOV 0391 REP050 SBR REPMOV,RECORD-1 0392 BWZ REPBIN,BINMOD,1 0393 * BEGIN CARD LOOP 0394 REPBCD MA @080@,REPMOV 0395 BSS REP060,D 0396 B REP065 0397 REP060 MCW REPMOV,*&4 0398 MCW 0,180 0399 P PUNCH BCD 0400 REP065 BSS REP070,F 0401 B REP075 0402 REP070 SW 201 0403 MCW REPMOV,*&4 0404 MCW 0,280 0405 W PRINT BCD 0406 BCV PAGE 0407 CS 280 0408 REP075 C REPMOV,ENDADR CHECK FOR 0409 BU REPBCD END 0410 B REP010 0411 * BINARY CARD LOOP 0412 REPBIN MA @160@,REPMOV 0413 BSS REP160,D 0414 B REP165 0415 REP160 MCW REPMOV,*&4 0416 MBC 0,580 0417 PCB 0418 REP165 C REPMOV,ENDADR 0419 BU REPBIN 0420 B REP010 0421 REPERR MA @I9I@,TERCT#3 0422 BCE REPER0,TERCT-2,I OVER 10 RETRIES 0423 BSP 1 0424 B REPTAP 0425 REPER0 CC 6 0426 MCW @PARITY ERRORS@,213 0427 W 0428 MCW @TO CHANGE MODE AND RETRY,@,225 0429 W 0430 MCW PUSHST,231 0431 MCW @TURN ON SWITCH B AND @ 0432 W 0433 MCW @ @,231 0434 MCW PUSHST 0435 MCW @TO ABANDON ATTEMPT @ 0436 W 0437 CS 231 0438 CC 1 0439 H 0440 BSS REPER1,B 0441 B REP012 ABANDON ATTEMPT 0442 REPER1 BSP 1 CHANGE MODE AND RETRY 0443 BWZ REP015,BINMOD,1 0444 B REP025 0445 REPEOF MA @001@,FILCT#3 0446 MCW @END OF FILE NO.@,215 0447 MCS FILCT,219 0448 BW *&12,GRPSW 0449 SBR FILCT,0 0450 SW GRPSW 0451 CC 1 0452 W 0453 CC 6 0454 CS 580 0455 CS 0456 BSS PUNCH,D 0457 B CLEAR 0458 PUNCH MN @6@,501 0459 PCB PUNCH END OF FILE 0460 CLEAR CS 245 0461 BSS *&5,C 0462 B REP000 0463 CCB REP007,1 0464 PAGE SBR PAGEND&3 0465 PAGEND CCB 0,1 NO PAGE HEADING USED IN THIS VERSIO 0466 DUBCHK RT 1,RECORD 0467 BER *&1 0468 BEF GRPADD 0469 BSP 1 0470 B REPEOF 0471 GRPADD A @1@,GRPCNT#2 0472 SBR FILCT,0 0473 MCW @END OF GROUP NO.@,241 0474 MCS GRPCNT,244 0475 CW GRPSW#1 0476 RT 1,RECBUF 0477 C RECBUF&8,ENDTP 0478 BE WINNY 0479 BSP 1 0480 B REPEOF 0481 WINNY W 0482 CS 241 0483 CC J 0484 MCW ENDTP,250 0485 W 0486 CC 1 0487 RWU 1 0488 H *-3 0489 SKPGP RT 1,RECORD 0490 BEF *&5 0491 B SKPGP 0492 RT 1,RECORD 0493 BEF *&5 0494 B SKPGP 0495 A @1@,GRPCNT 0496 SBR FILCT,0 0497 B REP000 0498 * 0499 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 0500 ENDTP DCW @*END*TAPE@ 0501 DC @}@ 0502 RECBUF DA 1X10,G 0503 PUSHST DCW @PUSH START@ 0504 BCDFLG EQU *&1 0505 DCW @BCD @ 0506 BINFLG EQU *&1 0507 DCW @BIN @ 0508 EOTFLG EQU *&1 0509 DCW @EOT @ 0510 LTORG 0511 LAST EQU *&1 0512 END CREATE { 1401 LIBE SOURCE | 08/01/67 LIBE SOURCE | 1/05/66 1/06/66 CTL 441 1 JOB LIBE STORAGE FOR BUFFERS ORG 581 * VERSION OF 1/05/66 * * OUTPUT LABEL LABELO DA 1X81 GENCTO 1,29 RELCTO 1,38 * * INPUT LABEL LABELI DA 1X81 GENCTI 1,29 RELCTI 1,38 * * STORAGE FOR PAGE HEADER HEADER DA 1X84 * * TITLE TITLE DA 1X85 BEGBUF EQU * * * TEMPORARY STORAGE FOR TAPE TITLE TTITLE EQU *&1 ORG *&85 * * INPUT BUFFER RCDSIZ EQU 800 BEGIBF EQU *&1 ORG *&801 ENDIBF EQU * ORG 1800 MIDBUF EQU * * * SEARCH NAME SEARCH EQU *&1 ORG *&81 * * OUTPUT BUFFER BEGOBF EQU *&1 ORG *&801 ENDOBF EQU * TOPBUF EQU * JOB LIBE BOOTSTRAP LOADER ORG 333 ******************************************************************* * BOOT STRAP LOADER FOR SELF LOADING TAPE ******************************************************************* BOOTSP CS 7999 CLEAR MEMORY SBR *-336 SAVE NEXT CLEAR ADDRESS BCE BOOTS1-332,BOOTSP-331,1 CONTINUE UNTIL 0199 OR 4199 B BOOTSP-332 BOOTS1 BWZ BOOTSP-332,BOOTSP-329,S STOP WHEN 199 ONLY BOOTS2 CW BOOTSG-331 SW SET WMARK IN GMARK SBR BOOTSE-332,10 TEN RE-READ ATTEMPTS BOOTS3 RTW 1,LODADR READ NEXT PROGRAM RECORD SBR BOOTS4-326 SAVE NEXT ADDRESS TO BE FILLED BER BOOTS5-332 TEST FOR ERROR BOOTS4 SBR BOOTS3-326,0 LCA BOOTSG-331 ENTER GMARK&WMARK C BOOTS3-326,BOOTSF-332 CONTINUE UNTIL ALL PROGRAM IN BU BOOTS3-339 CS 199 CS XEQADR,99 BOOTS5 MA BOOTSD-332,BOOTSE-332 BSP 1 BACKSPACE FOR RE-READ BCE BOOTS3-332,BOOTSE-334,0 REPEAT ATTEMPT UNTIL ZERO H BOOTS3-339 STOP THEN PROCEED TO RE-READ BOOTSD DCW @I9I@ MINUS ONE BOOTSE DCW #3 ERROR COUNT BOOTSF DSA ENDADR&1 LAST LOC & 1 OF PROGRAM BOOTSG DCW @}@ GMARK LODADR EQU BOOTSP JOB LIBE PROGRAM ENTRY AND MAIN FRAME ******************************************************************* * ENTRY FROM TAPE LOADING ******************************************************************* XEQTAP MCW @T@,SWXEQ XEQADR EQU XEQTAP ******************************************************************* * ENTRY FROM OBJECT DECK LOADING ******************************************************************* XEQCDS B SIGNON PRINT SIGN-ON MESSAGE H CTRLCD BCE DUMP,SWUPEX,D BCE UPDATE,SWUPEX,U BCE EXCRPT,SWUPEX,E JOB LIBE INITIALIZATION ******************************************************************* * PRINT SIGN-ON MESSAGE ******************************************************************* SIGNON SBR SIGND&3 SAVE RETURN MN INPTAP,INSTR1 PUT UNIT NOS. IN INSTRUCTIONS MN OUTTAP,INSTR2 MN INDTAP,INSTR3 MN INSTAP,INSTR4 SBR MESADR,INSTRX B MESSAG WRITE SIGN-ON MESSAG SIGND B 0 DCW #1 ******************************************************************* * READ AND INTERPRET 1ST TWO CONTROL CARDS ******************************************************************* ORG BEGBUF * LOCATIONS OF CONTROL CARD FIELDS CCDATE EQU 21 CCBLOK EQU 25 CCPRG EQU 26 CCPTBC EQU 27 CCWTBC EQU 28 CCETSP EQU 29 * SCAN INPUT READER FOR CONTROL CARD CTRLCD SBR CTRLND&3 SAVE RETURN CS 80 CS 280 MCW @0@,CCWTBC&200 GENERATE DUMMY CONTROL CARD MCW @0@,CCPRG&200 DO NOT WRITE PROGRAM IF DUMPING MCW @D@,SWUPEX SW 1 BSS CTRL2,C CTRL1 R READ CARD C 4,@LIBE@ CHECK FOR LIBE BU CTRL1 SS 1 SBR 89,TITLE SET X1 # TITLE MCW @CONTROL CARDS@,12&X1 B FTITLE LCA 80,280 PUT CONTROL CARD IN PRINT AREA MCW 206,SWUPEX MOVE U OR E TO SWUPEX * READ AND PROCESS TAPE LABEL CARD WR MCW @HDR@,3 SS 1 MCW 80,LABELI&79 INPUT LABEL MCW 80,LABELO&79 OUTPUT LABEL MA @001@,GENCTO INCREMENT GENERATION COUNT LCA LABELO&79,180 P PUNCH COPY OF OUTPUT LABEL SS 4 SELECT INTO STACKER 4 C GENCTI,@000@ IF INPUT GENERATION IS 000 NO TAP SW SWEOT BE *&5 CTRL2 CW SWEOT BCE SKPPRG,SWXEQ,C SKIP OVER PROGRAM IF PROGRAM * LOADED FROM OBJECT DECK * INTERPRET CONTROL CARD OPTIONS - SET UP BUFFERS CW OUTTAP-3,OUTTAP-4 CW INPTAP-3 SW INPTAP-4 DO NOT REWIND INPUT TAPE CW INDTAP-3,INDTAP-4 SW INSTAP-3,INSTAP-4 BCE WPRG,CCPRG&200, WRITE PROGRAM IF CCPRG BLANK MCW CCDATE&200,DATE ENTER DATE MCW CCBLOK&198,SWNBLK NO BLOCKING IF ZERO SBR OUTRCD-3,RCDSIZ BCE *&8,CCBLOK&200, USE NORMAL BLOCKING UNLESS MCW CCBLOK&200,OUTRCD-3 OTHERWISE SPECIFIED BCE *&8,SWNBLK,0 MCW @ @,SWNBLK TURN OFF UNBLOCKING SWITCH SBR OUTRCD,BEGOBF MA OUTRCD,OUTRCD-3 COMPUTE END OF RECORD SBR OUTCOP,BEGIBF SBR INPRCD,ENDIBF CW IOOLD-2 FORCE RE-LOADING OF I/O VECTOR MCW CCPTBC&200,SWPTBC IF BLANK, PUNCH NO TAB OF CONTS. MCW CCWTBC&200,SWWTBC NO OF COPIES OF TAB. OF CONTENTS MCW CCETSP&200,SWETSP EOF AND TITLE SUPPRESS BCE *&17,SWETSP, IF EOF, TITLE SUPPRESS, RWD OUTTAP INITIALIZATION OF TAPE CONSISTS SW OUTTAP-3 IN MERELY REWINDING MCW @ @,OUTRCD-15 * WRITE HEADERS FOR TABLE OF CONTENTS BCE CTRL4,SWWTBC,0 RWD INDUNT REWIND TABLE OF CONTENTS TAPE SW INDTAP-3 INDICATE REWOUND BCE CTRL3,SWUPEX,E MCW @TABLE OF CONTENTS@,16&X1 MCW @XXT@,SWT MCW MCW B INDEX MCW LABELO&79,TITLE&79 INCLUDE OUTPUT LABEL B INDEX B CTRL4 CTRL3 MCW @PACKING LIST - CARDS@,19&X1 MCW @DXX@,SWT MCW MCW B INDEX MCW @FORMS@,19&X1 MCW @XFX@,SWT MCW MCW B INDEX MCW @TAPE @,19&X1 MCW @XXT@,SWT MCW MCW B INDEX CTRL4 SW SWOUT&2 SW SW MCW 80,280 CTRLND W 0 PRINT TAPE CONTROL CARD ******************************************************************* * WRITE ON-LINE MESSAGE ******************************************************************* MESSAG SBR MESSND&3 MESS1 MCW 0,MESSM ENTER ADDR OF MESSAGE IN PRT LINE MESADR EQU *-3 MCW ENTER CARRIAGE CONTROL SAR MESS2&3 SAVE ADDRESS OF MESSAGE CS 332 CS MCW MESSD,*&2 ENTER D MODIFIER FOR CARRIAGE CTL CC X MESSND BCE 0,MESSM, IF BLANK INSTEAD OF ADR., QUIT MCW MESSM,*&7 ENTER ADDR IN PRINT LINE MESS2 MCW 0,0 MOVE MESSAGE TO PRINT LINE SAR MESADR SAVE NEXT ADDR W MESS1 PRINT LINE MESSD DCW #1 SPACE FOR D-MODIFIER MESSM DCW #3 SPACE FOR PRINT LINE ADDR ******************************************************************* * SIGN-ON MESSAGE ******************************************************************* DCW @1@ DCW @ @ DCW @E ON - STOP AT EOF@S@ DCW @J@ DSA 268 DCW @G ON - OMIT TITLE AND EOF CARDS@ DCW @J@ DSA 279 DCW @F ON - PRINT BCD@ DCW @J@ DSA 264 DCW @C ON - D ON - PUNCH CDS@ DCW @J@ DSA 264 DCW @C OFF - ACCEPT CONTROL CARDS@ DCW @L@ DSA 268 DCW @SENSE SWITCHES...@ DCW @6@ DSA 263 DCW @%IF APPLICABLE)@ DCW @K@ DSA 270 INSTR4 EQU *&1 DCW @ INSERTIONS@ DCW @J@ DSA 252 INSTR3 EQU *&1 DCW @ TABLE OF CONTENTS@ DCW @J@ DSA 259 INSTR2 EQU *&1 DCW @ OUTPUT@ DCW @J@ DSA 248 INSTR1 EQU *&1 DCW @ INPUT LIBRARY@ DCW @J@ DSA 255 DCW @TAPE SET-UP...@ DCW @L@ DSA 263 DCW @@@LIBE@@ PROGRAM@ DCW @1@ DSA 263 INSTRX EQU * ******************************************************************* * SKIP OVER PROGRAM ON TAPE ******************************************************************* * %FOR OBJECT DECK XEQ WITH INPUT TAPE) SKPPRG SBR SKPPND&3 BW SKPPND,SWEOT IF NO TAPE, RETURN CS 199 LCA GMARK,104 RWD INPUNT SKPP1 RT INPUNT,101 C 103,@HDR@ CHECK FOR HEADER LABEL BU SKPP1 CONTINUE UNTIL FOUND BSP 1 POSITION TAPE BEFORE HEADER LABEL SKPPND CS 0,199 RETURN ******************************************************************* * WRITE PROGRAM ON TAPE ******************************************************************* WPRG SBR WPRGND&3 SAVE RETURN RWD OUTUNT REWIND OUTPUT TAPE SW OUTTAP-4 PREVENT FURTHER REWINDING SBR WPRG1&13,LODADR SBR TERRCT,REWRIT WTW OUTUNT,BOOTSP WRITE BOOT STRAP WPRGAD EQU *-1 BER TERROR WPRG1 SBR TERRCT,REWRIT WTW OUTUNT,LODADR WRITE NEXT RECORD OF PROGRAM SBR WPRG1&13 BER TERROR TEST FOR ERROR C WPRG1&13,WPRGF CHECK FOR COMPLETION BU WPRG1 CONTINUE UNTIL ALL OF MEMORY OUT WPRGND B 0 RETURN WPRGF DSA ENDADR&1 ******************************************************************* * INITIALIZATION FOR PROGRAM ******************************************************************* INIT SBR INITND&3 SAVE RETURN CW SWRRDT,SWRRDC CW SWTINS MCW @ @,SWMOD CS MIDBUF CHAIN8 CS 580 CHAIN3 SW TTITLE LCA GMARK,TITLE&84 LCA GMARK,TTITLE&84 LCA GMARK,ENDIBF LCA GMARK,LABELO&80 LCA GMARK,EORMS2&1 MCW @ @,83&X1 MCW 83&X1 INITND B 0 JOB LIBE DUMP TAPE ******************************************************************* * PUNCH AND PRINT TAPE UNDER SENSE SWITCH CONTROL ******************************************************************* DUMP B INIT INITIALIZE CONSTANTS SBR INPRCD-15,BEGIBF&79 ARRANGE EQUAL COMP. OF LABELS CS 332 CS DUMP1 B RTITLE READ TITLE FROM TAPE BW ENDJOB,SWEOF EOF MEANS END OF TAPE MCW @ NEXT FILE@,313 MCW 83&X1 MOVE TITLE CS W PRINT TITLE CC L BSS DUMP4,E PAUSE IF SW E ON DUMP2 BSS FTITLE,F PRINT TITLE IF SW F ON BSS DUMP3-7,G DO NOT PUNCH TITLE IF SW G ON BSS DTITLE,D PUNCH TITLE IF SW D ON MCW SWMOD,SWMODO DUMP3 B TCB READ TAPE RECORD NOP INPRCD BW DUMP5,SWEOF END OF FILE BSS CPRT,F PRINT RECORD IF SW F ON BSS CCD,D PUNCH RECORD IF SW D ON B DUMP3 CONTINUE UNTIL EOF DUMP4 H DUMP2 DUMP5 BSS DUMP6,F EJECT FORMS IF SW F ON BSS DUMP7,D PUNCH EOF IF SW D ON B DUMP1 CONTINUE UNTIL ALL FILES PASSED DUMP6 CCB DUMP5&5,1 DUMP7 CS 180 SET UP EOF CARD MCW TMARK,101 P BSS DUMP1,G DO NOT SELECT EOF INTO 8 IF G ON SSB DUMP1,8 PUT EOF CARD IN SAME POCKET AS CD LTORG* JOB LIBE UPDATE ******************************************************************* * UPDATE CONTROL ******************************************************************* ORG TOPBUF&1 UPDATE B INIT INITIALIZE BUFFERS AND CONSTANTS CW SWOUT&2 INDICATE TAPE OUTPUT FOR INDEX CS TOPBUF CHAIN8 LCA GMARK,ENDOBF SW SEARCH SBR SEKEND&3,UPDA1 UPDA1 B BCDMOD SET BCD MODE FOR CONTROL CARD B CDC READ CONTROL CARD BW UPDCOP,SWEOF COPY OUT REST OF TAPE IF EOF B CPRT PRINT CONTROL CARD MCW RMARK,COMMON&81 MCW RMARK C COMMON&5,@INSERT@ BE UPDINS C COMMON&5,@DELETE@ BE UPDDEL MCM COMMON,1 MOVE BACK TO READ AREA MCM SBR TEMP#3 C TEMP,@081@ IF NONE OR JUST ONE RMARK, DO NOT BL *&13 BLANK RMARK MCM 1,1 SEARCH FOR 1ST RMARK MN MCW @ @ CHANGE RMARK TO BLANK SW SWRRDC PROGRAM DIRECTED INSERTION B INSERT RE-READ CONTROL CARD B UPDA1 UPDINS MCM COMMON&7,COMMON C COMMON&3,@TAPE@ BE UPDINT UPDA2 C COMMON&4,@AFTER@ BE UPDINA C COMMON&7,@DIRECTLY@ BE UPDIND B UPDERR NONE OF ABOVE - ERRONEOUS CARD UPDDEL MCM COMMON&7,COMMON B DELETE DELETE B UPDA1 UPDINT MCM COMMON&5,COMMON SW SWTINS TAPE INSERTION B UPDA2 UPDINA MCM COMMON&6,COMMON B INSAFT INSERT AFTER B UPDA1 UPDIND MCM COMMON&9,COMMON B INSDIR INSERT DIRECTLY B UPDA1 UPDCOP MCW RMARK,COMMON&1 MCW TMARK CW SWEOF B COPSEK SEARCH FOR NON-EXISTENT FILE B CTB WRITE EOF NOP OUTRCD B ENDJOB UPDERR CS 332 CS MCW @ILLEGAL CONTROL CARD@,250 W FAIL B UPDA1 SEKERR CS 332 CS MCW @FILE UNKNOWN OR REQUEST OUT OF ORDER@,250 W FAIL SEKEND B 0 JOB LIBE EXCERPT ******************************************************************* * EXCERPTING CONTROL ******************************************************************* EXCRPT B INIT CS TOPBUF CHAIN8 LCA GMARK,ENDOBF SW SEARCH SBR SEKEND&3,EXCR1 EXCR1 B BCDMOD SET BCD MODE FOR CONTROL CARD B CDC READ CONTROL CARD BW EXCR11,SWEOF B CPRT PRINT CONTROL CARD EXCR2 BCE EXCR3,COMMON&79, COL. 80 CONTAINS TAPE REQUEST MCW COMMON&79,SWT ENTER TAPE REQUEST EXCR3 BCE EXCR4,COMMON&78, COL. 78 CONTAINS FORMS REQUEST MCW COMMON&78,SWF ENTER FORMS REQUEST EXCR4 BCE EXCR5,COMMON&77, COL. 78 CONTAINS DECK REQUEST MCW COMMON&77,SWD ENTER DECK REQUEST EXCR5 C COMMON&5,@INSERT@ CW SWWE,SWDIR#1 BU EXCR5A SW SWDIR C COMMON&9,@EOF@ BU EXCR8 SW SWEOF INSERT EOF B EXCR7 EXCR5A B COPSEK SEARCH FOR REQUESTED FILE BW EXCR10&8,SWPREV BW SEKERR,SWEOF EOF HERE - REQUEST ERROR SW SWWE EXCR6 B WTITLE WRITE TITLE ON TAPE BCE *&17,SWWT,X IF X, DO NOT WRITE TITLES BCE FTITLE,SWF,F PRINT TITLE BCE DTITLE,SWD,D PUNCH TITLE MCW SWMOD,SWMODO EXCR6A B TCB NOP INPRCD BW EXCR9,SWEOF TEST FOR EOF EXCR7 BCE EXCR7A,SWF,X B CPRT PRINT IF SWF NOT X CW SWOUT&1 INDICATE PRINTED RECORD EXCR7A BCE EXCR7B,SWD,X B CCD PUNCH IF SWD NOT X CW SWOUT EXCR7B BCE EXCR7C,SWT,X B CTB WRITE ON TAPE IF SWT NOT X NOP OUTRCD CW SWOUT&2 EXCR7C BW EXCR6A,SWWE B EXCR10 EXCR8 B INSFL INSERT FILE DIRECTLY EXCR9 CW SWWE BCE EXCR7,SWWE, WRITE EOF@S IF SO REQUESTED MZ *-6,SWEOF SET A-ZONE CW SWEOF B CTB EMPTY BUFFER NOP OUTRCD EXCR10 BW EXCR1,SWDIR B RTITLE READ NEXT TITLE BW EXCR11,SWEOF IF EOF, END OF TAPE B TITCMP COMPARE TITLE WITH TEST WORD BE EXCR6-4 IF EQUAL, CONTINUE EXCERPTING SBR 89,TTITLE USE TTITLE, THE PREVIOUS TITLE SW SWRRDT TITLE SHOULD BE RE-READ B EXCR1 EXCR11 BW ENDJOB,SWOUT&2 IF TAPE NOT USED, QUIT SW SWEOF WRITE TERMINAL END OF FILE B CTB NOP OUTRCD B ENDJOB JOB LIBE HIGHER LEVEL UPDATING CONTROL ******************************************************************* * INSERT AFTER ******************************************************************* INSAFT SBR INSAND&3 SAVE RETURN B COPSEK COPY AND SEARCH FOR FILE BW SEKERR,SWEOF ERROR IF NOTFOUND B COPPAS COPY PAST MATCHING FILES B INSFIL INSERT FILE INSAND B 0 RETURN ******************************************************************* * INSERT BY PROGRAM DIRECTION ******************************************************************* INSERT SBR INSEND&3 SAVE RETURN B COPSEK SEARCH FOR MATCHING FILE BW INSE2,SWEOF IF EOF, INSERT AT END OF TAPE BCE INSE1,SWXACT,| B COPPAS INEXACT MATCH - COPY TO END B INSE2 THEN INSERT FILE INSE1 B DELPAS DELETE MATCHING FILE INSE2 B INSFIL INSERT FILE INSEND B 0 RETURN ******************************************************************* * DELETE FILE ******************************************************************* DELETE SBR DELEND&3 SAVE RETURN B COPSEK SEARCH FOR FILE BW SEKERR,SWEOF IF NOT FOUND - ERROR B DELPAS SKIP PAST MATCHING FILES DELEND B 0 RETURN JOB LIBE LOWER LEVEL UPDATING CONTROL ******************************************************************* * COPY AND SEARCH FOR FIRST MATCHING FILE ******************************************************************* COPSEK SBR COPSND&3 B ENTSCH ENTER SEARCH NAME B TITCMP COMPARE WITH PREVIOUS NAME SW SWPREV BE COPSND MATCH ON PREVIOUS FILE CW SWPREV#1 COPS1 B RTITLE READ TITLE BW COPSND,SWEOF STOP AT END OF FILE B TITCMP COMPARE WITH PRESENT TITLE BE COPSND EXIT ON MATCHING TITLE BCE WTITLE,SWUPEX,U WRITE TITLE IF UPDATING ONLY BCE COPFIL,SWUPEX,U COPY FILE IF UPDATING NOP INPRCD,OUTCOP BCE SKPFIL,SWUPEX,E SKIP FILE IF EXCERPTING NOP INPRCD B COPS1 CONTINUE COPSND B 0 ******************************************************************* * COPY UNTIL NO MATCH ******************************************************************* COPPAS SBR COPPND&3 SAVE RETURN BW COPP2,SWPREV IF MATCH IN PREV FILE, DO NOT COP COPP1 B WTITLE WRITE TITLE B COPFIL COPY FILE NOP INPRCD,OUTCOP COPP2 B RTITLE READ TITLE BW COPPND,SWEOF B TITCMP COMPARE WITH SEARCH NAME BE COPP1 IF MATCH, CONTINUE SBR 89,TTITLE CHANGE TITLE ADDRESS TO TTITLE SW SWRRDT REQUEST RE-READING OF CURRENT TIT COPPND B 0 ******************************************************************* * DELETE MATCHING FILES ******************************************************************* DELPAS SBR DELPND&3 SAVE RETURN BW DELP2,SWPREV IF MATCH IN PREV FILE, DO NOT DEL DELP1 B SKPFIL SKIP FILE NOP INPRCD DELP2 B RTITLE READ TITLE BW DELPND,SWEOF IF END OF TAPE, QUIT B TITCMP COMPARE WITH SEARCH NAME BE DELP1 IF MATCH, CONTINUE SBR 89,TTITLE CHANGE TITLE ADDRESS TO TTITLE SW SWRRDT REQUEST RE-READING OF CURRENT TIT DELPND B 0 ******************************************************************* * MOVE SEARCH NAME FORM COMMON - SET UP TITLE COMPARISON ******************************************************************* ENTSCH SBR ENTSND&3 SAVE RETURN MCM COMMON,SEARCH MN MN SBR TITCM1&3 LOW ORDER ADDR OF NAME SBR TITCM2&6 MA -SEARCH-1,TITCM1&3 MZ *-6,TITCM1&2 SET A-ZONE FOR X1 MODIFICATION ENTSND B 0 ******************************************************************* * COMPARE TITLE IN COMMON W/ TITLE IN SEARCH ******************************************************************* TITCMP SBR TITCND&3 TITCM1 MCW 0,SWXACT#1 IF RMARK, EXACT COMPARISON SAR TITCM2&3 NEXT ADDRESS TITCM2 C 0,0 COMPARE NAMES TITCND B 0 ******************************************************************* * INSERT FILE ROUTINE ******************************************************************* INSFL SBR INSFND&3 SAVE RETURN BW INSFTP,SWTINS CHECK FOR TAPE INSERTION INSFCD B CTITLE READ CARD TITLE BW INSFND,SWEOF TEST FOR END OF FILE MCW @ @,SWMOD BLANK OUT MODE INDICATOR B CDC READ FIRST CARD OF FILE BW INSTIT,SWEOF REPLACE TITLE IF EOF HERE B WTITLE WRITE TITLE ON TAPE BCE INSF1,SWWT,X BCE FTITLE,SWF,F PRINT TITLE BCE DTITLE,SWD,D PUNCH TITLE INSF1 BW INSFND,SWEOF TEST FOR END OF FLLE BCE CTB,SWT,T WRITE CARD ON TAPE NOP OUTRCD MCW SWMOD,SWMODO BCE CPRT,SWF,F PRINT RECORD BCE CCD,SWD,D PUNCH RECORD B CDC B INSF1 CONTINUE UNTIL END OF FILE INSFTP CW SWTINS RESET TAPE INSERTION SWITCH B INSTP INSFND B 0 * REPLACEMENT OF TITLE MAY OCCUR AFTER @@INSERT AFTER@@ OR * PROGRAM DIRECTED INSERTION INSTIT CW SWEOF BW *&5,SWRRDT IF SWRRDT NOT SET, TITLE TO BE B INSFND REPLACED WAS NOT READ - IGNORE B RTITLE RE-READ NEXT TAPE TITLE MCW TTITLE&79,TITLE&79 MOVE CARD TITLE TO TITLE AREA B WTITLE WRITE NEW TITLE B COPFIL COPY PAST THIS FILE NOP INPRCD,OUTCOP CW SWEOF DO NOT WRITE ANOTHER EOF B INSFND ******************************************************************* * INSERT DIRECTLY ******************************************************************* INSFIL SBR INSFID&3 SAVE RETURN INSDIR EQU INSFIL B INSFL INSERT FILE BW CTB,SWEOF WRITE END OF FILE NOP OUTRCD INSFID B 0 RETURN JOB LIBE TAPE FILE INSERTION ROUTINE ****************************************************************** * SPECIAL TAPE INSERTION ROUTINE * INSERT PROGRAMS FROM OLD LIBRARY ****************************************************************** INSTP SBR INSTND&3 B BCDMOD B CDC READ CONTROL CARD BW INSTND-4,SWEOF B CPRT PRINT CONTROL CARD INST1 SBR TERRCT,REREAD RT INSUNT,0&X1 READ TEST RECORD BEF INST1 SKIP OVER EOF@S C COMMON&79,79&X1 COMPARE WITH CONTROL CARD BU INST1 CONTINUE UNTIL MATCH B BCDMOD FOUND MATCHING TITLE ON TAPE C TITLE&82,@BCD@ SET PROPER MODE FOR FILE BE *&5 %COL 81-83 # @@BCD@@ OR @@BIN@@) B BINMOD * EDIT TITLE MCW RMARK,COMMON&39 SBR INST2&6,COMMON&19 INST2 BBE INST4,0,} %GMARK) SCAN FOR 1ST NON-BLANK CHAR SBR INST2&6 BEFORE COLUMN 19 B INST2 INST4 SBR INST4A&6,1 MA INST2&6,INST4A&6 INST4A MCM COMMON&19,0 MOVE SUBTITLE AFTER BLANK MN DECREASE B ADDR REG TO LOC OF RM SBR INST5&3 LOC OF RMARK SBR INST5&6 MCW @ @ MA -COMMON,INST5&6 MA 84,INST5&6 COMPUTE ADDR IN TITLE MCW @ @,83&X1 CLEAR TITLE MCW 83&X1 INST5 MCW 0,0 MOVE EDITED TITLE TO TITLE AREA SW 40&X1 MCW COMMON&71,71&X1 MOVE COMMENTS AFTER COL 40 CW 40&X1 MCW RMARK B WTITLE WRITE TITLE MCW 83&X1,COMMON&83 B CPRT PRINT EDITED TITLE MCW SWMOD,INSTAP-1 B COPFIL NOP INPCOP,OUTRCD B INSTP&4 CW SWEOF INSTND B 0 * COPY INPUT VECTOR DCW #3 DCW #3 DCW #3 DSA INSTAP DSA BEGOBF DCW #3 DSA ENDOBF INPCOP DSA ENDOBF INSUNT EQU %U4 DC #2 INSTAP DSA INSUNT JOB LIBE JOB TERMINATION ******************************************************************* * LIST TABLE OF CONTENTS AND REWIND TAPES ******************************************************************* ENDJOB SBR 94,1 UNLESS OTHERWISE SPEC. COUNT 1 BCE *&8,SWWTBC, COPY OF TABLE OF CONTENTS MCW SWWTBC,94 BCE ENDJ6,94,0 IF ZERO, DO NOT PRINT WTM INDUNT ENDJ1 CS 332 CS SBR 89,2 THREE MODES OF OUTPUT ENDJ2 BW ENDJ4,SWOUT&X1 IF WM, THIS MODE NOT USED RWD INDUNT REWIND INDEX TAPE CW SWEND#1 CC 1 ENDJ3 SBR TERRCT,REREAD READ RT INDUNT,201 RECORD FROM INDEX TAPE BEF ENDJ4 TEST FOR EOF BER TERROR TEST FOR ERROR BCE ENDJ3,285&X1,X SEE IF THIS ENTRY FOR THIS MODE MCW @ @,287 MASK OUT FLAGS BW ENDJ3A,SWEND MCW 284,HEADER&83 SET UP PAGE HEADER SBR PAGECT,0 RESET PAGE COUNTER B PAGE SW SWEND B ENDJ3 ENDJ3A W BCV PAGE CHECK FOR PAGE OVERFLOW B ENDJ3 CONT. FOR ALL ENTRIES THIS MODE ENDJ4 MA @I9I@,89 GO TO NEXT MODE BCE ENDJ2,88,0 CONTINUE UNTIL ALL MODES PROCESSD ENDJ5 MA @I9I@,94 DECREMENT COUNT OF COPIES TO PRIN BCE ENDJ6,94,0 QUIT WHEN COUNT IS ZERO B ENDJ1 ENDJ6 BW *&5,INPTAP-3 B *&6 RWU INPUNT REWIND TAPE IF USED BW *&5,OUTTAP-3 B *&6 RWU OUTUNT REWIND TAPE IF USED CS 332 CS MCW @END OF JOB@,250 CC 1 W CC L CS 199 CLEAR PUNCH FEED P H *-3 FINAL HALT JOB LIBE FILE TITLE MANIPULATION ******************************************************************* * WRITE TABLE OF CONTENTS ENTRY ******************************************************************* INDEX SBR INDEND&3 LCA GMARK,188 MCW SWT INCLUDE OUTPUT INDICATORS MCW MCW LCA 83&X1 CURRENT TITLE BCE *&8,SWMOD,U MCW @X@,186 BINARY FILES NOT PRINTED BCE IND1,SWPTBC, P SS 4 IND1 BCE INDEND,SWWTBC,0 IF SWWTBC#0 DO NOT WRITE SBR TERRCT,REWRIT WRITE WT INDUNT,101 TABLE OF CONTENTS ENTRY BER TERROR TEST FOR ERROR INDEND CS 0,199 CLEAN UP AND RETURN ******************************************************************* * READ TITLE CARD ******************************************************************* CTITLE SBR CTITND&3 SAVE RETURN MCW @U@,SWMOD TITLE CARD IS BCD MCW @ @,83&X1 BLANK LAST 4 CHARS OF TITLE AREA SBR CDCUAD SBR CPRTAD B CDC MCW @U@,SWMODO B CPRT SBR CDCUAD,COMMON&79 RESTORE CDCUAD SBR CPRTAD CTITND B 0 RETURN ******************************************************************* * READ TITLE FROM TAPE ******************************************************************* RTITLE SBR RTITND&3 SAVE RETURN SBR 89,TITLE RENEW CURRENT ADDR OF TITLE BW RTIT1,SWRRDT TEST RE-READ REQUEST SW SWEOF BW RTITND,SWEOT MCW TITLE&83,TTITLE&83 MOVE CURRENT TITLE TO TTITLE BW *&9,INPTAP-3 READ EOF IF NOT INITIALIZED B TCB THIS FORCES TAPE LABEL CHECKING NOP INPRCD SW SWEOF SBR TERRCT,REREAD RT INPUNT,TITLE READ NEXT TITLE INTO TITLE BEF *&5 CW SWEOF BER TERROR RTIT1 BCE BCDMOD,TITLE&83,U BCE BINMOD,TITLE&83,B CW SWRRDT RESET RE-READ REQUEST LCA SWEOF,SWEOT#2 RTITND B 0 RETURN ******************************************************************* * WRITE TITLE ON TAPE ******************************************************************* WTITLE SBR WTITND&3 SAVE RETURN C 79&X1,@ @ BU *&8 MCW DATE,79&X1 AFFIX DATE TO OUTPUT TITLE MCW SWMOD,83&X1 BCE WTITND-4,SWT,X BCE WTITND-4,SWWT,X BW *&17,OUTTAP-3 SW SWEOF B CTB THIS FORCES TAPE LABEL WRITING NOP OUTRCD CW SWEOF SBR TERRCT,REWRIT WT OUTUNT,0&X1 BER TERROR B INDEX ENTER OUTPUT TITLE IN INDEX WTITND B 0 ******************************************************************* * PUNCH TITLE ******************************************************************* DTITLE SBR DTITND&3 MCW @U@,SWMODO OUTPUT IN BCD MODE SBR CCDUAD,79&X1 BCE CCD,SWWT, SBR CCDUAD,COMMON&79 RESTORE CCDUAD DTITND B 0 ******************************************************************* * PRINT TITLE ******************************************************************* FTITLE SBR FTITND&3 MCW @U@,SWMODO OUTPUT IS IN BCD MODE MCW 83&X1,HEADER&83 SBR PAGECT,0 ZERO PAGE COUNT B PAGE WRITE PAGE HEADER FTITND B 0 ******************************************************************* * CLEAR COMMON AREA ******************************************************************* CLRCOM SBR CLRCND&3 MCW @ @,COMMON&159 MCW COMMON&159 CLRCND B 0 ******************************************************************* * WRITE PAGE HEADER ******************************************************************* PAGE SBR PAGND&3 A @001@,PAGECT#3 CS 332 CS MCS PAGECT,298 MCW @PAGE@,294 MCW HEADER&83,284 CC 1 W CS 299 PAGND CCB 0,L JOB LIBE FILE MANIPULATION ******************************************************************* * COPY FILE ROUTINE ******************************************************************* * * CALLING SEQUENCE * * B COPFIL * NOP IVECTR,OVECTR * * WHERE IVECTR AND OVECTR ARE CONSTRUCTED AS SHOWN * IN THE ABOVE I/O PACKAGE, WITH INPUT AND OUTPUT BUFFERS * THE SAME. * * ALL RECORDS UP TO AND INCLUDING THE NEXT TAPE MARK * RECORD ARE COPIED. * COPFIL SBR IOEND&10 SAVE RETURN SBR COPF1&6 SAVE ADDRESS OF N IVECTR SBR COPF2&6,3 MA COPF1&6,COPF2&6 SAVE ADDR OF N OVECTR COPF1 SBR IO1.1&3,0 B IO1 ENTER I/O VECTOR B IO8 INITIALIZE TAPE IF NECESSARY B IO4 READ TAPE RECORD MCW IOADR,*&4 SBR 0,0&X3 RESTORE BUFFER POINTER SBR COPF3&6 SAVE ADDR OF GMARK&WMARK SBR IOLOC COPF2 SBR IO1.1&3,0 B IO1 ENTER I/O VECTOR B IO9 INITIALIZE TAPE IF NECESSARY COPF3 SBR 99,0 SET ADDR OF GMARK&WMARK BW COPF4,SWEOF TRANSFER IF END OF INPUT FILE B IO5 WRITE BUFFER B COPF1 COPF4 CW 0&X3 CLEAR WMARK ASSOC. WITH GMARK MCW IOLBF,99 NO RECORD TO WRITE B IO5 WRITE END OF FILE COPFND B IOEND RETURN ******************************************************************* * SKIP FILE ROUTINE ******************************************************************* * CALLING SEQUENCE * * B SKPFIL * NOP IVECTR * * WHERE IVECTR IS CONSTRUCTED AS SHOWN IN THE ABOVE I/O * PACKAGE * * THE TAPE IS LEFT POSITIONED AFTER THE NEXT TAPE MARK * SKPFIL SBR IOEND&10 SBR IO1.1&3 B IO1 ENTER I/O VECTOR B IO8 INITIALIZE IF NECESSARY SKPF1 B IO4 READ RECORD BW SKPF2,SWEOF QUIT IF EOF B SKPF1 SKPF2 MCW IOADR,*&4 SBR 0,0&X3 SAVE ADDR OF GMARK&WMARK AFTER EF SBR IOLOC RESTORE POINTER SKPFND B IOEND JOB LIBE RECORD MANIPULATION ******************************************************************* * COMMON TO CARDS ******************************************************************* CCD SBR CCDND&3 BW CCDEOF,SWEOF BCE CCDBIN,SWMODO,B CCDBCD LCA COMMON&79,180 MOVE RECORD FROM COMMON TO BCD PU CCDUAD EQU *-3 P CCDND PUNCH BCD CCDBIN MBC COMMON&159,580 MOVE BINARY AND CODE CCDBAD EQU *-3 PCB PUNCH COLUMN BINARY CCDND SSB 0,8 SELECT INTO STACKER 8 CCDEOF CS 180 MCW TMARK,101 P CCDND ******************************************************************* * COMMON TO PRINTER ******************************************************************* CPRT SBR CPRTND&3 BW CPREOF,SWEOF DON@T PRINT EOF@S BCE CPRTND,SWMODO,B NO BINARY PRINT BCV PAGE TEST FOR PAGE OVERFLOW CS 332 CS MCW COMMON&79,280 CPRTAD EQU *-3 W CPRTND B 0 CPREOF CCB CPRTND,1 SKIP TO TOP OF PAGE AT EOF ******************************************************************* * SWITCH TO BCD MODE ******************************************************************* BCDMOD SBR BCDMND&3 SAVE RETURN BCE BCDMND,SWMOD,U RETURN IF ALREADY IN BCD MODE CW IOOLD-2 FORCE RE-LOADING OF I/O VECTOR MCW @U@,SWMOD MCW @U@,INPTAP-1 MCW @U@,OUTTAP-1 SBR INPRCD-6,80 SBR OUTRCD-6,80 BCE BCDMND,SWNBLK, IF BLANK, USE BLOCKED OUTPUT SBR OUTRCD-3,BEGOBF&80 BCDMND B 0 ******************************************************************* * SWITCH TO BINARY MODE ******************************************************************* BINMOD SBR BINMND&3 BCE BINMND,SWMOD,B RETURN IF ALREADY IN BINARY MODE CW IOOLD-2 FORCE RE-LOADING OF I/O VECTOR MCW @B@,SWMOD MCW @B@,INPTAP-1 MCW @B@,OUTTAP-1 SBR INPRCD-6,160 SBR OUTRCD-6,160 BCE BINMND,SWNBLK, SBR OUTRCD-3,BEGOBF&160 BINMND B 0 RETURN ******************************************************************* * CARDS TO COMMON ******************************************************************* CDC SBR CDCND&3 CW SWEOF BLC CDCEOF IF NO CARDS - EOF BW CDC1&2,SWRRDC TEST FOR RE-READ REQUEST CDC1 RCB CW SWRRDC BBE *&9,401,} %GMARK) NOT EOF CD IF ROW 1-4 PUNCHED BCE CDCEOF,501,6 EOF CARD HAS 7-8 PUNCH IN LOWER * HALF OF COLUMN 1 BCE CDCBIN,501,5 BINARY CARD HAS 7-9 PUNCH IN * LOWER HALF OF COL 1 CDCBCD BCE CDCER,SWMOD,B ERROR IF EXPECTING BINARY B BCDMOD SWITCH TO BCD MODE MCW 80,COMMON&79 MOVE CARD TO COMMON CDCUAD EQU * B CDCND RETURN CDCBIN BCE CDCER,SWMOD,U ERROR IF EXPECTING BCD CARD B BINMOD MBD 580,COMMON&159 MOVE BINARY TO COMMON CDCBAD EQU * CDCND SSB 0,1 RETURN CDCER CS 332 CS MCW @MODE ERR. CD IN @@NR@@ IGNORED.@,250 W FAIL B CDC1 CDCEOF SW SWEOF B CDCND JOB LIBE BLOCKED TAPE INPUT AND OUTPUT ******************************************************************* * I/O PACKAGE ******************************************************************* * THIS PACKAGE READS AND WRITES BLOCKED TAPE, * CHECKS FOR TAPE ERRORS AND ATTEMPTS RECOVERY, * AND INITIALIZES AND FINALIZES REELS. * PROVISION IS MADE FOR HEADER AND TRAILER REEL LABELS * CE DETAR FSU 8/18/65 * * SCOPE... * * BECAUSE AN I/O ADDRESS VECTOR IS SUPPLIED WITH EACH * BUFFER, IT IS POSSIBLE TO READ AND WRITE ANY NUMBER OF * BUFFERS AND TAPES AT THE SAME TIME. * THE MODE OF THE TAPE AND BLOCKING DIMENSIONS * ARE UNDER THE CONTROL OF THE CALLING PROGRAM. * HENCE TAPES MAY ALSO BE UNBLOCKED. * VARIABLE BLOCKING MAY BE USED WITH THIS PACKAGE. * TAPE LABEL CHECKING AND END OF REEL CHECKING ARE OPTIONAL * A COMMON FAILURE ROUTINE %FAIL) IS CALLED BY THE I/O * PACKAGE IN CASE OF LABEL TEST FAILURE, AND IRRETRIEVABLE * TAPE ERRORS. NORMAL RETURN FROM THIS ROUTINE CAUSES * THE ERROR TO BE IGNORED * * INITIALIZATION FOR TAPE REELS... * * THE CALLING PROGRAM SHOULD CLEAR ANY WMARK IN THE * LOCATION BELOW THE UNIT ADDRESS %TAPUNT-3) TO SIGNIFY * THAT THE REEL ON THAT UNIT SHOULD BE INITIALIZED * IF THERE IS A WMARK IN THAT LOCATION, THE REEL WILL NOT * BE INITIALIZED BY THE I/O PACKAGE * A WMARK IN THE SECOND LOCATION BELOW THE UNIT ADDRESS * %TAPUNT-4) SUPPRESSES REWINDING OF THE FIRST REEL. * INPUT INITIALIZATION CONSISTS OF OPTIONALLY REWINDING THE * TAPE, OPTIONALLY CHECKING THE TAPE LABEL, AND * OPTIONALLY INCREMENTING THE REEL COUNT OF THE TEST LABEL. * INITIALIZATION FOR OUTPUT REELS CONSISTS OF OPTIONALLY * REWINDING THE TAPE, OPTIONALLY WRITING A TAPE LABEL, AND * OPTIONALLY INCREMENTING THE REEL COUNT OF THE OUTPUT LABL * A WMARK IS SET IN THE INITIALIZATION SWITCH AND THE * PROGRAM PROCEEDS TO READ THE FIRST RECORD AND MOVE * THE FIRST LOGICAL RECORD TO COMMON, OR TO MOVE THE * FIRST LOGICAL RECORD FROM COMMON TO THE OUTPUT BUFFER * * INITIALIZATION FOR BUFFERS... * * FOR INPUT BUFFERS, THE BUFFER POINTER SHOULD BE SET TO * THE LOCATION OF THE GMARK&WMARK AT THE END TO CAUSE * INITIALIZATION. * FOR OUTPUT BUFFERS, THE SAME PROCEDURE IS USED. * * FINALIZATION OF REELS... * * THE PROGRAM WILL OPTIONALLY TEST FOR AN END OF REEL * MESSAGE, AND IF ENCOUNTERED, WILL REWIND AND UNLOAD TAPE * CALL FOR A NEW REEL, AND INITIALIZE THE NEW REEL. * WHEN AN END OF REEL STRIP IS ENCOUNTERED ON AN OUTPUT * REEL, THE PROGRAM WILL OPTIONALLY WRITE AN END OF REEL * MESSAGE IN THE SAME MODE AS THE PREVIOUS OUTPUT RECORD, * WRITE A TAPE MARK, REWIND AND UNLOAD THE TAPE, * CALL FOR A NEW REEL, AND INITIALIZE THE NEW REEL. * * END OF FILE ACTION... * * WHEN AN END OF FILE IS ENCOUNTERED IN INPUT, @@SWEOF@@ * IS SET TO CONTAIN A WMARK. * TO EMPTY THE OUTPUT BUFFER, IT IS NECESSARY TO CALL * THE OUTPUT ROUTINE WITH AN A-ZONE IN SWEOF. * A WMARK IN SWEOF WILL CAUSE THE BUFFER TO BE EMPTIED, * AND AN EOF %TAPE MARK) TO BE WRITTEN ON THE OUTPUT TAPE * THE OUTPUT ROUTINES WILL RESET SWEOF BEFORE RETURNING * * * CALLING SEQUENCE * * B TCB TAPE TO COMMON, BUFFERED * NOP IOVECT * * B CTB COMMON TO TAPE, BUFFERED * NOP IOVECT * EXTERNAL SYMBOLS... * COMMON, FAIL * * * PROGRAM CONSTANTS... REREAD EQU 10 * REREAD IS EQUAL TO THE NUMBER OF READ ATTEMPTS TO MAKE * AFTER A READ ERROR IS ENCOUNTERED. REWRIT EQU 2 * REWRIT IS EQUAL TO THE NUMBER OF REWRITING ATTEMPTS * TO BE MADE BEFORE CALLING FAIL. * * THE I/O VECTOR IS CONSTRUCTED AS FOLLOWS * EACH SEGMENT MUST BE 3 CHARS LONG WITH A HIGH ORDER WMARK * DSA EORMES END OF REEL MESSAGE * DSA REELCT LOC. OF REEL COUNT * DSA LABEL LOC. OF TAPE LABEL * DSA TAPUNT LOC. OF TAPE UNIT ADDRESS * DSA BEGBUF HIGH ORDER ADDRESS OF BUFFER * DSA RECSIZ LENGTH OF NEXT RECORD * DSA ENDBUF ADDRESS OF GMARK AT END OF BUFFER *IOVECT DSA ENDBUF OR BEGBUF POINTER-SEE BUFFER INITIALIZATION * * EORMES, REELCT, OR LABEL MAY BE BLANK, IN WHICH CASE, * THE I/O PACKAGE ASSUMES THERE IS NO END OF REEL MESSAGE, * NO REEL COUNT, OR NO TAPE LABEL TO BE CHECKED OR * WRITTEN %RESPECTIVELY). * * THE ADDRESSES ARE ASSIGNED AS FOLLOWS * * BUFFER * NO INITIAL WM IS NECESSARY - THERE SHOULD BE NONE IF * RECORDS WITH INITIAL GMARKS ARE ANTICIPATED *BEGBUF DA 1XN,G N#TOTAL RECORD LENGTH *ENDBUF EQU * * DC #1 MANDATORY ONE CHARACTER SPACE * * EXPECTED TAPE LABEL OR LABEL TO BE WRITTEN *LABEL EQU *&1 %IN CASE OF OUTPUT) * DA 1XM WHERE M IS LESS THAN N *LABEL EQU * %IN CASE OF INPUT) * * REEL COUNT *REELCT EQU L L IS THE LOW ORDER ADDR OF * THE THREE CHARACTER REEL COUNT * * TAPE UNIT *TAPE EQU %XK X IS ANY VALID MODE, K ANY UNIT * DC #1 IF WMARK, NO REWIND * DC #1 IF WMARK, NO REWIND, NO TAPE LABE *TAPUNT DSA TAPE * * END OF REEL MESSAGE *EORMES EQU *&1 IN CASE OF OUTPUT * DA 1XJ,G WHERE J IS ANY LENGTH *EORMES EQU *-1 IN CASE OF INPUT * * COMMON BUFFER *COMMON DA 1XJ J IS NOT LESS THAN RECSIZ * JOB INPUT/OUTPUT PACKAGE * BUFFERED TAPE TO COMMON TCB SBR IOEND&10 SAVE RETURN SBR IO1.1&3 ENTER ADDRESS OF N IOVECT CW SWEOF B IO1 SET UP I/O VECTOR B IO8 INITIALIZE TAPE IF NECESSARY B TCB3 TCB2 B IO4 READ NEXT RECORD BW TCB5,SWEOF CHECK FOR EOF MCW IOLBF,99 RESET BUFFER POINTER TCB3 C GMARK,0&X3 CHECK FOR GMARK&WMARK BE TCB2 IF GMARK,WMARK, READ NEXT RECORD MA IORSZ,99 SBR TCB5-1,0&X3 MA @I9I@,99 SBR TCB4&6,COMMON-1 MA IORSZ,TCB4&6 LOW ORDER ADDR OF REC IN COMMON TCB4 MCW 0&X3,0 MOVE RECORD TO COMMON SAR 99 C GMARK,1&X3 IF MOVE STOPPED BY GMARK & WMARK BE TCBER IN BUFFER, WRONG LENGTH RECORD SBR 99,0 TCB5 MCW IOADR,*&4 SBR 0,0&X3 RESTORE I/O VECTOR SBR IOLOC IOEND SBR 99,0 RESTORE X3 B 0 * BAD RECORD TCBER CS 332 CS MCW @BAD RCD@,250 W FAIL SBR 99,1&X3 FINAL VALUE OF X3 IS WMARK LOC B TCB2 * COMMON TO BUFFERED TAPE CTB SBR IOEND&10 SAVE RETURN SBR IO1.1&3 ENTER ADDR. OF N IOVECT B IO1 ENTER I/O VECTOR B IO9 INITIALIZE TAPE IF NECESSARY CTB2 BWZ CTB4-4,SWEOF#2,T TEST FOR WMARK OR A-ZONE SW COMMON SBR CTB3&3 MA IORSZ,CTB3&3 LOW ORDER ADDR. OF REC. IN COMMON MA IORSZ,99 MA @I9I@,99 CTB3 MCW 0,0&X3 MOVE RECORD FROM COMMON TO BUFFER SBR 99,1&X3 X3 # HIGH ORDER ADDR OF NEXT REC C 99,IOEBF CHECK FOR END OF BUFFER BU CTB4 B IO5 CTB4 LCA @ @,SWEOF B TCB5 RETURN JOB INPUT/OUTPUT PACKAGE * LOAD I/O VECTOR AND INITIALIZE IO1 SBR IO1ND&3 SAVE RETURN SBR IOEND&6,0&X3 SAVE X3 MA @003@,IO1.1&3 H. O. ADDR. OF N IOVECT IO1.1 MCW 0,IOADR#3 C IOADR,IOOLD IF SAME AS OLD I/O VECTOR BE IO1ND-7 DO NOT RE-LOAD LCA IOADR,IOOLD#3 MCW IOADR,IO1.2&3 IO1.2 MCW 0,IOLIST ENTER IOVECTOR CHAIN7 MCW IOLTA,*&4 MCW 0,IOUNT TAPE ADDRESS SAR IO8&10 SBR IO8&15 SBR IO9&10 SBR IO9&15 MCW IOLOC,99 IO1ND B 0 RETURN * READ AND CHECK TAPE LABEL IO2 SBR IO2ND&3 SAVE RETURN BW *&17,0 MN IOUNT,*&4 RWD 0 REWIND TAPE CW 0 BCE IO2ND,IOLAB, CHECK FOR BLANK MCW IOLBF,IO2.1&6 BUFFER ADDR TO READ INSTR MN SBR TERRCT,REREAD REREAD COUNT IO2.1 RT 0,0 READ LABEL %BCD) MCW @ @ SPACE TO END OF LABEL SBR IO2.2&3 SAVE L. O. ADDR. OF LABEL SBR IO2.5&3 SAVE L. O. ADDR. OF LABEL BER TERROR TEST FOR TAPE ERROR MCW IOLAB,*&7 IO2.2 C 0,0 COMPARE TAPE LABEL WITH GIVEN LAB BU IO2.4 UNEQUL - ERROR IO2.3 BCE IO2ND,IOLRC, CHECK FOR BLANK MCW IOLRC,*&7 INCREMENT REEL COUNT MA @001@,0 IO2ND B 0 RETURN IO2.4 CS 332 CS MCW @LABEL ERR@,250 W MCW IOLAB,*&4 MCW 0,290 GIVEN LABEL MCW @TEST-@ W IO2.5 MCW 0,290 MCW @TAPE-@ W FAIL PRINT AND CALL FAIL B IO2.3 * WRITE TAPE LABEL IO3 SBR IO3ND&3 SAVE RETURN BW *&17,0 MN IOUNT,*&4 RWD 0 REWIND TAPE CW 0 BCE IO3ND,IOLAB, CHECK FOR BLANK MN IOUNT,IO3.1&3 MCW IOLAB,IO3.1&6 SBR TERRCT,REWRIT IO3.1 WT 0,0 WRITE TAPE LABEL BER TERROR TEST FOR ERROR BCE IO3ND,IOLRC, IF BLANK, NO REEL COUNT MCW IOLRC,*&7 MA @001@,0 INCREASE REEL COUNT IO3ND B 0 * READ TAPE IO4 SBR IO4ND&3 SAVE RETURN CW 0&X3 CLEAR EXTRANEOUS GMARK MCW IOEBF,*&7 LCA GMARK,0 RESTORE GMARK&WMARK AT END OF BUF MCW IOLBF,IO4.1&6 MCW IO4.1 RT 0,0 READ BUFFER MCW @ @ SPACE TO GMARK SBR 99 LCA GMARK CHANGE TO GMARK&WMARK SBR IO4.2&3 SAVE ADDR OF END OF RECORD BEF IO4ND-4 BER TERROR TEST FOR TAPE ERROR BCE IO4ND,IOERM, IF BLANK, NO END OF REEL MESSAGE MCW IOERM,*&7 IO4.2 C 0,0 BU IO4ND NOT END OF REEL - RETURN B IO6 CALL END OF REEL ROUTINE B IO2 INITIALIZE NEW REEL B IO4&4 RE-READ RECORD SW SWEOF IO4ND B 0 * WRITE TAPE IO5 SBR IO5ND&3 SAVE RETURN C 99,IOLBF CHECK FOR NO RECORD BE IO5ND-8 IF NONE, DO NOT WRITE TAPE LCA GMARK,0&X3 AFFIX GMARK&WMARK MCW IOLBF,IO5.1&6 MCW SBR TERRCT,REWRIT IO5.1 WT 0,0 WRITE BUFFER BEF IO5.3 END OF REEL BER TERROR TEST FOR TAPE ERROR CW 0&X3 CLEAR EXTRANEOUS WMARK MCW IOLBF,99 RESET BUFFER POINTER BW IO5.2,SWEOF WRITE TAPE MARK IF WMARK IN SWEOF IO5ND B 0 IO5.2 MN IOUNT,*&4 WTM 0 WRITE TAPE MARK B IO5ND RETURN IO5.3 B IO7 CALL END OF REEL ROUTINE B IO3 INITIALIZE NEW REEL B IO5.1 WRITE RECORD * END OF INPUT REEL IO6 SBR IO6ND&3 CS 332 CS MN IOUNT,250 MCW @EOR, TP @ W MN IOUNT,*&4 RWU 0 REWIND AND UNLOAD IO6ND CCB 0,L * END OF OUTPUT REEL IO7 SBR IO7ND&3 SAVE RETURN MN IOUNT,*&4 BSP 0 BACKSPACE TAPE BCE IO7.2,IOERM, IF BLANK, NO END OF REEL MESSAGE MCW MCW IOERM,IO7.1&6 MCW IOUNT,IO7.1&3 SBR TERRCT,REWRIT IO7.1 WT 0,0 BER TERROR IO7.2 MN IOUNT,*&4 WTM 0 WRITE TAPE MARK B IO6 IO7ND B 0 * INITIALIZE INPUT REEL IO8 SBR IO8ND&3 BW IO8ND,0 SW 0 SBR IO2&10 SBR IO2&27 B IO2 MCW IOEBF,IOLOC IO8ND B 0 * INITIALIZE OUTPUT REEL IO9 SBR IO9ND&3 BW IO9ND,0 SW 0 SBR IO3&10 SBR IO3&27 B IO3 MCW IOLBF,IOLOC IO9ND B 0 IOERM DCW #3 ADDRESS OF END OF REEL MESSAGE IOLRC DCW #3 LOC OF REEL COUNT IOLAB DCW #3 LOC OF TEST LABEL IOLTA DCW #3 IOLBF DCW #3 HIGH ORDER ADDR OF BUFFER IORSZ DCW #3 LENGTH OF NEXT RECORD IOEBF DCW #3 LOW ORDER ADDR OF BUFFER IOLOC DCW #3 BUFFER POINTER IOLIST EQU * IOUNT EQU IOLTA JOB LIBE TAPE ERROR ROUTINE ******************************************************************* * TERROR - COMMON RE-TRY ROUTINE WITH TAPE ERROR MESSAGE ******************************************************************* * * CALLING SEQUENCE * * SBR TERRCT,NRETRY * TAPE COMMAND * ANY INTERVENING INSTRUCTIONS * BER TERROR * * WHERE NRETRY IS THE MAXIMUM NUMBER OF REPEATED ATTEMPTS * TO BE MADE IN ORDER TO COMPLETE THE OPERATION * SUCCESSFULLY * THE BER INSTRUCTION MUST FOLLOW THE TAPE COMMAND * PHYSICALLY AS WELL AS LOGICALLY, BUT MAY BE * SEPARATED BY ANY INTERVENING INSTRUCTIONS * AS LONG AS THE CHARACTER @@%@@ DOES NOT APPEAR AMONG * THOSE INSTRUCTIONS * TERROR BACKSPACES THE TAPE AND RETURNS TO THE TAPE * COMMAND. WHEN THE COUNTER, TERRCT, IS REDUCED TO ZERO, * AN ERROR MESSAGE IS PRINTED AND THE ROUTINE, FAIL, IS * CALLED. AFTER A NORMAL RETURN FROM FAIL FOLLOWING * A READ ERROR, TERROR BRANCHES TO THE INSTRUCTION AFTER * THE @@BER@@ INSTRUCTION. AFTER NORMAL RETURN FROM FAIL * FOLLOWING A WRITE ERROR, TERROR SKIPS AND BLANKS THE TAPE * AND RETURNS TO THE @@SBR@@ INSTRUCTION. TERROR SBR TERRND&3 SAVE RETURN SBR TERR1&6 SET UP SEARCH PARAMETER TERR1 BCE TERR2,0,% SEARCH FOR % IN TAPE COMMAND SBR TERR1&6 ENTER NEXT SEARCH LOC SBR TERR2&3 B TERR1 TERR2 CW 0 DECREASE A ADDR REGISTER SAR TERR3&3 SAVE FIRST CHAR OF TAPE COMMAND SBR TERR4-1 SBR TERR5&3 MA @007@,TERR3&3 MODIFY TO GET LAST LOC TERR3 MCW 0,TERRIO&7 OBTAIN TAPE COMMAND MCW MA @I9I@,TERRCT REDUCE ERROR COUNT BCE TERR4,TERRCT-2,I MN TERRIO&3,*&4 BSP 0 BACKSPACE TAPE B 0 TERR4 MA @I9C@,TERR5&3 SUBTRACT 7 TO GET ADDRESS OF SBR CS 332 CS MCW TERRIO&3,250 SET UP ERROR MESSAGE MCW MCW TERRIO&7 MOVE @@R@@ OR @@W@@ W FAIL BCE TERRND,TERRIO&7,R EXIT HERE IF READ COMMAND. MN TERRIO&3,*&4 BSP 0 MN TERRIO&3,*&4 SKP 0 SKIP AND BLANK TAPE TERR5 B 0 RETURN TO @@SBR@@ TERRND B 0 RETURN TO INSTR AFTER BER DCW @ CHK, TP @ TERRIO EQU *&1 DCW #7 #1 TERRCT DCW #3 ******************************************************************* * PROGRAM FAILURE ROUTINE ******************************************************************* FAIL SBR FAILND&3 CS 332 CS CC L MCW @TO IGNORE ERROR, PUSH START@,250 W CC L FAILND H 0 JOB LIBE CONSTANTS ******************************************************************* * INPUT/OUTPUT VECTORS ******************************************************************* * INPUT RECORD DSA EORMS2 DSA RELCTI DSA LABELI&79 DSA INPTAP DSA BEGIBF DCW #3 DSA ENDIBF INPRCD DSA ENDIBF * OUTPUT RECORD DSA EORMS1 DSA RELCTO DSA LABELO DSA OUTTAP DSA BEGOBF DCW #3 DSA ENDOBF OUTRCD DSA BEGOBF * FILE COPY OUTPUT DSA EORMS1 DSA RELCTO DSA LABELO DSA OUTTAP DSA BEGIBF DCW #3 DSA ENDIBF OUTCOP DSA BEGIBF ******************************************************************* * * END OF REEL MESSAGE EORMS1 EQU *&1 EORMS2 DCW @END OF REEL}@ DC #1 SPACE FOR GMARK * * INPUT TAPE INPUNT EQU %U1 DC #2 INPTAP DSA INPUNT * * * COMMON BUFFER COMMON DA 1X160 * OUTPUT UNIT OUTUNT EQU %U2 DC #2 OUTTAP DSA OUTUNT * INDEX TAPE INDUNT EQU %U3 DC #2 INDTAP DSA INDUNT SWXEQ DCW @C@ SWOUT DA 3X1 SWD DCW @X@ SWF @X@ SWT @T@ SWMODO #1 SWUPEX #1 SWETSP #1 SWPTBC #1 SWWTBC #1 SWNBLK #1 DATE #8 SWTINS #1 SWRRDT #1 SWRRDC #1 SWMOD #1 * SWWT EQU SWETSP SWWE EQU SWETSP SWEOFO EQU SWETSP TMARK DCW @{@ RMARK DCW @|@ LTORG GMARK DCW @}@ ENDADR EQU GMARK END XEQCDS { 1401 LIBE OBJECT | 08/01/67 ,008015,022026,030037,044,049,053053N000000N00001026 0001 L068116,105106,110117B101/I9Z#071029C029056B026/B001/0991,001/001117I0?0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 0 L001001,581581,581662,66266210400004 /I9ZH004B0210021B001V001004S L028360,743827,337341,34935310400005 )126,H121010L%U1333RH064B092LH047000 L036396,365366,373381,38539010400006 L126C047124B034//199/458099#118121U%U1BL039435,401408,413417,42443110400007 B0411190.034I9I C5S} L022457,444448,451454,45704010400008 MJ08?5WB497.911BZ63?6UDBO82?6UUB?01?6UEL039496,465469,473481,48904010400009 H543DQ8VW68D?5|W56D?5VW33D22WW17HT78X24L039535,501508,515522,52904010400010 BT71B000 L009544,540544,040040,04004010400011 HT70/080/280MJ09228MJ09226MJ10?6U,001 L037947,915919,923930,93794410400012 B|57C1C004J14B953/K1H089827MJ270/2 L034981,953954,961966,96897510400013 B86SL080280M206?6U3MJ30003K1M080741 L035|16,986993,|00|01,|08|1010400014 M080660#J33609L6601804K4C690J36,B2| L035|51,|24|31,|38|39,|41|4810400015 B|61S)B2|BX25?5WC)?4X?4W)Q8S,Q8/)?5S?5/L039|90,|57|61,|69|76,|80|8410400016 ,22T22SBX85226 M221?7WM223?6YHQ4|800 L036/26,|98/06,/13/20,04004010400017 B/42225 M225Q4|B/57?6Y0MJ37?6YHQ4TY81 L037/63,/35/42,/50/57,04004010400018 #Q4TQ4|HQ6X997HQ1ZX97)B8YM227?6WM228?6XL039S02,/71/78,/85/89,/9604010400019 M229?6VBS34?6V U?5|R,?4XMJ37Q2YBT54?6X0L039S41,S10S18,S23S27,S3404010400020 U%U3R,?5SBS94?6UEMJ540/6MJ57?6SMM L033S74,S47S51,S59S66,S73S7410400021 B47/M660906B47/BT54MJ770/9MJ80?6SM L034T08,S79S86,S90S94,T01T0810400022 MB47/MJ850/9MJ88?6SMMB47/ L025T33,T10T14,T21T28,T29T3010400023 MJ930/9MJ57?6SMMB47/,?5Z, L025T58,T41T48,T49T50,T54T5810400024 ,M0802802000HU04M000U34MQU19 L028T86,T60T67,T71T75,T82T8310400025 /332/MU31U00FXB000U34 MU34U22M000000 L036U22,T91T92,T99U01,U09U1610400026 QT782T75 1 E ON - STOP AT EOF@S L036U58,U27U31,U32U35,U36U3910400027 J268G ON - OMIT TITLE AND EOF CARDSJ279L039U97,U60U63,U94U95,04004010400028 F ON - PRINT BCDJ264 L020V17,V14V15,040040,04004010400029 C ON - D ON - PUNCH CDSJ264 L027V44,V41V42,040040,04004010400030 C OFF - ACCEPT CONTROL CARDSL268 L032V76,V73V74,040040,04004010400031 SENSE SWITCHES...6263%IF APPLICABLE)K L037W13,V94V95,V98W13,04004010400032 270 INSERTIONSJ252 TABLE OF CONTENTSJL039W52,W17W29,W30W33,W5204010400033 259 OUTPUTJ248 INPUT LIBRARYJ255 L034W86,W56W64,W65W68,W83W8410400034 TAPE SET-UP...L263@@LIBE@@ PROGRAM1263 L038X24,X01X02,X05X21,X2204010400035 HX81VX78B2|1/199LC5/104U%U1RM%U1101R L036X60,X29X37,X41X48,X5304010400036 C103J30BX53/U%U1B/000199HY64U%U2R,?4W L037X97,X68X73,X78X85,X89X9410400037 HY38333HP7|002L%U2333WBN9TLHP7|002 L034Y31,Y05Y12,Y20Y25,04004010400038 L%U2333WHY38BN9TLCY38Y67BY25/B000C5S L036Y67,Y40Y44,Y49Y56,Y61Y6510400039 HZ62)?7Y?7Z)?7XMJ37?8|/X99// L028Y95,Y72Y79,Y83Y90,Y94Y9510400040 ///////580 L010Z05,Y97Y98,Y99Z00,Z01Z0210400041 ///,912LC5/911LC5/996LC5/X97 L028Z33,Z07Z08,Z09Z13,Z20Z2710400042 LC5/661LC5/Q8|MJ370Y3M0Y3B000 L029Z62,Z41Z48,Z55Z59,04004010400043 BY68HQ0U|76/332/B60ZV22XB7Z1MK03313 L035Z97,Z67Z74,Z78Z79,Z83Z9110400044 M0Y3/2FLB!63EB86SFB!26G L023!20,!02!03,!04!06,!11!1610400045 B82VDM?8|?6TBV1SNQ1ZV!67B7Z1B/9YFB/3XD L038!58,!26!33,!37!41,!49!5410400046 B!33.!11B!81FB!86DBZ79F!721/180 L031!89,!63!67,!72!77,!81!8610400047 M?8/1014BZ79GKZ798T0D L021J10,!97!98,J03J08,J09J1010400048 LIBECONTROL CARDSHDR001000 L027J37,J15J28,J31J34,J3704010400049 TABLE OF CONTENTSXXT L020J57,J55040,040040,04004010400050 PACKING LIST - CARDSDXXFORMSXFXTAPE L036J93,J78J81,J86J89,04004010400051 NEXT FILE L010K03,040040,040040,04004010400052 BY68)?5Z/O81//// L016O97,O86O90,O94O95,O96O9710400053 ////LC5/O81,Y00H?00P20 L022P19,O99P00,P01P02,P09P1310400054 BS4VBT8VVR30B7Z1B/9YM?8SR6XM?8SCQ9/?8Y L038P57,P24P28,P36P40,P47P5110400055 BQ23SCQ9/?9UBQ70SPQ8W001PH?9XC?9XA0| L036P93,P63P70,P75P82,P83P8710400056 BQ11TP001001DMA0/,?7ZBD13BP20 L029Q22,P99Q06,Q07Q11,Q15Q1910400057 PQ9TQ8WCQ8ZA0VBQ85SCQ9|A1|BR00SCQ9TA1Y L038Q60,Q30Q37,Q42Q49,Q5404010400058 BR15SBR61PQ9TQ8WBD57BP20PQ9/Q8W,?7X L035Q95,Q66Q70,Q77Q81,Q85Q9210400059 BQ42PQ9SQ8WBC85BP20PQ9VQ8WBI38BP20 L034R29,R00R07,R11R15,R22R2610400060 M?8SQ8XM?8/)B7ZBD81BW8YNQ4TB22X L031R60,R37R41,R45R49,R53R5710400061 /332/MA3Y2502P7/BP20/332/ L025R85,R65R66,R73R77,R81R8510400062 MA7U2502P7/B000 L015?00,R93R97,040040,04004010400063 BY68/O81///// L013?13,?05?09,?10?11,?12?1310400064 ///LC5/O81,Y00H?00?35BS4V L025?38,?15?16,?17?24,?28?3510400065 BT8VVC61B7Z1B/9YB?70R6V MR6V?6SB?85R6U L039?77,?43?51,?55?63,?7004010400066 MR6U?6/BA00R6T MR6T?6|CQ9/A8|)?6VA8/ L036A13,?85?93,A00A07,04004010400067 BA43/,A8/CQ9VA8UBB82/,B7ZBB18BD81 L033A46,A19A23,A30A35,A39A4310400068 VC25A8V1VR81B7Z1,?6VB72XBA95?6VX L032A78,A55A63,A67A71,04004010400069 B86S?6/FB82V?6|DM?8|?6TBV1SNQ1ZVB86B7Z1L039B17,A87A95,B02B06,B1004010400070 BB34?6/XB/9Y)?5YBB50?6|XB/3X)?5X L032B49,B26B30,B34B42,B4604010400071 BB70?6SXBW8YNQ4T)?5ZVB02?6V1BC17BG54 L036B85,B58B62,B66B70,B78B8210400072 )?6VBB18?6V YB98B7Z)B7ZBW8YNQ4TV?35A8/1L039C24,B90B98,C05C09,C13C1710400073 B60ZVC61B7Z1BG28BA63SH089912,?7YB?35 L036C60,C29C37,C41C46,C53C5710400074 V22X?5Z1,B7ZBW8YNQ4TB22X L024C84,C69C73,C77C81,04004010400075 HD12BD81VR81B7Z1BE70BI38B000HD56 L032D16,C89C93,D01D05,D09D1310400076 BD81VD49B7Z1BD45A8Z|BE70BD49BF33BI38 L036D52,D21D29,D37D41,D45D4910400077 B000HD80BD81VR81B7Z1BF33B000 L028D80,D57D61,D65D73,D7704010400078 HE69BF89BG28,A8VBE66S)A8VB60Z L029E09,D85D89,D93D97,E02E0610400079 VE66B7Z1BG28BE66SB72X?6UUB96T?6UU L033E42,E18E22,E27E35,04004010400080 NQ1ZQ6XB|8T?6UENQ1ZBE06B000HF32VE97A8V1L039E81,E50E58,E62E66,E70E7410400081 B72XB96TNQ1ZQ6XB60ZVF29B7Z1BG28BE82S L036F17,E86E90,E97F01,F09F1310400082 H089912,?7YB000HF88VF53A8V1B|8TNQ1Z L035F52,F25F29,F33F37,F45F4910400083 B60ZVF85B7Z1BG28BF45SH089912,?7YB000 L036F88,F57F65,F69F74,F81F8510400084 HG27PQ8WY00DDHG35HG49#A8YG35 L028G16,F93G00,G01G02,G06G1010400085 YG17G34B000HG53M000A8ZQG46C000000B000 L037G53,G24G28,G32G39,G43G5010400086 HH87VH76?7X1B55TVH84B7Z1MA0/?8|BT8V L035G88,G58G66,G70G78,G8504010400087 VH88B7Z1B72XBH25?6VXB86S?6/FB82V?6|D L036H24,G97H01,H09H17,04004010400088 VH84B7Z1BW8Y?6STNQ4TM?8|?6TB/9Y?6/F L035H59,H33H41,H45H52,04004010400089 B/3X?6|DBT8VBH25)?7XBI62B000)B7Z L032H91,H68H72,H76H80,H84H8810400090 VI04?7Y1BH84B60ZM991906B72XB96TNQ1ZQ6X L038I29,I00I04,I08I15,I19I2310400091 )B7ZBH84HI61BG54VW8YB7Z1NQ4TB000 L032I61,I34I38,I42I46,I54I5810400092 H19XBS4VBT8VV19|B7Z1B/9YHP7|010M%U40|0RL03900|,I66I70,I74I82,I86I9310400093 BI86KCR6V0X9BI86/BS4VC909A9SB03YSBT1V L03703X,00W01T,01Y02S,02Z03U10400094 M?8SR2VH05YR0VW06Y000}H05YB05SH08Y001 L03707U,04V05S,06|06U,06Y04010400095 #05Y08YPR0V000DH13|H13TMA0/#A9V13T L03410Y,08S08Z,09|09U,09Y10S10400096 #08413TMA0/0Y3M0Y3M000000,0U0MR5X0X1 L03614U,11W12T,12X13U,13Y04010400097 )0U0M?8SB72XM0Y3R6ZB/9YM?8|22VB96T L03417Y,14Z15T,15X16U,16Y17V10400098 N22/Q4TBI66)B7ZB000 L02820W,18W19|,19U19Y,20/20U10400099 22WY81 O81O81 %U4 L02022W,21|21T,21W21Z,22U04010400100 H094001B24Z?6X M?6X094B41/0940U%U3M/332L03926V,23U24S,24Z25X,26S04010400101 /H089002V37X?VX1U%U3R)A9WF1HP7|010 L03429Z,26X27U,28S28X,29/29T10400102 M%U3201RB37XKBN9TLB29T2Y5XMA9Z287 L03333S,30Y31T,31Y32W,04004010400103 V36XA9W1M284826HB3U000B91U,A9WB29T2 L03536X,34/34Y,35V35Z,36T36X10400104 B91U@B29T#B0S089B27U0880#B0S094B41/0940L03940W,37T37X,38U39S,39Z04010400105 B26SV42TQ8S1B42YU%U1UV44|?4X1B44VU%U2U L03844U,41/41Z,42T42Y,43W44|10400106 /332/MB1S250F12FL/199 L02146V,44Z45|,45X45Z,46|46S10400107 4.46X L00547|,46X040,040040,04004010400108 H54ZLC5/188M?6SMML0Y3B50X?8|U L02949Z,47V48S,48W48X,48Y49S10400109 MB1T186B51Y?6W 4K4B54W?6X0HP7|002 L03353S,50X51V,51W51Y,52W04010400110 M%U3101WBN9TL/000199H60YMB1U?8|MB1Y0Y3 L03857|,54/54W,55T55X,56U04010400111 HU5UHS3/BT8VMB1U?6TB/9YHU5UR6VHS3/ L03460U,57V57Z,58T59|,59U60/10400112 B000H72WH089827V69W?7Y1,B7ZV72TB2|1 L03563Z,60Z61T,62|62Y,63S04010400113 M910995V66TQ8S1BV1SNQ1Z,B7ZHP7|010 L03467T,64X65V,65Z66T,66X04010400114 M%U1827RB69/K)B7ZBN9TLBS4V910UBT1V910B L03871/,68S68X,69/69W,70U04010400115 )?7YLB7ZB2|B000H82UC0X9B2YB75|/M?7W0X9 L03874Z,71W72T,72X73/,73Y74T10400116 M?8|0Y3B81X?6SXB81X?6VXV79X?4X1,B7ZBW8YL03978Y,75X76V,77T78/,78V04010400117 NQ4T)B7ZHP7|002M%U20|0WBN9TLB47/B000 L03682U,79T79X,80U81S,81X82/10400118 H86/MB1U?6TH/6|0X9B/3X?6V H/6|R6VB000 L03786/,82Z83W,84T85/,85Y04010400119 H89UMB1U?6TM0Y3826HB3U000B91UB000H91T L03789Y,86W87T,88|88X,89/89V10400120 MA0/?4VM?4VB000H96/AB3/B3U/332/ L03192Z,90W91|,91U91Y,92V92Z10400121 ZB3U298MB3Y294M826284F12/299F000L L03396S,93X94U,95/95T,95U95Y10400122 HW6|H99/H|3S003#99/|3SHY0T000BX8SBM9/ L03799Z,96X97/,97Y98V,99S99W10400123 BJ5WMB8X|1UH0000?0H|4XHN9SHY0T000BX8S L037|3W,|0U|1/,|1Y|2S,|2W|3T10400124 BN3|H099000V|6UB7Z1BK6XB98V)0?0MN8T099 L038|7U,|4/|4Y,|5W|6|,|6U|6Y10400125 BK6XBW5|HW6|HY0TBX8SBM9/BJ5W L028/0S,|7Z|8T,|8X|9/,|9V|9Z10400126 V/1VB7Z1B|9ZMB8X/2VH0000?0HN9SBW5| L034/3W,/1//1V,/2S/2Z,/3T04010400127 H/8/V/8TB7Z1B/6Y?6TBLR6V1804/7YM?4V580BL039/7V,/4//4Z,/5X/6U,/6Y04010400128 4CK0008/180M?8/1014/7YHS3ZVS4|B7Z1 L034S0Z,/7Y/8T,/8X/9U,/9YS0S10400129 BS3W?6TBB91U@/332/MR6V2802B000 L030S3Z,S1YS2T,S2XS2Y,S3VS3W10400130 FS3W1HT1UBT1/?8|U)B8YMB1U?8|MB1UQ8U L035S7U,S4VS4Z,S5XS6/,S6Y04010400131 MB1U?4ZHQ1T080HQ3X080BT1/?6Y HQ4|Z61 L036T1|,S8SS8Z,S9WT0U,04004010400132 B000HT8UBT8/?8|B)B8YMB3Z?8|MB3ZQ8U L034T4U,T1VT1Z,T2XT3/,T3Y04010400133 MB3Z?4ZHQ1T160HQ3X160BT8/?6Y HQ4|!41 L036T8|,T5ST5Z,T6WT7U,04004010400134 B000HU8S)B7ZBV0UAVU0Y?7Z11C)?7Z L031U1/,T8VT8Z,T9TT9Y,U0WU0Y10400135 WU2Y401}BV0U5016BU5Z5015BU8U?8|BBS4V L036U4X,U2|U2Y,U3WU4U,04004010400136 M080R6VBU7ZBU8U?8|UBT1VM580?4VAK0001 L036U8T,U5VU5Z,U6XU7/,U7Z04010400137 /332/MB7|2502P7/BU0W,B7ZBU7Z L028V1/,U8YU8Z,U9WV0|,V0UV0Y10400138 HW6|HY0T)B7ZBX8SBM9/BV5VBJ5W L028V3Z,V1WV2|,V2UV2Y,V3SV3W10400139 VW3SB7Z1MN8T099CC5/0?0BV3WS#N8W099 L034V7T,V4YV5V,V6SV6X,04004010400140 HW3/0?0#B0S099HW0YQ8V#N8WW0YM0?0000Q099L039W1S,V8/V8Y,V9VW0S,W0Z04010400141 CC5/0?1BW6/SH099000MB8XW4SH0000?0HN9S L037W4Z,W2|W2V,W3SW3Z,W4W04010400142 H099000B000/332/MB7X2502P7/H0990?1 L034W8T,W5XW6/,W6VW6W,W7TW7X10400143 BV3WHW6|HY0TBX8SBN3|VX6XB7ZT,Q8W L032X1V,W8YW9S,W9WX0|,X0UX1S10400144 HX4U#N8WX4U#N8W099#B0S099M0000?0H0990?1L039X5U,X2|X2X,X3UX4/,X4Y04010400145 C099N8ZBX7//BK6XLB8/B7ZBW3S L027X8/,X6SX6X,X7/X7Y,04004010400146 HY8XHW5W0?0#B8UY0TM000B8XCB8XB9|BY7XS L037Y1Y,X8WX9T,Y0|Y0X,Y1U04010400147 LB8XB9|MB8XY3WM000N9SMMMM L025Y4T,Y2WY3T,Y4|Y4/,Y4SY4T10400148 MMMMN8|Y5XM000N8|QN0/HN0W L025Y6Y,Y4VY4W,Y4XY5U,Y6/Y6V10400149 HN4|HN4VMN9S099B000H!0YVZ1W0001DN8|Z1| L038Z0W,Y7TY7X,Y8UY8Y,Y9SZ0|10400150 U%U0R)000B!0VN7X MN8TZ4VDHP7|010 L032Z3Y,Z1SZ1W,Z2UZ3/,Z3S04010400151 M%U0000RMB8/HZ7UH!4UBN9TLMN7XZ7XC000000L039Z7X,Z4XZ5/,Z5VZ5Z,Z6UZ7/10400152 B!0Z/B!0VN7U MN7U!0U#B3/000B000/332/ L036!1T,Z8TZ9/,Z9Y!0V,!0Z!1T10400153 MB9Z2502MN7X!3SM000290MC0U2M000290 L034!4X,!2/!2S,!2Z!3W,!4|!4/10400154 MC0Z2P7/BZ8THJ5VV!8Y0001DN8|!8SU%U0R L036!8T,!5S!5W,!6|!6U,!7S!7Z10400155 )000BJ5SN7X DN8|J2|MN7XJ2THP7|002 L033J1W,!8Y!9W,J0TJ1|,04004010400156 M%U0000WBN9TLBJ5SN7U MN7UJ5/#B3/000B000L039J5V,J2VJ3|,J3YJ4V,J5S04010400157 HK6W)0?0MN8ZJ7XLC5/000MN8TJ9SMM%U0000R L038J9T,J6|J6U,J7/J7Y,J8VJ8W10400158 MA0/H099LC5/HK3YBK5ZKBN9TLBK6TN7/ L034K2X,J9YK0S,K0WK1|,K1VK2|10400159 MN7/K4/C000000BK6T/BL7UBY8YBJ6|,B7Z L035K6S,K3VK4S,K4XK5/,K5VK5Z10400160 B000HL4VC099N8TBL3USLC5/0?0MN8TL1/M L035K9X,K6XK7/,K7YK8T,K9|K9X10400161 HP7|002M%U0000WBL6SKBN9TL)0?0MN8T099 L036L3T,L0VL1T,L1YL2T,L2X04010400162 VL4WB7Z1B000DN8|L5WU%U0MBL4SBM1SB!6| L036L6Z,L4SL4W,L5TL5Y,L6SL6W10400163 BL0VHM1|/332/DN8|250MC1X2 L025L9U,L7UL7Y,L8SL8T,L9|L9U10400164 DN8|M0VU%U0UF000LHM9|DN8|M2WU%U0B L033M2X,M0SM0X,M1SM1W,M2T04010400165 BM7/N7/ MMN7/M6UMN8|M6/HP7|002M%U0000W L038M6V,M3WM3X,M4UM5/,M5Y04010400166 BN9TLDN8|M8/U%U0MBL7UB000HN2ZVN2W0001 L037N0S,M7/M7Y,M8TM8X,M9/M9V10400167 ,000HY9YHZ1VBY8YMN8ZN9SB000HN6Y L031N3T,N0XN1/,N1VN1Z,N2WN3|10400168 VN6V0001,000H!7|H!8XB!6|MN8TN9SB000 L035N6Y,N4SN4W,N5|N5U,N5YN6V10400169 L021N8Z,N7SN7V,N7YN8/,N8UN8X10400170 L003N9S,040040,040040,04004010400171 HP5|HO0XBO2/000%HO0XHO2UBO0/)000 L032O2U,N9XO0/,O0ZO1T,O1XO2/10400172 QO4XHO8SHP4W#C2|O4XM000P6XM#B0SP7| L034O5Y,O2ZO3T,O3XO4U,O5/O5S10400173 BO8TP6YIDP6TO7XU%U0BB000#C2TP4W/332/ L036O9U,O6XO7U,O7ZO8T,O9|O9U10400174 MP6T250MMP6X2P7/BP4XP6XRDP6TP2ZU%U0B L036P3|,P0SP0T,P0XP1/,P1ZP2W10400175 DP6TP4/U%U0EB000B000 CHK, TP L037P6X,P3YP4T,P4XP5/,P6|P6X10400176 HP9V/332/FLMC5|2502 L022P8Z,P7/P7V,P7ZP8|,P8SP8Z10400177 FL.000 L006P9V,P9S040,040040,04004010400178 Q7Z699741Q8V997 X97 L021Q1W,P9ZQ0S,Q0VQ0Y,Q1/Q1U10400179 X97Q6Y618581?5|Y81 L021Q3X,Q2|Q2T,Q2WQ2Z,Q3SQ3V10400180 O81Y81Q6Y618581?5|997 L021Q5Y,Q4/Q4U,Q4XQ5|,Q5TQ5W10400181 X97997END OF REEL} %U1 L027Q8V,Q6SQ6V,Q6YQ8T,Q8W04010400182 %U2 %U3C L011?5W)?4W?4W,?4Y?5T,?5W?5X10400183 XXT L005?6U,?5Y?5Z,?6/?6S,?6T?6U10400184 L014?7Y,?6W?6X,?6Y?6Z,?7X?7Y10400185 {|INSERTDELETE L019?9X,?8|?8/,?8S?8T,?8Z?9V10400186 081 TAPEAFTERDIRECTLY L021A1Y,A0/A0S,A0WA1/,04004010400187 ILLEGAL CONTROL CARD L020A3Y,040040,040040,04004010400188 FILE UNKNOWN OR REQUEST OUT OF ORDER L036A7U,040040,040040,04004010400189 INSERT EOF K0A BCD L018A9S,A8/A8S,A8VA8W,A8ZA9|10400190 /1M I9IEND OF JOBXU L022B1U,A9WA9X,B0|B0T,B1TB1U10400191 001 PAGEB L025B3Z,B1ZB2/,B2ZB3S,B3VB3Z10400192 MODE ERR. CD IN @@NR@@ IGNORED.BAD RCD L038B7X,B7/040,040040,04004010400193 003 LABEL ERRTEST- L027C0U,B8|B8S,B8VB8Y,B9/C0|10400194 TAPE-EOR, TP 007I9C L019C2T,C1|C1Y,C2/040,04004010400195 TO IGNORE ERROR, PUSH START} L028C5/,C5/040,040040,04004010400196 /465080 0197 { 1401 DEMO MUSIC | 08/01/67 ,008015,019026,030,034041,045,053,0570571026 0001DWYER L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002DWYER ,008015,022029,036040,047054,061068,072/061039 ,00100110400003DWYER ,201F1M516332M332222 L020352,339346,337350,35135210400004DWYER 2222222 L007359,354355,356357,35835910400005DWYER FLFLFLM517332M332M5602882 L025384,362364,366373,37738410400006DWYER M603288FS2M517332M332M616273FS L030414,392394,395402,40641310400007DWYER 2M517332M332M627272FS2M639273 L029443,416423,427434,43643710400008DWYER FT2M656275FS2M675277FS L022465,446447,454456,45746410400009DWYER 2M704287FS2FLFLFL L017482,467474,476477,47948110400010DWYER M516332M33222222 L016498,490494,495496,49749810400011DWYER 22222/080,001 L013511,500501,502503,50450810400012DWYER 1001* L006517,516517,040040,04004010400013DWYER I B M 1 4 0 1 P R I N T E R M U SL039556,040040,040040,04004010400014DWYER I C L004560)557557B068 10400015DWYER ---------------------------------------L039599,040040,040040,04004010400016DWYER ---- L004603)600600B068 10400017DWYER PROGRAMMED BY L013616,040040,040040,04004010400018DWYER J. B. DWYER L011627,040040,040040,04004010400019DWYER I B M CORP. L012639,040040,040040,04004010400020DWYER 1. ANCHORS AWEIGH L017656,040040,040040,04004010400021DWYER 2. THE MARINES HYMN L019675,040040,040040,04004010400022DWYER 3. BEETHOVEN - NINTH SYMPHONY L029704,040040,040040,04004010400023DWYER /333080 0024DWYER ,008015,019026,030,034041,045,053,0570571026 0001DWYER L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002DWYER ,008015,022029,036040,047054,061068,072/061039 ,00100110400003DWYER 0 L001001,335467,599731,86399510400004DWYER /332/ L005X91,/27S59,T91V23,W55X9110400005DWYER F1,0012011M0664661M0664001 L026Y17,X94Y01,Y02Y09,Y10Y1710400006DWYER M0665981M0665321M0667301M066664 L031Y48,Y25Y26,Y33Y34,Y41Y4210400007DWYER 1M0668621M0667961M0669941 L025Y73,Y50Y57,Y58Y65,Y66Y7310400008DWYER M0669281M066/261M066|601M066S58 L031Z04,Y81Y82,Y89Y90,Y97Y9810400009DWYER 1M066/921M066T901M066T241 L025Z29,Z06Z13,Z14Z21,Z22Z2910400010DWYER M066V221M066U561M066W541M066V88 L031Z60,Z37Z38,Z45Z46,Z53Z5410400011DWYER 1M066X861M066X20BL10AZ81L07CL07L08 L034Z94,Z62Z69,Z70Z77,Z81Z8810400012DWYER BL10/F1ML09L07.L1022FJ L022!16,!00!02,!09!13,!14!1510400013DWYER FJB0|02222FJ L012!28,!19!23,!24!25,!26!2710400014DWYER FJFJFJB0|0222 L013!41,!31!33,!35!39,!40!4110400015DWYER 222222FJ L008!49,!43!44,!45!46,!47!4810400016DWYER FJFJB0|02222 L012!61,!52!54,!58!59,!60!6110400017DWYER 2222222 L007!68,!63!64,!65!66,!67!6810400018DWYER 222FJFJB0|02 L012!80,!70!71,!72!74,!76!8010400019DWYER 2222222 L007!87,!82!83,!84!85,!86!8710400020DWYER 2222222 L007!94,!89!90,!91!92,!93!9410400021DWYER 222FJFJFJFJ L011J05,!96!97,!98J00,J02J0410400022DWYER FJFJB0|022FJB0|0 L016J21,J08J10,J14J15,J16J1810400023DWYER 2FJB0|02222 L011J32,J23J25,J29J30,J31J3210400024DWYER 222FJB0|0H089M466332 L020J52,J34J35,J36J38,J42J4610400025DWYER B0!0H089M598332B0!0H089M730332B0!0 L034J86,J57J61,J68J72,J76J8310400026DWYER H089M862332B0!0H089M994332B0!0H089 L034K20,J91J98,K02K06,K13K1710400027DWYER M/26332B0!0H089MS58332B0!0H089MT90332 L037K57,K28K32,K36K43,K47K5110400028DWYER B0!0H089MV22332B0!0H089MW54332B0!0 L034K91,K62K66,K73K77,K81K8810400029DWYER H089MX86332B0!0 30MP28094 L025L16,K96L03,L07L08,L09L1010400030DWYER BJ42MP31094BJ72BK02MP34094BK17MP37094 L037L53,L21L28,L32L36,L43L4710400031DWYER BJ72MP40094BK17BK47MP43094BK62BK02 L034L87,L58L65,L69L73,L80L8410400032DWYER MP46094BK47MP49094BK17MP52094BK47BK17 L037M24,L95L99,M06M10,M17M2110400033DWYER BK02BK17BK32BK47BJ87BK17BK62 L028M52,M29M33,M37M41,M45M4910400034DWYER BK47BK32BK02BK92BJ57MP55094BJ42 L031M83,M57M61,M65M69,M73M8010400035DWYER MP58094BJ72BK02MP61094BK17MP64094BJ72 L037N20,M91M95,M99N06,N10N1710400036DWYER MP67094BK17BK47MP70094BK62BK02MP73094 L037N57,N28N32,N36N43,N47N5110400037DWYER BK47MP76094BK17MP79094BK47BK17BK02 L034N91,N62N69,N73N80,N84N8810400038DWYER BK17BK32BK47MP82094BJ72MP85094BK77 L034O25,N96O00,O04O11,O15O2210400039DWYER MP88094BK02MP91094BJ87BK02MP94094BK62 L037O62,O33O37,O44O48,O52O5910400040DWYER MP97094BK77MQ00094BK02MQ03094BJ87BK02 L037O99,O70O74,O81O85,O92O9610400041DWYER MQ06094BK47MQ09094BK77BZ81!39!23 L032P31,P07P11,P18P22,P26P2910400042DWYER J29!13!39!23!80!39!23 L021P52,P35P38,P41P44,P47P5010400043DWYER !39!23J29!13!39!23!80 L021P73,P56P59,P62P65,P68P7110400044DWYER !39!23J14J22J22!13J14 L021P94,P77P80,P83P86,P89P9210400045DWYER J22J22!13!58!23 L015Q09,P98Q01,Q04Q07,04004010400046DWYER BI86 AAW01 L004!12,040040,040040,0400401040 DWYER 1 AAW01 L001L08,040040,040040,0400401040 DWYER /080,0011001 AAW01 L012I97,I90I94,I98040,0400401040 DWYER /X87080 0047DWYER )XB M # 1 Y 0 E 00262C3 *2 A8L V* I M W LC0 00262C3 *1 I Y C TQ 5 N ) Z 00294D3 *2 A 8 LH 3 | E V B 9 R 4Z 00294D3 *1 B $ S D X G % ) N 5 Q 00330E3 *2 A */ C W HZ 1 M 4 R O 9 00330E3 *1 O F Z S E 7Q J 4 W I B V N 00370F#3 *2 A U G 9 * N6 YI B X P 0 3 00370F#3 *1 A QJ Y T8 3 7) G N B % 00392G3 *2 A & E *N| V0 S 92 I DR 00392G3 *1 Z G S P 5 | E V * 5 L & T A 00440A3 *2 A 6 JI F W $ 6# O 1Z WB 9 KP 2 00440A3 *1 9 Z |2H IJ5 6)M N 3 4Q 7$ 00494B3 *2 A 0 Q R/ *U V#C DYS TG W& 00494B3 *1 I XO0 6VMC 7 TKA) H%$ 9Y 00523C4 *2 A)# R 71 DYP LBW@ 3 IJ 0B J Q 00523C4 *1 6 ?7 J G2 Q 47 E 7O 0 8C LG 4 00587D4 *2 A 7 JH GS Q3 2Z E@ #O X 2W C 9M & $ W 00587D4 *1 REST *2 REST *1 1L K BG | EB $ 5 JN F3 *2 A & F O X7 D 8Z # T WP F3 *1 ,008015,019026,030,034041,045,053,0570571026 0001 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 0 L001001,335467,599731,86399510400004 /332/ L005X91,/27S59,T91V23,W55X9110400005 ,0012011M0664661M0664001M066598 L031Y22,X99Y00,Y07Y08,Y15Y1610400006 1M0665321M0667301M0666641 L025Y47,Y24Y31,Y32Y39,Y40Y4710400007 M0668621M0667961M0669941M066928 L031Y78,Y55Y56,Y63Y64,Y71Y7210400008 1M066/261M066|601M066S581 L025Z03,Y80Y87,Y88Y95,Y96Z0310400009 M066/921M066T901M066T241M066V22 L031Z34,Z11Z12,Z19Z20,Z27Z2810400010 1M066U561M066W541M066V881 L025Z59,Z36Z43,Z44Z51,Z52Z5910400011 M066X861M066X20F1BL15AZ81L12CL12L13 L035Z94,Z67Z68,Z75Z77,Z81Z8810400012 BL15/F1ML14L12.L152FJB0|0 L025!19,!00!02,!09!13,!14!1610400013 22FJFJB0|022 L012!31,!21!22,!24!26,!30!3110400014 2FJFJFJB0|022 L013!44,!33!35,!37!39,!43!4410400015 22FJFJFJFJB0|0 L014!58,!46!47,!49!51,!53!5510400016 2222222 L007!65,!60!61,!62!63,!64!6510400017 FJB0|022222 L011!76,!68!72,!73!74,!75!7610400018 2222FJFJFJ L010!86,!78!79,!80!81,!83!8510400019 B0|0222222 L010!96,!91!92,!93!94,!95!9610400020 2222222 L007J03,!98!99,J00J01,J02J0310400021 2FJFJB0|0222 L012J15,J05J07,J09J13,J14J1510400022 2222222 L007J22,J17J18,J19J20,J21J2210400023 2222222 L007J29,J24J25,J26J27,J28J2910400024 2FJFJFJFJFJFJ L013J42,J31J33,J35J37,J39J4110400025 B0|0H089M466332B0!0H089M598332B0!0 L034J76,J47J51,J58J62,J66J7310400026 H089M730332B0!0H089M862332B0!0H089 L034K10,J81J88,J92J96,K03K0710400027 M994332B0!0H089M/26332B0!0H089MS58332 L037K47,K18K22,K26K33,K37K4110400028 B0!0H089MT90332B0!0H089MV22332B0!0 L034K81,K52K56,K63K67,K71K7810400029 H089MW54332B0!0H089MX86332B0!0 L031L12,K86K93,K97L01,L08L1210400030 30M?43094BJ47BJ77M?46094BK07 L028L40,L14L15,L22L26,L30L3710400031 BK07BK07BK07M?49094BK07M?52094BK52 L034L74,L45L49,L53L60,L64L7110400032 M?55094BK07M?58094BJ77BK97M?61094BK07 L037M11,L82L86,L93L97,M01M0810400033 BK07M?64094BK97M?67094BJ62M?70094BJ47 L037M48,M16M23,M27M34,M38M4510400034 M?94094BJ47BJ77M?76094BK07BK07BK07 L034M82,M56M60,M64M71,M75M7910400035 BK07M?79094BK07M?82094BK52M?85094BK07 L037N19,M87M94,M98N05,N09N1610400036 M?88094BJ77BK97M?91094BK07BK07M?94094 L037N56,N27N31,N35N42,N46N5010400037 BK97M?97094BJ62MA00094BJ47MA03094BK52 L037N93,N61N68,N72N79,N83N9010400038 BK37MA06094BK22BK97BK22BK52MA09094 L034O27,N98O05,O09O13,O17O2110400039 BK07MA12094BJ77MA15094BK07MA18094BK52 L037O64,O32O39,O43O50,O54O6110400040 BK37MA21094BK22BK97M?94094BK22MA27094 L037P01,O69O76,O80O84,O91O9510400041 BK52MA30094BK07MA33094BJ47BJ77MA36094 L037P38,P06P13,P17P24,P28P3210400042 BK07BK07BK07BK07MA39094BK07MA42094 L034P72,P43P47,P51P55,P62P6610400043 BK52MA45094BK07MA48094BJ77BK97MA51094 L037Q09,P77P84,P88P95,P99Q0310400044 BK07BK07BK97BJ62MA54094BJ47MA57094 L034Q43,Q14Q18,Q22Q26,Q33Q3710400045 BJ47MA60094BK82MA63094BK82MA66094BK82 L037Q80,Q48Q55,Q59Q66,Q70Q7710400046 MA69094BK97BK97BK97MA72094BK82MA75094 L037R17,Q88Q92,Q96R00,R07R1110400047 BK82MA78094BK97BK97BK97MA81094BK82 L034R51,R22R29,R33R37,R41R4810400048 MA84094BK82MA87094BK97BK97BK97MA90094 L037R88,R59R63,R70R74,R78R8210400049 BK82MA93094BK97MA96094BK82MA99094BK97 L037?25,R93?00,?04?11,?15?2210400050 MB02094BK82BZ81!20!43!59!20 L027?52,?33?37,?41?44,?47?5010400051 !43!20!43!20!59!91!30 L021?73,?56?59,?62?65,?68?7110400052 !43!59!20!43!20!43!20 L021?94,?77?80,?83?86,?89?9210400053 !59!91!20!43!59!20!43 L021A15,?98A01,A04A07,A10A1310400054 !20!43!30!59!91!20!43 L021A36,A19A22,A25A28,A31A3410400055 !59!20!43!20!43!91!13 L021A57,A40A43,A46A49,A52A5510400056 !30!91!20!13!30!20!13 L021A78,A61A64,A67A70,A73A7610400057 !30!20!13!30!13!30!13 L021A99,A82A85,A88A91,A94A9710400058 !30 L003B02,040040,040040,04004010400059 BI86 MRH01 L004!12,040040,040040,0400401040 DWYER 1 MRH01 L001L13,040040,040040,0400401040 DWYER /080,0011001 MRH01 L012I97,I90I94,I98040,0400401040 DWYER /X87080 0060 )XB M # 1 Y 0 E 00262C3 *2 A8L V* I M W LC0 00262C3 *1 I Y C TQ 5 N ) Z 00294D3 *2 A 8 LH 3 | E V B 9 R 4Z 00294D3 *1 B $ S D X G % ) N 5 Q 00330E3 *2 A */ C W HZ 1 M 4 R O 9 00330E3 *1 O F Z S E 7Q J 4 W I B V N 00370F#3 *2 A U G 9 * N6 YI B X P 0 3 00370F#3 *1 A QJ Y T8 3 7) G N B % 00392G3 *2 A & E *N| V0 S 92 I DR 00392G3 *1 Z G S P 5 | E V * 5 L & T A 00440A3 *2 A 6 JI F W $ 6# O 1Z WB 9 KP 2 00440A3 *1 9 Z |2H IJ5 6)M N 3 4Q 7$ 00494B3 *2 A 0 Q R/ *U V#C DYS TG W& 00494B3 *1 I XO0 6VMC 7 TKA) H%$ 9Y 00523C4 *2 A)# R 71 DYP LBW@ 3 IJ 0B J Q 00523C4 *1 6 ?7 J G2 Q 47 E 7O 0 8C LG 4 00587D4 *2 A 7 JH GS Q3 2Z E@ #O X 2W C 9M & $ W 00587D4 *1 REST *2 REST *1 1L K BG | EB $ 5 JN F3 *2 A & F O X7 D 8Z # T WP F3 *1 ,008015,019026,030,034041,045,053,0570571026 0001DWYER L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002DWYER ,008015,022029,036040,047054,061068,072/061039 ,00100110400003DWYER 0 L001001,335467,599731,86399510400004DWYER /332/ L005X91,/27S59,T91V23,W55X9110400005DWYER ,0012011M0664661M0664001M066598 L031Y22,X99Y00,Y07Y08,Y15Y1610400006DWYER 1M0665321M0667301M0666641 L025Y47,Y24Y31,Y32Y39,Y40Y4710400007DWYER M0668621M0667961M0669941M066928 L031Y78,Y55Y56,Y63Y64,Y71Y7210400008DWYER 1M066/261M066|601M066S581 L025Z03,Y80Y87,Y88Y95,Y96Z0310400009DWYER M066/921M066T901M066T241M066V22 L031Z34,Z11Z12,Z19Z20,Z27Z2810400010DWYER 1M066U561M066W541M066V881 L025Z59,Z36Z43,Z44Z51,Z52Z5910400011DWYER M066X861M066X20F1BL13AZ81L10CL10L11 L035Z94,Z67Z68,Z75Z77,Z81Z8810400012DWYER BL13/ML12L10BR252FJB0|02 L024!18,!00!07,!11!12,!14!1810400013DWYER 2FJFJB0|0222 L012!30,!20!22,!24!28,!29!3010400014DWYER FJFJFJB0|0222 L013!43,!33!35,!37!41,!42!4310400015DWYER 2FJFJFJFJB0|02 L014!57,!45!47,!49!51,!53!5710400016DWYER 222222FJ L008!65,!59!60,!61!62,!63!6410400017DWYER B0|0222222 L010!75,!70!71,!72!73,!74!7510400018DWYER 222FJFJFJB0|0 L013!88,!77!78,!79!81,!83!8510400019DWYER 2222222 L007!95,!90!91,!92!93,!94!9510400020DWYER 2222222 L007J02,!97!98,!99J00,J01J0210400021DWYER FJFJB0|02222 L012J14,J05J07,J11J12,J13J1410400022DWYER 2222222 L007J21,J16J17,J18J19,J20J2110400023DWYER 2222222 L007J28,J23J24,J25J26,J27J2810400024DWYER FJFJFJFJFJFJB0|0 L016J44,J31J33,J35J37,J39J4110400025DWYER H089M466332B0!0H089M598332B0!0H089 L034J78,J49J56,J60J64,J71J7510400026DWYER M730332B0!0H089M862332B0!0H089M994332 L037K15,J86J90,J94K01,K05K0910400027DWYER B0!0H089M/26332B0!0H089MS58332B0!0 L034K49,K20K24,K31K35,K39K4610400028DWYER H089MT90332B0!0H089MV22332B0!0H089 L034K83,K54K61,K65K69,K76K8010400029DWYER MW54332B0!0H089MX86332B0!0 2 L028L11,K91K95,K99L06,L10L1110400030DWYER 0M?88094BB34BK35BK50BK65BK65 L028L39,L13L20,L24L28,L32L3610400031DWYER BK50BK35BK20BK05BK05BK20BK35 L028L67,L44L48,L52L56,L60L6410400032DWYER M?91094BK35M?94094BK20M?97094BK20 L033M00,L75L79,L86L90,L9704010400033DWYER MA00094BK80MA03094BK35BK35BK50BK65 L034M34,M08M12,M19M23,M27M3110400034DWYER BK65BK50BK35BK20BK05BK05BK20 L028M62,M39M43,M47M51,M55M5910400035DWYER BK35MA06094BK20MA09094BK05MA12094BK05 L037M99,M67M74,M78M85,M89M9610400036DWYER MA15094BK80MA18094BK20BK20BK35BK05 L034N33,N07N11,N18N22,N26N3010400037DWYER BK20MA21094BK35BK50MA24094BK35BK05 L034N67,N38N45,N49N53,N60N6410400038DWYER BK20MA27094BK35BK50MA30094BK35BK20 L034O01,N72N79,N83N87,N94N9810400039DWYER BK05BK20BJ60MA33094BK35MA36094BB10 L034O35,O06O10,O14O21,O25O3210400040DWYER BK65BK65BK50BK35BK20BK05BK05 L028O63,O40O44,O48O52,O56O6010400041DWYER BK20BK35MA39094BK20MA42094BK05MA45094 L037P00,O68O72,O79O83,O90O9410400042DWYER BK05MA48094BK80MA51094BK20BK20BK35 L034P34,P05P12,P16P23,P27P3110400043DWYER BK05BK20MA54094BK35BK50MA57094BK35 L034P68,P39P43,P50P54,P58P6510400044DWYER BK05BK20MA60094BK35BK50MA63094BK35 L034Q02,P73P77,P84P88,P92P9910400045DWYER BK20BK05BK20BJ60MA66094BK35MA69094 L034Q36,Q07Q11,Q15Q19,Q26Q3010400046DWYER BB22BK65BK65BK50BK35BK20BK05 L028Q64,Q41Q45,Q49Q53,Q57Q6110400047DWYER BK05BK20BK35MA72094BK20MA75094BK05 L034Q98,Q69Q73,Q77Q84,Q88Q9510400048DWYER MA78094BK05NA81094NK80BZ81BB46 BK50 L037R35,R06R10,R17R21,R25R3210400049DWYER MA87094BK35MA90094BK35BK05MA93094BK95 L037R72,R43R47,R54R58,R62R6910400050DWYER MA96094BJ75MA99094BJ75MB02094BK50BK20 L037?09,R80R84,R91R95,?02?0610400051DWYER BK05BJ90BK20BJ90BJ75BJ60BJ75 L028?37,?14?18,?22?26,?30?3410400052DWYER BJ90BK05BK35BK20BJ90MB05094BK05 L031?68,?42?46,?50?54,?58?6510400053DWYER MB08094BK80F1.L13!41!57!18 L026?94,?76?80,?82?86,?89?9210400054DWYER !57!18!41!57!18!57!18 L021A15,?98A01,A04A07,A10A1310400055DWYER !41!18!41!18!41!70!41 L021A36,A19A22,A25A28,A31A3410400056DWYER !57!18!57!18!41!18!41 L021A57,A40A43,A46A49,A52A5510400057DWYER !18!41!70!41!57!18!41 L021A78,A61A64,A67A70,A73A7610400058DWYER !18!57!18!41!57!18!41 L021A99,A82A85,A88A91,A94A9710400059DWYER !18!57!18 L009B08,B03B06,040040,04004010400060DWYER BK35BK50BO36BK35BK50BQ41BK80 L028B37,B14B18,B22B26,B30B341040 DWYER BK35BL24MA90094BK65MA84094BR32 L030B67,B38B42,B46B53,B57B641040 DWYER 1 BT901 L001L11,040040,040040,0400401040 DWYER /X87080 0061DWYER )XB M # 1 Y 0 E 00262C3 *2 A8L V* I M W LC0 00262C3 *1 I Y C TQ 5 N ) Z 00294D3 *2 A 8 LH 3 | E V B 9 R 4Z 00294D3 *1 B $ S D X G % ) N 5 Q 00330E3 *2 A */ C W HZ 1 M 4 R O 9 00330E3 *1 O F Z S E 7Q J 4 W I B V N 00370F#3 *2 A U G 9 * N6 YI B X P 0 3 00370F#3 *1 A QJ Y T8 3 7) G N B % 00392G3 *2 A & E *N| V0 S 92 I DR 00392G3 *1 Z G S P 5 | E V * 5 L & T A 00440A3 *2 A 6 JI F W $ 6# O 1Z WB 9 KP 2 00440A3 *1 9 Z |2H IJ5 6)M N 3 4Q 7$ 00494B3 *2 A 0 Q R/ *U V#C DYS TG W& 00494B3 *1 I XO0 6VMC 7 TKA) H%$ 9Y 00523C4 *2 A)# R 71 DYP LBW@ 3 IJ 0B J Q 00523C4 *1 6 ?7 J G2 Q 47 E 7O 0 8C LG 4 00587D4 *2 A 7 JH GS Q3 2Z E@ #O X 2W C 9M & $ W 00587D4 *1 REST *2 REST *1 1L K BG | EB $ 5 JN F3 *2 A & F O X7 D 8Z # T WP F3 *1 { 1401 DEMO RADIO | 08/01/67 ,008013N0000,020027,031035,039,043,050,054,058074,0771001 4000 CORE CLEAR 1 66 2 C038079B035/L073116,110106,105B101/I99,036A076038)036B001/0991,001/001116I00099 ,0080121001 ,0600671001 ,0740781060 L0192971060B139 A007080M080007B001007 L0191001060,001 A007080M080007B001007 L01910410601 A007080M080007B001007 L0191051060M080780 A007080M080007B001007 L0191121060,109 A007080M080007B001007 L0191161060A387111 A007080M080007B001007 L0191231060)109 A007080M080007B001007 L0191271060B139080Z A007080M080007B001007 L0191351060B104 A007080M080007B001007 L0191391060M702399 A007080M080007B001007 L0191471060,140 A007080M080007B001007 L0191511060A390142 A007080M080007B001007 L0191581060)140 A007080M080007B001007 L0191621060B302 A007080M080007B001007 L0191681060B180398Z A007080M080007B001007 L0191761060B207 A007080M080007B001007 L0191801060M393142 A007080M080007B001007 L0191871060B196B A007080M080007B001007 L0191921060B139 A007080M080007B001007 L0191961060M396111 A007080M080007B001007 L0192031060B104 A007080M080007B001007 L0192071060D398230 A007080M080007B001007 L0192141060D398237 A007080M080007B001007 L0192211060D398244 A007080M080007B001007 L0192281060M409259 A007080M080007B001007 L0192351060M409289 A007080M080007B001007 L0192421060M404599 A007080M080007B001007 L0192491060D399281 A007080M080007B001007 L0192561060,601 A007080M080007B001007 L0192601060M699699 A007080M080007B001007 L0192671060A599691 A007080M080007B001007 L0192741060B286687 A007080M080007B001007 L0192821060B260 A007080M080007B001007 L0192861060)601 A007080M080007B001007 L0192901060?397699 A007080M080007B001007 L0192971060B139 A007080M080007B001007 L0193011060. A007080M080007B001007 L0193021060B139399 A007080M080007B001007 L0193101060B168 A007080M080007B001007 L0033871060080 A004080M080004B001011 L0033901060002 A004080M080004B001011 L0033931060702 A004080M080004B001011 L0033961060780 A004080M080004B001011 L00139710600 A004080M080004B001011 L002399106000 A004080M080004B001011 L00440410600202 A004080M080004B001011 L0034091060621 A004080M080004B001011 L00441410600180 A004080M080004B001011 L00443410600152 A004080M080004B001011 L0034291060638 A004080M080004B001011 L0034191060630 A004080M080004B001011 L00442410600160 A004080M080004B001011 L0034391060642 A004080M080004B001011 L00444410600135 A004080M080004B001011 L0034491060649 A004080M080004B001011 L00445410600120 A004080M080004B001011 L0034591060654 A004080M080004B001011 L00446410600107 A004080M080004B001011 L0034691060659 A004080M080004B001011 L00447410600101 A004080M080004B001011 L0034791060662 A004080M080004B001011 L00448410600090 A004080M080004B001011 L0034891060666 A004080M080004B001011 L00449410600081 A004080M080004B001011 L0034991060670 A004080M080004B001011 L00150010600 A004080M080004B001011 L00160010600 A004080M080004B001011 /100080 02325131025232513102523251310232543202325131023232513102523251310202365252525252 74523252325232543252525252527452320201010202360232513102523251310252325131023254 320232513102523251310252325131020236 43737343513151725145413121314231224172715251627186437373435131517251454151315162 61727182819271827176 44212144214172625252421121321211213411316151426274027451314421013242524402745131 44210132221206 ZZ { 1401 DEMO TTT | 08/01/67 ,008015,022026,030037,044,049,053053N000000N00001026 0001 L068116,105106,110117B101/I9Z#071029C029056B026/B001/0991,001/001117I0?0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 00 L002096,087092,097040,04004010400004 00 L002091,040040,040040,04004010400005 L016116)101101,333334,33533610400006 L001001,337338,339340,34134210400007 L001001,343344,345346,34734810400008 L001001,349350,351352,35335410400009 L001001,355356,357358,35936010400010 L001001,361362,363364,36536610400011 L001001,367368,369370,37137210400012 } L001377,373374,375376,04004010400013 MA18543BL95B457B662BU14V4801101V4371111L039416,385389,393397,40140910400014 BZ86A213V4371091BJ48B662)109B457BO13 L036452,425433,437441,44544910400015 B385H479AA19A21B502A219B479AA19A24B509 L038490,457461,468476,48048710400016 MA25091B594AA19A28,105BO13MA30A21 L033523,498502,509513,51704010400017 MA30096MA30091/299/N378MA31543. L031554,531538,542543,54755410400018 B491A285B491A280B491A283B491A284MA32091L039593,563571,579587,04004010400019 ,112B662B457BO13BL95B457B662 L028621,598602,606610,61461810400020 BU14V4801101V6461111BJ48B662B457BO13 L036657,626634,642646,65065410400021 B610 L004661,040040,040040,04004010400022 HU13H094000V6891031,103BK57H099000 L034695,666673,681685,68904010400023 B7250910M091099?A333E0H099000B7540960 L037732,704711,718725,04004010400024 M096099?A343E0H099000?3E13O0A3E43O0 L035767,740747,754761,04004010400025 A3E73O0AA19099AA19094B8010943B754 L033800,775782,789797,04004010400026 H099000?3E13O0A3E23O0A3E33O0AA35099 L035835,808815,822829,04004010400027 AA19094B8550946B808H099000?3E13O0 L033868,843851,855862,04004010400028 A3E53O0A3E93O0AA19094?3E33O0A3E53O0 L035903,876883,890897,04004010400029 A3E73O0H094000B922 L018921,911918,040040,04004010400030 H089000V9451131,113BK94V9721121M096A37 L038959,929937,941945,95304010400031VA3 ,112B/91B991)112M091A37B/91B/73 L031990,964968,972976,98398710400032VA3 AA41089SA193W8AA19089SA193W8AA19089 L035|25,998|05,|12|19,04004010400033VA3 SA193W8MA38089SA193W8AA35089SA193W8 L035|60,|33|40,|47|54,04004010400034VA3 AA35089SA193W8B/19A371B/19A375B/19A379 L038|98,|68|75,|83|91,04004010400035VA3 B/52A373B/52A377B/73SA19368SA19372 L034/32,/07/15,/19/26,04004010400036VA3 SA19376B/52A375B/73SA19370SA19372 L033/65,/40/48,/52/59,04004010400037VA3 SA19374MA37089MA363W7BT01 L025/90,/73/80,/87040,04004010400038VA3 HS50MA37A38CA37A39BS51UCA37A25BS76U L035S25,/95S02,S09S14,S2104010400039CONV MA40A41SA25A38YA42A38B000MA42A41SA19A38L039S64,S33S40,S47S51,S5804010400040CONV YA42A38BS47MA35A41SA39A38YA42A38BS47 L036T00,S72S76,S83S90,S9704010400041CONV H099000VT401011,101BL48BT360965BT40,102L039T39,T08T16,T20T24,T32T3610400042 MA41099AA193D2AA43099AA193D2MA38099 L035T74,T47T54,T61T68,04004010400043 AA193D2AA40099AA193D2MA37099MA423D1BU13L039U13,T82T89,T96U03,U1004010400044 HV25H094000BV263O0KAA19094BU250930 L034U47,U18U25,U33U40,04004010400045 H094000BV303O0FAA19094BU550930H094000 L037U84,U55U63,U70U78,04004010400046 BV563O0IAA19094BU850930H094000)110111 L037V21,U93V00,V08V15,04004010400047 B000,110,111BV67AA19099M099091BV22 L034V55,V26V30,V34V38,V45V5210400048 MA632502V63 L011V66,V63040,040040,04004010400049 HW45H099000BW460940BW580941BW700942 L035W01,V71V78,V86V94,04004010400050FIND BW820943BW940944BX060945BX180946 L032W33,W10W18,W26040,04004010400051FIND BX410947B000BX86BY48BZ17BY02BY71 L032W65,W42W46,W50W54,W58W6210400052FIND BZ40BY25BY94BZ63BX86BY02BY25 L028W93,W70W74,W78W82,W86W9010400053FIND BY48BY71BY94BZ40BZ17BZ63BW423E10 L032X25,W98X02,X06X10,X14X1810400054FIND AA39099BX180980AA43099BW423E10AA43099 L037X62,X33X41,X48X56,04004010400055FIND BW423E10AA43099BW423E10HY01BW423E10B000L039Y01,X71X78,X86X90,X9804010400056FIND HY24H099001BW423E10B000HY47H099002 L034Y35,Y06Y13,Y21Y25,Y2904010400057FIND BW423E10B000HY70H099003BW423E10B000HY93L039Y74,Y44Y48,Y52Y59,Y67Y7110400058FIND H099004BW423E10B000HZ16H099005BW423E10 L038Z12,Y82Y90,Y94Y98,Z0504010400059FIND B000HZ39H099006BW423E10B000HZ62H099007 L038Z50,Z17Z21,Z28Z36,Z40Z4410400060FIND BW423E10B000HZ85H099008BW423E10B000 L035Z85,Z59Z63,Z67Z74,Z8204010400061FIND H!73)108109H099000V!741021BJ103D22 L034!19,Z90Z97,!04!12,04004010400062 AA43099BJ103D22B!620998AA39099BJ103D22 L038!57,!27!35,!43!50,04004010400063 B!20V!811081B!73MA40A66MA66099AA19099 L037!94,!62!70,!74!81,!8804010400064 M099091,109B!70HJ36VJ371081,108M099A66 L038J32,J02J06,J10J14,J22J2610400065 BJ36MA69A66B!81 L015J47,J37J44,040040,04004010400066 HK56H089000M3X2A70MA32A71C3W8A70 L032J79,J52J59,J66J73,04004010400067 VK273W8KVK06A70KBK27UBK27SM089A71 L033K12,J88J96,K01K06,04004010400068 AA19A71M3W8A70AA19089BK460899BJ73 L033K45,K20K27,K34K42,04004010400069 MA71091BK56 L011K56,K53040,040040,04004010400070 HK93H099000MA423E1AA19099BK680980B000 L037K93,K61K68,K75K82,K9004010400071 HL47H089000MA343X6MA72MA34MA72MA73 L034L27,K98L05,L12L16,L20L2410400072 MA72MA34MA72MA34B000HL94MA42350 L031L58,L32L36,L40L44,L48L5210400073 MA42MA42MA42MA42MA42MA42MA42 L028L86,L63L67,L71L75,L79L8310400074 MA42BL94 L008L94,L91040,040040,04004010400075 HN19.MA30A75BN23DBN34EBN45FBN56G L032M26,L99M00,M07M12,M17M2210400076 BN67A741BN67A750MA75096BN16A210H089000 L038M64,M35M43,M50M58,04004010400077 M096089SA19089YA19089MB07248MB27268 L035M99,M72M79,M86M93,04004010400078 VO023T3SVN913T3K/N22299AB28A75BM12 L034N33,N08N16,N23N30,04004010400079 AA39A75BM17AA43A75BM22AA19A75BM27 L033N66,N41N45,N52N56,N6304010400080 MB62250MA752542/299FL99KMB63261BN81 L035O01,N74N81,N82N86,N91N9810400081 HQ45/299H089000VO441041,104BR47BO660910L039O51,O17O21,O28O36,O40O4410400083 MB64261BN81 L011O12,O09040,040040,04004010400082 M091089MB643T2BO880960M096089MB633T2 L036O87,O59O66,O74O81,04004010400084 H089000M?45257MB75241Z096245VR9410512 L037P24,O95P02,P09P16,P2404010400085 /299M?45257MB84241Z091245BQ46V?0510512 L038P62,P29P36,P43P50,P54P6210400086 /299M?452572/240M?40260V?4610512 L032P94,P67P74,P75P79,P86P9410400087 /299M?452572BQ462/299M?45257 L028Q22,P99Q06,Q07Q11,Q12Q1610400088 2BQ360899BP79/299FKBQ45HQ95 L027Q49,Q24Q32,Q36Q40,Q42Q4610400089 M3T3251AA19089M3T3255AA19089M3T3259 L035Q84,Q57Q64,Q71Q78,04004010400090 AA19089BQ95HR46,114MB85341MB28MA25 L034R18,Q92Q96,R00R04,R11R1510400091 MA40MA32MA39MA35MA43MA19B000 L028R46,R23R27,R31R35,R39R4310400092 HR93MB86341MB86MB86MB86MB86MB86 L031R77,R51R58,R62R66,R70R7410400093 MB86MB86MB86BR93MC15299BP24MC18288 L034?11,R82R86,R90R94,?01?0510400094 ZA24277ZA28297BP62************ * L034?45,?19?26,?30?41,04004010400095 V?881061,106V?771101MC21235BP94MC38240 L038?83,?54?58,?66?73,?7704010400096 BP94BA07543NMC52240BP94MC64240BP94N L035A18,?88?96,A03A07,A14A1810400097 1 7 00B L013A31,A20A22,A25A26,A29A3110400098 5JC3L L007A38,A33A34,A35A36,A37A3810400099 46 02* * * * IMP * * * * L028A66,A40A41,A42A43,A44A6410400100 005 BD L009A75,A70A71,A72A73,A7404010400101 YOU CAN NOT MOVE TO THAT SQUARE, L032B07,040040,040040,04004010400102 THERE IS AN THERE.8 L021B28,B28040,040040,04004010400103 PLEASE CHECK SS, YOUR MOVE WAS TO OX L036B64,B63B64,040040,04004010400104 YOU MOVE TOI MOVE TO9 L022B86,B76B85,B86040,04004010400105 MY SCORE * YOUR SCORE * TIES 000TIE L035C21,C16C19,040040,04004010400106 ** I WIN **YOU MOVE FIRST L031C52,C39040,040040,04004010400107 I MOVE FIRST L012C64,040040,040040,04004010400108 /378080 0109 { 1401 DEMO FOG | 08/28/67 ,008015,022026,030034,041,045,053,0570731026 L072116,110106,105117B101/I99,027A074028)027B0010270B026/0991,001/001117I0 ,008015,022029,036039,043047/039036 ,051,055,056,063N,067071,075,0011056 FOG B905BBT36DB652BB630BB641BB619BB652B ,348,353,358,3631L035367,338,343B039 FOG B630BB641BB608BB630BB597BB619BB652B ,383,388,393,3981L035402,373,378B039 FOG B630BB641BB608BB652BB630BB641BB619B ,418,423,428,4331L035437,408,413B039 FOG B597BB641BB652BB608BB630BB619BB652B ,453,458,463,4681L035472,443,448B039 FOG B630BB641BB652BB597BB630BB619BB641B ,488,493,498,5031L035507,478,483B039 FOG B608BB641BB619BB652BB630BB652BB597B ,523,528,533,5381L035542,513,518B039 FOG B608BB641BB652BB619BB630BB652BB619B ,558,563,568,5731L035577,548,553B039 FOG B608BB652BB641BB343MT83T51B659MT86T51 ,593,597,604,6081L037614,583,588B039 FOG B659MT89T51B659MT92T51B659MT95T51B659 ,630,637,641,6481L037651,619,626B039 FOG MT98T51AT44T48B690T481B701T482B719T483,674,6821056 L038689,659,666B039 FOG MT51T55B747MT51T58MT71796B747MT51T61 ,708,715,7191056 L036725,697,701B039 FOG MT71803MT52869MT78863MT55T64MT58T67 ,747,7541056 L035760,733,740B039 FOG MT61T70MT64792MT67799MT70806M000230 ,782,7891056 L035795,768,775B039 FOG N000265N000300AT73T64AT73T67AT73T702 ,817,824,8311056 L036831,803,810B039 FOG AT44T75CT75T77B768/MT80T75/300/N923 ,851,858,862,8631L035866,839,846B039 FOG F1B901MT78869MT79T48MT52796MT52803.333,880,887,894,9011L038904,869,873B039 FOG MU632822F1/282B901MT52863FK ,915,919,923,9301L027931,912,913B039 FOG AT47U71MV032662FKCT58T55BS06/CT58T61 ,947,949,956,9611L036967,939,946B039 FOG BS18/CT58T83B992/MV08V57CT58T86B|11/ ,985,992,9991056 L036|03,973,980B039 FOG MV13V57CT58T89B|30/MW07V57CT58T92B|49/,|23,|30,|371056 L038|41,|11,|18B039 FOG MV17V57CT58T95B|68/MV17V57CT58T98B|87/,|61,|68,|751056 L038|79,|49,|56B039 FOG MW11V57AU71V57SU71MV49253LV30266 ,|98,/051056 L032/11,|87,|94B039 FOG EV572662FKMV76253LV30266EU712662 ,/22,/29,/36,/431L032/43,/19,/20B039 FOG /266B/61CSV57B867ST47V84AV57V84MW03253,/57,/61,/68,/751L038/81,/48,/53B039 FOG FKLV30266EV842662//53266CT58T61B|98/ ,/98,/99,S06,S131L036S17,/84,/91B039 FOG CT58T83BS37/MW07V57CT58T86BS56/MV17V57,S37,S44,S491056 L038S55,S25,S30B039 FOG CT58T89BS75/MW11V57CT58T92BS94/MW14V57,S75,S82,S871056 L038S93,S63,S68B039 FOG CT58T95BT13/MW14V57CT58T98B|98/MW17V57,T13,T20,T251056 L038T31,T01,T06B039 FOG B|98SV84B3431100 ,T44,T45,T48,T491L020T51,T36,T40B039 FOG N ,T59,T62,T65,T681L019T70,T53,T56B039 FOG M26 15B W43 ,T76,T78,T79,T811L013T83,T72,T74B039 FOG !33M23Q13B03E93P ,T93,T96,T991056 L016T99,T87,T90B039 FOG LEASE TURN OFF SWITCH B & PUSH T L032U31)U001056 FOG HE START BUTTON...THANK YOU..... L032U63)U321056 FOG L008U711056 FOG .......FOR AMUSEMENT ONLY.......50000 L037V08,V041056 FOG 100002000$ , 0. CR L022V30,V14,V181056 FOG YOU WIN............00000000 L027V57,V501056 FOG THE JACKPOT IS.....00000000 L027V84,V771056 FOG YOUR BALANCE IS....50001000500200 ,W12,W151056 L033W17,W04,W08B039 FOG L026W431056 FOG L026W691056 FOG XXXXXXXXXXXXXXXXXXXXXXXXXX L026W951056 FOG XXXXXXXXXXXXXXXXXXXXXXXXXX L026X211056 FOG XXX XXX L026X471056 FOG XXX ....... XXX L026X731056 FOG XXX .B A R. XXX L026X991056 FOG XXX ....... XXX L026Y251056 FOG XXX XXX L026Y511056 FOG XXX XXX L026Y771056 FOG XXXXXXXXXXXXXXXXXXXXXXXXXX L026Z031056 FOG XXXXXXXXXXXXXXXXXXXXXXXXXX L026Z291056 FOG L026Z551056 FOG L026Z811056 FOG L026!071056 FOG XX L026!331056 FOG XXXX XX XXXX L026!591056 FOG XXXXXX XX XXXXXX L026!851056 FOG XXX XXX XX XXX XXX L026J111056 FOG XXX XXXXXXXX XXX L026J371056 FOG XXX XXXXXXXX XXX L026J631056 FOG XXX XXX L026J891056 FOG XXX XXX L026K151056 FOG XXX ............. XXX L026K411056 FOG XXX .C H E R R Y. XXX L026K671056 FOG XXX ............. XXX L026K931056 FOG XXX XXX L026L191056 FOG XXX XXX L026L451056 FOG XXXXXXXXXXXXXXXX L026L711056 FOG XXXXXXXXXXXXXX L026L971056 FOG XXXX L026M231056 FOG XXXXXXXXXXXXXX L026M491056 FOG XXXXXXXXXXXXXXXX L026M751056 FOG XXX XXX L026N011056 FOG XXX XXX L026N271056 FOG XXX ......... XXX L026N531056 FOG XXX .B E L L. XXX L026N791056 FOG XXX ......... XXX L026O051056 FOG XXX XXX L026O311056 FOG XXX XXX L026O571056 FOG XXX XXX L026O831056 FOG XXXXXXXXXXXXXXXXXXXXXX L026P091056 FOG XXXXXXXXXXXXXXXXXXXXXXXXXX L026P351056 FOG XX L026P611056 FOG XXXX L026P871056 FOG XXXXXXXXXX L026Q131056 FOG XXXXXXXXXXXXXXXX L026Q391056 FOG XXXXXX XXXXXX L026Q651056 FOG XXXX XXXX L026Q911056 FOG XXXX XXXX L026R171056 FOG XXXX XXXX L026R431056 FOG XXX ............. XXX L026R691056 FOG XXX .O R A N G E. XXX L026R951056 FOG XXX ............. XXX L026?211056 FOG XXXX XXXX L026?471056 FOG XXXX XXXX L026?731056 FOG XXXX XXXX L026?991056 FOG XXXXXX XXXXXX L026A251056 FOG XXXXXXXXXXXXXXXX L026A511056 FOG XXXXXXXXXX L026A771056 FOG XXXXXXXXXXXXXXXX L026B031056 FOG XXX XXXXXXXXXX XXX L026B291056 FOG XXX XXX L026B551056 FOG XXX XXX L026B811056 FOG XXX XXX L026C071056 FOG XXX ......... XXX L026C331056 FOG XXX .P L U M. XXX L026C591056 FOG XXX ......... XXX L026C851056 FOG XXX XXX L026D111056 FOG XXX XXX L026D371056 FOG XXX XXX L026D631056 FOG XXX XXX L026D891056 FOG XXX XXX L026E151056 FOG XXXXXXXXXXXX L026E411056 FOG XXXXXXXXXX L026E671056 FOG L026E931056 FOG XXXXXX L026F191056 FOG XXXXXXXXXXXX L026F451056 FOG XXXXXXX XXXXXXX L026F711056 FOG XXXXXX XXXXXX L026F971056 FOG XXXX XXXX L026G231056 FOG XXX ........... XXX L026G491056 FOG XXX .L E M O N. XXX L026G751056 FOG XXXX ........... XXXX L026H011056 FOG XXXXXX XXXXXX L026H271056 FOG XXXXXXX XXXXXXX L026H531056 FOG XXXXXXXXXXXX L026H791056 FOG XXXXXX L026I051056 FOG L026I311056 FOG L026I571056 FOG /333080 ////// { 1401 DEMO EDITH | 08/30/67 ,008015,022026,030034,041,045,053,0570731026 L072116,110106,105117B101/I99,027A074028)027B0010270B026/0991,001/001117I0 ,008015,022029,036039,043047/039036 ,051,055,056,063N,067071,075,0011056 EDITH ,2041B4000031B363BB4000032B337B4000035,346,351,359,3631L038370,337,338B039 EDITH B388CB4000033B337B4000034B337M080280 ,388,396,4001056 L036406,376,384B039 EDITH 2337N L005411,4111056 EDITH /333080 EDITH 011 *** 021 ** * 031 *** * 041 * * ** 051 * * * 061 * ** * * 071 * * * * 081 * ** ** * 091 ** * * *** 101 * **** **** ** 111 * *** **** * 121 * *** * * 131 * * *** * * 141 *** * ** * 151 **** ** 161 * * 171 ** * 181 * * 192 *** * * 193 **** * * 194 ** * 202 ************** * ** ** 203 **** * ** ** 204 ** * 212 ************ *** * *** 213 ********* ** * *** 214 ********* * 222 * ********** ******** *** **** 223 ** ** *** *** **** 224 ** *** 232 * ********* ****** * ***** 233 * ** * * * ***** 234 * * * 242 * ********** ***** ** ** 243 * ** * ** ** 244 * * 252 ** ******** *** ****** 253 * ** * ****** 254 * * 262 ** ********************** * * * 263 * **** * * * * 264 * * 272 * * ****** *************** *** 273 * **** * **** *** 274 * ** **** 282 * ****** ********** * *** 283 * ******* * ***** * *** 284 * * *** ** 292 * ********************* * *** 293 * ********************* * *** 294 * * * ** 302 * ************* *********** * * 303 * ************************** * * 304 * * ** * *** 312 * *** ********* ********* ** * 313 * ************** ********** ** * 314 * * ** * * * 322 * *** *** ******* * * 323 * *********** ******* * * 324 * ** ******* ** * 332 * * *** **** ***** * * 333 * * * ***** ***** * * 334 * * * ***** ***** 342 * * ************ **** * * * 343 * * ** * * * * 352 ** * *********** ***** * ** * 353 ** * ** * * ** * 354 * **** 362 ** * ********** **** * * * 363 ** * * * * * * 364 * ***** 372 * * ********* ***** * ** * 373 * * * ** * ** * 374 * **** * 382 * * ******** *** * ** * 383 * * * * * ** * 384 * ****** 392 * * ******** ****** * ** 393 * * * * * ** 394 * S O R R Y - - - *** 402 * * ********** ***** * ** 403 * * * * *** 404 * * 412 *** * * *************** **** 413 *** * * * ***** ***** 414 * * 422 * **** *** * ***************** 423 * **** *** * *** ** *** *** * 424 * * 432 ******* * ** ******** ********** 433 ******* * ** ** **** ** * * ***** 434 * WHATEVER THE STATEMENTS OF OUR SALES FORCE ARE, * 442 *** * * * * ** ********* ********** 443 *** * * * * ** ** *** *** *** 444 * * 452 *** * * ** ** ********** ********** 453 *** * * ** ** **** ** *** ** 454 * * 462 ** *** ** **** *********** ********* 463 ** *** ** *** * ***** **** ******* ** *** 464 * * 472 * ** * *** *********** ********* 473 * ** * *** ****** ************** ** ** 474 * YOU CAN T DO EVERYTHING WITH A 1401 * 482 * * *** *********** ******** 483 * * *** ***** **** ******** * * 484 ** * 492 ** *********** ******* 493 ** *** ****** * 494 *** * 502 *********** ****** 503 * *** ** 504 * *** * 512 *********** ***** 513 * * * 514 * **** EDITH * 522 *********** ***** 523 * * * 524 **** ** * 532 ************ ***** 533 * * * 534 * *** * 344 *********************************************************** 542 ************ ***** 543 * * * 544 *** * 552 ************ ****** 553 * * * 554 ****************************************************W*HA** 562 ************ ****** 565 * * * 572 ************ ****** 575 * * * 582 ************ ****** 585 * * * 592 ************ ******* 595 * * ** 602 ************ ****** 605 * * * 612 ************* ****** 615 * * * 622 ************ ****** 625 * * * 632 ************ ***** 635 * * * 642 ***************** 645 * * * 652 **************** 655 * * * 662 *************** 665 * * * 672 ************* 675 * * * 682 ************ 685 * * * 692 ********** 695 * * * 702 ********* 705 * * * 712 ******** 715 * ** 722 * ******* 725 * * * 732 *** ****** 735 ** * * 742 *********** 745 * * * 752 ********** 755 * ** 762 ******* *** 765 * ** 772 ****** *** 775 * * 782 ****** *** 785 * * 792 ****** ** 795 * * 802 ****** *** 805 * * 812 ******* *** 815 * * 822 ******* *** 825 * * 832 ******* *** 835 * * 842 ******* **** 845 * * 852 ****** *** 855 * * 862 ****** *** 865 * * 872 ******* *** 875 * * 882 ****** **** 885 * * 895 * * 902 ****** **** 905 * * 912 ****** ** 915 * * 922 ********* 925 * ** 932 ***** ** 942 ** ** 945 * ** 951 * * * 961 * * * 971 * * * 981 * * * 991 * ** * A01 * *** ** A11 * *** * A21 * ***** * A31 ** * ** * * A41 * * ** ** * A51 ** * * ******** A61 * * * ******** A71 * * A81 * * A91 ** * B01 ** * B11 ** * B21 **** B31 *** B41 ** B51 * B61 B71 B82 THIS IS EDITH, ANOTHER OPTIONAL FEATURE OF THE 1401 C02 IF YOU LIKE TO KNOW MORE ABOUT IT, LOAD THE SAME CARDS, BUT WITH SENSE B ON B83W A R N I N G ADDITIONAL SWITCHING OF SENSE C IS NOT RECOMMENDED B84 - END OF DEMONSTRATION - ,008015,022064,029036L080380,043050,368369,057376,380380/364080,0011L0802802368. EDITH PAGE 4 R E S T R I C T E D FOR PERSONS *** UNDER 18 YEARS ** * OF AGE *** * * * ** * * * * ** * * * * * * * ** ** * ** * * *** * **** **** ** * *** **** * * *** * * * * *** * * *** * *** ***** ** * * ** * ** * ** * ** * ********* * ** **** * *** * * * * * * * **** * * * * * * * * * ** * * ** * *** * * * ** ** ** ** ** * * * ***** ***** * * ** * * * * ** * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * ** * * * * ** ** * * * * ** ** * * * * * ** * * * * ** * *** * ** * * * * * * ******* * * *** * * * ***** ** * **** ** * * * *** ** * * *** **** * * * * * * * ** * **** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * YOU * * * * * * * * * * ASKED * * * * * * * * * * FOR * * * * * * * ** * IT * * *** * * * *** * * * ** * * * ** * * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * ** * * * *** * * * *** * * * ** * * * ** * * * * * ** * * * * * * * * * * * * * ** * * *** ** * *** * * ***** * ** * ** * * * * ** ** * ** * * ******** * * * ******** * * * * ** * ** * ** * **** *** ** { 1401 DEMO SNOOPY | 08/31/67 ,008015,022026,030037,044,049,053053N000000N00001026 0001 L068116,105106,110117B101/I9Z#071029C029056B026/B001/0991,001/001117I0?0002 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 ***************************************L039371,040040,040040,04004010400004 1423 ********M3362632/299 L020391)372372,379380,38738810400005 1423 M379255M3792662/299M379253M379265 L033424,399406,407411,41804010400006 1423 M3792682/299M379251M379264M3792692 L034458,432433,437444,45145810400007 1423 /299M337253M379264M3792702/299M340254 L037495,463470,477484,48548910400008 1423 M3352712/299M342255M337272M3412902 L034529,503504,508515,52252910400009 1423 /299M344256M336271M337279M3792932/299 L037566,534541,548555,56256310400010 1423 M346257M334270M3792952/299M348258 L033599,574581,588589,59304010400011 1423 M3352982/299M350259M3362992/299 L031630,607608,612619,62662710400012 1423 M351259M3362992/299M351259M3352982 L034664,638645,646650,65766410400013 1423 /299M351259M379265M3792952/299M351259 L037701,669676,683690,69169510400014 1423 M379264M379267M3792942/299M351259 L033734,709716,723724,72804010400015 1423 M379269M3792922/299M351259M3482872 L034768,742749,750754,76176810400016 1423 /299M351259M3792712/299M351259M379269 L037805,773780,787788,79279910400017 1423 2/299M350258M3792682/299M349257 L031836,807811,818825,82683010400018 1423 M3792672/299M3472562/299M345255 L031867,844845,849856,85786110400019 1423 M379266MZ432912/299M343254M3792662 L034901,875882,883887,89490110400020 1423 /299M342254M3792662/299M353266MZ44253 L037938,906913,920921,92593210400021 1423 2/299M352266MZ462532/299M379254 L031969,940944,951958,95996310400022 1423 M3792672/299M3792542/299M379253 L031|00,977978,982989,99099410400023 1423 M3792682/299M379252M3792692/299 L031|31,|08|09,|13|20,|27|2810400024 1423 M379251M3792702/299M379250M3792712 L034|65,|39|46,|47|51,|58|6510400025 1423 /299M379249M3792722/299M379228M379272 L037/02,|70|77,|84|85,|89|9610400026 1423 2/299M379246M379226M379229M3792722 L034/36,/04/08,/15/22,/29/3610400027 1423 /299M379244M379225M379228M3792722/299 L037/73,/41/48,/55/62,/69/7010400028 1423 M379224M379227M379242M379268M3792722 L036S09,/81/88,/95S02,S0904010400029 1423 /299M379223M379226M379263M379268M379272L039S48,S14S21,S28S35,S4204010400030 1423 2/299M379222M379239M379263M3792682 L034S82,S50S54,S61S68,S75S8210400031 1423 /299M379225M379238M379263M379268M379271L039T21,S87S94,T01T08,T1504010400032 1423 2/299M379221M379225M379237M337259 L033T54,T23T27,T34T41,T4804010400033 1423 M379263M379268M3792702/299M379221 L033T87,T62T69,T76T77,T8104010400034 1423 M379225M379252M334263M3342692/299 L033U20,T95U02,U09U16,U1704010400035 1423 M379221M379225M379235M379250M379263 L035U55,U28U35,U42U49,04004010400036 1423 M3792682/299M379221M379234M379249 L033U88,U63U64,U68U75,U8204010400037 1423 M379264M3792682/299M379221M379233 L033V21,U96V03,V04V08,V1504010400038 1423 M379263M3792682/299M379227M379233 L033V54,V29V36,V37V41,V4804010400039 1423 M334263M3792682/299M379222M379228 L033V87,V62V69,V70V74,V8104010400040 1423 M379261M379263M3792682/299M379223 L033W20,V95W02,W09W10,W1404010400041 1423 M379229M379234M379259M379263M3792682 L036W56,W28W35,W42W49,W5604010400042 1423 /299M379224M379231M379257M336263M379268L039W95,W61W68,W75W82,W8904010400043 1423 M3362782/299M379225M335235M379255 L033X28,X03X04,X08X15,X2204010400044 1423 M379264M336272M379280M3462992/299 L033X61,X36X43,X50X57,X5804010400045 142 M379228M379236M379262M379265M379278 L035X96,X69X76,X83X90,04004010400046 1423 M379281M379287MZ52295M3792982/299 L033Y29,Y04Y11,Y18Y25,Y2604010400047 1423 M379231M379261M379238M379263M379265 L035Y64,Y37Y44,Y51Y58,04004010400048 1423 M379276M379279M379281M379288M3792972 L036Z00,Y72Y79,Y86Y93,Z0004010400049 1423 /299M378279M3402962/299NZ972852 L031Z31,Z05Z12,Z19Z20,Z24Z3110400050 142 B101.Z36NARF SNOOPY L021Z52,Z36Z40,Z41Z44,Z45Z471040 H A P P I N E S S I S P R O G R A M ML039Z91,040040,040040,04004010400052 1423 I N G L006Z97)Z92Z92,040040,0400401040 ,0011B126AM0802992/105299F1 L027127,105106,111118,1191261040 .380 L004131,132040,040040,0400401040 /380080 0054 1423 HAPPINESS IS HANGING TEN {