File ALGRTS.SV (save files (Executable program)

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

?:2CBKH CH(KHB,E8CHZD0L*\HD?.AJO>H08YDO00LJ<
>\*H.\OD=8NH?(>DG4.LF8LL"4=MK(>H2A RDXJHX(Y[LA!("HX<	"B"B"B"B"BBBZT4X-X 2LI?[%K%Z!"PR9I><X*	J$ZPK+J.PB	DAFCHII?B3CFB+CTC!DKT42K^2K. P/P/P/P/P/P/:2B%=BHL.<B./;X)"PX!2B%=FA)*&J!2C%<Z!J![%)9P.
"PX!2B%=AA</*&H!2C/K:RH 9HJ];J!]::Q2AE92I8H?X-:-89P+UBSZ 2KN 2K/K<[42AM92I8J>X/)2B%=[*&/)2B%=AIHV*&/<<A I9GN9<A$NBL!X-M;]<M:\"M<8D?PM:HLBSC6BU2A??<KJOCVBB2B7B<CITVE!B&B*B.N7BYBURQC"K%RLDJPW-3B
FHOHDQN2G2OVO[G(REF&GDGLODS6RHC3O%O&MBJ%BSO5-8G"K,H-E	DPC]G5S.T
J.BRKPKYLRL]G.P7MJL!K]L LL"S0L>QMQZQYQ"OMQ3JGPU*FHVC?.2ALH2IXV: XUHV8J8J8JC?."\Z("K>ZX<B8F8F8FC=.Y$:XA$:XYHA$9*UK<I.&K;I.*K<"<..N2R2"<.2N7R7I.7K:XI(HZXJLI\JLI\JLI\J.<K:XIPZLZ\IPZLZ\IPZLZ\I/IK:Z2J29DJ2/V$4$3HP$8*U$:X0$:X/8 -0;&HZXZ	9/(H%?H	8/.$\?H8 \W*U9]E
??-=$?-?$4<(.K?=HK>K=$9*A$:XY",
.N$4X&HH8AXA: $>XH$>XC8 HSXI$4\IHA\IHR\IHQ\IHT\IHSXRHCHRXS-	<$48!H&> 	;H&>(+^K:H&$3HRXBH&8!XC$:XD$4XAHA8!HD>(+WHAHDK9> 	;8 HA> +T$:X$	8+V$;	7$=HB$8;&HBXBPC*>HZXQ,
PZPZPZLZ/!$:=XX?H0L,
HS9!HZ>P	;0Y/-$2/-KT-[?=CJFBB A? T4	?HSXT\SPS.B: $>XH,
XUJ%XH8AXXJXP\PHPXRHP2AO?2IXSJAXZ"BHZXQ0L0&0V0Z,
BA[B;AX$8ZX%X&$:XAHA<(/>=HSB=8![CKBK=Z;HZ8A<B8SC*9/>67RXD[[J[X[	<+SXD[[R[X[	;:HD8H:H[<X8!,]$:=HPD=H8!/[$:>(,
$\: ,^$4$?XA$4HA,]HRX%$>/:$:$\,^$4$3HP$7,
LZJ8M
	L$A>2C&D./P8DX[K>ZH[8D8FX[H[C=K<	;:R*J.E	:	;J$<(*^J".VJ	;:*\BMBJ=3HX> *+	:.%"V.%$<$;	9XA8 $:> +GH%SHA	88HA	78	6-=H%=H: PD8!?8 ,^H&S;VHAXAH&LA\AO58!LA+B?H8 XD$\> /SX$X%X&/SO^S^<(/^	;:+
HRXIHRXSLIXALIXRLIXQLIXT/&X&-?9O;R8O.N>QCB0G?<J:K?	>:J	=0Z0!*H7?.P"O*M>0Y.O0\J
?>*G.O	=N^?>*G.]FL>"==0Z2C.P0Z,
$>XA$:> ,
8 HAXH,
$:8!$\<(,^8D:A<X: ,^ZON8R89![TK8X*+IJO8DZOJOKT<XZO:H[8DX[P*+AJO.8	7	6H$,^	6H$X&/T$\X$	5/4$<$:X$	5$=$5-=,
$\XY	3H*>(+	/4$:8!$\>(8 ,^FL2L$-[-MR?3O?==0I^HE:2BZHK?HZXWJHLW.H%<(*P8D:A<X: X&.HXU2ALHX$LHX%LH2IX&$=,
R	>*$8A8A8A"-HZXIH$\IH%\IH&\I,
K=Z78AHZZ8PZPZPZR.-89O67R:A"-"H*$R$4K<XALAXA$A*$$6AR	;&<A	:*$HZXILIX$LIX%LIX&8HIXW/R;[6K9[7O
[8S
+/K6<P+-9K88H[6H[8HX[S7+(K6/
?3)]*3:Y&:9]C.K?XA8 LAXOLO8!Z1LO8!XC$4HC> 	>LO8!$:XAPC<H*$LOX[LO8!$:Z
	=H[HAXA*UJ18 >(**HA9DHA8AHOXAR1R.$4$3HR$7,
PU82ALH2I.70Y*?$20^.>$:8!$\,^	<XUHAXH,
$48!XDLRHD>(/;	<+P";$HA$7,
$;"+"HA	:8,
H&\A,
8 XC.PC+,$7,
$8,
$4	9$4$3HA/.$\8 ,^7C-$;RPEI&M
JB2C&D.0$48!XAHQXZLTHA>(,
"P*JHTXSPTLTXT.P$:9=H81X[$:XYK><X$9:"$,
$5P$H[K=?*0H[K<$9$;,$	;J\Z	:"$$:*,X.$;$:XY	9,
$20I*>0N.=0!+D0&/C0Q+I0V/HXU$;8 H&XHH%8!HR>(,
	8+R$4X&HHXAXU8 $:/!DWHHXB8 $:XH$:XY$5UXU	2$6UHBXH,
D"P,
>O10.?I&.C(J8B0?6B-J2C&D,
1M$\8!,^$\? 8 ,^$4$3HR$8,
$4XALT8!HA>(*!HA\SPSHT\S: HSXTPS$48!ZC$4$3K>HRX*$4[TKT\SHS\*PS$4\SLSPS8!XDHDXE8A[D$:XB$:XCHC8!HB8AX[	=H[[DHC\SPSPD<H+QKD\SPS*:KDX[	=HSH[XS	<RC<H,
L*XAK;H*X*HS\*HE9DK:XDLA\SPAPSPD+	+Q$:*HH8AXAXU2C,A$\>(8 ,^??CE-M
BJJH%P=HJJJJDNQCQHPJJJJ:XEJ\"(.PXEJ]"(:.V&&H?9$:XYJ&$9J	$9,
BMBJHYZ2HY=H&J^? &HE.(;N38J8J8J">N3">R3*5C;<(+KK:<(+MK9=HK8K7R.>R3.3K6RK5R+I0!+S0&	4:/R1\ [AD2I+K [AD2IH: [AD2I
9/;8A2I
7/6 [W/52I/2+?L>BJBMB A?>?"?>L7L=/47[;WK7]2JNI+ICA*I>I2=WR+[X7P6)2*7I7[;WK7]6JRI+ACD3ASD"2*M2IOD3A^ I& .I6/7I/M7XB(6)^*7^7K6;N 7TKO3EF 3T^ I*M2IGT7DN " &I2/WG7TB *	CS3NSO7EB 7AKI* CQA7T2JNI+LCL3R3A*I>I. 7S+N"/223^6)V 3PF 3RGRY6.2JNI+ICA*I>I7QB=.-7S3ISN+EC
+OCF3NSO7EB 7AKI"M&J3TSA6 KP0&0Z	?BMBJCRCOCGCACLCGCOCLCOCACDCECRJVXY*[C	>K=XY0L;X
<;&HY>(	;O:K9
8O:XHK7O8XT\HPT*)K6XS	5	4K3> */: 
2	4	1<H/0K/<(/.K-<(*3K,<(+IK+<(/*K)<(/(			5	&	5XT	&:2AHS
%HT
$2I	?BMBJCECNCDCSB K
<HS/"JXFLA>A=$J%DF"AJ?$?3%P=S%Q^LH=E$L+B?%+!AF%YK2=PHVI^.:	?^	>XT	=X+	<H+K;<(*&K:<(*)K9<(*UK8> 	>	7*YS/6S8 HS\EHT	5/6	5<H	>HT\A/6HSXV*?HTXW	?^*6XT	=:HTXVHWXT*?KR> 	>XT	=	<	7	>*2	7<H	>XD\AHV\EHD>(/62ALDXCHV\D2IHCXD+F<42A\S2IPSHS8!J>(	>/SK4=H+(K3=+)K2S^/^K3
1/^	?^+,/+/B:J?6=P$	 3$7AB?/=T%$$J$L"L	?.ZLHT9FHT9DJLXT*A	>J!<(K=J"<(*MJ<(*MJ$<(*MJ%<(*MJ&<(*M.L=3C?*>!A6BI8!XBK<XCK;XAPALAHB>(.	PC*.R	.	HTO:XEHT"	+BLE< R7.7LE.7	9H*>(+DH$	8H%	8H&	8/O /
7XT":HTW78!	8/6O5K4>(	3O5XA2C:A$A/Y:HTK+? 	3/$MLPI(I:VQJ8J6RD 3LHS2F^??-TP^7R/E+GC]3ASN2 SA7DR 3OZ 3O7R"M&J7JOM* CI3ASD+ECR6IJ/7E[*(	Q7]J+3E
[]6.2JRI+CCA7IF R& 2/WR+[X7Q6)6<J=7E[*(	Q7]J+3E
[]6.6JRI+ACD7IF I& 2/?N3WZ 3ISN2 7I+ACG7PKA3T> 7F" *(	Q".*M2IOD3AF /DKD* >I7GSE2 7I+[X7Q6)2 ;A7DN 7TKOE*M2IGT3D^ I& 2I^/+ECT7I/M+GC]P&2)=FKXB<JJZI*I.K(V(O(R(T&5)C*V&6*V&7)C&3(=&8&3)&2,B&1+?&2)&1+<&2)&1+9&2(=X.&1,E".+;F86;R7R49]9O=4--[4JCAP&3(=&9H$[X&:&5(=
FH%?+V&68A[]/PK]> &6/X&2,HF&2,K&3(=&8&1,N&;,Q&1,T&7(=&3)&0(=P$8&4)&1)C&8KXH$X$/]TW3B&1	.(=	3)CH%?H*P	7)C	1(=	.(=8AZ3	7(=	5	.)	0,)	2,&	0,	0)	2, 	0,]	0)	2,Z	0,W	/(=J3>(*/	4,E&2.)P)XH%=(/89F<(H$8!8A<(H&> +DX$X&X%.3H$ZX$	.(=	0,,	.)	7(=	3,,	1)	.(=	5	.)	/,5	0,2
/)	0,/	/(=	3,8	.)JX$	6	0)	/,;.3;R687R4J9O4=4-[;F=:AYH
	+UI7?=TVT6?9.HY4AYH
.AWET\??VK$MF^B8,J-LYDDXA;A?>VV1/B]+H9C[CF8C$*7BZ!=,??/C  AWKY V(I8BWET ^1E6SJ-UPVK$M?B:H$= +G:+VKX<(+U=/ZX$9H%=H8P8HX%P$+MH%X$/?5K=8H$X%X&KYX$	/[:58!XBHRXALAHB>(/$;VHAXALAXA+)$\XY	7,^TP$:XA$\A,^CBG<Y[>[=H.> *K9WX0K)X/	+K6
0H%<(+C?*US>	<H$? *\	;3MS=*U	:	912X$9ZX%X&H.> K=8!H0=8 K2=H:K6
:*2	83MW:*0	712	:H$8!Z?>3%=[A<OX%=QX&K=X	H.> +K[=K6+OK==: K1H/8!H0=/-
:+XK5	4W:+VK>9DK.	4K==/	8!	3H0>(/*/(1!0N0B;..1VB+0M15??G11%B ?987R;R0669]KK;$+O/?(*TO/8 [H08 Z6*M+S<H*RR6*LO/8!H0= H.> *.K6%H	? :EK9%H	=H8!<W1;=Q+<G3I=Q+=Q+H->(/:K0%K1%/:H$?(.6	83M8 O/
/*78!Z6<YH&<U3I=QX&H%=U3IS5+P: [5+=QX%R6+D/:H/8 Z6R6<H*.K %+ZB*:+/$/$9;/%;/%K7%/+/=BMBJCEB07RB+/,A$PBB0!Q: [8 [B	HX*X$X&X%[AP*XP*SA[K$G[M0 +J8H *KS*^KC>(*J[A>QSB&?<Y8 [BH+KD>(P*,<E3I*	SB==;KA</9=H918 [A8DKEZ<SA*<.3M*99]B<;	F67R;.JKDT%H+K<(+ZK$> +[[B%H+K"9
I<XSP/P=F=U?>	0X+H+<(+&K/>(*A/%<ATP*AK<>(H,>(/%K;	:/%1%BJA2<ABVR<(N&$&%&HJ.I9]9Z<(NJ&$&%H%X(H$=QX%H	X$H)=QX	H&X)H(=QX&JJ^	J(^&.6;:);.687R7V;ZX)X(<Y&%[+K8X"H$<MAX$<)P$8=A9D8T[J9Z8JX!X [X>3%=Q<(.)=H==<KK9<)+S+2>3%<KA<%%>3 <MSX<(==S+<%<P+0<)+&8 X"<%%>Q8J<M<(
%(P"+O>3(X%=QX&.)?*0&%LG<B:,1BL<(N"8>E(<QH%=U)<% >3&H$X$<E(< X%H&=QX 8DX&<E)<%<(*	<IX%>!>(*+: H$X$H ?H=;R4*0H%==X%=QX&R.:);.=9&5&6;$Z4H)=Q=+C==R4<KA<%(>3%=Q=+O==R48<%%.8<(OR"8<G)<% >X.7H	8!H$X$<)<HX$<E(==H!<P/<<G)>X.7H =+4<OAP$8R4<H==X%=QX&SR/R9(>QX$+7<(N
N/	H	<QH$</=H8!Z&J&KM?(8 X >39>0F=QZ=QZ\H$0FX	>3=QP *;<% >3=Q<M< <% <X8 ?*4;X%H(?+FH!KL<)*:9Z+IKL<IX%<!8 8AH	X$=QX&R.H!<MAKLX%*? ?):)<(OO	NH)=Q==X(=AX)KOZ*D=9<Y>3%=Q==X%=QX&/]:8!X!H)9!H!<P+3X!8 H X ;H!<(>Q<G)>X/\==/=7-(%.H(>(.OH%> .NH	X$H(X%H)X&.O8E9D^WK1
A\G,1.*R<(<4&Y=44)((+*)]*3LHKTC.--[:J:J:JZ0N0X	R0<Y>3X)=AX(.).<Y>3%=Q<I<(X$X%=QX&>!8!H$X$.5<(OF")H	X$H)X&=QX%SF/F<(OR[]H$
]S]H%<YH&<%>QSR/R/"=$=+<E;65:<K<K<K=ABDK![.2TH[/K5[0+//..K<
=K>^X,14<24J8>2LJ:ZKKZ2K"Z4JKZ(<YN<Q=AB.X(=ABU8!BRH(X(<KCJ/Z+=A?**H(B;J;>(9UL(\(L(<HH(	.*KA?&0<<89O67R;F;R=Q::U2A?8=Q<(+K9D?X.9=AC/>(.8T(*KR*K8EJK[N<	.=Q<(*,9D?P/!J=QZJK[]=A^+I;*7R9OJA=A[(H%R*KJ:=A*J:5A0*!UE*JTW&3$/4	<	<	</?J7=+B:K2.?N3TF./DGD"1*M2I7S7AN 
NCL3CGL6IN/7KCI2 [I2 	E3TWH7R^ 3EWR* B="0*M2IGIC&I2/> 3TWH3R	W+SCE7GSE2 GC7R	R"M&J3TSA2 SAD626JRI+ACD3ASD"3*M2I7J3P& 2 SA7DSXR*M2MFJ/DOD.,BI"M2J.*B1"060"J*M2/	S3GWN7DN 3I
N+LCE3PWR7COI3I;O6 WM3L	T7P	L6,V 3S;I7GR +HCE3EWA".*M2/;ED<B??%)8 H^H;9 H:H^,BJ,J,>VXLH!OS8BTH: HX2K\^,
HBUBNDDSKO?.A2IPH2KHXXYHY<(??????,
,^?3HB88B.B F>!I>C\6AB$BJBM>E?AC^B<BB46HTB3<C B)=WFKB(?1= HB?YIJKU?UJ=FZK(FADD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DFL*.O?<(*.
>O=C<<(*.K;[B	:2IOB2A<(*0
98 X4X2K82I
7K6XHK5\HK4\HK3\HK2\HK1\HK0\HK/\HK.\HK-\H
,2A2K/+O=C<2J	*A6A*.KBK)[B2IOB2A8F?H*.J5*Q> -3X^ ]2;XE1HR]1*3P!-3*NHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XPAI?   CFLHE.I*E0!&H*YJJ A!!*D/H8R>&OD/YDA7JCM* CI/XZ7"060*J*I.1F2"7*M3KOB+H3K"I60.J
X.6B0.,^I.6B02;. /S/F2 7J3P& 2 KK3C/H"M&J7KOR6;R +ACD/XKM.0.32 ;S3AN /L/A2 7J7P^ 7ASI2;* +MCP3I. 3BCK*M3E?L+A3D2I7J3S& . N1"7&5*IB/3ASD3R> 3F> 3CGT7LR 3YWP7OSU"M&J3TSA* CI/XZ7.4.22 7S3AN /L/A2 7J7P^ 7ASI"M&J7JCM0;XO>C+8 Z02LK,Z,J2G>K-ZRS>O>Z1S>S>2I*	>P+D8
8F=H*%ZRN1< "3N1R1<B 9DJR*V"39PR0*TJR> S>2K/>L8.^&*+?"9.3J<:2KJ;
A/BJJA.;<=&C?.;H2> 	CP4+%	HB:?<H	CSY: KX[IK(X4K?[JKJ=H+<:SIOICD9DKJ8F8F[JOICFKE> +88AX2OICF2K/P
I9P+.HC?K>"J*HJ[M+$2K.K=Z1H3> 	<H5> *YO;X58 J4[K*\8*^*:JRZYKK[LSKJ1
KRYJ1K>>(*.P5.J"1SI.J	<"1RJ.J	J"2	<R5P6.1J18F8FC,OL
LJ18J8J8HC,OK*">G.;/ +ZH2?H	<X2KH
:8 X42K/M8!8 < +$	GB8 	</ ZJ9H>(+-H3>("J<	GB2!	<J//GKA=>C>DE$/Y/(.;BZ=&C?< *D	?/>K=>(*SH3=H	<>(	?8 X3O;
:O9
8/72J	6HWCOCUCTCPCUCTB CFCICLCECNCACMCEB B?EM2J	5E*0&EO"S"2I
!S!2ASW*2K4[!K3["K2[WMO3>(*V/1K0[!K/["K.[W/E2IO!S!2A
"S"SW+N/MOWSW<(/W0&0!+]:+XBZ"B"B"B"B"B?25I>(4?;/K>EB?1S1H/G/H1J.;??1X4%K?1> KFKHZJO>2J	=AEJJCF8!KH>(9A[EK?1KEX1JJ
<K;"0J8
:J8
9J9
8X6X5X3/7H6Z92J&?HK6"09AX3.%Z7K5Z8O>2J	=E2J	=IKE?.0KEJ7
4/3>*;8B"B"B"B"B"B"B"B"B"B"B"B"B"B".<.;/LD1X1I05/GC1JB/KB3JOE7TJ 3E	G3SWTR*M2IGT3D: U& 2I^/+ECT3N7U7BKE2 [O2 	B+TCS+TCOB7E2JNI+ICA*I>I7I[N7ESRE7D2JRI+CCA3F	L7PSC2MZJ7LCI6,RI+ACD7WKOD& 2/WG7TJ 3IG3T?M+SCT7BSI2 [O2 ?WR7D2JNI+LCL7RKA* >I2(	R7GSH7MOO3TJ +ICT7

O2 ;I2 	L+N	K"M&J3DGC2 ?W+RCD*I"/7PSU2 GB+CCK7FKOZQ	?": 	>	?"2!	>K=
<JC
;JQ/<K:ZP*> 9X8AX0O5C42A>(*O3>(/2K1K0
/2IO52AC.9HK-
,
+.D:O*Z<2J&<IK)
*O*
(J.
+/Y:K0
/O+> /0O	Z<N<> /&:A2J	)B8/%KL[XO=
$O
.2J	)FL0
9K>8!O9?H/8+!2I
913DA< :NJH1*?7SL/1Z8DL=/4?<:1+ >P>$1J6(.R1 1N< .;>G2J	?HCCICNCPCUCTB CFCICLCECNCACMCEB B?"1"92J	>E*0&"1O\S\2I
[S[2ASC*^K=[[K<[\K;[C"9KM>(*C/:K9[[K<[\K8[C.12IO[S[2A
\S\SC*:.9OCSC<(/C0&0!+I:+D+K [AD2IH: [AD2I
9/;8A2I
7/6 [W/52I/2+?L>BJBMB ?2>(<?;;M>EB?K?Z]8A1> J*J1ZLO>2J	=A")JLB*8!J1>(K<Z)9A1J)X1O>2J	=B")2J	=IJ)?*,J)
;/:>* JL
9J]
8/78HMI/)QL\B9I5)QDHF	CEBTQ! )!Z ? -P 	JP &B <J( 4J(P -R 6K* :FWP 8FP (L/BHR%MH8P 91S1H/H.<.;BB;M;ND&12/?N2.Z 7IOR7TF 3USA3R;A3TF 3N3GE6.6JWQ/AKD6,RI+ACD/NSO3M/I.IJ/+NCD3QGU+DB,7GSE2 N-+OCS+ACT3K:-*/:4"M&J3CGI"M&J7LKS*I>I3M/A3EN 7OKR7ESC3IWV2 	R7GSH"M&J"0
I6/N 3H[I3T> 3N& 3NWDX6.6JNIH	L2IZ/3ISN2 ;O2 	S+NCE3TKA+LCEB7Y2JS/FGT2,"IL	T*IB/3ISN+E+X*2^

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