File PIP.SV (save files (Executable program)

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

??2KX0CPSHL08SDRD>30LO?L>DOZD>[L??(A4L<OX<TD>TXD
<=L<,
DO<>:.L,L&$	LO 8D!\HH=([(XLO08L $	D\HDJ\*D. KDJ\HH<\ 9$HDH JI,.LHLA\O2,IH6>H/85L	<4LL	 ELUHKD>(HZ,.D(L+DOH><(H0,JH>\(L/T.D HV8OLC8-L(8.H;\A,H5PH<D;,WF\KDK,+<: []PSK?XR2LJ&ZJ<B.A>2LJ&[[2ASBS]+BHS>(*Z]+AJA9K><PZA<XPS9:8J8JK=Z)2C2I	&X	<PJ+K>Z+J)BM9DJ)BM8 []J
[BJ*ZJ*QPS?*.;X+[<B+T+PJT[BNJB9J8JJ)8J8JRJ+UNJBZ)RJNJC;K:<(*XK9RL.L??2IK8[&LR<(/]	HA<BLRC7< K69Z8JZAPRLRZ+PRXSS]/]O?06ABZ=&C?UPNAG>O>K)ZRK?ZM2INAC><(*%	=A<BNA	=C>A*[[*
<	;R2K.NAC:>(*NAC>^A*O;X*YW<*Y[A2IO<> +FK*<(SAJR[CKA9F8F8FC>K*[*K*9PJS>0.	2C2I&M	9BR	.	2IO<> +,	8C7K:> K6	5+-	5+-	5+-	8?HK4K3G2> +VO2K1<(+&K0"	+-NA	=D>A<HSH2K/H%S LT:?ATIBZG8T<UP?0TT;BO:AK?8!Z:K>Z8J9ZT.C=Z62LK<Z4J;> *32ART<B*1*.J69F8FC;N7^7J69J8J8HC;N8^8J
ZTR8R:*3K:	9*4"*3J8Z7R8J6^8RI<B.I*T2LK<[F2IO8C7K6Z6N6<B.<0\K5>(0Y/H2C/8[HHV> /4KH?HO3C2> /POPKP[PKH/PXWO8> /1[(	0J-T<BK(
8/1^FHB  >.%==?/O>R	,<2CC?L	?	>",O=> /<O;ZLO!	:D>A/9/<	8K7	6FREEBLOCKS	5	5PS: 
4.OJ
Z,H\
3HT[SH[[EHX
;XS*4	3	4.,O2[SO1[EO39K0<P
3<XPS9:8J8JK/[C	.2B	S	-MKEK0[E;XKC	,/9HS> *.*4PS?H+!K+XQ2ALQ> +$; HQ<X+X>	*D2IHQ9XC!K:+M]Q3?R	UPUHZAMP+Q&PAQ]!
 (?:!BYBBS*1XT;[!
*B*E	?E	>	=J7
<O;C:> /9O88F>X	7O6C5> 	4O8?H/3O6C2< /1O0>(*O68FC:> //>X/.O;C-[\K\	,	+	*[M	)/(HQ\H\H		K&XHLH<(*<	%+B*6KM>(/(	$+B*?+F	B	?H	DSM*2XP	"?H/NHQK!>(8AK \HPP+S/N?H+I*?C?=4T<]QSHTI6UHZ][PA[!45P$AV>OU CA0A\AD>\]>%* >$QW4>.4BK?XH\H[ 	>/=C<<(*DK;<(*DK:XQHQK99K&<P*]JW
V<B.XZ	X0Z7[G[O>HQ\HS HHK8?H*D	7AO6>(*2K5\HS K C4> ***!HQ\H: 	3*!O6> +HQ\HK2	3/1K2K0XPK/\HPP+B/1O6> *?HQ\HK.	3/1O-8F?+]HHXPLPK,> +]: HHXH+SHQ\H*!	+?/!	7EK5XUK4XIR= >?7BJ?;X2?<YNGB Y\]QG)=2C?>AA?YHPL5?G8K?ZS;&XQK>ZMNS<(.A	]A<BNSRS	]D	=CJSJRZSPQ*F.A	<9F<X+M
JB9J8HK;[QOQ<(.][QK>Z1O?	]A<BO:?H*<J1K9> *=K8	7K6K5
4
3KQO4
2O1<(8A8!
02B&1"H2A	=BXG.]:	/2IOQK.XPLP	-/,	<BK+> /[K?XP	*/)PP+/[LOYBTI?0X&	
.42D>&2FV2AG1
!%	A9>%^T<]Q:A>MP0 PA>A<A:A8A4
4
4
M M O?C>> /XQK=XPLP<(+TC>9!HQXQ>X/PPPP+HHQO?
?/0X>\?6??NOYES	<0Y+	;0^C:K9K8>(PVHV9DK7	<HV>(/6/!!MHX
]<	BA?UH&>O?0>	?K>XQK=XPO=<(	<
=LP<(* C;\PLPK:Z(;VHPXRN(?	9FPPLP\Q:A\PPPPQ*IK>XQ
O8	7
	6/5<(8 Z7N(8J8J8J"8N("8R(R7*,.(C4< K3=HK2K1	0//.8Z(XPK.[
Z8O
<(/B9J(<P+RZ(R8+H:J8HP<(+]K-"8;XXPS
+G"8+[K,	0//K+	0///
<B<B<B<BBJBMB0
XYBTIB A? ?"PA&(>6]Q?/O	E>O6A[!	?/>:X]K=XH2ALHXXHX9K<>P	;ILHXULHXYPHLHXZ2ALH<(+UZ4LHZ5LHZ6LHZ=LHX[HZ8 HHXHLH<(+J8!XT2ILQ9!HU>P+I;&	:J=>(K9K8	7	:HWC<> +HHT	6HZ> H[	5	4HTHUXUPX*VHY>(+*HHC3K2*ELH8!XT2IHTH]X]HWC1>(+IK0	:<EMPTY>	7HT	6+HPQH]	/*<BVO?<BC?<!
&(!B 8.?2 (]QAW?Y]PLC0	?	>	=	<")	;+O<(*FKG> *F	;+OKG<(*MJUXQHQBK:<(*6K9C8<(* JU> *F: ")SKG> *": ")*F=	7?HK6K8XPJU	5/4PP*0.)K3
2: ")HQ8J8JC1K0XPLP= +^<(+KXPS>PP+F*:S	5/4*&")	//4/.HQ	5/4	;+\XQHQ/S	-G9H> 	-HS96HQ9T+CZERO SYS?<B]QXSH	OOQW<HYBTI8T<?? = PL][PA[!
XPLP8J8J8J"KLP"KPP*BC?<(*"W.KK>	=HRK<9H*OK;<(*Q8A<(/:=HK9K8	=.WK7	=K6	=.<(.(ZW5	4J9F8F8DC3	2K1	4J8J8HC0	2K1	4JC/K.	2: O5
5.([J	-J/S<BKJ/E?>?>B?8?>?>?>BB?>BBBBA((L29(X("(,(8)H)W)%)22U<B<BBAFG
/!BO 8!VBJBMB^A3?!CQ):B?NO ROOM FOR OUTPUT FILELINE TOO LONG IN FILE
ERROR DELETING FILEINPUT ERROR, FILE
CAN	T OPEN OUTPUT FILEDEVICE
 NOT A DIRECTORY DEVICEPREMATURE END OF FILE, FILE
ILLEGAL BINARY INPUT, FILE
BAD DIRECTORY ON DEVICE
DIRECTORY ERROR0&0!+<:/:K?	>
=
<
;
:	9	8/7K6ZPO5<(/7	4A<BG	39J8HC2K1XPLPXYO0<(8A8!XWJPXUHU
/O.XTQ	:2B$TLA/-2B	,,W/-:A
+
:2AN,2IXXJP9K*> +BK)XX	(: 
	
&/%O$CK"XPLP?	!F/GKY2A
5K 

K^
]2K/Q<B<B>B.(>A.B]Q?/O>O-C.!:-8A9:B>G.VQ&RM>&^?T<B>:AXQ]PA/>QRRRS
!-\K?ZG	>2B	=BH:/<
>O;X[K:XILI<(+Y\HHH[[	9LIX\H\<(+U9!HXHY>X+SH\\H: O8
8H[8!HX>(HZ>(	7H\8!HXXXH\8!H[X[HH8!HWHWK6?+MW5O58A
4O4K3?/2	1K0XH
/\HHX\H\H\HHW\HVF*NO.<(/-*K,	+: K[XH*/LI*0ARE YOU SURE?HT8!HU>(8AXZ/&/].:BT;5?.Y.T?96B.!95V
64K:D:A.U>G/V\HHYHX<(*I\H: O?
?O?> *P;X"Y
><HR!"Y"4/=
>"Y"4	<JK;Z
2B$U6*V[.YK:	9/80Z	7K6	9K> /O5C4>(/3/2	1HZ5K02A
/K.
-
,2I.4/SORRY - NO INTERRUPTIONSI-O ERROR IN ^ - CONTINUINGNO ROOM IN ^ - CONTINUING<B<B>B>A(>"G?,*0D >$/B24UZ&/O"H]QX6B6?0JTXR	?K>ZSK=Z3K<ZK;[
N4>(V4	:N4&VA>RN4B<(/9K8> + O7> /6O5Z%2B&SN/4O5> 	3	2J%K
[NO1<(+X&VA>O	0	/	.2B&3LDA/42AO-2IK,?H	+IK*Z%K)	(/	2B&SZ/4KNK&[NR%+GK%	(/		$/KLZK&[
* 	+K<BX.4(MYBR	:?<]Q?8DA4+-4>42GYI>P2)>AL 2]+GGN:A6A+Q??K?XPK>XIK=XH2ALI\HPP*O2I.GBAD SYSTEM HEADO<>(/;O:K9
:O:C8K7
6J0
5XZO4XT2B$TB\G/3	2/1HZ>(/0.4OUTPUT ERROR[!O/Z4ZD;&ZGN49J8J8JC.< 	-RD+]R4RG+FK!> /,N4>(/,K+	*S!: +E: ZDN4+JXPLI\HPP+/!<B<B):B.&P&W?-[.RV4YI0S>R>Q30O?0>O1Z>A[?C?(O?XTO>XU
=
<
;O>
:.;&	9O88!HW=*[XJO8< 	9\HPJ*W.KXJHW< 	9HIHJXI.K2AO72IK6> /5.	4?	3EHUK2>(PZ.+Z+O1>(/0J+>(	/.5XVO.C->(.>;A	,B5P<B;W[FKGK+[G+EPIPSV<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BKBD>$
X>A9]QT<1 F\A:D3!RMRSRRS*030S?>2KP0CPLHPAXS VL$9"B"B&**B*R	?EO>C=> *R:A	?B	(/<;WZK*J2B"*
K;ZRK:Z^Z];W**F^K9ZRO8C7> *WK?Z^K6Z]K5Z\O4C3<(/2XSK1Z5HS	?A:A/0XU[ K/[!O!S!C3<(/.XTO!S!["HT8!HU>(/-K,[NHT	?A6A/0HS8!HT> /-K!K+> /*O>C)K6
>	($+/	HIW$$/KRD"?/CA/6ARUL>O"(:A"%O>MPL>%*!Z*W"7 >$BO?K>> /=XRO<C;> /=O<C:> *TO9C8> /7: XR/=	6K5ZZ:A	4B	(/3;GJZZ$2B	2BB<BK1HSXL9J8HC0K/X2AL2I
.:AXV	-XWK,
+:AXP:A	*:A	)	(/	2AO&2IK%>(K$KXXHX
"O!XZHZ>(PZHZ8!
 K XH	
: 
^/=H	<(+-?H++Q $6D>&6AG1?HBA":^; Z S!T	M\W%D??/>G"7B	($LVQP> P>$TA/Q!:A	?K>XIO=[KO<XYO>8!X[O;>(*YHZ8!H[=:HZX\H\8!HZX]LI< *!LI8!HYXY+DXC;GH[HIXBLBXQHQ> *,+BHY91O:>8*6HQ8!HYXY+BHR> /9O8C7> /6/5O8C4> /3HBXI	2SK*YO1< *A/3HR> /0O;>(+ K/HZHH? 	.PW\HO-HX\HHW8!
,	+O8C*
8/)P8/
^W6W%^FHV:B$P;HWGXP>$VTQ"Q :A::D\JJS< *F	?&*Q8J8HC>K=	<JSC>K=	<	?&AZS/;HIZ[HIXHS	:B+DHXIHQ8!J\> /9J[XXK8
7	6	5	4*7K3
2HY	1K0
2HX	/	.*)HYHPXYHXHPXXHQHPXQHQ?H*)/-HXI/,K+HZHZHH? 	*HQ91HXK%>0/);GH\8!XAHC<HLI\HPA+YHHH]XHHQ\H	(PW/-Z"+^FK"/T>^; Z	M !T&<Z8Z/$
^	""3BPB"\B0G"O?X;GHIXALA
?HIZTJTZ!J!Z3O>C=>(*^HS	<D:HQK;?H*^HQ9	8FHS	<C<BH
?J!XXHQ91Z4J4J">0/:	9HS	<D<B/8T>Z"+C?BD>>6	?"/"8*"K>
=HY	<O;C:>(* HY	9K8
7	6*EK5
=HX	4K3
=HX	2K1
7	6*S*"HX	4HYHPXYHXHPXXHQHPXQHQ?H*A.O0HQ8!=:O0XP./HS8!HT> +BHX8!HY> R8.8P\	^ Z	M *	D^;
^	V GP>$ !T&<$:K?XKK>XA\KPA*F.Z<J;8!J<> *VHU8!HT>(.JJ<Z;HTXUJ<
=:AXPK<
;K:
9K8	7K:
9K6	7K5XKK4XLK>XALK8!LL> *8PA*.;&
3.JW3* /2"=
X1?9?2 N:!MH!T&<!H<5?HW8!
?HVK>=/=:AHV
<"WPV	;HX
:HZ8!
9XWK9XH.HV
8:AXPK7
6K5
4K?	3K2
6K5
4K1	0K/XKK.XLK-XALK8!LL> *8PA*.;&[X.WSX*\/,HP9J8J8H8!XAK+XK: O*XLK)O([J2ALL8!2ALK2I> +YPA+G;&[XR;.;SX.;;&[X			&/%\F"P]2AP^A?<1?5? !2	M 1!MH!T	D!H6D6A\6B$]?96[HK?[MK>"N.[HO=[MO<"N.G[GO;"&.N[HK?[MK>"!.S[HO=[MO<"!.Z[GO:"&.!X^";.&[HK?[MK>"1.*[GO:"6.1X^;X";.6[
HP9J8J8JKMKN[F2B$^+P;&[O.;?=:	9&6	9SO+D/8<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B$J"P5QNP^P]BNZ[R	?N[8J8J8J"O	?N["OR[*DC><(.K=<(K<=HK;K:"\.O0&0!*^K9> .\K8*]"$!/7"$2/7"$:F/6"%SF+\"%YF+\"%!/5"&F/5"&P/5"&]/5"&+/7W4HC[VLI![WLI![XLI![Z"
/FXXXXXX .XX
HQ8!HYXY/39BK2<PK1K;9BK2<PK1K;/!<B<B<B<B ?T>VS$JULPBBJ=3B
A>.?!?$0Y.0\K?> .0Z	>%52C/=	>%*0Y*O0\K<> *Y0Z	>%2.L	>%
0Z/;	>%H	:/9NEED OUTPUT DEVICE
SAME DEVICE!
NO SUCH DEVICE
NO ROOM ON OUTPUT DEV FOR NO DIRECTORY ROOM FORCAN	T FIND DIF LNGTHD NO
PIP NOT ON SYS!
ARE YOU SURE?
YES!
^C
<B<BULFPB<	>E"==NO ERRORS
CANT READ OUTDEV!
CANT READ IN-DEV DIRCTRY
CANT WRITE OUT-DEV DIRCTRY
AUTO MUST BE FIRST!
I/0 ERROR READING IN-DEV
WRITING OUT-DEV
READING OUT-DEV
CANT READ CANT WRITE NON-IDNTCL PIPSV<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B2QNT8ZVJC^T8NT<JIJU> *QJV^T<HR2K.PIL<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B
B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B

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