File RECO2A.SV (save files (Executable program)

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

?>2CXKKH
+8?;PIPSV0P?7EDITSV0P?7PAL8SV0P?2FORTSV0P?	SABRSV0P?)LOADERSV0P?5LIB8RL0P?"CONFIG030P>GLTAPERLD[???<SACPACSVD[?<JUNKSV?0?0CALC1SV?/??TESTSASVD[?0APMOVESVD[?-?7JUNKFT??4JOFFT?9JUNFT?=PTP?=3N3BK*M*/B * B 2 	D3M;E3S?I3N& 7NWP/TJ(*5&62,ON.(B2.,J22):,/OJ(.0J,"
6)*JB/* B 2 R /OV *0B0/N7S.1J,"0*M3DGC2 ;\S*M+^3A2 ;I7C2 N7S2JGT7D2 N7S2J	CA6 2JGT+D" "2646JCSC6 2J7J7P: B*M*/B * B 2 ;I3B/L*=*8+N/S"8*M3TSA2 ;\S*M3C3A/LF 6,CMY*M3A
R. F("0*M3TSA$GPH^ <B,F>>G2IJF2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[GE!6AB$BJBM>E?AC^C
BB44H!B(?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
;: [,;VJN[*ZE8.O??8LH/-K1ZNK2ZO;([,*P$&RQEEPK(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?RQPJZD8NARAZNNAXGJZUJAZV8LGPGZ<: LG*
JUZY8NVRVZ<: NVXH2IO?";2I
?O>";2I
>O=";2I
=RV;VJUZ90\C<K;>(0Y*9 [Q8.V8\H.;&IX 2IO?	:XP2IO>XQHWK9=+0K;XT	8PT+PHV8DHQ<X8!XV2I
?
>
=HV  PK [(K![) [AJ2IK [A;VK![B+C [AS2IF?;(+XY\H5KN=4D\?=A?RQPD5KNJDEFHFJE2I
?JFZM8NGRGXG: NGRGXH&C*\HVHXXVHWHYK>XWHPXXHQXYHRXZXPK=Z8&AHX8HXXHY8HXYHZ8HXZ<X&R8*	&D  I$IVZJ;Z?8N<R<XG: N<R<XH&C+0HVHXXVHY8!HWK<XWXZK;Z8;XSHP?H+Z&B&HZ8DXZHY8DXYHX8DXX	:R8+THXXPHYXQHZXR	9  H [AS2IH9;(2I
8+.PEFD*?A??%=?K(K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  WJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  K:2IO([^S(O([
 [AS2IK\;(+$0Q PB[BOBNEFEEBOUOIOERXGHG8F8F8DBJUZRJJ0\J5>(0Y8 [Q.VOTL&N*NLL-L1L6NAN=OVOVOVOVOVOVOV0Q*FHG0V:  X0Y*F;Z*F0I*F0N*+==K->(*=S-+ K)*+6:*F69+EK-8 [.*F6Y*?6Z9HK,2I	([.K-8!9HK*ZR2IK.<X+Z8F8F8F<HNR^R: K-[-+EK-K.9HK*2I	(K+*+Q	BMAB OZFOYJ	DAQF8$&,\YTITA
>(I2I4IT/?K"C?2ANW>(+V2B2I&X+VB  X2ANY>(+V2BHGB2I&Z+V*JARFFAQF)K?0&660Z0V0L [V2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AS2ILAQRSTUVWXYZC G]BPO3456789:=LE?^
M*]V-./012ADJI[<F!"$%&	();N\HK>=3=6565NLFBJPA???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  S8DBJJTP/JC<<(*2K;=HK:K9 [X/P [[2C.M0!+  [["O"<X+/8J8J8JC22I/	?K1ZNK2ZO;([,B A?
?OMBM?<ZAJFZK8NGRGZRNGRGZ)8N)"W  ]Z)K?ZC9DZJA9DZA<XJ)JRC*[.WTX$IVZ=*/RB8!ZAJ)Z28N*R*Z9N*R*ZF8NF<(.&=+ARB8!9DRC=+A9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+"9P=H9ZAJ8DZJA9D<P+QJD+R:JB8H:ZBJ<X8!  T:S-S-REJA=HJD<H9HRE+6  UGC?RQ?4JZD8NARAZKNARAZQ8NQ=H8!  \>DRRRR  ^ [AS2I
	;(  TZQ2I
?
>
=JQ  VRAZ0J0=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.3RW;(+XY\H5KN=4D\??ARQPZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S+PJF8F8FZFJFC<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$GPH^ <B,F>>G2AJF2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[GE2J%LI,)X)2LIJYC2C-EBKQSOPQB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2I2I2A2I2I2I2I2I2I2I2I2A2A2A2I2I2I2A2I2I2I2I2I2I2I2I2I2I2I2IXKN[T2(BBNFUFJSH;HFJ6K^<I*46KBEGAQ[*+PKR)S,T
J%LCG C1Q!TRFTQ?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 -OM92I
OOO
Q2AORKSZ	: J	>(*SJ	"(":: J	*H:A"(	P!W/T	P"AD(/T"(KU
VKY
XK]
W.AH 9F8DKZXHHHX\HHX!HHX	HHX.HHX3HHX8.(K[XIHIXJK\XKHH[E2ALI<B\JPK+C2A.:LIB8RL3+>G; C$GC"0A?&?%?$2K2AZ?^^IQPT%M: XTHMXPLP%M: HM*DPT+AIQ+IYPT+3IQ%MXTHU%M/.K\MI?XNLN<(+	%M+;R&*MJ	?H*OK?X<K>2I
=K<"(2K.K;X<K:*LR	* J&?H*"K?X=K92I
=K<"(2K.SK;X=K:*
????2I
8O88!
72A.(.PP*6H?$VXPHY$V.1H>$VHYI2$VES$O$> *C*AH=XY"1H<$V/EOL<(,?SSL+MXPHP8J8J8J]HP]/S><(/]H==HIGH<6/]HUSHVSHWSHX>(/	H;]HXS/	I6535%F2M?HS?=ZFMRBAD
(AH:XOL9XSHS%NPOLO$&J!Z!PS*KJ!9F8FH$2J$UCY+5H$2J$UDYA+5H:XO$	M88D8 ?P!JY[.*LO[-;XLO[,K-8D?X+UK,8> +U!: K,9DK-8D?X+FK,H7+TK,XSK-8!H69X[,*;Z[-K,58!HS[,*T9*.%	FHK(A: 2I]F-DS&/!%	HH??[(A/!$]!AF+5K,$&K.[./*%,SAVE ERROR.0F".PV*>HB8A1!F!HS;FFB0PH-SE1!+LL<(/J<HLL
?9H7<P+^XTP"(((HRHTXR+O:HQC>9F8DK=]7HR/	FLHR9DXRHQ8DXQ/(LL>(/<%	BAF,(A/5L2CG=HABSYM^X*ARGL4\JANDX+BLOCKVX*CALLLX+COMMNNYJCIA8!XJCLA:YJCLL9YJCMA8 YJCML8PX+DECIM	]X+DUMMY-!\JDCAXX*EAP37X*ENDE\X+ENTRY62X+FORTR[3ZJHLT<BX)IF3[X+CPAGEV[\ZISZP\JINCPYJIAC8AXJIOF0
XJION0A\JJMP(\JJMS XJKRB0^XZKSF0YX*P34YJNOP8X+OCTAL	 X+OPDEF^EZJOSR<DX*PAGEC\X+PAUSENXJPLS0VXZPSF0QX+REORGC%X+RETRN"/YJRAL8DYJRAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEX
\TP:,B\SX2P=,A^IT5,A^JV1,A^KUHQN7QNOP-PQN$QN8P- P,0P-8 [AK> [CB2AY=2AY=2AHX\ [CC2AY=2I2AY=K> [CB2AY<2AY;2AHX. [CC2AY=2I2AY:K> [CB2AY=2AY=2AN8Y [CC2AY=2I2AY9K> [CB2AY<2AY;2AN8YR [CC2AY=2I2AY8 [AD2AXH [AE2AV, [AD2AXH [AE2AV/ [AD2AXH [AE2AV2 [AD2AXH [AE2AV5+
\XDCBLOAT8 %<H
>2AW>O>8!K=?H*[8  [BB2AV82AU0%8 [AD2AXH [AF2A%8*C2A
<2AW<O<8!K;?H/: [AD2AXH [AE2AV: [AD2AXH [AE2AV=
>2AW>O>8!K=?H/9K= [CB2AV92AV82AH[H [AG2I [AE2AW*K= [CB2AV92AV82AN8[Z [AG2I [AE2AW- [AD2AW* [AH2AW- [AE2AW [AD2AW [AI2AW+?.AA?8A-*\1^
VV9TV88 [AD2AV= [AE2AV=8  [BB2AV82AU0%88  [BB2AV82AU0& [AJ2A& [AD2AW [AF2A%8 [AD2AW [AD2AV: [AE2AV:/> [AD2AV= [AD2AV/ [AE2AV/ [AD2AV: [AI2AV: [AD2AV2 [AE2AV2 [AD2AV: [AD2AV, [AE2AV, [AD2AV: [AH2AXE [AE2AWC [AD2AWC [AI2AWC [K [AD2AV= [AH2AXB [AE2AW*+?H Z58
[AL2AW* [AE2AWF [BM2A
>2A^  [AN2AV9 [AN2AWC [AN2AWF [AN2I/=*&(I4,2F10.2)2A
<2AW<O<8!K;?H+X8  [BB2AV82AU0%88  [BB2AV82AU0& [AJ2A%8 [AE2AW* [AJ2A& [AI2AW* [AD2AV5 [AE2AV5*( [AD2AV5 [AH2AW? [AE2AV5 [AD2AV2 [AH2AXE [AE2AV2 [AD2AV, [AI2AV,+?*Z&ZTV8Z]A8 [AH2AW< [AE2AV, [BM2A!>2A S [AN2I*$(///8X,	SS	,10X,	MS	,10X,	DF	//) [AD2AV5 [AO2AV
 [AE2AWI [AD2AWI [AH2AXB [AE2AWL [AD2AXB [P
= [BM2A!>2A!Z [AN2AWI [AN2AWL [AN2AV8 [AN2I+(	BS	,2F10.2,I8) [AD2AV/ [AO2AV5 [AE2AWO [AD2AWO [AH2AW9 [AE2AWR+?&ZV8A8K>2A
= [BM2A<2A"Z [AN2AWO [AN2AWR [AN2AV8 [AN2I*(	WS	,2F10.2,I8) [AD2AV2 [AO2AV, [AE2AWU [AD2AWU [AH2AW6 [AE2AWXK;
= [BM2A<2AT [AN2AWU [AN2AWX [AN2AV8 [AN2I+](	TR	,2F10.2,I8) [AD2AV/ [AO2AV2 [AO2AV5 [AD2AV, [AE2AW[ [AD2AW[ [AH2AW3+?&ZUAV8F$8 [AE2AW^K>
= [BM2A%<2A$] [AN2AW[ [AN2AW^ [AN2AV8 [AN2I*&(	R 	,2F10.2,I8) [AD2AV/ [AO2AV, [AE2AW! [AD2AW! [AH2AW0 [AE2AW$K;
= [AD2AWX [AH2AW^ [AE2AW	 [BM2A%<2A%	 [AN2AW! [AN2AW$ [AN2AV8 [AN2AW	 [AN2I+6(	T 	,2F10.2,I8//	F=	,F10.3) [Q+?F7AV8FO8*-&	M2AN5R52A.JJ+Z4J,Z5*7AH2A
U:AZ2Z)ZLJ4Z$"["XG2A: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  N)O
	(BJ3R39HKVXG2ALG<X+$8J8J8JC92A/WAFCE P%+AT+NC+N3S+J?2.2)AT1M6= [A 7(BLG[TRC 7(BLG[URC 7(BLG[VRC 7(BLG[WRC 7(BLG[XRC 7(BLG[YRC 7)TLG[Q9WCQ8HK?[HKVC>9F8F8FKH[HKW[E8ACQ9F8DK=[J 7)XLG[KKQC<9HKJ[J1!HPSHPAIAB  C [QB?J^^G2C.<1!D^OB1CB<P+O9A:GCM>(+DK<BFK]<(+9[<J
[=SN+D2C.AR[HG8P2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AS2A*2*-*8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  M-OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P% 5%1O.3E)%0?622-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*	<[%*2J	<I/*
7O62Y*3;W2O	?Y2
8?8?/8]*)6*+W	?	>O=
?
=: Z[K<*	K;	:O??H;$K9	:O?=H8! [AT2A**K8	: [UK8	:*:	?	>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	:/SAJ2\* A/0LVYYJVYYJVYYJ 9%5O.7E-%0-2OE?;5P46 %<HO?8 [J[G [V8 [H8 2A
>:SJ<H*7	=	<0 ?R02? 0M?U0M?S0K?;06*O[I [AI2A+/ [AE2A+,KI [W [AD2A+,SG*MSH.
[G*M: [ISH*<I=<HKG8 	;W>;X2IO:
:SI+Y/98 2AW>+X[G+U [AI2A+/SG+Q+Y	; [AF2AA>/8"J602JGP+GCE2MJJ3LOO/K^ "0*M3\?N.,B 6MBJ3AWG" *M"0*M. :EP9Z6*285O-%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [X.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [XC3K2<(*3K19K:<P*9*43O/C" 616JS\2,J 3LOO/KN 6M2J/SKX2,J 3LOO/KN 6M2J+XB,3B?L+CCK"3*M+\3U2 3B3O>-?3A???J?M6*!B A? +W *28W	?/> [AJ2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AI2A+/SP*RQ [AE2A+,K:2I
=2AO9K8>(KP8!I==8 	7 [AD2A+,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+RJ 3LOO/KN 6M2J+FB,3B?L+CCK"3*M+]3A2 3BGH?<RQ9Z?:*)PD/4 P08 [VR)*HRL  NI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 76KDG9F8TZ(;(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/*B 2O0OPQRJ?FHSY=2AO?<(.	>*R?(2?7:&?82K?:."?;.A??8-*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+! [AH2A+/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*CB"B*-%? 282O?6*22Y,
6**)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> [AT2A**XS [U+*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/WIIFXU/XF:]8%&2J$UK2IICXMIBXQ\MPQ+02O0/SD-%?<861K6*285O1J3QRT 7<ILGZWRJ 7<ILGZXRJ [AD2I [AE2A<C [AD2A<C2IO?=*, [AS2A<G;(2IG?< *0  L9HK>2I
?O=8H
=O<8H
<O?C;>(K:O?
?K9ZF [AE2A< [AD2A<C [AH2A< [AD2A<2IO?K8
?RF+B  L1!DB?J^^G2C.<1!D^OB1CB<P+O9A:GCM>(+DK<BFK]<(+9[<JG[=SN?8?=BDRQHDPE*M3A
R. F(2MFJ+RCG3\;I7PSU2MFJ+RCG3\;I3B/L*M>J* B * B +DCO*7B0/JF=.,J22MRJ+CCA\7J2JO^2,& +NCC\7J2JGT7D2 J*M3CGI" *M3TSA. J("6*M3SOP" *M7JCM2 S^*M>J* B * B +NC+N3S/J6)"0*M3TSA. J("4*M3C3A/LN 6,WS3BOS2MFJ+RCG\7J6JKA7G2 N7S6JKA7G2 N7C.JC[2MRJ+CCA7I. 

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