File DCP.SV (save files (Executable program)

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

?>2CBPPDHYDXHLH?A8BH0 (BBLM7LC(?L( I	DG;D(0.\C,IH,LIL(LJ<AJ8N0 LB8D>LD0XU>(\L0B $UBXDPSDAPR0
"B"B&*6,B 3ER7AOP2 7J+P: "-616JRIA	DT	P2/WN3ITE7R2JNI+DCF3X3FD*M2I7J3S& 6IC[7RTT*M3E3OS&,7JOM" 	I7[KCL7F6JN+T226IOI7ZBIC*M2IGT3DVIN7D2JNI+ICA3C3L"M&J3TSA2IOP"M&J3S3N2 3CA*M2I7J7PNIT622J*IM	P3RGED7Y"J*M3SKU3M/S2=7J7SOM3K*+7IOMK*M3SKU7SCE.,BI"M&J<C?	>K=[U"G
<: Z=K;[V.G	>"Q/:R=*7JG>(*Y"=/<JA9K9<PZA<XRG9:8J8JK8Z	2B	E:RG=H/<>J)K9Z)J	B-9%Z=J(Z	8N	R	88.Q??K7[EOU<(.=	6A<BOUC?8!9J8J8!ZASUOUZ)SUZGR=.=	>KV?H+,"QZMJMB9DKV8F8F[VJMCHK5<(+0K4/:KVZM9P+""G+Y$	I%BZ=&B:ABIAU	HU(>OU+?0	?K>ZSK=ZN
<	;OEC:<(*Y	9A<BOE	9C>A*X
8/7;XW</6Z5O<=H<B> .[O8<(R5JSZ7J59F8F8FC:O8
8O89PJT>0/62B&N6/6.[OEC:K5ZN.:	?":/6>":C4K3> K2	1/FOPENINPUTOUTPUTCLOSE ERROR:2L2IK0/
IHX> K?%WH\IM >(+3H72CTUBZ?0G8?/U(U	U%BOTGTB6A>AU+??;&ZFK>9%ZK=ZA.G+JC"U+	ZCRF*);&ZFJC9F8FC?JD"5JC9J8J8HC?JE"5.UJFJZZ.JCB^ZD.U+JC"5+	[+JB> .5K+8^A8RA>R.5K<	;"G.5+JB> +	RC	:"U"U	9?J?J^B>(+X"5+OJ9XK><(+
K8	;: ZBN?	SD>A>HS*2C/*ZC2I;$K+[*O*[*/+G8?/W(W	 HR:SFR["H6B<START;&ZFK>9%ZK=ZA.G+JC"U+	ZCRF*);&ZFJC9F8FC?JD"5JC9J8J8HC?JE"5.UJFJZZ.JCB^ZD.U+JC"5+	[+JB> .5K+8^A8RA>R.5K<	;"G.5+JB> +	RC	:"U"U	9?J?J^B>(+X"5+OJ9XK><(+
K8	;: ZBN?	SD>A>HS*8/*ZC;$K+[*O*[*/+0^/";X*=2A HT:UFT[(H(H<E888<B[HZXU?
?B0IJVC??A?A?AEY.?8HB,B*B==C?<T\^,B+B.]0AJZ<%IEZ=SA0B! D\PB(3D=3=P=H?&B?4OXP ?2A8B0B BJBMC7CC?J(8I	G;PD0J.\CIK,ILJJA?JNN0HB>D>D<UF>JLGB$/?/>K=X"I?%>P"*D%=HA> 	<2J	;2IW:W:M<2A8F?*\K9
8K7%>	6*Y2J%;$3/52IK4XH9PO3I:<P:I99F8F8!M8\HO2\HSC*/I7XHK1XIK0[CLH\ISC*8\I8A2A2J%6BCH?)$3;W[A*?CREFSV< X!OLSL=H+\8!H!> +ZOL[L/LSL+O:/L2QLQXS2YLQXX2A/^I5X>(%4	/HS%3,2X4?;=?RSU%>NLYL!BLMSB\QUPA^B?0 L 	?H	XQI2X,*JHQA8I6XQI2X-H+9!HQ>X*^	>	=*\	<*F	;/:	9/8	7	6P
*LH	XQX.X/8AX1	5	>	=+Z!H&>(*<	<<H	4HP%>HQ%3%1%1HS%3	3	<,2%0*?	<+Z	4	2	1%0	;/0I/X^	9//HV%.HW>(+P%1I-%>%0HR%,+V	.	-HZ2I%+%=PQH+9!HQ>P*%/,H1>(	</!I*XI)>(%=/!BBSWNHHBC	P\=OG
T^ZTOWEQUR>N	R,NN?C^MSHSA(>(/?I	X^HSC>I8> *88AS>(*RK=	<9VS>(*XK;	<HS8J8HA(XU9GS>(**HUJ/Z$J0	<;US>(,2%1HSA&%%,2J0G:"= M L!M	:G-	-K:[FOFSF<(/?HS>(+CSF*:OF	<,2O?A%O>A-O7"]O6"LO4QO/^]O.\]O*\9O	J]O&HQO$JIO"JLO
*]O^(]OZ(9N
O1X^K7%Q9F8FA5LZ\Z2AH IP<(%)X -OM9:%-GGDMK,F=GC,HS8F?/?HSI9<P*RA$ZHS8JA>(<P*"A29H>8/>HS8J8JA(>(I5I"SZ<PK=K<K;ZANA8 BXSHSNA8!JRA> *5NA%.HS<(,2ZRA*$A6 4PP6WA60 6PP4WH5+BD\MD+\BM>BU0AP7	AU7!U VPVGAPEJ3,H0LF3	D0G&+AZJHICKLMNOPRSTDBFUINIAXNLNIK?2?:C,FAI!%>I %>
 X"H&X.I
%>.JZI69D<(.N[,8$ZJJ8F8DZJ8DA(<(RJ*K,*QI^%>9(C,*QZJ(ZNI]*PZ(9J(I6>X+S2LI\Z82AN(R(IJA[>(..*8A[<(/AIZA["J/AZJ8J8J8JAJA/IHYI6:HY<P+	IY>X+
IXA;ZHYA89H<(K	IJ(A2ZJ.ZN;[*PZ.P""J;&Z(J.8F8FZ.J.8DAWH^ZJNJIR(+2/,%1HA(> *A.2A2J	?$3P8.G:2AJ[ZHK>	=JO	<	;2C-8*\0&0!*]:.G2A2J	:<H.!?H$3/S"!<(*+A2IV< IU<(*+IT<(/^I?X!H!.*[K"*IS9I5>P+IKK9D8FH!IR*<KK.;:H!IQ> $3/LLP2A: \OK9[^"*+Y"*L+WK8[^"*	7CLORCNOVCT^?CDOTCA
UCIOQCSV1CZXBCKOOL/SCLM[M
QWJJNK,M>TPIPX< P1>(R.IPX]HR	?.HRHHRA8>(IOIN%>2QLR2AXUIMX]HR	?*$HU%,.HHU	>.HHU%%,2IMX>(-LIKX]HS	=-LIMX>(.0HS>(.0HS%,8HZ2I	<,2IUX< P1>(R?.?IYX>(/GIJ%>/GIP+WIIIM+WIHIHI5X]	;	:].+Y	9X$H!IG> +&	9<HH$X%H%9 H$>X$3/]H$	=H$8!H%>(/.P$+/8JL;MLL*J.U^]R]	IHX>(.H.> *9
0K?%+K>[EHQX.2QL.<(*18J8J8JA[<($3"&L.A[<(*1"&2YL.P.AH> *O$38!KE> .&SEKEA[> *M$3KE	=2QHQ%+KE	=8AH&> 	<H.8!HQ>(X.-FTEXT "=.-IEX]H\	;2QL\2AA[>(/:P\+J$3HSK9> /8:AHQX$H$X%2QH%K7>(+(;$P%L%> +^I5X]	6/8H&>(/,%0%0/,XH%0O.BAD\N
WU^JKA"QBH X$2I\ 9 ZH K?>X$3	>2IID9IC<X*^I(9IB>X*
P L$>($32A.A:H!A[R*(9F8F8F\ *LL \ P *EHS< 8 >(.,IAX> *<IXX>(HQA8> R,.,HSA]9F8FIXVLV<(.>XVR>HSA9XWHSA2XTHSA68!QHTXR.>	=<H/WH?%>H\<(,2?H;EH>%>H\=H8!%%,20GDK!TD8EDTA0"I(GDK!TD8EDTA1"I(LDK!>=U-L*JJA  PPDHBPBPBPBP00HS8F8FA(JZVHX]<P*	H]8D9XX]2QLR< ^I5JVZ%HX]HR^
R%,.OHRA8> 8AH=X\HT9!L\> +RH]A,> +YHR[^S^K^A2>(+J2QO^8!LR2A> *=+Y8 L\\\IPX]HR^.OIP2YDR2A> .O<X-.OHZ$<.OX\9H\I6>X++2YH]8 D\H]\\2A/^HSA]HBH;> +>HQ8!HRX\H\=H8!9H:>XS-/-?P	?	>	=<($3<HH!	?K<> *78 *3\MR0/$3;XHSA:9F8F> /E2Q<XLR<PHRX\2AK;XMLM<(/E8!H\>(+!LM?+]+VHQ
\P\LM=H+K	:CNW3CLW2CAQHCIW1$3III5I5X]H\	9+20U^CLU?=3L;MLL*?	?H9> $3	><($38!ZH!IQ<(*[K=> $3	>\HH!H9> $3	>\H*K8 \H	<H$<($3\IH%\II5X]	;	?K:>(*-H!*8 \IHIK9?H*]$3H/> +GK8XILI<(.48!HQ>(+ELI?+A*:LIX/HQ8!H/>(X/LI=H$3	7CUZCVZACLN8CNC,B(Y]B)Y $3HIZA+LJAXI+L>(+W%")$
I9H-/+J
A/H[8 \/6%</3[Z[&^A^ACLZX$7=3O.O]?RL;L*;ZK?X]HS%3%0K>%>[YHS]9[ZKZO=<P*SSY*K:KY\KZ\,2X!K<XH[[LH9!H!<P+(LH+ :K[< %>/\: X /9
+].=P=HB<B?+4<^X\&[HXB/O?XYK?Z[2AN[R[9 <(*N8AHY>(*VR[<X*ERHYA2I8*XN[R[XZ2A.XZ2A;$J[Z[N[Z\HY^[R[N[Z]HZ^[R[J\R\*9^[2A9J[H
>X$3.^XYJ]XZ*$: [NHQ"+JIKX> SN.=	>.=SNN	>*D	=	</N9I6<X+I8X\IPX]H\	<H+IKX]H\	SR:/R[&2YO&2A]> S	/	B
8OSQ=PJMJKBJL==?)Q,J
  IKZ2ANRXYNRZA2AHY8 >(.BJA2I%+H8%>HY%3%=*EZH	8!H+X[H+8!J9H[>P*,IUX]J	?*<J%,*3J	><H*<	=2IHZ%+H8%>J%3%=R* .Z	<: X%	;	:H!H9> +P	9X%H%%,8H$	8+B	;P%+J$3H1>(/TX1	7H7%>HQ%3%=/THZ2I%+H.> +*H6%>/ K62A%+HQ8!H.8A%%%=/ M+BQF]N\^L;RAMLL*Q,]R]	2AH5O?
?2J	>H2J%6E	=	<K;	:2I>"2A	H)9JA6>(*[K9
8S&<P*
O7
6:A(<(H)8H>XK5O4X&2IM7<(H&]72A<XK&X&H)8FA6XA<X
3H(A9XB9Z(XCH)C2< +GK1	:2A"^2ALA8H>P+[
02IM82A> +VK;	:2A"2I>2J	/5> $3	.H+<(+9AI6<X:I8X+/-CO2L5I:B 09"I	DSAB
?:QD$"AHPDYDSD/<H"$?;(3&??&BDCPLSTMDCPFOPSV;E(> 
?H(C>>(*SO=
<H(C;>(/:;&"$2A"E2ACH/:JF%>I$%>.BIZ=N$R$Z2N$R$Z;N$R$Z5N$R$Z<2AN;R;2A^<R<R=*2.$8J8J*"JK([(K?ZA+O09+G0::/F0Y+^.;W06FK.[EK&[D*QK/KE[EKEK.?.09+L+R0D4ZX4ZD;0?3?>2B\X24X0DE\?5G\B04B\DXZCK!A?BK(AT,T:PT7K?ZSK>ZR2INRRR	=RS*EK<%>2INR	=2A.CNCOB/CDCAB/CTCEC;Z^K:Z
J^K9=H*+R
*&K8Z^J
\LJ^\LPL. K7XL2IO62A<(+KZ]J]9F8F8D" J]8J8H" K5\LJ]C4K:\LJT<(.3%>SK+K+T3T/J[DK:/J;[[D*<3Q<H/Z0Y+[0\K9> +[2C/8)Q&)   ?A??AA><BF??AL33LG88GGB7>6$SB:?6B0
B.KI>A?=2IM8<(O?2A> .K>"Q$32IO=2A?/</;ZZNZ"
NZRZ2J%6D>HRQ.Q2J%6A6A$3K:Z.
[	K9Z19V2A2J%6B	$+BR(J29I9<P:I:9	959D2I\NJ1\N:.(2IO?2A> /DK8	72I>2A	K6"Q8;V"
K5XNHC> K4K3"($3K2"(2I\N2A/D2K/B	]LD2C .?<)0
]SMSV.8>N	"$?;	$6ALY G>"">O2J	?**2IM8AW]8O>K=>(I:K<X
2A2J	;	:HC> +/9K8%+K7%3%0%0	6%0%0%0	5%=K4X3/3/DEASS AB-V?H$3*J2A2J	2$3.-J=2Y^=N=8!J=>(2L>($32A.32A	1L!)R)O)K$3*UO0[J/K[H/O[IKJ> /R9KHI6>X/RKI2Q
H2Y
HSH/RE-SKIPPING-ERROR ON OUTPU+M,PMDLO$3$W($*+OPAJA9RNRO?8AZ$	>[NKN8!C=> $3	>[0	>[1	>[22IO<[O	>Z	>Z"J"C;KM> */J"C:K9Z"2B	O$32YJ"C=9%[L^RSL*+J"8J8J8JC89IJ$Z$SN*S2I: 
7W6M<?H+J2AK0C;KM> +JK1\OK5\O2A/42Y[MI6[NIU
MSMSN+T2I[MH5X]H]G3> +)H4KM[MH]9H<P+\[MKM8!9H8JI^XP/O>%(UVPGP=
P
G8QE?(->P>")[^")[
")[ ")[!2LK?[YKY[P2TK?[T["&&&KK>=H+AK>=H*7K>=H*2K=> *-&KK<> **UNR.)KC;RC*U:J)> *U+P:Z)/RBKK$K"["*T:K%C:JA>(+K/RA*</8!K">(R2C.[/2AORSRK][[2CK/ /R	^K$[K%[$R[%/&K$C:< +PK9F8F8FK$//C8<A?A?2C:2AO?
>JTRERN8 <(*QJ> *EJ
	=/<J
;/:&J&$	\(+(=)F*IL(*%(1!Z??00N0X0
0*040=1E1E1E1KSVP=?:DATESVDM?<ORIGPRSVE%?;PAL8SVF%?0SQSVF%?>FLXISOSVF=?:TECOSVG%?4ADDDOCTEI%?=READLNI%?9ANTIQSVJM?;BRINITSVJM?>PIPSVJ]?5BUILDPQ=?<IOGLVLOLXJ.LHL[ERROR DELETING DSK:DCPLS.TMHANDLER FETCH ERRORLOOKUP ERRORCANT OPEN OUTPUT FILEMUST HAVE 16K C
REBAD BINARY INPUTBAD CORE IMAGEINPUT ERROROUTPUT DEV IS WRITE-ONLYVMAPSVO]?<COMPSVO]?;IDEASTXPM??FYLHLPHLPM?<EDITSVPM?4R*M2IGT7D.I.-Z2"0*M2I7J7PJI3ESA"+612JSR"2&,3TSA6IWNM*M2I7J3P& 2IWRA7D6JWNM&,"0*M2MNJ3HOKR&,"0*M2I3CA*M2IGT3DNI7HKA"M&J3TSA*I7[.2V1"M&J3
GZ2 3CA*M6IKE7RKO"M&J7JCM" 	I3C/HC7R"J*M7ICN+U3T6IKE"+&12I"//LCT.0B02 ;O6 KP3EGM7TKU3EV +NCD+OCF2.;B2 ;I7PSU*M>J

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