File BRTS.SV (save files (Executable program)

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

?>2C>EQVHY2VHYPU"B"B&*?X8B??F4<2PASS2PA
*
 !"$%&	)(	*<^LOADPA!J=VABSRAI2RAI2?;ASINRAI2?:ATANRAI2?9ATAN2RAI2C?? OA?B+ *2 *P+E0&2AO?
>O?
=O<?K;K:
9:AG<> *S2B	8P92IO7C;
62AO5
4K3XHK2XI2ILH<(+BXXLXLH2A<(*=Z8J7K19!O0:TK/8!O.?H*<2I2B	-FP<B2A<HJ8\IJ7K1Z7*^2IO,XTO+2AK*
)2B	8P92AO.
(O0
	O?
&O?
%O?
$O?
O"
!.?<RFDVRANXSFC(FSOCCHBFM0F>H>$>GU2QVLM+E\JBJGJ?VL+QR<BYQGQBPJRZR2AN[M2AOM2I
NSMSNSO*F2B	?YK<BOQ2A
P2ISQSPSR*T2AO>K=> *3O<[NON< *,K;9!O:>P<B*3K99!O:>X*3W<*!K8
7K8
6O5C48!O3C29FK1
0ZF	/HTC.>(/-K,2B	+L:2B	+"/-PES?6PES?6>HL>HC>H>I?:ATANRAL+DKU$B?&HAP8??>E>,GC?V+?^M7U>G2IOISI<(*I2C.KK?[IOI<(*QSSI*KK>[I2CO=
<	;J!
IOI< K:<(*SK9<(*HK8<(*/K7>(+AKIK6>(*SOISSI*SKIK5>(*SKJ>(*<K4SK3SK4<HK2S: KI*RKK1
ISI
IK>[I*ADF2A
0K1SK/S/K2B	;JD/SGZG\G^G G"G$G&G(G*G,RAJ/6MA\ H;::CA2>VE?&L+JBJDFH JCZB<B.DLL JL=NK\HKK?XIK>XH: 2AO=2IXV*[HIK<>(*]LH\IPV*U\I2C/;?2AO:2IXTK9XUK8XVHT\UPTPUPV*2.)H;H=H?IAICIEIGIIIKIMIOIQISIUIWIYI[I]I
I!II%I	I)I+I-I/I1I3GXAAAAAA?2Y6BM7YZA?H
	?2B	>R;2B	>NA2AL9!O=:TL"8!O<XS<P*VO=\O<\"L < 	;+WK:9!HU>X+WK:	9HT9 L$>P+WHT9 L
>X*.HT8A\
HTL^8!L[>(+C2B	>[]2B	>[&2AHTL^\[K82B	>E 2AHUXTXUK7	9HU8J:LYC6<XK5\YHT9DHULZ\\2C/42I2B	32C/2	?2B	>N
9< K1<8+*2A\ \\"/02I2B	34M"35*KUBYDLBOB=?CBHOZFN9%&L+H)X
?*S2B	>X(2AO?K=?(*VO<2I\X2APX: O?
?PV*C/;2I2B	:*]2B	>X(PV*Z/;X*/2ILX2APX<HK92B	>X2A: HQXQO?>(*:W?8PV*"2I2B	:/;PV*	/;XHQ8 XV+FK92B	>XPV+B2B	>SP2ALYC8>(/;HS?H/;K?2B	>X/;2IHR<(+!XHLRXRLH8 XV2AO7XYK6XX/XRQQRQYSZZZAAAAA"%/010M464"B6D LKU*BEL+ZHP> *L2B	?R;HQ>(*22B	?P(J8<(*5XWLWZ82B	?N
XHHH9!HQ>P*2HH8!HQXQHP> *)2AO>X!HW\!2I*+HW\PHWXP\PHHPW\W/=2I2B	<2I2B	<H9[YXUXTKY<(+V9H[Y<P+MO;HTXT8TO:HU=X+WXUO;9D
;O:8D=X+W
:*=R9;.99![.K9XV+HU8DXUHUK.=XU:HT8DXTPV+ /ZRQQQRWWZTUAAAAA"-3&?3%&LKU>L+"L"LA"LHA"L "L0"L8"6AW?:"6 %?"NL8F?H*\K?YJK>YK* K>YJK?YKBAJAWBAKAZIWIZNL=*1YWNL8D?/=/<8H>XK;K:/9N6R6YN6R6YA]QQA*=.6OBSBYMYIYAOBSBYB: YC: YDYEK8YFM	7Q?SR[?RRV? R
?UR
?7R
/6/B<(+WIW$	;X+WHGIW$	/S?:-4I[$	I$$	/0RWZ?0R*ZFJXT= S AQC*CQBQF<H/?UBQEMK>?H*!MK=?*!MQK>]AQA/<QD*$QEQB*
IE> *	UBQ/<2B	;*
2B	;*
2B	;*
[MIJYIX8!K:YAIXIY8 YBQB<H*=MQ]AQA*5I[I\8 YPIP8 IKYOI\K:YNIN8!K9YQ	8IM>(/7KMK6> +X2B	;/5QWK4Y: YAK3YB: IBYBMB< +):AIA>(+.QA8A8!K2]BQ+
/7H7J!C?"U"%:TYY $ 4LQT?F?PQK?YDK>YK=YAYBK<YCK;YE"4QD*RK:]AQAQBMQ< *YIB>(*$QBK9]AQAQC*$:AID?H/8*&QE*LID?H*3: IAYAMAK7<(*)K6> QA+VIW8H>P.4K5]AQA.4IJIXIYYK=YAIKI[I\YBI[I\8 YCIXIY8 YDQD/4IYI\K3YD*BO=K2>(: IAK1>(+"IAK18!+%K9
=: 2C/0	;LI9!HP> +7LI9!HQ$^=?S?!V-B?PSU0.?"?1!C %?0: IYM9FM9DK?YEIAYFIBYGICYHYMQH*&: IFYFIM<(*"MFK>=H* ]F:AYM*RK=]F: IAYA/<: IGYG: IFYFIEMGYIMIC;MFIMK:=H*9]FK9+AK==H*?]FK8+AK=]FMI8J8JC;YM*PK7YK6YAK5YBM<(+YK4>(+YMQ]AQAQB+M/3<(+&[)SZOZSZ<(/ZK)> +^OZ[)/)<P+1
NHZ	=>X	<;LNUV?R?.!C AP ?,OUOJ?6^V	?!C?"I[I\> *K82B	>/=MK> *S: I[Y[QK*CIJYK<YAIXIY8 YB* MQ]AQAQB*\I[8!IX8AYLIL=*,8!*/K;?/:K9YIK8YAI[I\IKYOIO8 IKYPIP8 K<YNIPYQQ+JIL=H:8 YD/7YZPIM> +QUA+JYZFQAQN: IQYQ+BOYSYYRINYSIOYTIPYUIQYVYMQV<H/Y: ISYSQU/6IM>(/Y: YU/5ZHZ
ZTB 6?/SU?0!CU"LP6: ITYTMTIM-RMSK?=H*M]S8A/>K=]S/>8!MS=H*V]S/>K=]S8A/>: Y K<Y^K;Y
O:>(*%K9Y]M]	8Z9?]Z>?ZZ>?SZ>?VZ>?RZ>?\Z>M]Q]	7*%K9Y]I^YA/6I >(*;Y K5YKYZY[Y\	4AKAZI]YYAYBYCM	8\?][!?Z[!?S["?V[ ?T["?\[$/3QBQCQ+OQA+"22CIF 602:CIF 702C>E==BJ\QB SUV^JWZ!" >0!CJY%?6YFM]	?\S?]\U?Z\V?S\1?V\V?R\??T\6?\\$	>/=QFIC8!I[?*;Q[IF> *&IB>(K<K;	:Q]*A")K
*IA>(.)YAK8	:.)IZ> K7K6*IF>(*
K5*")QF	4*$")	>K3	:Q]M]	?Z%?]]Q?Z]S?V]U?S]W/=]0] ]*IZ> K7K6	:+C: I\=H+%Y\	4+C:O]+[>,>+>.>2E>->,>1>0E	>..^P, M$0^J*?6Z%^WZI[8 ICYC<H"PQC*F.]^Q^Q
.J/?MKQKK>"J.PABCDEFGHIBDFHPRTVXCFIRUX!$	DHRV $(26EPU %05AAEFRX$06ABAHATGT!(5ABAIAVAHV$2AAHAVA$A2IX	6AEATAA2BABJBM?5VV0Z;K2[EOG< *=KE9F8F8F+KE
GSG
GSD*	."COCPCSB!BMBJ,  JSW = REL. LOC = PACKEDASCIIOS/8UNSIGNEDOCTALOFFSETSAVE0O0,+DYFC?DFE>E<DK+I2A%?K?XIL-?*K%>K><HI=\IL->(+
	=K<XJK;L+9K:<P*8K9>X*>LJ%<K8\IK7\*LJ%<T**"K6\IL+=H81\+8FK5\I!>\!?6L+%<%;2C.\(K8\I%<T(*;K9\)K4\*: L*\*T)L+8AL)?+Q: L*XOLO>(+B: L+\+;VL+> +ZK8\ILJ%<T)+Q*5%<*5\)L+2IO!2A=H+,\+T)+:L)%<S!/!LI++AE?;.?9?<EI$&-IT\)"8L,=(+DK?=+M\*<H!T**KL-K>?+M9L)K=\)8A8DL.\.<XT-
-K>> *&I:\-\.\)T+DK<\(K;XK*/L-A9\-	:L-8F8F8FA8\KT(*+.\+L-8D?X.8	9: L,\,*:L,J%\,	8!!	7!;$+^;I7\*L-K>=\-:4\(	9T(T)T*+PL-A6\-8AL+*9L-9H\-L.8H\.L)8H\)/!*$+**Y*II$?:	1,?;2A: [Z: XL2I
?2A[Y\-\.\,\)XK\*"L-K>?H*YKZ?HSY*O	?HM\*\0\1	=: HK*NSZ*);VHM>(*NXKHL2I[[: XLW?2AL3K<>(\*;L+9FL+9DHM*3	;+WKT\,L+PL8!HKKY	:L+=H/9> /8L)?HT.+UT-L-?+U	7T,S[%>2C.\+	6L3K59J> +	<XXL	6L3K49K3XM<XS\/\V9C>PJ?F?U*6	!	C	M&8*>;*$<4*IL-<(L.<(L)> R.	?	>	>	=	>.IL.9!\.8T
-9!\-.PL)9D\)L.8D\.L-8D\-.Y9L*L)\)8DL0L.\.8DL1L-\-.$K<\I.22C	;2AJI>(L3I7< K:9K9>P*7.6K[[SKZ[TK^[UK8O/EXOK9[YSY+S/OXILO\OHISTSSK][SK\[TK
[UK8O/ L-\1L.\0L)\*/*H?;WW10*$*Y+*C2Z(A:I6X[7AK=<U	A?/*/+/,/-/.///0/1/2/3/4/5/6/7BMDCHMZE4EWCN><B<A<CL0<EVBG?/?4?2[?1?0?.?=?%CPH?$??)&	SYDJD? GWSPM.,P9.
.K A?XC*-\BFC R;BOLBN
GQC?O<HSH*FJFI?ZF<BKH<Q:OH2A.8AX+;X
"X,	?H,A>9F8F8DK>=*	X H+> *<H J*Z$ <B8*OJ+Z)<B&4.4,-T*+P.
.,((HLWLVDUBOIMFBOCJH KI[A9	=<BROQSTRHRNT/JH,A=KO[N<B/PG]C0PBHID=N	L]LTG/ZZOT!L	L&L)L(H,A<X H 9DH HQ<B/ :X$X&X%/*%;K4[3<B/5EPSJDRAPZFBNBMN8?8J0H%? %:8!X %9<(*SX,%9[IP *E%9>(*W%9:*M%8-7%9[IH,A=<(*3KDZ]<BZ H%<B*,-7:L:**:%6;VD6>(-7H,A59JK"]4KI+GOU?%8M4
USUO?
USU*,;$KU[UOU=%8]4KUXILI
?-7<(-7KT?H-7*,;X%[T-7KF:?> ? ?H>(?(+J**&[*2AL7[+L8[,L:[0	0?/ %8%9XF-72ZE2/F54),QU)4ZAPCHH,A59J8JH+8HK?<XK>[POP[P<X+NH,C=9FHRXI<BLIX4LI[ILIX"H[9 H">P%8X(LI<(*)9!H\>X*^H\	<9H[X	8DH(X(H	9DX)H(8DX"9H	H)X)8DH(H"X(9H)H4XI8DH(9F8DKI[I8AX
<BHI	P-7-7	;/PH,9J8JA=/QL69H>XSW/W%;K![ <B/"S\T5UMB$USSE1HCHFH$HPHWH6%;2K/:?
<?= G?CX>GHN8R	
VB,:A	?/>:A	?/=:A	?/<%3-7%8%8%2-7%8AH&3X&H%4*;AH&38!H&H3X&H%48!H%H4*;AXZK;%1K:%1H3A0I/%1H&A0I/%1H&A0]B/9	8K7X L X&X%X!K6X$%.-7	5H%X4H&X3X,	J%-C 	5/AH,X-%9X.-7K4	?/3IYX!2I\LP!+.2C-E\ADNAW/6P\BMAY[$($"$BL:SE0!*E0&A0K?> *\RB*\JZBJA<(*\ZCR!*U0Y<H*\RC*U"0KD> *
.DK80Y*,;"00Y*"0^A0.!SE*84*0Y.00\A0K><(+K=9J> .08D[D0Z.00Z:A
<%80000000000000000000000000UU,:%9BA/6?2?=?3;2LJEZQ2C;AY> %,O?ZSK>":	=JS":<B.R *]R %+IU	<%-X[*
%+IU%:X[%-IUJ[Z -78A8A8A":/;2IZ8N+R+Z92AJ8&9<HR+2K.+X 2AH 8!K+>(.:H K:X4L4<(+O[L	9F\%8+(H 9HH 8J8JK8XIK7XJI>X42QLI2A\J2QLI2A\J2QLI2A\JP4+ZH [+.:G?AS> *:H*
8[???>GM,\AC \,DM+%8H%?H%8H$=(:K?=%8X$H$K>=*TX$H%X&X%:*\H%9HX%H&8HX&P$*V.A2A"AH%> %8H&.
H5>(*5	=: L;\8L7\9L6C<\6	;-7HXXN-7<X+,H,A<X H 9DH HSXJ<BLJX1LJ[]LJX/<P+]H[90LJ>X/:H/X"H[	9H1X18DH(9F8DK][]L12AX0K]
8: H/9HH/8!8AX/	7.8H,C69FHT9P+B?2?
WGWTR	F^Z6=][]L?(X&<H"\K?XIH&X5K>XJK=X4HI\JPIP4*K;$L=<X:2I
<
;2AL>2I
:-7%:9PK9>0%8H&9D9FH&9D.\L>2I<(*6X L X!O8\ H 
8H!*+2A\>.(KMX HY8H8TXYKRX4<BL4X2IL <B\42IH\ P4>P +B2A.9X+%2H0>(K)<(	7X4HZ>(K)2I<(LH2A9!H4> +2H0> P0 HZ> PZHZH0> +U-7:(X%-7?)&VN8?;RPQ?25/*8X0HN
?K>
=KF
<XZ"QO?XN-7XZ"Q-7H0>(.QHZ8!I0XH	;2I\H2A: HZXZHZK:?H%8P0*Y.QX3X(K9X	H"8HX"H(<P*49H38HX(P	*,H"8H.	L:>(%8.;HN9 HW>P%8SFLN2A/O8[M-7HA I*%1K7%1/PL6C6> SV/V^-7H%?H%3/^%:A<%1-7: L7XII>XJK52I\IPJ+/2A/	,)ZDJKE?4BEVWEVBVFWZHZ<(/?X HZ8!H/? %82ILH2A	>P *I/?H*	>	=H*K<
(/?9K;>X*RO:H/?H*P%8/?[%HZ<(-78!MBHO? %)HZX0I0XH2ILH2A%1P0*.-7%(-7K%>(*<I/%18A[%+GH48!MB=H+]>(-7H4K9X4H4HO?(*?: L69J?P%)-7%:9PHO<P+T8!HOMB=-7[&%(-7I/%1S&+ -7A<840,2K	1/-$2J	6/2((V)NWYC?3X(VZWT.B2A2."?OZA>[GOZ"B"?OZA>Z;OZ"BJ;9J8JKG9J8J"B*F2[[.^
Z2ASY.Z"?KEZ3KZ[GK["^"?KEZ;K["^K[9F8FA>OG
GK[9J8J8HA>OZ"^*SZ+EKEI?[E.?KT[EH1[ZK?ZBK>Z^[YI0XH/GKY8!\1-7X(%6L9X)2IH(\)2AT98L6C=I/\6;VD6>(/\%8-7	52K/1X(K;-G NOT A$&$%?
VVFX %(%8UBH I	?H]BH5>(*]L*S3A>H 	?.H 9F8F" H 9J8J8H" .H %&.A>X43A<H4	?. %(%8H5>(+IL*2"*<"A>X "A>9J8JH 8J8J2X*H*<(*+K>> .(L69J9V\6-72K	=*<L6A9< +[8A	<8AD9> I9L6\6SL/L8 D6\6;$L9\9/LL=>(	;<H%8;VD6>(+.%8-7%63T9/"/"L9[:2IO:2A/3SVZ.F?&W\%(*D	?-7".K>K=X&$&X$$&X
$&X&-7%(*%	<HI8!K;X3K;XHH38!MBHO? %)LH%1P3*^I/%1*,".H$	:H%	:H&	:
9-7L7I<8!L9>("6..L6C8>(+C	7*?]<HXT8&.6]&T8L;8!L89 L<>P+OX.6	7-%L<9 MA>P-%T<.6	6K5	4/XL6A/>(/]K3	4	6/]L7\9L6C2\6/&: X /8Y(=P=
"HE BHS	SVPU%W\ITU-SF"U27A%;JFZD<B-7&G$"+G^\R$3
 "]P 	
%+I(H$? *]H%?H+J%2.RH%?*"%38AX"X	9XXH$8!X4H9XXH	8HX	P4*)H%X%H&	X&H">(.R%+I%	?I(H%X"%2H">(+F	?]M	?I%%3.R%-]M+HAPO>X"O=X)O<X(H)8F8DC;X%H"8F8DA>X&H"8F8FC:H%X%X!	9	8	9H!
>H&
=H%
<X$	7%.-7I7>(*,4-.G?8SMSNSO,%+I\H%ZX,&H%-C 2AH%<(+Q?*RJ>(/?J>(+O%+I"	>H$K=?+T	<I"H%> +T%-I"H%Z	;	:H%[^H&[
%-]M%+I
*:%+I
%-I\	9I\%+I\%-I
K^9H[^K
8H[
<P+D	9I\K^<(K
> *0J?-7	8]M-7%2-7%-]M-7J?H%8%-I\	7	9I"	6-7H%<(-7?H+(8A<H8 X$%$-7/5ARECTBNBL*M+B*AG$3(H*NAS^-T?(\RHLH%<(-7?*H%3%8;Z[Y[Z2AK[X"H$=H8P8HX$<XP$8<P	X;$[W;Z8JX(X)KVH%X%H%<(H&>(+Q*.H(9HX(H)8HX)	XH)KZ9!H&<(SWX8TH(KY9!H%<P+M< +BSW+B8 X"X%HX&H)9DKZ[ZH(8DKY[Y;$[WP"*
KYX%KZX&-70,4?*J\??DIR</F=6":	?	"0KBC>JJZI*I.K"V"O"R"T	=]M*V%3*V	<]M%+I(	;%+I%	?%?	:%<	?I%	:%9	?I%	:%6	?I(B.	:&B".+%+I(	9H$[B%$	=I(.0H%?+%38A[G.:KG> %3/B	?&E"0	?&H%+I(	;	:&K	8&N	:&Q	<I(%+I%%-I(P$8	7I%	:]M	;KBH$X$/GTW3BH%9HX%H&8HX&H!8HX!/*+P(H&;,	[-T(C*&1%
I(	2]MH%?H*P%-]M	0I(%+I(8AZ3%-I(	4%+I%	/&&	1&	/& 	/I%	1&]	/&Z	/I%	1&W	/&T	.I(J3>(*/	3&B&2.":BH%=(/59F<(H$8!8A<(H&> +DX$X&X%.3H$ZX$%+I(	/&)%+I%%-I(	2&)	0I%%+I(	4%+I%	.&2	/&/	.I%	/&,	.I(	2&5%+I%JX$%$	/I%	.&8.3*,+P(H-T(	[HOAYH
	+UI7?=TVT6?9.HY4AYH
.AWET\??VK$MF^B8,J-LYDDXA;A?>VV1/B]+H9C[CF8C$*7BZ!=,??/C  AWKY V(I8BWET ^1E6SJ-UPVK$M:H$= +B:+QK?<(+P=/>X$9H%=H8P8HX%P$+HH%X$.;H$X%X&K=X$%./S	<$/[%+I"	;%+I
%-I"	:	9I
/
QS[6K+Z*[7K;[+ICXGI>*6?&&PU+P""+*KN$?5%N	?2A%3J/>%NH	?H&X)L"X&H$9!H	X$X	H%X"H(X%H"X(2AJH
=K<
;/:	?2A;$XH(?*+	9PH)9DX)H(8DX(X!H%?*8%3P8H	.!H"9!H%<P/89X%	7H!=+R9P&<H8A8HX%H&8HX&P$8H%+CX%/6X$<(X&X%	7H&9!X&<P8 +B	5	4	4	3	4/
< ++H
> S&/&CTUGLYCUIN-.,4+*+ +/K-%((!+T+P-Z.%N	?H$X$[X"H%>(X$""H(X)""H"X&KX%H%8D?*]X!RP.%3.8 H$X$	>*XK=X	H)< *+X!."H)8HX)<P*59H"H&X"8DH%K8H[H"8HX"8HX!P	**."X)H"<P+F9H&8HX"H)8HR+9!X&8T/<%OP	?8!H$X$H(9!X(H&X!K;Z+HKPZ*WH%H(>X/:K;X"+3H%8DX%H%H(<XX%:H&8DX&P"++/EDHL
3(:?4,4(!%N	?2AH(>(*\H%>(*X;X$H	8D:H$81H	<0*^8!"!"?H	X$.%.R."?"!*X8 X H(8D:H(8HX(H)8HX)8HX"P	8P *$.!H!9DX!H&8DX&H%8DX%.48 X H%8D:H%8HX%H&8HX&8HX!P$8P +B.?;/>%OT	?%KTZ*DH&9!X&8TH%9!X%/\H)9!X)8TH(9!X(/%9H"H!X!8DH)H&X&8DH(H%X%/.PCS)T.X"L"X	FL"X(FL"X).H%<(H&<
H!>(+
;ZH%< *YH&> ?H*\+ZX!.K,4%N
"H	X$H)X&H(X%R
2A.
%N,Z
H$^
";H%^
";H&^
R,2A.,R
.;<HZ;2LKE[C/C.;2IP"/FKF*?8!X%9H(H%<P+VX%8 H!X!;H%/Y)U90H$X$&^*SX$*\[%	)T<B/(BA>GA)R72([;85LVM78 A:6>A5P*+7;[V$:86B*7) B;B>H578[R A:6>D>$B

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