File MCPIP.SV (save files (Executable program)

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

?>2KP0CPKH(KXT7L H?<LB?L?48
T-L4F\A&UP8 =B"B"BBZ*F*I;XG?> +U	>E*K=ZZ: 
<	;2A
:: 
92IO8
7O6<(+P	>APA/5O4C3> /2;ZG1O0>(*,K6	//.O6	-/,/+K0[JZ
*K)[OK(
	O&8F>P*=O%> *=K$
%O6	>C>A/
"K
!	 2C	
	N2C	
	O+GVZ;ZG1>(/^/22C/][6+[XS6O0<(>E \9XZ T2W^BN>D>V&T-ZZ)R:RV A
G^%>A>%RSH>$YP>YI>69\-F
X]HPAB>"ZO?C><(.ARA8F8D<X*OR8D*J>JK=.A"A/<*XO;	:2A
92I	8O7C6> +];ZG?> +
NO8J8JC5[W	4K3
2K1
0O78F>X:A2C
/: 
.: 
-
,/+O;2A
92I	*O;B*\BO[!O)C(> 8AK	[$2AK"9H<XK<PO!C6K$
!2I/B8A8A[W/X2C/&2C/%B<+FBH>$"T;G6.3-3,3+V&]	QO! TZC?D>"9\^LPZ \0O<>%O?C>K=>("PO<
;O:
<O9
:K8
92B.O7>(.P: 
6K5
?2B/4;(G3[MO29K1>X/0O2<(K/2A
.O.8!
-2I.Z	,O+	/D>A*5/*	)?CLOSE ERROR	)?OUTPUT DEVICE FULL	)?OUT=INJ[2?.866C7K7>([2>KX0\K6>(0Y+!2C/X61+YS2/RK5R:A+I\PB>Z3!3
B^7?>&>")XZ6)YB. F G I H?VA? K?Z%K>ZVO=C<K;XPLPC:> *7LP?*TO9K?? "	2B&4PH&*5JXJ%ZXO9J%
9J%K8> *-.HT-O98!Z%J%<(.&9J8J8JK7ZV.	?+H	6?INPUT ERROR	6?TOO MANY FILESK5[]: K][]O]>(+JK]K4<(+[K39F8F8DC<Z%*-:A+Y	6?ENTER ERROR*&RG<B.GK4ZKK*K5[/;VK/[2C?ZA>\H?:YHH?/O>ELHF[IO?>(+KO>> /=K?	</;K:Z*K9ZRO?	8ATA+PO7C6> /5O:>(*
O?	4/3/2:AG7> *[K1
0JR
/O?	8B*=J*
.J+[HO-<(*;HO[JOJ<(*;[I.O,*9:O+> +XO78F>P+XK*
+*A:AG7>(/)/5	(?FETCH ERROR: 
		(?FILE NOT FOUNDW&/%\1]K \!WBN>I>6LDVXV4QNV[TZ. AZ+H>BTA>F
G^%V?>J>EO?<(.Z*O>C=K<XP;ZDP> /;J*9J8J8JK:Z^O9>(*\O8J*9PO9>0/72B&)0H&/;J J*Z O8J*
8.	6/5*0O4	32A
22I	12AO08!O2>(//: 
.
-:A
,2IK+
*O)8F:D2A
(2I		O)C&2A
%2I:AG)2C> /$/O42A
22I	"O4	!*4,TA+FSB"T9C5V)YATZ6/>QN!$616.6UH9\"9]^LXR!WRAT=T2QA H]
?/O>V%:2I[]WN8J8J8J"NN"NR*EC?<(*)K>C?K>[^0Y*&K=0\K<<(+IK;> *&K:LK9LWS]K^L.NW[KO8>(*1
8R.2AO72I?H/6KH> /62AO52I>(/62CO7XP: 
7KK> /4HP/3??2C/U[^K]> /LK^0&0!+S>/LK2LK1L/W"?OUTPUT ERROR2C	02C//?AA><BF?4C2BJBM4I<W-FPB9\ COC^?4==BB ?	??RECORD SIZE TOO BIG8AXP;VP8HZ$HPC>XP2APPLPC=K<> *WLP2IC;9JJ$K:.LXHLHK9<(+PK8"5LH"5LH"5LH"5R%.%[WKW9J8J8J"?KW"?.5C7K6<(+GK5> .?	??ILLEGAL * OR ?PHPHL
K9> +G.%O4C3> 	2O4C1< +	O0C/> +	8/X
.:A
-+%[42AS"SB>D OD>$?+?V?*V0XI?>\C?K>XPLPC=K<<(*NK;> RARA.A: Z	:OS/8 MCPIP V4 .OO9>(/8:AG7> +A	:?NO OUTPUT FILE	:?CANNOT HANDLE VARIABLE-LENGTH RECORDSK6[F	5JTTY+LKF
4/3	:?TTY DOES NOT EXIST	:?NO INPUT FILE2C	2/ 2C	1/$J
G&J,:YJ
G&G!)T);4M2PU>BY>PB>E\8=HG8?/OK?"&K>"52AK=
<O;
:K9
8O7
6K5
4O3
22I.K1"&K0"52AK/
<O.
:K-
8
6K,
4
22I.TZ52AJ5
+J5
*J5
)J5
(J5
	2I.&Z&2AJ&
&J&
%J&
$J&
J&
"2I.5XRY/-	5ZY+WJZY>H/-J	,:PRLR	+*<:+P	>XZHZ	8/Y:HZC7=[7-3/1E/&=Z7.51F/%^3^;.0(=\=
5\5"05CL0O1G/$B,.[.X.YX,*< ZYO?ZNK>ZRRNZSRO=8!ZT2I2B&Y<B<B<B<HR2C.< ZYO<ZZNZRZ2IK;<(*3K:<(*2K;<(*4K;<(*5K:> <B;XK9K8K7K9Z92B&Y<B<B??<HRZ2C.Z*AEAMAPATAY   L      L[K0>(L[<B	//\ .H[G$H9$H[G$:VQQ8?;SA(*L C?< B?0?8=
-EF=\Z%2LK?2AZ$NZ1RJ$^1J%<(*	8HC>Z%<XK=
<J%9F8DZ%K;Z&N&<(*	Z$N$C:J%^$R&*Z	9K8	7	6C5K4> .1W3.2J	2K1XHKY> +RK0\HO/\HO/C.< K-> K,K0[ZO+\HKZ\HPHPHKZ\HO*\HO)\HK(\HK	\HK&\H.2B/*2*;/!+^*5,:*,>PS^/^ZJM S R QBO? A? P  IT+C???]*+/
B*0?G)[/	AC2CZ(Z*NK?<(R*RK>Z)J(	=*VK<[X: 
;J)	:"4+YR<B."+C9<(*"K8> *!J*>(: "0KC?*UKD*V7G[DKD.+[C7.07F:.4	7C67A<H.8K5>(/4KD.8	3>A[EO2	1/0+PSE	//.KE>(/-"H:2K/,2AK+
*	)	(7E+\/X,:**9Z8JZ?SA1T5B1^>PB9X=X093	09\8-U?0C<*+? (/
,\*X(BH?8[NC%J3Z/N8D:DZ\RN[/RK	?,ZJ/[J/[;&Z]"^/>R<B.?=J\K=
<K/[-KE8 J\[,J\[FJ\9F8FK;	:<BJ\> O-2A	9.^	8CC< +Q7F[.S,<H+GK.<B
-S-C</>BK7	:	9	<	8	9	<	6C5K4>(+VR]/3: 	2O1?*YO0*Z*6	8< +QS,<H+)<BS-8O-	9/>K7	:+L+D+C*01H???=*+B0*8*4/
B+X-\+Y(	?*P*G	>*P"W*P	& :*PO=
<RA.AC;K:> .W.Q	%X.W	%(*+O=
<	&H&"Q	% .WK9
<RW.WC8K7> .W*$*		% *?K9
<	& 1D*?	%H*?R1.1O6
<O5	& +NK4
3O68!
2/C$> /1:O5	%H:O02KK/9F8F8DC.
-/,K	7D:/
B,*,RRDN(V-V%O]?4?3	66A 9]9^?

= >C<-E3
090Z62IO?2AC>> *+J6	FH*-K=
<
;*S	F8*-W;	E: *-K:Z6N6>(*,K9Z7K8Z8N68!N7C7> *PR6R7R8*!RR:O6
<.B5> *-*,CL	5.9	E H%.9;$JZ*P,**S	4	3K2	1	0	/	.C-> /,	+/*S]/TS^/TO)> /T/,>COREDAY NOT ENO,\+Y,^-UC<*++X*4/
B(5B*0.W3
A??8:: .-E H>$K?Z(2IO><(*&2A9J8J8H8AC=9H8!Z)2IN("*2IN(C<XQR(N("*2IN(C<9J8JHQ8J8J"*R(R)*P2K.C;2A[.K+> 	:2IO98F2A>P*;K.KK>(/8K-BK,[-K.[,.*=H+K2A
 S S!/BM>/BK!K
>(/MK

7O6	/ X+"KW[ K
8![!/MX82KC5> /4/32K/22K/1????,ADT5V7]
T= 9\-E4>;C?<?>V%&K?	>*GO=	>O<	>	;O:	9/82K/7K6Z?K5[2I^?:AG4> K3K22A[AR?S*RK6Z?K1[	A2I^?	AXR	AXS2IHS8F8FC0N?^?R?HS8J8J8HC0HR^?R?S*"2KK/
..M6B0Y/BK-0\K,> /B	+O:?H/-O:ZM: 
:JM	9/8/-O*	H/):A
(+ 	8/)2K/	+ *VERSIOQG /N9]*0A=>V%F<46BQ>(&PB3).19\3M3.3,3BB?? 2AJ/> *!J1>(+NR<H	?NA"$"7NARA.B2AR<HSNAK><(*TK=<(K<RA.SZ/K;.BZ-J-C;>(J-J.Z..$A62BZ??2IO:2A8F>P.7NAK9> .7Z1K8Z0J.8J8J8JC7Z2J.C7Z3N0=H/6R0.BK5
4O\>(/6O3	- /2K\ZANA> K1K0Z	/NA>(/S	.8/2/S,*(2?>?-/N9]-E /Q?62>>BBZZ?&/: N[RK?[AK>[B2ISO2A8J8J8J"9
ASA2IO2A"9
ASASB*IK=
A2IO<2A8F>P.2IO<8D:O2A> .<X.;$KA[AK;
ASAK:
ASAK9
A.C8< K=C8K=.9">FK]	7/6+XO59J8J8HO4[^K^<(+
9K3>X+!2K/22K/12K/0B2K//2K/.	-2K/CM.8CS25B^ ,W^YXQG7?:+:*3	0?CNCICB> ?<:      O?K>>(/=
</K;
:	9>A	8O79F8F8DC6
5O7C4
32IO22A
1
0
/2IO.2A
-O,	+/*2K
)/()	>2BQF]H9Z.A9\:TUM:M:L:ISW:KC?:JO3
<^83 X3+3A>3.O?	ZH+X2IO>2A>(*]	=>A	</;/:	Z8/:K9
8	[: +X	7+X	[ 1D+X/62IO52A<(*7[BK4[AKB8J8HC3EKB8F8F8DC2EKBC1K0E.^K/[BK4[AK9
ASASB*;.^[CK.[DKCK-=H+OSD+JK,[CKD
ASAKC
ASA/E2K/+*,2J/*2J/)9&[W	4%FK/[LKV$[$A]
:?60?:AFGO
:NYI4I.W-E 9X3	08>A9\

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