File RTFLOP.SV (save files (Executable program)

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

?>2CBXCPWH
>4DL;0XHLJHRXBDJ$+\D7 ANP2D=D2LH8CA2L DJ >K,?>.A38>LA<)CPABYBHH(5"B"B&*;.	&+,;%P7A"J*M?
S;)O4?(O%":*M*/CB* B > KT?%S!* B!+!C3?"S9?%N ;([)4&I* B * B */CK* B > OU;%V ?8K4;!6 ;%?-2792JN/* B 2 N ;(	!?.R 3/N 3R[E"I&I* B * B */CL* B : ?L!7$2JV/* B 2 V ;.K!+,C%?%K2+/C2;-
3: ;/: 	,+.C+;	;%;%G2;4S%* B * > +NB * B +NC/?,O);4;)	*MCZCECRCOB-CACRCEB CYCOCUB CSCUCRCEB?CBCACDB CSCLCACSCHB COCPCTCICOCNCDCSCKCTCTCYCBCACDB CDCICRCECCCTCOCRCYCNCECECDB CFCICLCEB CNCACMCECSCECGCMCECNCTB CFCUCLCLCHCACNCDCLCECRB CFCECTCCCHB CFCACICLCECDC
COB COCPCTCICOCNB CFCLCACGCOCUCTCPCUCTB CDCECVCICCCEB CFCUCLCLCCCACNB	CTB CSCPCECCCICFCYB CRCTB-B1B1B CDCECVCFCICLCEB CNCOCTB CFCOCUCNCDCOCSB/B7B8B CIB/COB CECRCRCOCRCOCSB/B7B8B CFCICLCEB COCVCECRCFCLCOCWCRCTCFCLCOCPB>CRCTB-B1B1B CFCLCOCPCPCYB CIB/COB CEC
CRCOCRCVCECRB:B CAB0+:I8!XX0X%H%X/%;HP9D>8*ZI:PXP;(QXQ;(RXRH0X/% P0P%P*F	?.HL"2Z*HKXJHM"2Z,IZ[ELJ\KSE**2A.
9O>XKZ,HKR,8PK=<P*89FK<XKJ,9F8DJ0.2HZ"2[VKV[^HKXJHJXLHY"2[YHKXMIZZ
LJZ2LK[%J2\MK%\LR
+W2A/EX/	;LI9!HP> +7LI9!HQ> +7LI9!HR>(<B2A/%"/=>0 C8XW;0H0XX<X.K?XOHOXN: K9[9HW91HX<8+19HHWX[H[X/%;HWXYHXXZH[8!HW>(+-HYXLH[XM	>PYHY9!HZ>P+DHY	=>X*	*7HY9!HZ>P+DHZ	=>X*?: HZXZ*2	<: HZXZ*	HZXLHWXM	>HZX/% ;$HNXNHNXOHZ9!H[>X+
HW\O: HZ\OHZ8AXW*KHZ8A\OHX\O: K9[9; HZXX<P+1*NHZ	=>X	<;LNXWLNXXS9*N.7E7%6
Q(C?XQZGHQ	>J8JG<(*= O+XRHTXPK=R>(*YHPC<K;XPN<(.9F8DNK:XH2AHP\HHRHYC9[-S.<H	8K-\HHU9F8DHV\HHV\HHVK7<(PUXV;&\H2I.A:AA<B[,K*K6<(/5[*K,K*[NHQ	>A/AKN KNC6HX[NHS9F8DKN[NHQ	4KN
+*MXTHTC69F8F8FK3[+/ X--<Y.B B2JP,^U,>D]S?;"Z*A??<BO2IO??H.	>O=91<(O<<(O;>(*A8H[VZO:C9<(+P9FR8D=*VKV?HK8K=Z1N1<(+Z	7KV9VZ0N1R1Z2N1>(+W	6J2	5+S	4J12A\H\HJ2<(8A8!\HHHZ12IKV?*AJ1
J	32I=?2IQL?;KJK2[J*A	1,\*E	1,%*EZ1Z2*5: O;C0K/XPJ9F8DJK.ZLP2A^R;$HY8!^*A"[]OC^7FUT^"B^WXEG?>%>&>E>\4>"O?C>2A>(*HK=
<2IO;C:>(*O	9-XO?C82A> W72IO;C62A>(*\K5
<2IO?8F?;VXY.K42A
3	22I5?2A5?:	22A*&2A$F?7.	22I>&2IQ0?1O18D?X+B2AW0W02I	8E*	22IQ02I>&?1".4CCCAB^CN2I: K/HQ[OC.K-> + O,8!2A
+/SRL1CST/T    =&Y-?<
G:?&Y*UT/89A<HD	;B^7D>$ ^<BP>K?Z-N-9J8HC>Z-J-K=
<J-K;Z-N-.2AO:2I8F:D.P"-.WZ]	92A2I7?<.W"-."Z*	92I7?2A<."HT=H*5B5K:R-.->.-:2IN72AXWLW8J8J8JC>OLWC>OPW*=K8OK7OR72I.7<(+HK6=C>K60&:0!+X/O5*5+0"0!/[2AO0<(+-XHS0O0S0<(+"\H+	2I
5/[+]FADDVKB =J=MUT??PY.?;??/2B	?SLU3                 SLU3R.2B	?VXA0                 VXA0RR.R2B	?VLU2                 VLU2R$.$2B	?VLU3                 VLU3R6.6               VLU3R?.?EDCBA	.	/			Z	Y	$	OA8A0A(A AXAPAHA80( XPH&?&?&?&?&?&?	H	G&?&?&=&8	A	ADP2B
?R0AB                 R20A,R20BR.2B	?R0CD                 R20C,R20DRU.U2B	?R1AB                 R21A,R21BR*.*2B	?R1CD                 R21C,R21DR?.?2B	?R01E                 R20E,R21EST/T               R20E,R21ES / TPUT = PDPBLDP?=2KPASCPJHDB(KADAXD$AMDB,AU
LLLLLA;JHFN9E[A
C^8
!;%:KGLWK$/$* A/0LCLA7FWCMK8IQK$:ASDELOPASDPK$ K8I$JZNIQF%2PBYC"L.P$HUK*HJR%(D/D(C!<%8 H>CA7UJJCLT
+MF<<PJ^Q;^P0E0B0F0C0=0H0I0K0"[DB??"[DR??DNHZ[?&?:O\!H:2LK?[P2I;&^CN[ZAR[N[?*;JAJ87-*+7)7-*.7*BU^JNJJ8BQ^[7,HJS7)N[> J	J	^HN[9J>(JYJZ<P9X^ENH9&BA^G;&J[ZN<B.I2I?H*)^BN[8J>P+$NDJZ>X+$NGBQJT^GJZNDVBJW=+%9DJV= JWJU<X8AJXZNB9DNB9DJJW= +7JU^F/R2A/RZD2LK?[Y;XNDC
K=Z68VJHZHND8DCM8!ZGRDNDZARDK<JI?ND=NDRD9DZF<X+2&JJH	;Z7<X+FJH[JI9D[[<B<B7+*87*^ARAS[*7JI8 JG<(+XZGJHK:[J=7++J7*>JE7++O7*RF&JK9[RG*1RD<B.DK8[67-+^K67)JC7>(+.K69F8F8D7++*7*:7,/[;X<HJCRB&J+YHAND2A=2A82C8J>XK?K>.HGG&7>KSJ
)1FNA)?B]J\)P,C*H;CKCQ*,AJ0JJ.GAHF^A;GBG/PJ
)E[G.GAHFVRH>A;H>V$J.A>LW
CG0L<2E%"(H=$C,+FK$0FHUJ	1.;=P1JG0MJR5GBHF.G)SB90PK8I"K$O]A
C0K$H%SH *)(AGEKSB&HH>J^GL^HA
C.K6T+.C/;2?/;-> ;.N ?5K2?%S.: W$;6O)%*M"/	N+NC/;0W2:-W$?,S%%*M"/	O?MS!+C(;/3.;9Z ;)W,?3^ ;)4> S/?(K%: 4+!C.;4S/+!
9;3R ;!W4*M>J7QFI?5K%?9V ?3K%: K!?/S5: 	&+,C%;"[%;/W2> C/;%G2;4?).*M"/	T;UW3: ?4?$	!*	C3?$S!%*M"/	U;TW2+!C4;%O!;(& ?.W0?4N ;0O%;)	&?S!;);/B,.KD^[H&ACADA 63%??4CY<	C8FLD>6T	YKUY(F?>V3CMNC?X?Q A IPB0LO8U?<O	BJLBM?<D&?8?3B-MVG0O 
B.B A?BS[MOEDEVKNDG!K&HIW>L[O?=CQ>EMA8??B?;K?Z2J%?H2IO>2AA>>(*PU8
OM?-M=9D?*.U:CIQ?=U:LB?=U:F$B??U:GN7??M=A<K=XH
<H
;K:
9	8,Y	7	6	5	4	3+M	7	6	2	1	0	/+M	7	6	.+J	5	-	3+M	,+M	++J+M%;R%*.HW> -:*.2A%;S /9: OUXISU: OUXJSUOUXSULI\JP+!/U: ZC*\BBXL 	$ZV3]$^\YWV$HVUT:FN+*GIQLA2B?V*.2L2AX-H-K?ZXHS9D9F9F9FH-ZTHTZUHRZV2J$)-9<B.BC>EBUN9BMN	BJN+C?OMB[N5C=N5C>N5B$N5B*NGB?NG<BI8[CD	>HCXXC	
HD	=HC	=H	=SC*4.1<BLLXLLXAHAC<9J8JXCHAA79J8J8HHXD/D<BOV8![$SV: OVXHSVLH%6S$+
/V<BK;XK:XHLH8!\LP+*;/%+4%!2$H\X];(QLHXQ8R?:C0JQC2A<B	?HV> *IHW> -5+0%4XYK>X)	=B/*3LHXHK<<(*,K;>(*/K:XILI<(*)H>(*$PIPI*[LIXYLIXX*M%;PS/9:K>*1:K8X)*MHY> *9%;Q+/9%4HXA7<(.A3>(+P%2B<+HHHI1> +M%4%2B:<H<H%4	7<H	6HXC5>(.%4	=B<+!HXA0>(+
	7.	6.%4%2B=+&+Y%4%2B:+.HXA3>(+Y%4+Y%;S7*A//
ERR.ON+7N??=PK&.KN<B:AX]%/O?XUO>[AK=XLK<XMPLLL[K9H<(+B8H<(+B8H> +I	;%.F74K:%6%.C7:K<XM	9%-HD%,PLPL	9KA%+KAHD[AKA0>(*<%-	9	8HLH,XL	7*LI*HLXL*7K6HLXL%.J7
*$O5<(+NX]*C	4.0Y+Q0^A)I>/PK3XH/WO0<(+*HG=+Y:S0K6<(+WIW$	;X+WHGIW$	/S?:-4%PI[$	8^L:&BFLUJWLFB.D173&I&H&<B<(*QK?=*IK>\M.<(*S8!8 <(*UK=*GI(*GK<*GI	*G<BHD> *^HC>(+GHDA&K;[MHDA%9J8J8H[LHDA$9F8DXHCA9FH[KKL%"I!%6KKI ?H*<K:<HKK8!9&K9[C%.D<BKM%".W%.I7*.W<BH]I
?+I*XSI^XTH]9DI0XR2A%]O8X,I\O7>(/N%;P,-	O&8!XAS&LH<(/&HA> ++S&/&%T+:H7< &&F6MAHB$B.C[?%<B0&0!*B;.<BI8ZNK?"[RN*I.F<BI[%ZIY%Z.O<BI["[IY"[.U<B*02I\N2AR9.[H\>(+5	>"HP[UXP\8IWZ9IVXN.[XIWZ9IVXNIUZ\H*\<B: Z9J:Z[K=*\<B: OAXJSA2ILJ2A<(+M%Z+F%T/A<B\0X>\?6/O<BA)\?6/
<B[3[4;K3O\<P+	S4[3+
;K4IS"[S\O\> +^K3IS"[/\%;Q:-:*.*!HK%;HPBZO B <B;XVXWK?XH"?%R8!XK>XILI<(*WH>(*TPI*LLIX,H8!XHAQ>(*$H%ZH\HPV*GK=%Z*GXW%T\H.%T"?HV<(*GZ2%P8
*GK<%Z;A*	K;%ZK:%Z%T*AKK[L%T2IOL2ASL<(.?%Z+CSXHV>(*FHHXL%Z: HVXV: HHXH*G<BO [%S $GV+*/ ?H+0H%8!X[/ %;R4-5BBBBBBBCUC^B$BGDY8^<B;LH"UXDXC",LH"UXEXF9"9",LH"U9XEXF"9.<B<(.UAOK?=H*&<(.UK><(*(K=<(**K<.UK;.UK:.UK<.U<BHDXEHCXF9	9	9"9	9	9	9.,<B9HDHEXD8DHCHFXC.9<BK
[W9HCK7XCHC8D>X+S8PXSW+F/CHCK6XC+O<BHD8DXDHC8DXC/XO 8![.S : O XHS LH%ZS.+)/ ?<D&?8?3B-MVT?,?4QX[ \?6?<? <B	?I8SK>XIX*	=*Y*V*P*N\I*GX**G	?C8YK<XI*G%;RM-	:H*> *
%N.	?I8S.<B	?F8B	?C8JHXC;> I0K:XIX+I\XK9XJ2ILI2A\JP*5K8XI	=.+H+X+D\I*=\I8AX+*=K7XK6XAK5XBLA\B\APAPBP+NK8XI*=K4XI*=[+K+9F8D	3K+8B	3K+9J8H	3K+	3/[AIS%6/,4%$ZS,8I8O8B?<8A8NP 8XT8RT	<BLH<(.K?<(*%K><(.K=<(.RK<<(.RK;<(.RK:<(*
K9<(*"RK8.:K7.:K8.PH*A<B2LJ+Z42AN	8!XR	: N	XIR	\IP*52A.	<BHD8OU)HF8B7>HB8J8A.:<BOH9H8!XSH: OHXHSH: OHXISHLHAO9F8F8FXALHAOHA\IP+V/H<BK6[+2J%>A:A+2K+XGK*XZ/%;QV-	+3:AB?B*U?/LC???3=Q<B;AX\"Z.O?> *K%;P:-	K?ZQHZ2J%>C7>*0JQ]XJRX\X[.<BHZK>X2IL2A?HRZ.Z<BH[Z,HZ2J%
D7>*0.$.%;R4-:<B;AX]%/K=X
K<XL%-HDXRH
XLLL9H<(+Y9H<(+Y9H> +%K;XK:XHLHLL> +YP+N%-HDX^R3.3K9H
XL%-HDHRXRK8H
H,X
*>O7<(.3X]*6+6	3".WX>H/XK<-F>GWI :K;&BNG8R?:&G&J?/7><BK?XHK?XII8X		>HDAM8!\IHDAW9F8F8DXAHCC=9F8FHA8!\IP	*G.<BH
XLLLI
>(*.H
ILH,X
H
K<?(*]%;QI-	H
ILH,X\PI3\H
IKH,X: H
XALA\: HX: HAXAHA8 H"> *=.\H]9DI0[T2J$)$&-9/K<B	;/WK:[ HZ2J%>B7>/9K ]XK!X[/W<BXHAM\LHAW9F8F8D\L/(I.$	//EH?/CJ7>VZJNOP8R<BHR[ K XRK?XTH^I8?H*MIJ<HH^[!K!XS2I%]2A"8;AK!XHH\X\=X+"H9J8J8JK>Z$	=<B:AK!H[X[MXK!8A]XK!8!H^X^K K![ H^> *C.<BK<XHHHXIIUX2IW[]W[^W[
K
C;9F8FK]\IK
C:9J8J8HK^\IP+2A.8<BLH< /WK9/W%;SD-	>(++L
X]%<+W%!): X /8Y(=P=HB<B?+4<^XBZOC0U?O  HV<BX X!%I*G	?8:AX]%/K>X
K=XL%-HDXRH
XLLLIH< *)H
IXL%-H 8!HD?(*0HDX H]X!H
X"HRX*0K<>(*7HLIGXL%-HDHRXRH
ILX
*QO;>(*<X]*IH >(/:H!X]%/H"X
H
ILXLLLIH>(+\	9: H"XL\LI0\L	8HLI0XL	7H X^HXR.HLIGXL%-HDH X +L<BH$X&H"IXLH&%FH"IEXLH&8!H %F%D/$I7>("E%X\
+&B?:&G&J 	<BX$[/HR[]H^8!X\;H[I0>P*PH[8!<HI0X%H%8!XQH%9J8J8JI3Z\%%MXH%]XIVXKK?XO2Q%CPB2Q%CPR[.K>X	H	8!K.[.K/> *;2I	=2Q\O2AP	*3PQ*-[[K.I=[.:K[8A[[P\<H++K.K<[.K.?+CK[[.K[9D9F9F9FK;[[2J$)B-9H$K.X$H[H%<(.X[K]K.[]*H%;Q:-	BL*M+B*AA4>A^AZQ]  P8 :A?<B:.C QX-H-K?>
*O2AK>ZC8A
=.H-.LKZ%J%"CLKZ&J&"CJ%AW9J8JXJ&AW8B9JH"C*Q<B%I.	R	H
ILXILIIH>(*8H
XII*\I%D.	H
IXL%-HDXBHLK<H,XL%-HBHDXH
XII*\IH
IXLH%FH
K;H,XIHIILH,XJLJ\IHJK:> +WK9\I%D*7
6P&+^KK
6-?K	Z2I>9!M([	<X.2M(%*M(K5+EPSL\ QSHJML
/ Q=&<BXDXC2IMB[EMA>(*O: M7XL< [E2AKE<(*5AX2IO?2AA8!H? I5M==H:A9J8JHIHXDKE?9FHDXDKEAZ9FHDXDKEA$9F8DXCHDAM\LHDAW9F8F8DXHCA79F8FH\L."/LIXPLIXQLIXRLIX]2A/D=>0 IU;?U?%%?[BBBAB>6<B:8%;P%RH>> .H=%Z%T2J$)??88!H<XHAW9J8J8J8J
?HAM
>H;XIH:XHLH=H*(\I*:AX]%D.H?C	8K7XJ2IM+AG\JH=\J\J2AO68H9T
62J$*F8$.XLOQSQ<(+K%V+EI6$	HL	5	?/CS=	4BH /3+Z*%K2X	K2X(I+
1Z.**D1XWH)> /"HWHX9PPZ%S:XZ/"^H*[S^SSW/>GIS?&>NV;H7IKJJ\XH7F7G%2H\TH*R"*<H+X]LHX\LHX[LHX,H K?< K>>(%</=>(*	$90%.!$9:%.!&Q[6HWA+<(+/[7K<[+I.XGHS[8K7%7I(XK+LX%K88!L<(+L[8L%8!K6>(+&P%S8+DK7%7IR[8L8!O8?H+YK7"!: +!: LG>(+U: L\LK+X%K6\%K+8!H%K7.*QS[6K+Z*[7K;[+
BXGI>*6NA2P[?&4CPSQS[W?L=WK?J
ZT%5%2H K>>(*L"8%5*E%<H+8![: H+X+H\<B/=H+K?/=H K><(*"K<> *%;$8 H+X+%<*VK?J
ZT%5%&*0"8*+%$X\HR?*J%!)0*J%!)H ?H-?%<.8E;H/	;HP\IHQ\IHR\IH]\I2A/ZGX: HHXHHHK:?H+\H\H: HHXH/MK9-FZ%H K89K7>PS^/^B
%D/&%&/&S&/&ZH K69K5>PS-/-Z<%J=F"%2S"/?>XI=DHF R</3J=> +BKA+%7J?<PZ?<XR=9:8J8JKZT	V 26X*8KA+%7JVZVJTA+9DJTA+8!Z<JUZ>N>3N>R>ANZTN>3N>R>AN9J8JJT8J8J3*&R=?*X/???B27??DA>OW>H)?(+L	=IX
<IY
;X4K:[V2IOA2A<(+.2J$*A;K<B2IKVA+I7> 	9H6[OAAB< IG9Z8JZ?SAOAZVSAZ=2A*FK83I[3/7*.A,/6^9G*B$].:A
^
]I6
-W1%5%2H)<(*N?(-?H8X7I?
?I]$(/>H\%78DA=K=XHH-X-H$	H\A=$	-?XH]8!X]H\9H]<P*(P*":H/<	*2%2H\XV]
-?HV>(8A*/	+%2H\8!HWHXXY: /;HXHWX\X5*=P!H)? +NH ?H-?%<+I	+	:IX[	IYXJ+[S	+[: [	+]H \J: X^%<H ?+V%\-?H)*ED%%5H IE>(/	H ?S	/	S1/10X>\?6CSGOI6X*^BCK+KXL9 FFP8H7,+H*(7L:\D,,/L;0XHLJHRXBDJ$+\D7 ANP2D=D2LH8CA2L DJ >K,?>.A38>LA<)CPABYBHH(5"B"B&*"J*M6/SR6 WB3FWF3R
 3NZ 3I3E/DJ "M6J2JZI3I3E/DJI"M&J.*B2"0*M3RKT/U7F".*M*I:*.+B4"0&0.IR/6 SR.-F12 3B3O/CS*M"$*MBLBZCJCACNB-CFCECBB-CMCACRB-CACPCRB-CMCACYB-CJCUCNB-CJCUCLB-CACUCGB-CSCECPB-COCCCTB-CNCOCVB-CDCECCB-CBCACDB-DANBCU9A	C4&C AH <&CEP<<CGH<)B6I<.B=F<4B0"B<CUCNCUCSCEC
B>B B B CNCOB CDCACTCEB B B HV>(*GK^	]K
	]K^	]: HVXV: HHXH*GLHB *59H&8HX,H/8HRY*/9!X&8TH,91H%<X+YX%"YH+=+U9P&<H8A8HX%H&8HX&P$8H%+FX%/;X&+D8!X%9H.H%<P+$X%8 H+X+;H%<(X&X%"YH&9!X&<P8 +E;Y65?37D4/4)&D.<8$(-:*L-:.	?"<H	?H.>(,?H%>(+:H$9!H-= *$8!K>=*+K="-%!H-X$%],?K>=+UK=%!"-*
:,?8 X*H.9=H8P8HX.H/8HX/P-8P**08HX,.-H%<(H&<(H+>(+R;ZH%< +NH&> ?H+S%Y+HX$X+/:X%X&*^<X+X,*
X?(4/)6
?O>K&> /AS)<H/A
%K(XJK	XKLJ\KS$+OK=[$/AK<
;KV[AO>K&>(/AK	XJK(XK+O?:*G-+=*??> /8/7RC)&)VFSW!2A?:W1W0;RVI;3G4;"	,+3C(;,?/;02 ;)	-4*M7GSE>JI;%S!: 	&+,C%;2O%;/S23&I7GOOU	B+4C/+4C/;3K5?2W/;4;)%*M7GSO?OVI;.?;.	$;4?);.3!> K4?!O.?&K%2I&I?FRI?%S3: ?&;2N ;/S.;)	4;/G.;,J ;2;!7(2J[I2 ;ED&?4O%;4Z +/C2;%S.: [/
 S3;2;)	&I+ICF3OWPN&?4O%;4Z +/C2;/W0;.Z ;)W,

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