/ CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 1 / CASSETTE COPY PROGRAM CAPS-8 SYSCOP / DEC-8E-OPIPA-A / COPYRIGHT 1973 / DIGITAL EQUIPMENT CORPORATION / MAYNARD, MASS. 01754 / COPIES ONLY CASSETTES / IN SPECIAL CASSETTE SYSTEM FORMAT. / REVISION CONTAINING /F / S.R. 0004 VERSION=4 4400 FIXMRI CALL=4400 0010 REWIND=10 0040 WRGAP=40 0070 SKPFIL=70 7402 TTOCHR=7402 7626 KBDCHR=7626 6600 HANDLER=6600 7200 UTIL=7200 6200 WAIT=6200 6400 CLOSE=6400 6402 BACK=6402 7000 BSIZE=7000 7002 LOOKUP=7002 5201 MON=5201 5000 CRLF=5000 0131 MQ=131 7415 MONRES=7415 7604 CTRLCJ=7604 7400 OPT1=7400 7401 OPT2=OPT1+1 7402 OPT3=OPT2+1 6000 XTOCHR=6000 6001 PRINT=6001 6336 CLEAR=6336 /MIGHT CHANGE 0040 HSIZE=40 0106 U=106 5667 GETNAM=5667 0103 SETPTR=103 4200 FILTBL=4200 4237 LNBFR=4237 0101 LNPTR=101 0100 LNKNT=100 0130 FOPT=130 0010 X0=10 0011 X1=11 7600 INCH=7600 7403 SINCH=7403 6404 ENTER=6404 / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 1-1 0131 FKNT=131 / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 2 0001 FIELD 1 0200 *200 10200 1377 START, TAD (MONRES 10201 6201 CDF 0 10202 3776' DCA CTRLCJ /ALLOW IMMEDIATE RESTART ON ^C 10203 6211 CDF 10 10204 1375 TAD (TTOCHR 10205 3774' DCA XTOCHR /SEND ERROR MESSAGES TO TTY 10206 3130 DCA FOPT 10207 1773' TAD OPT2 10210 0266 AND R10 10211 7450 SNA /U OPTION? 10212 5772' JMP BEGIN /NO 10213 3346 DCA ZOPT /YES, IMPLIES Z OPTION 10214 7332 QBEGIN, STL CLA RTR /2000 10215 0775' AND OPT3 10216 1346 TAD ZOPT 10217 7640 SZA CLA 10220 4771' JMS ZEROIT /ZERO OUT DEVICE ON /Z OR /U 10221 1344 TAD U0 10222 4770 CALL (UTIL 10223 0010 REWIND 10224 5767' JMP NRERRI 10225 4766 CALL (WAIT 10226 5765' JMP INERR 10227 1345 TAD U1 10230 4770 CALL (UTIL 10231 0010 REWIND 10232 5764' JMP NRERRO 10233 4766 CALL (WAIT 10234 5763' JMP OUTERR 10235 1130 TAD FOPT 10236 7640 SZA CLA 10237 5762' JMP FTRANS 10240 1345 TAD U1 10241 4761 CALL (LOOKUP 10242 6211 CDF 10 10243 1340 ZERO 10244 5763' JMP OUTERR 10245 7410 SKP 10246 5763' JMP OUTERR 10247 4760 CALL (BACK 10250 5763' JMP OUTERR 10251 4766 CALL (WAIT 10252 5763' JMP OUTERR 10253 5262 JMP NEXT / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 3 10254 1344 LOOP, TAD U0 10255 4770 CALL (UTIL 10256 0070 SKPFIL 10257 5767' JMP NRERRI 10260 4766 CALL (WAIT 10261 5765' JMP INERR 10262 1357 NEXT, TAD (HSIZE 10263 3756 DCA I (BSIZE 10264 1344 TAD U0 10265 4755 CALL (HANDLER 10266 0010 R10, 10 10267 0430 ZINCH 10270 5767' JMP NRERRI 10271 4766 CALL (WAIT 10272 5765' JMP INERR 10273 1754 TAD I (ZINCH 10274 7450 SNA 10275 5753' JMP SENTNL 10276 1352 TAD (-52 10277 7650 SNA CLA /IS IT "*"? 10300 5254 JMP LOOP 10301 1345 TAD U1 10302 4755 CALL (HANDLER 10303 4010 4010 10304 0430 ZINCH 10305 5764' JMP NRERRO 10306 4766 CALL (WAIT 10307 5763' JMP OUTERR 10310 1351 TAD (200 10311 3756 DCA I (BSIZE 10312 1344 HLOOP, TAD U0 10313 4755 CALL (HANDLER 10314 0000 0 10315 3000 3000 10316 5767' JMP NRERRI 10317 4766 CALL (WAIT 10320 5331 JMP EOF 10321 1345 TAD U1 10322 4755 CALL (HANDLER 10323 4000 4000 10324 3000 3000 10325 5764' JMP NRERRO 10326 4766 CALL (WAIT 10327 5763' JMP OUTERR 10330 5312 JMP HLOOP / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 4 10331 0350 EOF, AND (3775 /IGNORE WLO 10332 1347 TAD (-21 /CHECK FOR EOF AND READY 10333 7440 SZA 10334 5765' JMP INERR 10335 1345 TAD U1 10336 4770 CALL (UTIL 10337 0040 WRGAP 10340 5764' JMP NRERRO 10341 4766 CALL (WAIT 10342 5763' JMP OUTERR 10343 5262 JMP NEXT 10344 0060 U0, 60 10345 0061 U1, 61 10346 0000 ZOPT, 0 /NON-ZERO MEANS /U SPECIFIED 10347 7757 10350 3775 10351 0200 10352 7726 10353 1313 10354 0430 10355 6600 10356 7000 10357 0040 10360 6402 10361 7002 10362 0651 10363 0605 10364 1027 10365 0600 10366 6200 10367 1024 10370 7200 10371 0527 10372 0470 10373 7401 10374 6000 10375 7402 10376 7604 10377 7415 0400 PAGE / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 5 10400 0000 GETU, 0 10401 1377 TAD ("- 10402 4224 JMS TCHAR 10403 7200 REED, CLA 10404 6202 CIF 0 10405 4776' JMS KBDCHR 10406 1375 TAD (-15 10407 7450 SNA 10410 5270 JMP BEGIN /CR RESTARTS 10411 1374 TAD (15-60 10412 7100 CLL 10413 1373 TAD (-10 10414 7430 SZL 10415 5203 JMP REED 10416 1372 TAD (70 10417 3131 DCA MQ 10420 1131 TAD MQ 10421 4224 JMS TCHAR 10422 1131 TAD MQ 10423 5600 JMP I GETU 10424 0000 TCHAR, 0 10425 6202 CIF 0 10426 4771' JMS TTOCHR 10427 5624 JMP I TCHAR 10430 0000 ZINCH, ZBLOCK HSIZE 10470 1370 BEGIN, TAD (400 10471 4767' JMS CRLF 10472 1366 TAD ("I 10473 4224 JMS TCHAR 10474 1365 TAD ("N 10475 4224 JMS TCHAR 10476 1764' TAD OPT1 10477 0363 AND (100 10500 3130 DCA FOPT 10501 1130 TAD FOPT 10502 7640 SZA CLA 10503 5762' JMP GETF 10504 4200 JMS GETU 10505 3761' DCA U0 10506 1370 GETOUT, TAD (400 10507 4767' JMS CRLF 10510 1360 TAD ("O 10511 4224 JMS TCHAR 10512 1357 TAD ("U 10513 4224 JMS TCHAR 10514 1356 TAD ("T 10515 4224 JMS TCHAR 10516 4200 JMS GETU 10517 3755' DCA U1 10520 1755' TAD U1 10521 7041 CIA / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 5-1 10522 1761' TAD U0 10523 7650 SNA CLA 10524 5306 JMP GETOUT 10525 4767' JMS CRLF 10526 5754' JMP QBEGIN / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 6 10527 0000 ZEROIT, 0 10530 1755' TAD U1 10531 4753 CALL (UTIL 10532 0010 REWIND 10533 5752' JMP NRERRO 10534 4751 CALL (WAIT 10535 5750' JMP OUTERR 10536 4747 CALL (CLOSE 10537 5750' JMP OUTERR 10540 5727 JMP I ZEROIT 10547 6400 10550 0605 10551 6200 10552 1027 10553 7200 10554 0214 10555 0345 10556 0324 10557 0325 10560 0317 10561 0344 10562 1200 10563 0100 10564 7400 10565 0316 10566 0311 10567 5000 10570 0400 10571 7402 10572 0070 10573 7770 10574 7735 10575 7763 10576 7626 10577 0255 0600 PAGE / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 7 10600 7200 INERR, CLA 10601 1377 TAD (PIN 10602 3222 DCA INOUT 10603 1776' TAD U0 10604 5213 JMP IOERR 10605 0375 OUTERR, AND (40 10606 7640 SZA CLA 10607 5774' JMP DEVFUL 10610 1373 TAD (POUT 10611 3222 DCA INOUT 10612 1772' TAD U1 10613 7510 IOERR, SPA 10614 5771' JMP NORE 10615 3245 DCA UNT 10616 1370 TAD (400 10617 4767' JMS CRLF 10620 4766' JMS PRINT 10621 7775 -3 10622 1256 INOUT, PIN 10623 0320 "P;"U;"T 10624 0325 10625 0324 10626 0040 40 10627 0305 "E;"R;"R;"O;"R 10630 0322 10631 0322 10632 0317 10633 0322 10634 0040 40 10635 0317 "O;"N 10636 0316 10637 0040 40 10640 0325 "U;"N;"I;"T 10641 0316 10642 0311 10643 0324 10644 0040 40 10645 0060 UNT, 60 10646 0000 0 10647 5765' JMP ENDERR / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 8 10650 0000 XKNT, 0 10651 1776' FTRANS, TAD U0 10652 4764 CALL (LOOKUP 10653 6211 CDF 10 10654 4201 FILTBL+1 10655 5200 JMP INERR 10656 5763' JMP NFDERR 10657 1362 TAD (INCH-1 10660 3010 DCA X0 10661 1361 TAD (SINCH-1 10662 3011 DCA X1 10663 1360 TAD (-25 10664 3250 DCA XKNT 10665 1410 XLUP, TAD I X0 /MOVE INCH TO SINCH 10666 3411 DCA I X1 10667 2250 ISZ XKNT 10670 5265 JMP XLUP 10671 1772' TAD U1 10672 4757 CALL (ENTER 10673 5205 JMP OUTERR 10674 1776' KLOOP, TAD U0 10675 4756 CALL (HANDLER 10676 0000 0 10677 3000 3000 10700 5755' JMP NRERRI 10701 4754 CALL (WAIT 10702 5313 JMP KEOF 10703 1772' TAD U1 10704 4756 CALL (HANDLER 10705 4000 4000 10706 3000 3000 10707 5753' JMP NRERRO 10710 4754 CALL (WAIT 10711 5205 JMP OUTERR 10712 5274 JMP KLOOP 10713 0352 KEOF, AND (3775 /IGNORE WLO 10714 1351 TAD (-21 10715 7440 SZA 10716 5200 JMP INERR 10717 1772' TAD U1 10720 4750 CALL (CLOSE 10721 5205 JMP OUTERR 10722 1776' TAD U0 10723 4747 CALL (UTIL 10724 0010 REWIND 10725 7200 CLA 10726 4754 CALL (WAIT 10727 7200 CLA 10730 5746' JMP MON 10746 5201 10747 7200 10750 6400 10751 7757 / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 8-1 10752 3775 10753 1027 10754 6200 10755 1024 10756 6600 10757 6404 10760 7753 10761 7402 10762 7577 10763 1000 10764 7002 10765 1056 10766 6001 10767 5000 10770 0400 10771 1065 10772 0345 10773 1261 10774 1271 10775 0040 10776 0344 10777 1256 1000 PAGE / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 9 11000 7200 NFDERR, CLA 11001 1377 TAD (400 11002 4776' JMS CRLF 11003 4775' JMS PRINT 11004 0306 "F;"I;"L;"E;40;"N;"O;"T;40;"F;"O;"U;"N;"D 11005 0311 11006 0314 11007 0305 11010 0040 11011 0316 11012 0317 11013 0324 11014 0040 11015 0306 11016 0317 11017 0325 11020 0316 11021 0304 11022 0000 0 11023 5774' JMP BEGIN 11024 7200 NRERRI, CLA 11025 1773' TAD U0 11026 5231 JMP .+3 11027 7200 NRERRO, CLA 11030 1772' TAD U1 11031 3242 DCA NUT 11032 1377 TAD (400 11033 4776' JMS CRLF 11034 4775' JMS PRINT 11035 0325 "U;"N;"I;"T 11036 0316 11037 0311 11040 0324 11041 0040 40 11042 0060 NUT, 60 11043 0040 40 11044 0316 "N;"O;"T 11045 0317 11046 0324 11047 0040 40 11050 0322 "R;"E;"A;"D;"Y 11051 0305 11052 0301 11053 0304 11054 0331 11055 0000 0 11056 1772' ENDERR, TAD U1 11057 3131 DCA MQ 11060 7240 STA 11061 3772' DCA U1 11062 1131 TAD MQ 11063 4771 CALL (CLOSE 11064 5770' JMP OUTERR 11065 7200 NORE, CLA / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 9-1 11066 5774' JMP BEGIN 11170 0605 11171 6400 11172 0345 11173 0344 11174 0470 11175 6001 11176 5000 11177 0400 1200 PAGE / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 10 11200 1377 GETF, TAD ("- 11201 4776' JMS TCHAR 11202 1375 TAD (FILTBL 11203 3103 DCA SETPTR 11204 1374 RDLN, TAD (LNBFR 11205 3101 DCA LNPTR 11206 1373 TAD (-20 11207 3100 DCA LNKNT 11210 6202 RDLP, CIF 0 11211 4772 CALL (KBDCHR 11212 3501 DCA I LNPTR 11213 1501 TAD I LNPTR 11214 1371 TAD (-15 11215 7450 SNA 11216 5230 JMP CR /IT'S CR 11217 1370 TAD (15-25 11220 7650 SNA CLA /IS IT ^U? 11221 5767' JMP BEGIN /YES 11222 1501 TAD I LNPTR 11223 4776' JMS TCHAR /ECHO CHAR 11224 2101 ISZ LNPTR /PT TO NEXT CHAR 11225 2100 ISZ LNKNT 11226 5210 JMP RDLP 11227 5200 JMP GETF 11230 3501 CR, DCA I LNPTR 11231 1366 TAD (12 11232 4776' JMS TCHAR 11233 1101 TAD LNPTR 11234 1365 TAD (-LNBFR 11235 7650 SNA CLA 11236 5767' JMP BEGIN /CR RESTARTS 11237 1374 TAD (LNBFR 11240 3101 DCA LNPTR 11241 1364 TAD (-11 11242 3131 DCA FKNT 11243 1375 TAD (FILTBL 11244 3010 DCA X0 11245 1302 FBLP, TAD L40 11246 3410 DCA I X0 11247 2131 ISZ FKNT 11250 5245 JMP FBLP 11251 4763' JMS GETNAM 11252 5762' JMP NFDERR 11253 1106 TAD U 11254 3761' DCA U0 11255 5760' JMP GETOUT / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 11 11256 0040 PIN, 40;"I;"N 11257 0311 11260 0316 11261 0317 POUT, "O;"U;"T 11262 0325 11263 0324 11264 0357 FINERR, AND (356 11265 1356 TAD (-40 11266 7640 SZA CLA /IS IT CLEAR LEADER? 11267 5755' JMP OUTERR /NO - ERROR 11270 5754 JMP I (MON /YES - DUBBS AS SENTINEL 11271 1353 DEVFUL, TAD (400 11272 4752' JMS CRLF 11273 1751' TAD U1 11274 3303 DCA UNTY 11275 4750' JMS PRINT 11276 0325 "U;"N;"I;"T 11277 0316 11300 0311 11301 0324 11302 0040 L40, 40 11303 0000 UNTY, 0 11304 0040 40 11305 0306 "F;"U;"L;"L 11306 0325 11307 0314 11310 0314 11311 0000 0 11312 5767' JMP BEGIN / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 12 11313 1347 SENTNL, TAD (HSIZE 11314 3746 DCA I (BSIZE 11315 1751' TAD U1 11316 4745 CALL (HANDLER 11317 4010 4010 11320 1340 ZERO 11321 5744' JMP NRERRO 11322 4743 CALL (WAIT 11323 5264 JMP FINERR 11324 1761' TAD U0 11325 4742 CALL (UTIL 11326 0010 REWIND 11327 7200 CLA 11330 4741 CALL (CLEAR 11331 1751' TAD U1 11332 4742 CALL (UTIL 11333 0010 REWIND 11334 7200 CLA 11335 4743 CALL (WAIT 11336 7200 CLA 11337 5754 JMP I (MON /JMP START? 11340 0000 ZERO, 0 11341 6336 11342 7200 11343 6200 11344 1027 11345 6600 11346 7000 11347 0040 11350 6001 11351 0345 11352 5000 11353 0400 11354 5201 11355 0605 11356 7740 11357 0356 11360 0506 11361 0344 11362 1000 11363 5667 11364 7767 11365 3541 11366 0012 11367 0470 11370 7770 11371 7763 11372 7626 11373 7760 11374 4237 11375 4200 11376 0424 11377 0255 0200 *200 / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 12-1 $ / CASSETTE COPY PROGRAM PAL8-V10D NO DATE PAGE 13 BACK 6402 QBEGIN 0214 BEGIN 0470 RDLN 1204 BSIZE 7000 RDLP 1210 CALL 4400 REED 0403 CLEAR 6336 REWIND 0010 CLOSE 6400 R10 0266 CR 1230 SENTNL 1313 CRLF 5000 SETPTR 0103 CTRLCJ 7604 SINCH 7403 DEVFUL 1271 SKPFIL 0070 ENDERR 1056 START 0200 ENTER 6404 TCHAR 0424 EOF 0331 TTOCHR 7402 FBLP 1245 U 0106 FILTBL 4200 UNT 0645 FINERR 1264 UNTY 1303 FKNT 0131 UTIL 7200 FOPT 0130 U0 0344 FTRANS 0651 U1 0345 GETF 1200 VERSIO 0004 GETNAM 5667 WAIT 6200 GETOUT 0506 WRGAP 0040 GETU 0400 XKNT 0650 HANDLE 6600 XLUP 0665 HLOOP 0312 XTOCHR 6000 HSIZE 0040 X0 0010 INCH 7600 X1 0011 INERR 0600 ZERO 1340 INOUT 0622 ZEROIT 0527 IOERR 0613 ZINCH 0430 KBDCHR 7626 ZOPT 0346 KEOF 0713 KLOOP 0674 LNBFR 4237 LNKNT 0100 LNPTR 0101 LOOKUP 7002 LOOP 0254 L40 1302 MON 5201 MONRES 7415 MQ 0131 NEXT 0262 NFDERR 1000 NORE 1065 NRERRI 1024 NRERRO 1027 NUT 1042 OPT1 7400 OPT2 7401 OPT3 7402 OUTERR 0605 PIN 1256 POUT 1261 PRINT 6001 ERRORS DETECTED: 0 LINKS GENERATED: 90