File TDCOPY.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

??2CBPLLQ<ADKKTT?((LB(BH,0=LJ&H8?DC 6HDT?P:/N(HHD,MLC4^H. DH<PD,$MQ 0HXO T]BAD?\HTLLO0?BTJW\?P8V0D9QBHDDT"B"B&*B$Z>6%SYSTEMNOP!BKRD V&PTD8E COPY V4A 12-BIT WORDS PER BLOCKBZL=RA ?;<A?KKPTE?(JB0BJ,=,J&0?.C6XT!?:D/N(BDM+C^=.D(HPO,MYQ0HO& E]BA?HWTCO?<BJEWG?8
VD90&O%?7OX ->^T/=Q*XPHZXY<HUXXX %?T5%=*O?A*<Q=A8!HP>(*UPYPXHXI<?H*&O*-=Q\YH 8!HX?(*TX %?H %=+FH >(*9%?UIO*-?AX\^H*?AX]^H4?A<(+%X^+IX\X]X^^IA?AA;X&/?K>%:I9%:/O%?UIOI8KU[UX /UO^[S^%?%=UH > +%/^A;9H<Q8H=QK5[OOO=A/*T]7;+77>/6*<==ZBMF>QJ^ZJ"(K?< *LI9W8.K>=H* 
<=*K=A;9=QC<8D8F=A<QJ
ZJ*D8R:%7.K;> * P *J0Y*)%60&"/.(K:<(.8K9<(-5K8./>N9[TR9[UOT8BA4<(.9[VKVC7>(I3I2KVWSUKU8H>X+RST*>OT+0!+X0&:/WL!XH%<QLC6=A8!L>(/]L!XLC6=A\P!P +)/]LHXQ%!8G BS?0==?=G?B8?]=3HZXYX"HX8 X[K?X K>X!LYX%%1X	H%A0K=7<:7>8F<X*Y%/*C<> *WH%A0I.7<++79*"7>A4K;> *"+P	8A4K:
 *)H%A07<:H"< *<K9H	8!X"+K9H	> +$PYP[*FH"]-M-8!%,%?>%7H^> /8X M-8!K7X!K6X"K59H!P <H+$<XP"+V;H 8AX^/H:%?T:%+%*%7*7;+,7>/+A,%6/.?
NP?LOH?7?W?*DPT	?8H&> *HK?^NK>^O*LK=^NK<^O.MJKIJ<%)I(> *Q%7.PX %7%	IR?AA;> -&-%FIRST INPUT BLOCK:FIRST OUTPUT BLOCK:NUMBER OF BLOCKS TO COPY:VERIFY OUTPUT (YES=1,NO=0):DONEREPEAT (YES=1,NO=0):VERIFY ERROR BLOCK TAPE ERROR BLOCK SELECT ERROR UNIT XKI^L8HJ&
I$"=X)K9"=X*H\X4H]X5H^X/*PH->(+KHZXYHX8 X[H4X.H/X-H/X0HPX%X(I>X+X,%H-X/H.X4PYP[*,H6X5*MH5X6H6X.H5X1H0X-LYX%;XX(%H.X6.<LX!X H!9M-<P+GP +A;H 8H.=HX8 X": HZXYHX8A8 X[%6%"P[>H+NPYLY8F>X+ULYX%I!X I X!%1LYA0I
7<%^%^79+,7>A4I]> +U;Z=A\YLYA\7<>P"+U%?IO-5JH1X.H0X-X(H2X+K?X,J=Z9%H!X8 I>XI9 H2XJH 8 H
X "-H)8!X$"6H >(-["-H*8!X$J9K>Z99 XIK=XJ"6*]P .-H-> .-HR-.-M-X"<BLI8!LJ2A> +EP"*9P$*7.6%?I]H$8!O<Y%?UE%+%)[Y%7KYIZ<(-YIX> +N+]?I8]=M?8D]7M78D8F]7M7A;IW%:U=+ /YHZXYHX8 X[LYC;\YPYP[+0-V>X*.*!HK	8OM^?H
IUX ITX!%1H%?H9GISX3H(<Q8 H
X 9H)"/H)"6H+"?GP <H.H
9!H 8A8D8F<QKKA0=A<Q9H*"/H*"6H,"?G*X8!H-9P=X-./X!<PX-H!8B=A[K.6[LH.[MH!H.X..?%6%"$3+X%6%":H-> /GP ..>(+%?I	O?%,%?UE,%7-R&SK+J%?I0,	>/&9H%8D<Q8D=Q8H8J8A8 A;=AIW%:/,BBHPPD;*HH;PJDZ8H[12LK,[)K17<N7=:K0[.RN[/RNZDR2C7?9DCE[47?C<K+[?;&[77>C6> +%7?
2K.
57?9H*?7:> +
K4KE<(+$[4RDK.8!K/[/9P:ZJCK17<	-	->79+F7>9FB!KY<(+[K3> +F7?<XK=8 JD8 <(+8>8+F7>9F:*?;S7*?;+&R9PK17<:X<B.2A2CSLS,?0S2A?=>X*?K19D8CK/<B[17>7<8H[Q79*E7>B"K-> *EK2[0K,?*-7>B79P> /*L>K.KQ7<: E: [/O1ES1?S0*
K,9J>XE^EE/+LLLB"JO[/LQ
1S1CS0*3K,9J>P+LQLBOQ^/+Q7;+G7=:/E7;+M7?/L8 [3K3C/8!9DK3K/[/K38 /Q:K/8 9F8F8FQ;PK/BO/^Q&P1?&L,).+3	%.%2!4%$Z==?4!V0^AQI2.PPP\P PNP&P*P.P1QBQFQHQQQ[Q	RERGRQRZSGSISMSORARBG8G0G(G K)K,K.K8C7C9F
F2F"F$G,G.FQFSFROM UNIT:TO UNITS:ILLEGAL FORMAT UNIT  UNIT ILLEGAL RESPONSEK<[KKLZ%9/O%4IO+%4K;%H IL>(%<;&%-?[8
:%;<H+5S8+0: [8+2H 	9%<+(	9S8+4/%V)V5?9.WX=6=7	?V&?AA;8!X
K>ZPH
<(*
X!JPK=ZPK<2A
=O=2A8!K<>(*]%?UI%7X *P!*LK;9HI>X2K:
9/8HIGHEST FIELD AVAILABLE:Z5.)H)?-?/?$/O>> .;IJ$	$	$	I=G=> +BO=I>< XKS2J$*DWTH+/.;LST<I"[,K4KP[.K,IM9F8F8FAIKP[PKP9PK5>0+6	3".K>H/XK<-H2PK\X,K;-HBGBF8(<BH2AC^

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search