File DTCOPY.SV (save files (Executable program)

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

??2CBP
>TIH6DLA<D-<L8<!
 BLB <HC? ??B\J-4BL<CL<BL<HK(=H3XLG<3,LLH<(=>= = C)DGPFETBLADD	 4LGLX]DYGIXQL FLDH .B"B"B"B"B"B"B"B"BYDV*4BH5=	0 V8MM,WXXZ<[KDVX?*,3CXR61B)3%(OZ&=V/N JAPU
WC\<>=H^02MEWJX48NI>Q[]-[>^	;?*HJ\5"+-"SBJ1))%%	" JEBWB\F:HVQ?=,PO%PL8	IQYV]0J&:S0I7U=[A"*B1D)X-.	5 ]AUQUYY%	,$UG-P=<BSLZQB;1U)B) -7	&
D
2	N+?14<O"XYE<W.\+GNT	>TP.8;Q.]D6"PNA;!65LD>KT6:,R/9U5H7>G%)8 H^H99 H8H^,AORJDJD>P?=L6:71A?> P),):71A>74I=7479(7%<,0(1B ? ?GE!6AB$BJBM>E?AXM	FHBIIE6D A?-
8!?
BHB<8C ? ??BJG-BMC?<B0H?KJ=3BFG3?,LH(?=>==H C)GFTEBEAD0	4XLGL]FYGPIQFF8D;0&%;J%;KM5XXHX8!X	%;KS5H	<(*HXXY%;JG%:8XQHQ8!X%;JV%:: X$H9<(*	H$>P*HX%9XWHY%98!HW> +<%;KXHW%8%;JFHW8!X%XUI7H%=H+<PUH%=*>HWI68!XZHZX%HU8!X[%;J=%:8X!HQHU9!H$<X+"X%HZ8!HWP%+Y8!HWX%I5]4-
%4HUHUHQXQ )+/HQH8 > +"-2HQ9!H$>X+P-?%:8A19J8J/5%;K3*NYH$XQ"9HX76%=HY76%=HQ8 HVHU<(*0XVHVXUHWPV*RX%%4HQHUH[XQH[XUHZX%-0 )<H-2HVXQHY76%=I/%.8*(H
XQ"9*I: HVXQH[XUHZX%"9-0HYI?XYHXI?XX.90Y+H0^I-<(-,:HX76I+XP%*M	X8H&< -)HY76%*M	(+\I5[AHQXVH!> /A%=%*%3X+	M(H%8!XTKNXOKXNLN8!LO< +6PT+./APP+=%;K	%	I+XP:%=+V;I?74 )I&I+HQ=H*R%.>H*D71A%I?74. 0*M%;K$%:-%-%0ZX]";I$<(*7RYI<(-,I"9I!<P*3X\H]9D9D9DH\X]H\I -";I$< *
%;JFH].Y0Y*<0^.;X\I
X]H\8F8DX\I^\8DI -P]+D/;I]%\OPX^SPI[%\L^<(/PAZ9J8J8J&L^P^AY&+YIX=IZIW%\/&0!+.0&:/-:71AV9F8FI %\%:/3/3-OM98!X X
71AU74IT74 )ISIRZUIQ]P: "\IO74H
H 8!=H"\71AO74.](7479*
7:?.\%<RR*XN(X"R(HQ%.*1*,-NH
H < +CH%8!](H"]PN(7479*<7:=+I%<+E%=*,R(R(:.(:M(> *;71AU74+F;7:A%>(+7471AVH	< -MM(8!\(P(P&-L71AUIK747:8F=+6:I+[5I%7479+0S5+./QSQ<X;8F>P/Q%;J%%	/QDECTAPE COPYFIRST BLOCK TO COPY (OCTAL) FINAL BLOCK TO COPY (OCTAL) SELECT ERROR ON UNIT PARITY ERROR ON BLOCK 
ERIFY OUTPUT? (0=YES, 1=NO): FROM UNIT TO UNIT PDP-8 WORDS PER BLOCK DONEWRITE ERRORS ON UNIT BLOCK LENGTH ERROR[7/6<8!X&: H(X(%;J1HQZ\L(HW\(L(8!H%>(*V )9$8 J\*HJ\%8P&*B.[ETIJ76: ](II]P79*$7:?H*1IH7479*+I%74M(.]%<I?IT74* K,8> +U!: K,9DK-8D?X+FK,H7+TK,XSK-
!H69X[,*;Z[-K,58!HS[,*T9*.%	FHK(A: 2I]F-DS&/!%	HH??[(A/!$]!AF+5K,$&K.[./*%,SAVE ERRORZ]8H/?G5CRB CACBCSCLCDCRXLJ[XRLL\MPR*MIP0\JZ>(0Y,(0Z.YJ:==?9?4N]"GA<
<B2C0"H<K;X?R"HH?^GK:ZHR.BN0Z0Y*20^0&0!*6X8X/0ZK9H8.0$W%?.>$W%SURFACE0LL<(/J<HLLK?9H7<P+^XTP"(((HRHTXR+O:HQC>9F8DK=]7HR/	FLHR9DXRHQ8DXQ/(LL>(/<%	BAF,(A/5<	NJ00L2CG=HA8D: A"2$0A,Y2H]X\$$R2A$$S>$ <7P4<.QA<5Q<-S =>P=1X+=.P-=;P*T$$SZ$ <	.Y/$$S^.G$$Y5: Y	: Y(.
$	EI.Z8<BM/Y:9VI0Z><B-:8 Y:$	P*MI0[KI,IBY:<BM:>(,
/E2LHP[=I:< +0EI.[]I/8AY:<BM:[EI:I
Y:I0AEXHHH9H8JHH]:Q:KE]:Q:]:Y:I0[7I,IA[EI:<B
ESEOEA:
E<B/PI?^C"G,
"9.B$ <6RMY/$!,
Y)$%I)=[QKQ<(,
I ? ,
I)AE[RKR9H8J8!I1?H,
KRH4Y*KQKS[RORY,KQKXY+I*Z1<BM+Y-2AI-?RG.GI-9DAEH4Y.I-:H5[QOQKYY/I/H?[QI.[K<B8 OQY02A.9SS^&6:K-JN^B  OK?^E$%$[,]$ =3S)Y//2K/-N/*Y)2LHE[;2AK=ZG*Q+;S/"9<B//S8!2J.BYUVVWHWRV2U,]I\1<B.LSTATDATA ERR IN J MOD: FLD: CNTR:RPC:I8>(*?I78!J	> *52L8!J>(*8J	I!,GN	0AZJ2
: Z&.C: Y82LZJ	Y7N	0AZJZ&2LH4ZM2A9VJM^D&E.FJJ> +X$$TO+Z$$TR$$TUI7AYZK"LNK2A$*$$TZJG\$RKJK^H"L.I2A$$T]J9H8J$)$$T JKIAXK"LLK$+LKXK2A$$T$I7AY8 HKIH$+$$W:8AI7XK	?LK$+$,IP[9Y$,I
[L[KO>>(*2SKCD>DAB> *2SL*	: [L>DAC> *2JZ[99VI7XK	?LK8!HKXKYI7XKO>> +CO=>(+AR+A$$WMKK$+$,0BY80B>DAD> $2<B0A,K  TALLY:>DACI\> SR/RLK<(+1[6IO[7<H$,$-I^[8K9$(K7$(IM$(LK$+S7S6+3$,2A/YS8+%+!CODE:T&TJTL>J,U8Y9Y2K?XA
>
=
<
;: 
:: 
9: 
8: 
JIHZ(K7Z*2K.YLGY&Y8HCXA$2,X0&Y2$$X&$[*EPFBLA.$$Y3$"+ [.K.8!I1?H,
K.9D8FH4[,$,
Y:$-+M:2A$+$ =3PM=6YIYLQ::P+U: $,
[.$%+K.]:2A$-IK$(K,AE9H8J$)I:$+*>: $	I0[,$,
IYI,Y:$,+U<B/+2A$$S],\^O^R.6P&P^PKYJ?J%JK<B$ AZGZHRA.A"A.I9D8F[Y"A.IKYRI.I"I.T9F8F8F[""I.TK"RT.T> *:8A0Y*0^AXIH\-L-I6< *02C,UI^<(*6I!> *8$,*:L-$(N R <(+C=+KL-> +H\$N Z L$. :R *::L-IU=+HH>=H+H+C=IL$(/TZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/";:AJ$(J8 [TII$(ST+5/-;4
K$(IK$(/9Z	2LH4ZS2AL.> *U80!N(> *J; ^(J	0&;<B.N)8!N*>(*J2TH4Z2A0BN(>(*%J+<B(D0A*NA9A$A&\];8F,[IR,OI8J8J8J":OI":SI*1AF<(.,IZ<(+GH:=HIGIK$(.:$,.:;2LHP[]2AQ3+VI4Y3H3Y5Q5M59H>X+ M5U5<B0A/JI!KJ[J+]9J8H[J2LHP[=KJ=[]K]9DK][]KJ8J8J:K]H3[J2AOJA 
J<B0A/$
?K>
=K<
;LV
:/9K8
7K6
5/4
3K2X3H

1H

0.M: I1> H>K/ZMJM
.JM
-JM2I
,2A: I1>(.VK+ZMK*2QXHXIIHHI\HK)HI\HK(HI\HHIH>XIRM*/2A.VL2TJ^=[790QY<5.+MB3QK8>(8,="$%;G+3J	Q-<06Z+WF5WE?0T*Z/YRE+6\+0JGQV<923)0I
46."+.L]I?8L&]9]O2I.W.KX	TBCSM\9GN/9UDN!XB0GN=0CN\U6	+,JSY*A^0X4]*D-[OK;CRGYMEP>936NU
$P\J"O!1MK>;3PR&Y5EY:S1PQ><V6B3?J>Y&EZ>\3YR%
GK;ERB!(MD>53*RI! MT>N7KP1$I.<+6J7YXM4>G3LR2!JI=8?4<25:W*D"Z&!,M7>Y;VV4	DH7\)*.)QU*G[;7RF!UM8C297Q^E5>!;
R^!FM9G;;8Z	%>O*D$Z!)HUGU;JZ()U3G-?*XQ,(6\3VRW!?MTG&;+ZR))Q]A
<Z
JLB"F)LUWG8D5^T/PW$I2N10]JO:DWZ%)4UXKRBWY=MUGAD>Z=)%UYO[DX"G-^WJLD"A1/UCO4D)"H1	USOMJ 04H>;;5Z6)
U3OFDK"11IY<I>E;C"F9	)T!*%1+]6OXLU&37CX6,(:-9P%)WZL6"E1T]?K1J6!]U4O L^"]1E]8W:L?"&5=
)T* 9O]"WTLI*/1G]2W,H)(P</>[DU"V1>]SW%L**Q9(!\Q^M[KBNY/I\A2E9K%VW?L" V4HCMB7%I
9TV*$93%
SQRV)<]TWT=*<9$%X
ZT
*F=]	I\C2B.%B
3T(2O9&%R
LPI07<OG:L4*59^%2
ETJ20BH);Y=U:S!V87($ :$B*-5

TT62B(5</C,JW-(	Y\52DBS->[0Z51\%3
	T]2\BD-?
9\>2%F</($":	BN-!	S\H:.BF-1	+X(8WE.OZTT2UB=-R	$\):PJ/)[!]]Z[A^X?H,CDJJ5U	>\3>RH!0UEOKLR65H/8$????????7(9$C^/SF5UG</02H?L"V;S,5ECU)!E+*0![80(	XC\0Z7UW2O%O>K/QD\NBS<5^GO/+D=JKU52O!?8\,*"=]:Z)9A5,3&6
\;SN2S&1 M!2N% G5+\B7I%0 ,B">]]>,/\DPRVQY<C.;XF.K=5!K[1XIC4X.K BWI64"*$%!CH5	GS3IJLQ1<,.N:BYU(:\-VCS19MU6C+=B[QR<5.		$DCRZ]N>7AH-TD^W[8B1QR8.,8.DP3X7\1":%G;3LNP[^9!QK80"(?$.&F	55T5Z9%DGM35NJ
XDRMYBA$0=,*.A/PH\?Z;!FEO67+LNZ
!MPGXD .$.0+IJYY)E52?)EI+8C06(4,3*[-SOS;SR
]%G(;RVO
-D8Z*%	CB9[UHG&71P	\^"9)3M4>U7)T?^G	*H$X% J,$.5+^J6YGAS<]2"1IQ AP8T4R2Y5AW8D8^<CNN
7D,^O	\HO\ *U)7MAC1=NS\B+]WCM9HYH;=R<%\KPFR
W=\Q.G+9R[!TM0GC?P\>"V)BQDEE:)=
WD>Z2)0Q;E%>Z;8^H+?N35J:%%O:D-^C+1RU%GKDF&[;N*	FH3 6,T2O5(
YH9$N*\5	SIJB!&I<EHG5?,XL(D4>B?K\3.L3X^"++RP)*Q?A*EC69V]FKFFBHVW	:T0.37QXL,-6Z?<\N*>5S[%J6%[S1JE!2U)KMBC%BW!H]$[6Z?F\?.8;]Z7-A
-H(U0D<
:IBJ%*SCN????????+W20Z%R?VAT)
=AH=MX7)EZ/6<A+V>8,V[A:&&U\0
&4%	E<8/>89)	=ZH?M*3LG<,Y	+<8/	<:+(C+.I$D
!8P)7=L!W$4N	G8-1DEO*4%G:;.Z -Y[=RL1S-6/ (!U=+H:U&3XKY2F&X -]T;+K[2
&Y$&
M8$-THUN3QO:07%R	MV7)M[3XO:4P/CAX1OB*VX\[
<<5/VA"10N;T![\:=*6&S !!0FXTP[T:^.	 L%"1Q.A6X$,$$HB$ <>.L<0HF1/$%$$/2K0$*$$HC$ <0HF<;1/.Z: 	?>H,
K0Y-	>I*[	I.[*K12K	1: I)8J>P;$I!XK	=<B*/>H*/O<
;	=+R<B+D[:K9> ,K:&
8S82A*6,[8K8C7> +O[9PK*6<B,
: [9*6K7XHK6XJ	=<B+ +VPJ+^<B,
\H+VO<O58!O;/%0<B/&<B/)IYI,/,.PRI:5>AA?COCMCX5A4?4RR9RG< <B88K?XH8 I/XJLH	>WLH	>WLHXKHK	>WHK>(/=Q%	<2L<(*%K;H4Z!9VI.<B
:O9
8	<LJ[7LJ2A[6;$HJXJI^XKPK<H/=LH9H< *=<P*;K6*>K7<H8DW*0I/H>XJI*8AWI)=I[SLH<(/5[7LH	>	4\<S7+N/5	<\J2A/W[62LH4[(2AO\[3S\O\[2S\<BO6C3K2
62A/\2J/12CDCC/&2CBCAK(K*K	?8/)I,/,A?B*[HNLH[BKBC?>(*M8G*W9VKBI/[B	>OBBKK+
B2AQ:*DQ0*CB*	HDNLH[BQ:*
Q0*^B*355NLH[BQ:*+Q0**	=I)],I,H?XJI*\JHJH:XJI-\JI-/<LH<(/BSBY0OB[K$$SB/BLH[+K+$+IN$($-$ =33 3[: $+S[++VLHY:/NO[*KB	;	=	:S/0L0I+00J/.0V0Q+60R/41\/,4/&/)?8]+	?2L<(*NK>H4ZJ9VI.<B
=IS
<2AW;.Q.M:[:	9Z=J=K8?(*^S:8 *TK:> *UJ=IY=H*(> .R*;:	9Z>J=J>Z?J?KA[AJ=9F8F8FJ>[K<PRRRRRR.RIUY0IH	7Q0+F:[A/B;KASBY9/L[BKB8J8J8JAX	7KA[AKBAF	7KA[A/S[(9PI,S<BIYXKM,9SQ,PK++PJ+)2A/CA:34<B3.CS/0K,K+?8/)?:O+Z$O-Z&O57M?=R]R]R]R]R]R]R]R]D;&ZGJ]8 J?Z];ZK?
>K=
<$$;U	;*X*/I1>(*XK:
9K8
7O6C5IQ
4K3
6/2$$;^	;*X*6	1/2$$;/	;*X+C	1K0
/NF
.K0
-+F$$;"	1NF
9O,
7NE
4/20Z718F8&>P8VNE8 JB8 > *><P*?JD^FJ 7<J 9DB<ZC8D8A9V8F74J<^E7;+*O+.	0C0B<B8682K32	?3130.I3/<HET.AX\.H^QE;P"\OIC[JSI?OIC9J8JKJ8J8JCSI80Y*;0\C2K>> *;2C.[>9O2LJY[ANBQK;Z08HNR=H+9BG8 [=NR[INB)>(<X*;K10&0Y*60Z*TS=.\J0> RR2K.0V0Q+EC /C ;KJZ"\
I[C8F8FC OI
IKJ8J8J8HC KCSI<
I*P9TJ0>(/0LZ0R0+.[<K0/K<[JBZC^A?0I+)0J[<KJ/;X*?2A?=$$G$$:X$$:$$:<.IBI8K	=8"	<*M*T<BV6*YJ!^70!*U.X?/N5Z R5N5Z
	HB/*1J
")J!Z!R5*Q9J8J8JC?8A9H.)2J	>G8D8?2%-%, NOT FOUND%,TOO FEW ARGS>G8 A3>(/HIDX(%,BAD CORE IMAGEM88H:HU?X/X2J$UIIFXU/XF:]8%&2J$UK2IICXMIBXQ\MPQ+02A/%%,NO!!I?XNLN<(+	?
ILE BASED DEVICE?  HSP?CONSOLE PUNCH ASSUMED.9F8F8F.Y8J8J8J.^.;N&[ER&OE"^"2OE"2SE*+CK<(.&[FKFKH> *=L.2KFKG?HKIKJKF	>.2? ?]AB?:KU	>KT	>	>/LBJBM[,K,
[+K,"^
/V[-K-C1[.K-8F8DC0K.K//
00GG9!;)C/]P*(]42:%9G]7KPN$2V9+%R[)^QDM>G\DK"*5Z[^NX+%VL/	TU.H;-Z 5B
6HQ,&2U=(ZR[-?SVN!/OPF(!8
<ZG;4$U6%?1$;2E9)!DQUIBMXK/B
%WSWJ[-!
(TT.J?I$,2&=	FP
,L>"5 	4XC<BW% 
IP%(38CE.C J!)J]"W6L<*D9+!	Q!Q.MUO,L\.T;T"X="	/TR6/?^$1:B -C[\VI7	X60"EXK[JE-=
^T*28F++Z%1"!

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