File EPIC.SV (save files (Executable program)

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

??2CBP
>DTSDDXEL:DF<TDV: 	A"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BH??%)8 H^H99 H8H+?4JDJD>PKHEDNZ58P2??BMN LY? ?<-2OBJT75=N\
NR6<C\B)=WFDB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?2J	?HH,X+0&0V0L>D?*MK>	=K<K"> *TH*> $)$W0!*U2J$:E0&	;	:K9X/K8XHH/YGHXYHH]HQHH.YE2IO78D?*2X]XZO6C5> ;XYF;(G4IF< XZO4YFO3< X]O6YO7YDO2YC	1IF?+WK0YFID9T8DQF=+O:MF["$W/"H ^
MBMBMBMBMBMBMH+6XP;&X JA9DXSHR8D=H-3XRHSCWD>$>&>"P>>%>.SRT8R6?O?> *MID?H*MQGQHQE*G2A.2ILH2A]GMG]HQGQHQE*M."70I0JX&0LH&.XX4"70QH40V:. "70Y0^X&H&.(X4"70!H40&:./N7[R7K8F8DC>H+:.70Y/D0\K=> /D0Z$WK<	;K:	;$W0!+R/U>EP]-3PZI$*2B1[&HU>(+0(-[&J2J%0B+5K	I=H:9F8FA"2I
\OK&/[HY>(H">(+<CCD/C^==G>AH*>(*F8A
?K>K=X;O?YN0L$<RHXXHH/YFH.YELH]FQFQE*SPHLHZ4H8> K<K;%M9H
J4<(*	>X+)J4X
X?H
8![(	:IAL>Z4$"6,(P?S(*<K9%M,"$<<H*.;&H^>(+ER*-H8> ,"%L,0%L,8$W: $)$<R*-;$[	H^K8YEME[[%L$W: $)$;:$<<H/RS	+U,(K7%KH/%J%L,?IN%K,"%Q9F8FA"LZN(^DPC??DXP)>$=)
L/>(/?O>YNH*>(K=K<YO0VK;%MH8>(*[9H]H
>P*Z%L-,,"H]YEIEIAZ9IE]HH
8!QH]HQH]HH8< X
H*>(*/: $)H,8!H+> *6NN$B6,(R9	:T>P
+DH\>(X,"P+*6XH*> $)%L,0$W*-KWYEH:%O$VQE+Q/N>,K9%ONNNH,X+/X: XTHMXPLP$6: HM*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MC?LBD/?1)>F$;<(*AK?<(*A9H>(*RK>H&>(8A8A8AX^.	=[*"&PU*T$;8!HP> *P$;8!HQ> *PK*?H*OR*QH*>($VX6H.[+;&[,$;\!P!H&$YS,*/;&H!X!MS+*-$;$YH&8!H6>(+I: [*K-?H*O;X
&\7P7.&L!9F8D\TP!L!9J8J8H[.K.C<LT8D\TLT	;K.C:P!L!PT\TLT	;P!PT/M??>(/	H;]HXS/	I680!+8<MQGLM<A>"M	?K>%O"^PU*EHP%OHQ%O.K=X!K<X7HXXTXPXQK;XU.M<B0L:.YX6H.[NLTQLT9J8J[OKOC:[PKO8HC9[OKP%OKP$YPTLTQLTC99J8JKO8J8J%OH4$YLTC:%OH4$YPTSN*"H6%OH6$Y$V.^YEK8YFIE8J=H8P8HQF
W8$:H68DX6/Q2I\=,.S*/%%0HH??[(A/%$V!AF+9K0$YK2[2?5<C??
-2.XBAINNYERME8J8J8J"O.ME"O.QE*DC?<(.OROK>=HK=K<	;.OK:	;K9	;.Z%L-[,"YGIGYE;&YFME8J8J8J"O*5ME"O*5QEQF*)KEIGYEME>(+FKB	;ME8J8J8J"OB.ME"OCK<	;.8DYEH.YFIE8F8DYE8DYGIEC8K7	;IG9HQF+NK<	;/IK[7K][]S)+M2J	,G<D<?2?>GCYCSB+CLCICSCTB B<B0GBJBMD/B A? ?H8> .H.YEH*>($VH
XHH/YFLH8!MF> *(QFQE*MH?8!L>>(.%L-"H?	?%L-	L>	?$W: $)$<	>*D%L-"H/%J%L-	HX8A%J*"YEK=YFIEQ8!9DIEHQ9J=H8P8HQF*==H+GYFHP+KYFHP8H8TXQIFC<9FXPHPQ8!9DHPHQXQIF9J8JXPHP9H9HYFIFP8!9DHPIFXP.22A<P%$=XGH"9H<X5>P9QX"HG/"P:/5K%H;[%/50?9GROIK?XHLH>(*OK>YEPHLH> *OQE*H: X-
K=YEK<XHLHQE*VH[> *!L/>(*!RQ: X%.QYEIEZ(%L$W>D?.;$YFQEME> *%QF*/.[BH/[CH
[DIN	;2JIN9$:+KKCYAKDX
.6%L-WKB	:IN%KH/%J$W,"-KX P7H78!K!?H%NH \7/VD=HO9T[&-KWKH,%JK.%J];/	BJM3C5> S///DH%?H% OI\*W?6?8*D"L=?)=D?="L>N*DA?7.YEK?XINLXHRLNLYFRLNLYHRLNLYG2ILH< QE2A\IHHIHXHQG*[IE>(*5IFXIK?XHNLYELH\I\IQE*/\IRL.LN7YER79K>AIC>8.7ME<(.7YF: ]FQEMEQE<(+AYGMGEE8!ME> ]F+G
=("K=YBK<X	K;X K:[)	9+"	8,"	8QBP	P S)+","K5%JP+(-KAU0?2?$?V?HB ?<HXZRQ?6*,*"*X?/)4[INYERME[KQEME[MHR[LHRX2KI<(.KL=(*Z:KI8![LKLX2[I	?WK.KLKM[MK>X5;&[JL5< **P5*8X1P58AL5>(*8L5X3	=1*<H2H3\5P5SJ*%*NL/>(+DX
H1YNK<%MP$<H.: *7<(+XSFSF8A>(/FSF/F<1%)/F8SF/FX %)<H+&H %U	5/];$M6]6H 9F8FX H 6H 9F8F6%&/]-;ACXG	>AAHGDX)>XEJZE;X*FZ7$VNEZ8REN8	?R8N899F8F8F8DHSJ7Z[R8N8Z]$P*!RE.E:%L-[;$J8YEME%KL/>(*.H/%JJ]	>J7?*5K=	<$W.EACZN		AC9J8JJN9J8J*.=&-;%(<H+S%	88%*		X$		X%		X&-K	
-K*%(%NH+H->(+%	%*88"	/VI2>(%T+]X[5IIXJH9XZHZ>(-KP:+5K5H;[5Y5L:2A\JP9<H-KD/C
OI\H-?*FK?<HL	[[H%> *SH[?H*QMB?.L X/O[<(.YNK>%MK[8AYEIA]EH
[;&X0K=X5X$L5<(+PYNK$[%K$?*6K>%MK8!H
>(+C[%K<%MH
?+K8!H
? +&K8!X
H58AYEIA]EK>K%K$>(+OK;%MP$P5P5P0*%H$<(+\8!X$K	:K;H/X/L/> *S.??L	%KH/%J%L,?L5%K$WH58AYE: ]E+PC8]3/1<
VDC)>B*E9YFIFK?YE2IME2A< *X;$IF>(H:K>ZUIF2J$:A*ZJUX.%L-WK=	<,"9K;YEMEZ&%L.
%]I:&;I=H%X"%
H">(*4&;\<&;I:% .%\\<*60AP%]I1%]I4H%Z?X4	I%\CG2AH%<(/9?+SJ?>(/<J?>(+5%]I7"	;I7H%> /7%\I7H%Z?	=%]I7%\I7	;\<%]I7H%>(/8%\I4	:I1%]I4+%%
-K^K^^H.(NOIA:>&$=),O?YNIN[ K>X	L/>(*VK=%MIA["L	[2IO<2A[%"W,"	;
 ,"K:
9	;
+]: [&;Z
9K8XHK7XIK6[)2ILH8!LI> *8S)*+2AS"S%P
*X.W2AS&+DK %KK"	5K%KK%	5$WK(> ,"K	> +ZK4K)	5HHYE2IME2A	5HIYE2IME2A	5$W$V2I*0;Z
9,"AA9DK>[>H(8DK=[=;$[;P"DOI<S?O?X\TXE>PB*E)>O?9YNL/> *MINK>YEMEX
YA*OK=%MX;: X6X!INX18AX2	<	;	:*&Z5K9XHPHLH8!J5> *^LHZ(&(*X 7RXW]C <S&O$=E+ 7K8	7$W.7H?	6H!>(+DK5	7H$>(+IK4	7K3	7HU	6H;	6H6	6$W.<"9&1$H%]I=&5&0$K&7$N&0$Q&4I=%]I:%\I=P$8&2I:&0\<&5KKH$X$/PTW3BB CBCFOID/B? 	"O$DB	?)>LTH^>(.LTX&PTH&K?>(.RH&.".OC>9F8F8FYE"*"C>I
YE"*""?"?"?.OIERO.OHTYG".%"?YF"*<K=YEIEC<>(*7IGXT.%IF9F8DIE*+R%IF.%: HTXT.?YE9H
IE>P+M	;/DIEX?H?IAX3	:1,(X$XU/D"%H?D/XH$>(+%	91,(: X!H?8ADX$/]H$>(,"	91,(,",3	30AYH
	XXE 7?8=P?=TH,X0K?XT	>K=<(*5K<<(/;K:<(*4K9< *XK8	7K6	7$W*AK5> *)H,8!H0>(*E: H0X0: HTXTK4	7*EH&	7H&K3>(*EH&\TPTP0*E8A\TLT8!X^K?XT$W.	2+BC1XUMH^> .=HU8AC1< +A	0+BW	/K.	7"	2/M
/MHUO-YE2IME2A/WYEHUO-YFIE2I]F2A: X$/
X%X$X\B/OI]C?"%= C\>VCUD/C^?8?6ELG=6D(6	?<HX;	?<HX6H^Z9Z8H;68!XP: Z7	>6HP>(*$PUHUC=> *PK=XUJ9> *3	<HU>(*N*3J7>(*)H?	;: Z8Z7HU	;$W	:H^>(*UJ8>(	9.	E	EK
X	H.> +[
KZ+	0:0/H$?(/F	\+O8 K
[
+G)(N.)0):(>)
??G?0?90/R.1]F%<H[K
=: KWH/8!
\H0<(8 O\=/S[F+4KY	PSF+2;&O^	P 7%MOI]C?%W"%MPMP4
4
4
4
4
4
4
4
+4+8+<,,D,H,L,P,T,X,\, ,$,(,,-H-H-P,0*XAHAC *YACAA *ZAPA*[AAA*!AAACD*\ADA*]ACAP*^AC AB*
AHACH* A ACP[$AC [AB\AB*AA8ACD
	AP
(A AE*E*G*G*G*I*K*K*K*K*G*6+G+L+Q+V+[+ +%+*+/F4SVPASS2SVPASS2OSVPASS3SVRALFSVLIBRASVFORLIBRLLOADSVFORRTSFTMRKRTSSVFORIOSVEZGENSVFLAPSVSYS:DSK:TTY:LPT:DTA0:DTA1:DTA2:DTA3:DTA4:DTA5:DTA6:DTA7:PTP:PTR:CDR:END OF TAPE ENTER NEXT IS TOO BIG FOR PARITY ERROR L/
 ERROR USR I/O ERROR NEED: FOUND: BAD =BLK>,?X&Y=1?0?"M3H>]3/;%-N	<H$X$[%X"H%>(X$"H(X)"H"X&K%X%P.	;.8 H$X$&"*X0/K=X	H)< *,X!.H)8HX)<P*69H"H&X"8DH%K%8H[%H"8HX"8HX!P	*+.X)H"<P+G9H&8HX"H)8HR+A9!X&8T/Q-D%-OR	<8!H$X$H(9!X(%H&X!K>Z+IKRZ*WH%H(>X/?K>X"+5H%8DX%H%H
<XX%:H&8DX&P"+-/%1],(?4?33-%-N	W2AH(>(*WH%>(*SH$9!H	= *Y8!"\":H	X$/	>R.":"\*S8 X H(8D:H(8HX(H)8HX)8HX"P	8P *
.\H!9DX!H&8DX&H%8DX%./8 X H%8D:H%8HX%H&8HX&8HX!P$8P *=.:;/=%-OO	W&KOZ*D2?-=O-2?<>NH&9!X&8TH%9!X%/]H)9!X)8TH(9!X(/&9H"H!X!8DH)H&X&8DH(H%X%//-\2MX"L"X	HL"88X(HL"X).H%<(H&<(H!>(+!;ZH%< *[H&> ?H*^+\X!.M0/%-N!"H	X$H)X&H(X%R!2A.!%-N.Z!H$^!"=H%^!"=H&^!R.2A..R!.=
HZ=2LKG[E3E.=2IP"/HKH+A8!X%9H(H%<P+XX%8 H!X!;H%/[-]90H$X$& *UX$*^>;>?><MV	+$/	.%N%N-
-K%N[	HM?H+<K	9!HM>PS1/1K	?H+6/1<H%+J+%RM4]6%&%H*HJ*0Y+Q;H?0\X+H+%R0ZH+J&>(*BH+J(<(*,J	>(+FH+%%%	.)8*H=+A2<A6<**B?M68!M4>(*HJ;%R%)*<+A%&: M6]6*HC\M3AEH?]3*HM3AEH>]3*7%+KPJZH+%%M4]6%&.DPO<H84*KH49J8J</UH7K	?H%NL7X : H7X7H /[;V[8A
<[]M-K	5X$	5X%	5X&-KSIM3MODE SELECT IS /(DIGIT)$MODE FUNCTION0    PTAP I/O1    FED2    COMPAREH SET HI BIT =NY CLR DEFAULT NAMEZ 0 TO =NNULL SECT REPEATS---PTAP I/OL LOW SPEEDP PATCH MODEE DONT PUNCH EOT=N REL BLK TO PATCHNO OUT FILE IS READ---COMPAREA AB
RTB BAD BLOCKS ONLYDEV:F1<DEV:F2---FEDR,N1    READ BLK N1W       WRITE CUR. BLKO,N1    OPEN LOC NS,N1,N2 SEARCH FOR N1        WITH MASK N2C       CUR. STATUSE       EXIT TO DECODER---FORTRAN I/OCM COMPRA RALFLB LIBRAFL FORLIBFP FLAPLD LOADRT RTSMK MRKIO F
RIOGN EZGENE EVERYS COPY SAME IN PLACEINIT COMMAND ISSYS:<DTA0:/E/SFOR ARBITRARY FILE ITSDEV:F1<DEV:+ARL*OS%<??P<N??P<O??0<^??P<
??P <.??P</??P >^??P<>?>P<???0=N??P=O?=P 0=^??P=
?=P0 =.??P=/??P =>??P=???0>N??P>
??PBASICSVBCOMPSVBLOADSVBRTSSVBASICAFBASICSFBASICFFBASICUFBASICTM\JR+7	C/%**

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