File RANK.SV (save files (Executable program)

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

?>2C^IH
%"?;LIB8RL&"?"PIPSV&"?5EDITSV&"?6PAL8SV&"?0FORTSV&"?	SABRSV&"?(LOADERSV&"?4CREFSV&"?3BITMAPSV&"?;SRCCOMSV&"?;DTCOPYSV&"?;EPICSV&"?/FOCAL8BN(J?-NONEAEBN(J?8EAEFPPBN(J?827BFPPBN(J?7TDCOPYSV&"?9BASICSV&K?8BCOMPSV&K?/BLOAD2J7CA6 2JGC+LCL63N,7UOBC*M3A
R2 +\2MFJ+RCG\7I6JKA7G2 R*M[602JGC+LCL21Z,A7D6JKA7G6 "3*M3C3A/LF 6,OIT7O6JKA7G. "0*M7JCM2 O^6M:J+DB,2M*J+MCP^7A2JK^",6 2JGC+LCL22&,3OWPN*M3A
R. []2MFJ+RCG/]F12MRJ+CCA\7M2JW^2,& +SCZ\7M2JGT7D2 M*M3CGI" *M3TSA. Z("2*M$GPH^ <B,F>>G2I<<?4JF2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[HGE>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  WK[[K\[$ [AJ2IK[Z<;VK\Z=*> [AM2IF:;(+SY]I\A-K>I]Y\H5Y]KN?==4D\RQPD5KNJDEFH;K(HHJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  P$IVZJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX8
XX	;SA+VHXXPHYXQHZXR&D  T [AM2IH9;(2I
:+0PD*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  RJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  Z:2IO([^S(O([
 [AM2IK\;(+$0Q PB[BOBNEFEEBOUOIOERXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [L.VOTL&N*NLL-L1MLNAN=OVOVOVOVOVOVOV0Q*FHG0V:  S0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==Q	BMAB OZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2I	E[KKJ8!9HKGZR2IKK<X+:8F8F8F<
NR^R: KJ[J+%C?2ANW>(+V2B2I&X+VB  S2ANY>(+V2BHGB2I&Z+V*JARFFAQF)K?0&660Z0V0L [O2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AM2ILAQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565NLFBJPA???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  M8DBJJTP/JC<<(*2K;=HK:K9 [S/P []2C.M0!+  ]["O"<X+/8J8J8JC22I/	?K2ZNK3ZO;(B A? ?
MBM?<*0212 ?NP6 2J7J7P: O*M+^3P" *M7JCM2 7^6M:J+NB,2MNJ3A3L* 223W	RT7E6JKA+G" "1*M3A
R. G\"0612JGC+LCL21&,O7H6JKA7G2 M*M3DGC2 ;\6M:J+QB,7I+S2 ;\6MRJ+ACD\7N2J	CA6 2JGT+D" "5*M3SOP" *M7JCM6 K^6MRJ+ACD.(J62MNJ+MCA2MNJ3A3L* 233SKUS7C6JKA7G2 N*M3A
R2 7\2MFJ$GPH^ <B,F>>G2A<<?4JF2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[HGE2J%LI,)X)2LIJYC2C-EBZMTB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2I2A2I2I2A2A2A2A2A2I2A2I2I2A2A2I2I2I2I2I2I2I2I2I2I2I2A2A2I2A2A2A^N[:2BNF<B&+2K8F8)J6&4Q[PK9-:
HHFXJ%LCH;BEJSF<G[C2K^::QQ!<U<	=[?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"J)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+*LR	* ",J&?H*"J)X=K=
>J*C2K.SJ(X=J+*
??HRS?M?JD2IO<C;>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K4
=2I.,JM
3O38!
22A/C$S/EOL<(,?SSL+M??XPHP8J8J8J]HP]/S><(/]H==HIHH<6/]HUSHVSHWSHX>(/	H;535%L=/PO?W?TAHAP>F2=VFMLBI(PJXH[!H$L(KK\JDCU*J\KK0IG, MKD5.5DKJ9<$KXH[MEFQ9^/)FPX2A;TEFQ<],5FPXAY>UEFU?5(:M"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBBZ2LJDZJ2C2J&WHJXZW2C.I(2AJW=2J?&
IJQZW.LBBJOZ"L2K^J$^%J."WAAH	:,CECNCDB CLCOCCCKB B2CRCDCECRCSB COCFB CCCOCNCDCICTCICOCNB CSCCCOCRCECSB CCCACLCLCECDB CRCACNCKB.CFCT9+%K[7K][]S)+M2J	,G<D<?2?>GCYBMBLBJB BI??N/N/N>RGRIRBRBRI9H/7
XZKSF0YX*P3:YJNOP8X+OCTAL	 X+OPDEF^EZJOSR<DX*PAGEC\X+PAUSENXJPLS0VXZPSF0QX+REORGC%X+RETRN"/YJRAL8DYJRAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXTXJTLS0&XZTSF0!D*ACHPD*ACM
D*ACLRD)ID,A\IQ(,A^ARD,A^BR(,A\JQ),A^CRL,A^DR	,B\69RS0CSUBSC,A\RE:,Q[0YO0BFAD,A]3Q:0BISTO0CIOPEN,A]6Q7,B]11Q4,A\MQ*,A^ER/,A^FYM0BREAD,B\100U[,B\ISB,A^GSH0BIOH,A^HSV,A^IS$,A^JTB,A^KTP,Q[1YQ0BMPY0BV,A^LU^,A^MU ,A^NXY,A^OU(,A^PXX,A\KQ+,B\90XU,B\79VB,A[AQ-,B\
1WI,B\80V&,B\701XV0BIFAD,B]14Q1,B]17Q.0CWRITE,B\101Y,A\NQ,,A^QX$,A^RX;,A^SX8,A^TYK,B\700YK0BEXIT6RMAINRPBOPENK-9F8F8FAMKW[WKW9PK5>0+6	3.>H/Z/9K8-H$&*;+)UKUFIZ> A (	SUBJ.	,I3,4X,5F5.1)>(0Y*P-,%6H]K=<(/<K;>(*,%*?"%5H6X5HY%4%6"%%)**H)<(*"8AX)%<* %<%6%5P3*3%%
/HYXXHWA,8!HXA,>(/:%2HX/9%": X0HR?H,ZH]K8<(+NK7>(/6;X*[%<P0+]HWXZ%	HPXLHQXMHRXNHZXO*IHW8!HZ>(+T%%)$*IHZY8 Z/5P\L\I >(/4L\XZ%</3[Z[&^AD6?/=TD,%Y?:$P=\==B><[B[&8D[(R^S%*^;VK<X+ [SRSR	?$^HO/>RSRSK=[%JR[$JHZ^*F*
*6*3K&8F8F[&JHZ^K&BAO	
	K&8F8FBAO$
$S$*9K$[	S$K&B
$K(9H.B> /)Z9K<"BK%K;> +O:8H9T
:2J	9H:A2J&7DREH+\2J&7FBY	8(2J	7;&G:
:	8(2J	7<.^4BZ%>A>2IK1
6K5^7K)^.2C/(B?+.AA?8A-*??&LBZ3?-^>GPDPLRANKS1DTA1G8RO]8 [A
>2AW>O>8!K=?H*(
<2AW<O<8!K;?H*	K=8  [CB2A])2A](2AQ:%O [AC2A]: [AD2A%O*L*D [BE2A]72A]4
:2AW:O:8!K=?H/9 [BF2A
82A![K= [CB2A
72A]*2AN
H [AG2IK= [CB2A
62A]*2AN
V [AG2IK= [CB2A
52A]*2AN
$ [AG2IK= [CB2A
82A]*2AN B+?CP2M*J+MCBAD%M]*E])2](8 [AG2IK> [CB2A!=2A]*2AN P [AG2I [AG2IK> [CB2A!<2A]*2AN%OK> [CB2A!<2A]*2AN%Q 7%QLG [AH2A!; [AI2A!: 7%O\GK> [CB2A!=2A]*2AN%OK> [CB2A!=2A]*2AN%Q 7%QLG [AH2A!; [AI2A!: 7%O\G+^(5I3)2A
92AW9O98!K=?H/8
72AW7O78!K=?H/6O58!O9+?F 6M]+$X]($Y])(A$DE28>(/>K= [CB2A])2A]*2AN%OK= [CB2A](2A]*2AN%Q 7%OLG2A
< 7%QLG8!2AO<<(+I?H*&/;K=8  [CB2A])2A]*2AQ:%OK=8  [CB2A])2A]*2AQ:%Q [AJ2A%Q [AC2A]1 [AD2A%O/;K=8  [CB2A](2A]*2AQ:%OK=8  [CB2A](2A]*2AQ:%Q [AJ2A%Q [AC2A]. [AD2A%OK=8  [CB2A])2A]*2AQ:%OK=8 +?NJ3A$V]-2$U8 [CB2A])2A]*2AQ:%Q [AJ2A%Q [AC2A]. [AD2A%O88/?/> [BK2A
=2A% [AG2A]*
<2AW<O<8!K;?H*;K:8  [CB2A],2A]*2AQ:$8 [AG2I*$ [AG2I+K(	SUBJ.	,I3,4X,5F5.1)8/9 [L*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z^/2E],A! !(2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AM2A&2*-&8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ
J"2A
<"[]"[V:AZ3
;KU
:  K)OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%/(B?+.AA?8A-*?2.2)AT1FM6=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*	<[%*2J	<I/*S0.Y&37W.O	?Y.
4?8?/4]&)2*	W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AI2A&*K8	: [NK8	:*:	?	>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	:/S/DGK!:D?B.DE +$,8+7 5%1O.3E)%0-.OE?;1P02 %<HO?8 [N[K [O8 [L8 2A
>:SN<H*7	=	<, ?R,2? ,M?U,M?S,K?;,6&O[M [AP2A	/ [AQ2A	,KM [R [AC2A	,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AP2A	/SK+U+]	; [AD2AA>/7<0 A*	42J	3,^2A2J	<I/*S0/08A[(BZ=&* 6E P5Z2*.81O)%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [S.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [SC3K2<(*3K19K:<P*9*4CLBM	["H /\O^

S^S
S +T/]>GW0M67/RO?)/?
?/?/DGK!:D?B.DE +$,8>-?3A???J?M2&!B A? 	W &24W	?/> [AJ2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AP2A	/SP*RQ [AQ2A	,K:2I
=2AO9K8>(KP8!I==8 	7 [AC2A	,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+RW"U8W"U8W"U8W"U8W"U8W"U8W"U8W"U8W^U8V?GH?<RQ5Z?:&)PD/4 P,4 [OR)*HRL  GI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 72KDG9F8TZ(;(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/*7E.O0OPQRJ?FHSY=2AO?<(.	>&R?(.?76&?8.K?:*"?;*A??4-&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+! [AT2A	/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*COO/KF *)%? .8.O?2&2.Y(
2*&)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<6Y? 6J?U6J?S6G&MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AI2A&*XS [N	*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W
A/EZ 2MVJ+ACP2MVJ7NKT3Y6 3A;I2M6J3A.O0+SD)%?<42-O2*.81O-NZAJFZK8NGRGZRNGRGZ)8N)"W  HZ)K?ZC9DZJA9DZA<XJ)JRC*[.W:X$IVZ=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  I:S.S.REJA=HJD<H9HRE+7
 N&Z*Z&Z?4JZD8NARAZKNARAZQ8NQ=H8!  [>DRRRR  \ [AM2A8	;(  IZQ2I
?
>
=JQ  O8AZ0J0=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.38W??ARQPIOERKW"7OT<(*Q\HLKX2B2A	V  E [AM2A<"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ	ZBJ(ZCK[ZZK\ [SRZ*0KZ*LXHJBZ;NC[FRCNCZ;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZBK\ZCLWTK3[SK?Z [AE2A=22AK>2A
4
5+	SCSVE9E/?&H:C?=:B?::A? FCH

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