File PFCF5.SV (save files (Executable program)

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

?>2CY$LH
%"?;LIB8RL&"?"PIPSV&"?5EDITSV&"?6PAL8SV&"?0FORTSV&"?	SABRSV&"?(LOADERSV&"?4BUILDSV&"?TDCOPYSV&"?9FOCALSVWD?0POLDA\,?=PFCF2?;?9PFCF22?;?<PFCF5\4?<8, [AI2I+! [AG2I+^ [AH2I+! [AJ2I<%8/<8/; [BT2I9:2I,- [2MFJ+RCG/\J9"1*M3TSA. Z(2MNJ+MCA2MNJ3A3L* 233SKUS7C6JKA7
2 J7B6JKA7G2 I7B6JKA7G2 A612JW^2MNJ3A3L* 213IO6M:J+EB,3A
R" 602JGC+LCL21&,O7H6JKA/GB 6M2J*7272 ?NP6 2J7J7P: C*M+^3D" *M/\"72,: +OCP2M*J+MCP^7A2JK^",6 2JOD7A2 J7C2J[^2,& +SCZ3\OJ6MRJ+ACD3\OJ$GPH^ <B,F>>G2I<<?4JF2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[HRGE>G!6AB$BJBM>E?AC^C
BB44B(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?D5KNDEFJJEZNJFZO;X*PBNZEJNZS8NOROXG: NOROXHJM2I
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2I
=&C+%HG[/.< JEC-2I
>.2I
<.2I
;: [-ZE;VJN[+8.O??8LH/.K2ZNK3ZO;([-*PRQEEPK(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5KNK)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*S-	:	
<
=?8GC?RQPJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*JXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX 2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  XK[[K\[$ [AF2IK[Z<;VK\Z=*> [AR2IF:;(+SY]I\A-K>I]Y\H5Y]KN?==4D\RQPD5KNJDEFH;K(HHJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  K$IVZJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX8
XX	;SA+VHXXPHYXQHZXR&D  J [AR2IH9;(2I
:+0PD*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  VJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  M:2IO([^S(O([
 [AR2IK\;(+$0Q PB[BOBNEFEEBOUZAJFZK8NGRGZRNGRGZ)8N)"W  \Z)K?ZC9DZJA9DZA<XJ)JRC*[.WNX$IVZ=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  S:S.S.REJA=HJD<H9HRE+7  T33+<:?4JZD8NARAZKNARAZQ8N
=H8!  [>DRRRR  ] [AR2IL	;(  SZQ2I
?
>
=JQ  ULAZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 8N*< 	38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3LWX;/(7A$
H5A3K>??ARQPOIOERXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [Q.VSTP&R*RLP-P1QLRAR=SVSVSVSVSVSVSV0Q*FHG0V:  W0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==U	BMAB SZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2I	E[KKJ8!9HKGZR2IKK<X+:8F8F8F<HNR^R: KJ[J+%C?2A
W>(+V2B2I&X+VB  W2ANY>(+V2BHGB2I&Z+V*JARFFAQF)K?0&660Z0V0L [U2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AR2IPAQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565NPFBJTA???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  R8DBJJTP/JC<<(*2K;=HK:K9 [W/P [^2C.M0!+  ^["O"<X+/8J8J8JC22I/	?A-K>I]Y\H5Y]B A?
?SMBM?<IOERKW"7OT<(*Q\HLKX2B2I	V  B [AR2IV"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ	ZBJ(ZCK[ZZK\ [WRZ*0KZ*LXHJBZ;NC[FRCNCZ;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZBK\ZCLWTK3[SK?Z [AB2IW22AK>2A
4
5+	SCSVE9E/;(2I
:+0PD*?A?FCH$GPH^ <B,F>>G2A<<?4JF2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[HRGE2J%LI,)X)2LIJYC2C-EBMRJOPQB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?2A2I2I2A2I2A2I2I2I2I2I2I2I2I2A2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2IY$R[VB,+N28KJ6FFXBNH;HHBEK^,4JSW[U[TKL
M-N
J%PCF<G[C2NLFNQU!VUV	?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

8P78H),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ X[L[BKNZ(J(KGZ*2CN([[N*<(+]X7/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%\OK&/[HY>(2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"N)CR3WS3S&*-)C*;+S+PJF8
8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<X -OM9=.2I
POP
R2AOSKTZ(: J(>(*SJ(")";: J(*H:A")	Q!W/U	Q"AD(/U")KV
WKZ
YK(
X2K.AH 9F8DK[XHHHX\HHX!HHX	HHX.HHX3HHX8.)HPK\XIHIXJK]XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;(CGC!0A?&?%?$2K2AZ?^2I
&S&S	+
2A/%B%>?Y^*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+	$6+;="R&*M",J	?H*OJ)X<K?
>J*C2K.J(X<J+*L=)R	* ",J&?H*"J)X=K=
>J*C2K.SJ(X=J+*
HRS?M?JW2IO<C;>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K4
=2I.,J 
3O38!
22A/C$S/EOL<(,?SSL+M??XPHP8J8J8J]HP]/S><(/]H==HIHH<6/]HUSHVSHWSHX>(/	H;535%L=/PO?W?TAHAP>F2=VFM:)2LJDZJ2C2J&WHJXZW2C.I(2AJW=2J?&WIJQZW.LBBJOZ"L2K^J$^%J."WAAH	:,CECNCDB CLCOCCCKB B2B,CCCHCACICNCYCNCOCMCICACLB CFCUCNCCCTCICOCNB CCCUCRCVCEB CFCICTCTCICNCGO)[
	-9+%K[7K][]S)+M2J	,G<D<?2?>GCYBMBLBJB BI??N/N/N>RGRIRBRBRI9H/7
X+ABSYM^X*ARGL4\JANDX+BLOCKVX*CALLLX+COMMNNYJCIA8!XJCLA:YJCLL9YJCMA8 YJCML8PX+DECIM	]X+DUMMY-\\JDCAXX*EAP3=X*ENDE]X+ENTRY62X+FORTR[/ZJHLT<BX)IF3ZX+CPAGEV[\ZISZP\JINCPYJIAC8AXJIOF0BXJION0A\JJMP(\JJMS XJKRB0^XZKSF0YX*LAP3:YJNOP8X+OCTAL	 X+OPDEF^EZJOSR<DX*PA
EC\X+PAUSENXJPLS0VXZPSF0QX+REORGC%X+RETRN"/YJRAL8DYJRAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXTTO,A^RS$PFCFP-POLSYS8 [A [BB2AY!2AY^Z;R;J;8!K>?H/=Z<R<J<8!K>?H/<+?Z[Z]F8 
BC2A[>2AZ?K=8  [CD2AX<2AX;2AU>ZS [AE2I [AE2I8/<8/;2A
:2AW:O:8!K=?H*> [BC2A[>2AZ?8  [BD2AX=2AW*Z6 [AE2I [AE2I8*
+D(E21.15)8  [BD2A[92AXN*)K=8  [CD2A[92A[92AU>*+ [AF2A*+ [AG2A*)8  [BD2A[82AXN*)K=8  [CD2A[82A[92AU>*+ [AF2A*++?8ABAX=Y.Y5FD8 [AG2A*)8  [BD2A]>2AXW*)8  [BD2A]>2AW**+ [AF2A*+ [AG2A*)
=2AW=O=8!K<?H/;
:2AW:O:8!K<?H/98  [BD2AX>2AX]*)K88  [CD2A]>2AX>2AU>*+K88  [CD2A]>2A]>2AU>*- [AF2A*+ [AH2AYQ [AF2A*- [AH2AYT [AI2AYQ [AJ2AYT [AG2A*)K<8  [CD2AX?2AX>2AX)*)K88 +?2C<(>F FX? HBX>A8 [CD2AX?2AX>2AU>*+8  [BD2AX>2AX]*-K>8  [CD2AX?2A
=2AU>*/ [AF2A*- [AH2AYQ [AF2A*/ [AK2AYQ [AH2AYQ [AF2A*+ [AL2AYQ [AG2A*)8  [BD2AX>2AX5*)8  [BD2AX>2AW**+8  [BD2AX>2AX]*-8  [BD2A
=2AW**/ [AF2A*- [AH2AYQ [AF2A*/ [AK2AYQ [AH2AYQ [AF2A*+ [AL2AYQ+?B2"565"JAF8 [AG2A*)8/>8/=8  [BD2A!<2AXT*)K;8  [CD2A!;2A!;2AX)*+ [AF2A*+ [AG2A*)8  [BD2A!;2AXW*)8  [BD2A!;2AX5*+ [AF2A*+ [AG2A*)8  [BD2A!;2AXW*) [AF2A*) [AH2AY8  [BD2A!;2AW<*)8  [BD2A!<2AXT*+
[AF2A*+ [AH2AYQ [AI2AY [AJ2AYQ [AG2A*)K;8 +?&Z*Z&Z*Z&Z*Z&Z*Z&ZBA\]\%8 [CD2A>2A=2AXB*)8  [BD2A>2AXN*+8  [BD2A>2AW<*- [AF2A*+ [AH2AYQ [AF2A*- [AK2AYQ [AG2A*)8  [BD2A=2AXW*)K>8  [CD2A>2A=2AXB*+ [AF2A*) [AH2AYQ [AF2A*+ [M [AI2AYQ [AH2AYC8  [BD2A=2AW<*)8  [BD2
=2AXN*+ [AF2A*+ [AH2AYQ [AI2AYC [AJ2AYQ [AG2A*)+?*Z&ZAB8 [BN2A%>2A$W8  [BD2A%>2AW<$P [AE2I [AE2I*$(////////	X**0 =	,E15.8) [BN2A%>2A$;8  [BD2A%=2AW<$4 [AE2I [AE2I+D(	X**1 =	,E15.8) [BN2A%>2A%O [AE2I+$(//////	NEED PRINT OUT? (YES=1, NO=0)	//) [BC2A%>2A%3 [
E2AYF [AE2I+6(I3)8A8!2AO<+?*ZYFBA8>(*C/> [BN2A	=2A&N [AE2I*&(////	ENTER STARTING AND ENDING POINTS OF X	/) [BC2A	=2A	C [AE2AYG [AE2I [BC2A	=2A	C [AE2AYJ [AE2I+G(F10.4)2A
<2AW<O<8!K;?H/: [AI2AYJ [AL2AYG [AJ2AY[ [AH2AXN8  [BD2AYM2AT*)8A8!O<
9 [AO2AYW [AK2AXN+?ON3T?I3NYW)JUYMA*!8 [AI2AYG [AG2A*)8  [BD2A)>2AW<*)8  [BD2AYM2AT*+ [AF2A*) [AH2AYQ [AF2A*+ [AK2AYQ [AH2AYN8  [BD2AYM2AT?*)8  [BD2A)=2AW<*+ [AF2A*+ [AI2AYN [AG2A*)8/< [BN2A)=2A)U [AE2I+Z(//////)2A
;2AW;O;8!K:?H/9 [BN2A)=2A*P8  [BD2AYM2AT)3 [AE2I8 +?X"1*!UYM	IAB8 [BD2AYM2AT?*I [AE2I [AE2I*
(	X =	, F15.6,5X	Y =	,F15.6)8/? [AP2AYX [Q [Q6)6J^I7RSI/EF(.,J3*0B)/XN(")*M.3B22I?F3RGM+T^(+X**.26 2	V,*1:5"86)6J^I7RSI/EF(.,B6"06).JB620ZI3O7R+AT*/>/*/>/2	WN+ECD3P	R+NCT7OSU*?" 7YOE*=212 ?N*=&0*	>/"))\2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AR2A,2*-,8N5R52A.JJ+Z4
,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  N/OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%/08A[(BZ=&C?<?842/AT1FM<=XS	?	>.+?Q. ?R/&?T.]?W/B?X.-?Y.? .A.T2A
=	<8 Z
O=C;K:>(	9*	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2AO3
ASA	<8!
A;VK+?H*O3[)OA[**	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2AO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2AO%
3*	<[%*YXW9YXW9U3WG4Y,3=W4O	?Y4
:?8?/:],)8*-W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AS2A,*K8	: [TK8	:*:	?	>Z[O==: 2AO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2AW>*<2AO=8!<H:I== 	6R[* *I:K8	:*12AO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/SP$VZP$VZP$VZPXV3M	V3M	V3M	 ;%7O.9E/%0-4OE?;7P68 %<HO?8 [N[K [U8 [L8 2A
>:SN<H*7	=	<2 ?R22? 2M?U2M?S2K?;26,O[M [AK2A-/ [AH2A-,KM [V [AI2A-,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AK2A-/SK+U+]	; [AG2AA>/77G2 I*M3A
R6 	\Y*M3^KA2MNJ3A3L* 213IO6M0 <E P;Z8*487O/%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [W.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [WC3K2<(*3K19K:<P*9*4"566.JZ6"561"J602JG^+CB,6M2J*7202 ?NP6 2J7J7P: Y*M+^3Z" *M/\B6*2B,3C3A/L>-?3A???J?M8,!B A? -W ,2:W	?/> [AF2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AK2A-/SP*RQ [AH2A-,K:2I
=2AO9K8>(KP8!I==8 	7 [AI2A-,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R622JK\*1B,3B?L+CCK"2626J\.,B 6MBJ3AWGGH?<RQ;Z?:,)PD/4 P2: [UR)*HRL  EI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 78KDG9F8TZ(;(DG8!RL*P[DKDK?9K><X*>R*:2AN*R*<(*?KD>(*>R**3[D2AN*Z*KD.*8![D*2IO=XUO<XTO;C:XSHS
;**2IO=HU
=8DO<HT
<8DO;HS
;O;9H8JC:K9	8SD+H/E2IO=9D
=O<8D
<O;8D
;2A/*3B4O0OPQRJ?FHSY=2AO?<(.	>,R?(4?7<&?84K?:0"?;0A??:-,R2AW=.W
?.HS<(:A2A.]"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,I>[WI=KY9HI?XG8/O[Y+! [AJ2A-/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C*/%? 484O?8,24Y.
8*,)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<<Y? <J?U<J?S<G,MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AS2A,*XS [T-*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W?H>G8XH\H+&BJCX>
?/?.>G?2?0?1?;4O01SD/%?<:83O8*487O3NPLAA>XAC9?<%BPSJF; SAC"P[! A\BANK;><4KN   [U E\NA<E\QBT<,BN  0[U E\NA;E\TS3;*A$Q P[] A\BAD,HU 1HBAN   [U E\NA;E\QBWHNXH["EE\TS3;.ATQ P[] A\BAD,HU 1HBAN   [U E\NA;E\QBWD,HU 1GBAXH[!IE\Q;D ,HU 2E>A,SE\FAA<N   [U 

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