File COBRT.SV (save files (Executable program)

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

?:2CBPA<BX,JPPAH8BHX8CL.TOD
L6L5XSHS,.L"LOL
H4LCH/AHGL4 ?!.D[0D!	"B"B&*;K?Z0K>Z1Z.Z/R0>H*TK="?K<2B	;<1R1K:"2*GJ.> *\J/> *\2S/9J/<(*(K8Z/2QJ.
7J/
62S*[8 Z/8 J.Z.*!<B9J/Z/<P.2R..22B	5:%2C/4<B<(.?Z2J.[TJ/[UZ.Z/KU9J/Z/8DKTJ.Z.R2+I.?;K3[TK2[UK1[%OT
USTSUS%+]2B/0<B	/2Y2B	58M2C/%A>B)Q?:)R,>*;= =
??.[?PW2A?6BN?5"B*S<BJX[.JY[,2IO,BZ> .BJ[K,[,S.*G2C*2Y2B	F8Z*Q?9<(HJ[,OB[-K,<(*08![.2AOC2Y2B	D?-KE> *8S-S.*$K,2C.3N2B	F8*02A8 
OA2Y> *0*4$S5T\W?P*;[50Y+Q0\0XCZKX2C>(/Y;K58J8J2C/WBY?=+-A?;K/[5K0[6K1[.O5
6S5S6S.+"O3
42C/2AGB4?8!.[\"XH "("(K0<B	?
>.<B;O>C=O<Z2YN2Q.D	;K:<(*
K92B	8062QW7W6*N	;K:> /5/4K32B	8062QW7W6*
/4	2Z;	2Z<	2Z=8A2J	1B,;/0J2Z:2J	1FSV<BZ;K/2A
.2QN?[KR?J;2B	-Z;K,2A
.2QJ;.?C+K*	)A/(
6		AC&> *N/%K$	/".4-BZ0VA66.	7H7?8WW+H&9 B1X 001R0706V$
?!>%08G?05..	?/>	=
<2AO;2QZU	:A[SKSC9>(/8KSC7> *V	6*		5<H	4	6*	;JU8H>P*2CW3/22B	19^+Q;JU8H2C>P/2/0<B	:J<(/8[T	:H[A	:B[S	:DKS[B2B	TBX+L	:A8F>X..	/I..?+D2B	19:2C/.<B	:B[S	:DKS[S	:C8!KS?(SU/U<B	-	:D8A	/D	4/$=>7I"*;BKX0:<O0P4 66P1W1X;6<B	?HZ8J8K>Z4	?IZ59J88DJ5Z9	?EZ6	?F8!/=DK<<
/;K:<HDR5R9K<<(+NK:2B	9062QR6R7*\DK<> +RR5R9J5	8I.<B	7/;	6;Z5J88DZ9.:<B;J5K5?	4K3	209/D	?A?H*02B	19+2C/0<B;2AO/[DW/2QOD/X2AO.2Q
-X2A
,2QX[W/0T.UPX>*;,?2Y/$8../U7V$
.[?!-XD668!Z<O?Z=2Q	>AC=>(/<	>A8F>P*^	;*^	:;O98DJ>[K8	73K6>(/5	>AC4> +MO3C2> /1	0R<*(	/	.K-	,4 R>J>	+I	>A8F<P*;8J/*/)<B	>H
9	>IZ>	>J<(/<Z?/O3C=> 	(K82B		2=2B	&2Q	%R=R<+QK$	%O3C> 	(*1 BM4-,W4D.	-S7;J
>X4M4!6)0.UA.[?!,?2Y6%0:<O4P66/2B	?:/><B	=8!Z!K<"-R!*H.D<B;O;K:?H*Z	9	8A8F>X	7
;;O68DO;Z .M<B"MK52B	42=2Q	34 W2W;.!<B[UO;C1K0?	9O;C1O6[VO;C/<(+W?+\;KUC.8J8J8H %; KV[V;KUC-8F8F %8AO;C,
;.-KU%K+O;+SKU%K*+Z<B2YOV2Q/ <B2Y
V2Q/% PAO?C0O0<G?2=;JW2Y6%/$66682>BJ1X/Q*;<B"6DZ2J28A>(."6B9J2<X/?Z&"6AZ6J6C>AJ6C=> *4"6C8!J&? /?O<[L2B	L"X<H/;/:;AJ2<X+!D
9.Z2* <B; N6R6O8[L2IOL2Q.6<BZ6; OSO8[LJ62I
L2Q/<B	72K/6/LK5<(+
K4<(+]K3<(+]K2> W12B/02B//2[/.LEGAL LITERALILLEGAL <:/A.?M	?<?V,?RP01X1W2>=,>E2?A7?.[2AO?2Q
>O>C=8![(	<K;
:K;Z;O9[2IO2Q
8O7Z]	6A[KC=2J	5A+$J]C48!O7> */K"> K5K5O7
7O7K3?/2J]	1JO>C0>(//KC=2J	5B;]+ J<>(K.K[O>C-["KC,K"	1A["J;	1B	1DJ<8 J;	1C	1IO>C0> 	+S(*H2C/*2K/)R]8 ["*U;!BK..?O0A: 7/NG>B66:V1W62:F;]7LO.UP	?AC>2J	=C;]/<JF
;JG
:JG> /9	?AC8K7
6/902AO52QC48![I	3O2[J2IOJ2Q
1	?AC0> //	.	?AC7> /-	,K+J4 	*	?DZ>	?AC>2J	=D;]/<	?AC)	(ASI*]2C/	<B[\K&2A
%2QOJ[VSJK\2B	$K2A
%2Q/JNO R8V$V4H&BK7?O6
4M-
3>K 1W627L?P9A>?9C8<8;/NBO66;K?Z>K>Z?K=ZON>^?R>R?RO*G2B/<<B	;G2A
:2Q2B	92B	82[*	;F8A"?9K
8F8DZ>K 8F8FC7J>Z>	;D8!J>>(*5J>	6DROK
C5> /4K C3	6I.O<B[K
[!K ["[
[ ;K<(.?8H[<P+W9K K"[ 8DK
K![
;K"8D["K!8D[!+G<B	;A8F?/	2	1/2K/0;&63G?.[>7GYCX&T669(?:,22B	?2AO>/=	<A8F>P/;/:	<AC9>(/8	<A8F?/8	7	6/8<B	<A8F>P.XK5	44 K3> /2.X<B;O1K0>(	/O1=H+I8D?H+Z	.[HK-O1
1KHC,<(*&K+<(+FK*<(*&K)>(/(KHC	.%K&.%	.8J8JC%[HW1	.8F8F8DC$KH[HW1O1C*5W1	.[H8 O1
1K"*4 G?OC0
?.[?0C?3A?P,D,<051R?!,?2Y63;P616*662-X&O?8!O>K=2B?/<K;/:K92B<(/8K7=/6/5Z$K4
3J$
2J$> *^O1K0O3
3//J+> *,O;2B/.J$> *,8 Z+/-8 2A
,/-[JK+[LK*[K2IOJ2Q
KSJSKSL*52IOJK)<(K)K(2Q
KSJKJ
	2R/&;2QO%2Y
$2S/;2YO$<(+[2Q
%0&66K"2C/!+YBC-R,(C:V7P62TM+3;]?=$;[
;M?0
^
 >B]=(<IA
;P>\<>A=&?5Q /E+S6"R 7OR 3I3T+E" *2:)"M&J7D[I3IWD2 ;A3NGU3LF-3L?L3W;A7COE2-GT3XKA+LCE+BCY*2B47G[I3I
N2 	B2-?M3NT+L7Y3A3L".*M2I?M+VCE+B7I3M;O3T3H3YF-+LCL+TCO3A?M7USN. J(")6.6J^I7RSI7EJ 3E3P7PJ-+ECC3B[E3OWR2 SA3V;A3C;I/GF 2 	L7NOE".*M2I?M+VCE6"WS7PKE2 WD/D+N6"R 7OR 3I3TWARNING - DATA TRUNCATEDCONTROL/C NOT PERMITTED - FILE NOT CLOSEDDATA LOCN. DATA NOT NU
ERICSUBSCRIPT OUT OF BOUNDSRUN-TIME ERROR:-TOO MANY NESTED PERFORMS AT PROCEDURE LOCN. TRANSFER PAST END-OF-FILERECORD LENGTHFILE NOT FOUNDDEVICE I-OFILE NOT OPENED^C  .   RE-TYPE:-TOO LONG- BREAK -TOO MANY "TIMES"FILE TOO BIGO?K>?*3O?2B/=8 
<K;*1;K:[FK9[GK8[HOF
GSFSGSH*>2B/7
62BW5/42JO3K2?H+]O3[ 2IK12B	0; > //2C/.2I
-+[2B	,922C/+2B	,9:+$I>*;P+
MP%W2A=2>
E
"
!)C?:)D,I$""?6"48,BBK%)8 H^H;9 H:H^,BJGJG>P00 VXW!+YCX&&*6WV$Z!VG..FD?:?
E(2A?0BXAG? PBD0G?>D??FBNHP? 
0A?H2Y;2K/?XZI?X
I>XX2J%=H;XS%V<(/>XPHPA=I<<(+,I=2[/=8JK<Z\<BLH	3)	FNF7G)HXIVI%J;":1TN))[3[5],C]E^S,)
2S/;<BH5H38!O:?H+(I;/
	9A:I9/
: HX8!LZ> *K8AHZX	L	XX*KHPTVM:W.]?G))QT%W%XHPA88!XQ%VXT%Z%Y	?%XPQ*F%VZ1J1A88!XRJ1A7> 8 XUJ1A6> 8 XSJ1?**%VXT%Z%Y	?%[PR*!/>%VXT%"%Z%"%[/>%W%XHPA88!XQ%VXT%Z%Y	?%XPQ*8%VX	H	A88!XRH	A7> 8 XUH	A6> 8 XSH	?H/=%VXT%Z%YI5X!	<%[PR+S/>%VXT%Z	;%VXT%ZI?%]/X%HP8H>P/:/9
%> I4K8	7	6/5I1,V+	CLOLOS)NZ<FBK[H%VXT%Z%YI5X!	?%VXT%"%Z%"%[/>%VXTX$%Z%Y%X%VZ6J6A7> 8 XUJ6A6> 8 XSJ6?H8 XV%VXT%Z%Y	=	<HV> */%[/>%VXT%"%Z%"%[/>%VXTX$%Z%Y%X%V[(K(A7> 8 XUK(A6> 8 XSK(A<> 8 XWK(?H8 XV%VXT%Z%YHW>(+Z%"	;	<HV> +!%[/>%VXT%"%Z%"%[/>;HPA8< /:%VXX/>
AO9+/	88(/7[	*;HWH"!J^BKZ<XRHRHXZW2QNW2AXT%Z%Y	?H=(/>8!HR?H/>8 HHXXX/=[*%VPZPZ\ZHPA8<(*5I3<(*<I3>(+T%VXT%Z	<%VXT%Z	;	:	9I2HXXX/8;AHXXY: %\	9/8%VXT%W%Z%YH[?+L[);AHXXYK)%\	9/8	?O7> 	6H8![)+E	9/8%V< +[PX/8[+: HXXYS+K+%\%VXX/8I1HZXZ/8	5:H2Z	4/3/2>;%=%+N)J(?BK
DL\*[*)G.G1("HP8J8HA0
?
>;HPA08H[$<X8 [%K$>(8 [&K$I3>(8 [	K$I1>(8 [(;&K$>(8 [)%VXT%ZH-8!XQH,A/> /=%V<(/<XT%Y%X	;%ZH,A/> /:%YH[H\<(+G8A?+C	9X[X\+GH\>(+Z+
I5
8	7+Z+
;K)>(+U;K%>(+*+1;K%>(+1+*;K	>(+U+P;K(>(+U+P;HP?H/68 
>/6;HP?H
>/6LK).FT(*[!!T"M.M/K/<(+)I3[/%VXP/?HPA88!XR%VXTX$HTZ[%Z	>%VXT%Z	="\PR*S/<<B;J\
;J\
:H28 A/>(/9H88 A/>(/9H8A/K8>(/9H8?/7	6*9	5/4*=H8A.> *6H4[
K
8!H3=H:[ [!X+H98!["H5[H;[$H:[%X^[&[	[(	3K	8!K =+]8![(/22Z/1K.>(/0PX/<I">\NB.2TI82.
T0R7TMS*BK*)*[JFO?
?X^I9[E;KE[K% M%[EKEI1<(/>K=<(+GI-<(/<K;<(*&K:<(/9I3<(/9K=<(*7K8<(/7;/6I9[E/<<B;H+> *1KEX+.)KE8!H+> 	5*.; 
4KEI1> *?I9[E	3W2*EO1[F/FO0>(/>//%VXT%ZI?%]/X!	.X]O-8!XQI?%])U8!H%> /,HPA,> /+	*HP8H/)GP$PLP\)S R M!L\M"!ZM&XFQRQ]?5R!WPP-?VP3M>P*EH!%^)UHPA>> *LW?PQ/>HPA9>(/=	<B<%WO;YKO:YJK9XT%Z%[/=HPA2> *LHPA,>(*I	8HP8H>P*IH!%^)U*IO7> +H	6*5	5	4/3O2> *?	1	0//	.*?W-*2	,
 
2	1%^M$W-W+/3; O*
*O*?*?I;%^M$+FO7> /)	6>H/)O2> *?	1/(O7> +H	6*?	,: 
2+NBPARDRIM
M$XFMXR9C
M!OWMN)W[M&$
0CBCC [BKOX)U;H5X//?	>*	=/<W;;O:K9<(*[I1> *VH7>(/8K7
:O6> * 	5/8H7> *TK4*U/3O:[)% M%
:H7> *1I9%^M$W2I9%^M$/*K)%^M$W2O:*.H8A.> +QH38!H9=+E	195;/*[+	135;H;H3X;	0S+;/*H5[)H38!H9=+ 8!H5[)	19S);/*[+	0S+;	13S)81/*2K//23QM8/DM$N?+N)M&-N=?UOEMP?X9G4	?J\
>%YI?
>	=%[.M	<9;.MH$ZUX$JU>(/;/:<B;J\%]M.V2Y	9%V<(/8XT%ZH-8!XRHQ?+GHR?+KI?%]50X%I?%]/0P5P/8!H%= /7> /6PQ8PR8*+HR?/5*4I?%]50X%*9<BH,8F>X/QH,?H+(;H-A==H9P=HI88J8J8JX.H-A8X-/QH-8AX.2IL-2AX-/Q<BI+< I9/0KLK
KZ!!*[IYG)8*Z 9%<B;2QLX2APX.<B;NG[LOL[JRGH^8H:2IOJ2A<P*\A8[KX^WLKK.G8J8J8JA8[K8 X^*Z<B[JH
Z8H
[EN$[LR$OL[K%!Z>KK98H8[L<P+OLA=KJ
L2A.$KJ8F8F8F[JOLA8KJ*<<B;O?K>>(+YO=K>>(K<I9
?	;/M<B; O:
:O:?S[/[<B[/;O[JSOJ8H8[K%![8OK<X+68J8J8JA82A/M(!ZJOK?VOE<BK?<(RI;.<B;O>> .FH+>(.F8 O=ZVH+%^XVX+.F<B;X[I*Z$K<Z%K;^$R$R%*^.W<B%!Z,".	:	9.&<B;HT[B2IOBX,SBOBX-SBOBX/SBOBX02AX.	8..<B%![0H,A/> /7%WH,A<>(+SH1>(+S8 X[[2H.=+]8!H-8![3+&8!H-=+$8![3+&8![3I)K3[+	6/-	5
4/7/C,0:ZG4UQ:H$[00?8M$M!?P<B;NZ\N\Z]RNZ^RNRZ
N
<(.8!Z
J %]Z]%
Z^R]R^R
*R.2Y<BZ:N!Z;R!9N;8HZ;<P*1N;A=J:^;.!J:8F8F8FZ:N;A8J:*/<BH[H\8A> +FH[X\H.<	?.<<B;H[H\8A>(+]	>	=: H(X(8 H)X)P*+PH < X$/HH\8 X\I5X!	?H\8 X\/H	<8";H/8HX	<X8 X%H		;/:2S/92S/841!.BE.,]+N\J\\,<B;K?X(K>X)X I(X*.<B;I	%](	=/<[UI	%])	=/<KUH K;"^%
(.J<BX	H	K:?*	X H	.^8AX H	K9.^<B"H!K8X(	7: H(X(8 H)X)P**1H > *>.,"	6K5X(	7I	%](%
)K4X": H)X)P*+B	6H[>(8AX[.,<B;I<X2H\X7I,X3I4X4I&X5/UH,8F>X/3XQI&
2O2YG/12S/0^^.8=L=^<00AD.F8VO?6?F?PG49E7B]<B	?H[H\8A>(8 X]	>AG	>B4I4[^K=X?K<YK;[
I	%]?<(**[ K:X>I(["X I[!	9; H>X>: K![!S"*!: H?X?8 K^[^8 IYS
*T[^K8[
2I
72AI	%]?2J/6[!K^I(["X 	9; H>X>: K!2J/5; H?X?8 IYS^S
*;O4A=K3?	2	1B<.K0	/K.	/K0	/K-	//,:;AJAH+	B[ [$;CD;IPQP+?6 )B]?:FME7 K <B;K?ZYK>ZZ^YRYRZ*F.<B;NKZYRKK=ZZNYC<^YRYRZ*R.K<B;N[ZYR[K=ZZNYK;^YRYRZ*".[<BI	%]><(*48!Z>O:R>*1H Z>I	%]
!J>"?%

!.)<B[YX KYK9=H+HP +CK8.?<B;H]X[K7XHK6XIK=[YLH\ISY+T/J<B;O5%^M$W4/ZI?%]/P/	3/2;PQ+!/1<B2Z/0/+K7?[KP9)9M$OEAFB;J?6
 00OO?8?5B<<B	?	>B<K=[)K8<H/<"5K;
:K9[)H[H\8A>(8 X]K=Z3K8[IZ4K/78K)X!	6R4*ZI;%
"3R3S)SI*YJ4K5?H*2	4B<	3	>B<.<BK2[IK1[JK;
ISISJ*:K0[IK/[JK;
ISISJ+C.5<B;K)[*I&[+K.[,I	%]*[-I	%]+8!K-=H+!>(+SK;/KS*S+S,+SSK+ ?0?9AO?:AA$ K?;\,9/?/BECD00)"E8 [ <B;AX K?ZYK>ZZI	%]$YH 	=%
$Y; JYZYRZ*GH >(.8 XS.<B;H,C<>(.[[*HT[+HT[,	;	:; H0>(+O*6;K+XT	9; H0>(+W	:%VXT	9	8%Y	7H[> +	H>(+	H8!O6?H+	: HXO5	4K*[*O3C2>(+ K+K1[+*-H,A/I7>(+OH-K*[*+O	0K,XTO/K*X/.[	.81/-I1*;)G*N?< )D(V)E)H(":HX.))NX ??0FG<B;H,A/K?> *I	>.;K=H.[/HU>(*78AK/[0I	%]	0K<?H*78
X 8AK/8!I5[1K/[2;I	%]	2H K;=H*3I;%
	28 K2[2S1*"*7K:%
	2X H-8![18 H-H/X/H[>(+JH,A<>(+JI	%]	/C9+MI	%]	/%^/: H/X/8 K/[/S1+JI5[0K08!K/?H.I	%]	0K8> +&S0+YHS> +,	78.8 X$.X$/6*6D*;?P?
:?F?KBW9M PQK?%
AGQGO>> P /=<B;HH[JH8F8DKJX.K<BZJNVRVZINI8!ZIJJRI*^.V<B%!Z9K<[I5[NX"K<X";I	%])NK;9HX<X";SNS**."<B: Z?.;<B2J/:/<B	9:\/J<B2Z/8/N<BO7[N2ION2A/X	6:W/58 X$K4
3/2X$/12YK0
/2Z/5H >ZPD2"2B<99>+N+&=V*;:7?P?6=L=%-<B;K?XHK>XIK=ZMLH\IRM*H.<B;K<XHK>XIK=Z[LH\IR[*V.N<B;K>XHK;XIK=Z(LH\IR(*.[<B;K>XHK?XIK=Z(LH\IR(*1.)<B2Q\Y2A.6<B;N;[E%![LR;	:8=NN9S; HX	9	8.;<B;ON[&SN[%	7A=<(/N8J8J8J	6		7A8<(/N	6	S&+T<B0!+(0&:/	N:H2Z	52[/4+2?Q=%,)X,V,]
M1)Q?:+7<BI+=*FK?<HK>Z0%!ZKJ0.<B;NMZSRM	="V.M<B;K<	;K:	;.V<B[BK9[C9KB8F8F[BKBA0K8	;KB8DSC*$;.]<B;I5[BK7[C;I	%]-B	6+SBSC*6R0;.0<B;AHZX	HZK5?H+O	49F/3HX\	/DX X1/2<I1*;RR9?0B0?<BJ+	BM+NB C <B:2LK?2A.<B;H[Z
H\X[J
X\I*Z0K>Z1K=Z2N0Z
N1^0J
^1R0R1R2*T.F<B;H98!Z0H:Z1X^% .1K<>(.
R0*	R
.
<B;H98![BH:[C
;X^% /C2R/:SB*;.2<B;OD[&O&<(+"8![&SDOD[	O	[	SDOD[(O([(SDO9%]/	%^/(S	S(S&+X/DSDSDSD/D	8	78(/6I	%]Z^A%I9%
Z^/5:F=(+N,VT\7QM	?G?8B42C<B;NRZ0NZ1N1Z1N0<(*T8!Z0I9%^81R1R0*NR.<B;I	%])H 8!Z1I	%](J1=*)K?Z08AX *,I;Z0X J0%
(.V<B;O>XT%Z%Y	=%WI5
<	;8R2.2<B[LKLK:?H+JKLK9?HSKL/<B	8X	7I	
6	5;I?
6/M<B;I<X,I,X-I4X.I5X/H[X1/X<B2R/4/%PQ/3I9/3/22J/1:,KPKU<L\T\*[*)?F?PK).FL[:<B; O?
?H1>(./><BH,A/> .H: H-H/X	I?%]	A9>(8 X1.H<B0Y*Z0^C=K<X	H	K;<(*ZK:<(/9K8>(*.H	0!*+0&;H	.YHPC7<(+K8!XRHPA9> /6%VXT%ZH-8!ZYI?%]/	5	4P/RY+APR*;HPA,>(	3/2I&8!HR>(/18 HRXR8 HQXQI>8K08K/	4/1%VXT%ZK.	4I&XRXQ
-/,-/=%B?B9[<BK,V+	,
O?(I,A\<!BA?/-Z^	?K><(*!K=<(/<2J/;K:A8X%H,8F>X*[H%	9<H*\K8<(*[8A>(*[/7H%%
RPRPQ*	6/<H-8!HQ? +&H.8!H ? +&HQ> *8H,8F>PI,I9%
RPQH,8F>P+
	5I7X,HQX-H X.I&X/	4I	
3	2I?
3/1K^8!HR>(*I	%]=^S^K8<(+"8A< /08 X1+L	52J-78 [%+L	/:R	.:K/-/,;%;%,M+N(BKL\T\*[*),V/)?R9B PI]"?2=3:Y3YWE" 7P6J	A2 3S7IOP* J 2 2(3IWN")6.2JFI3CWC+PCT7AON7WKE".*M2IWP3R?F+RCM7FB-+A7Y3S	L+PCS7TKH3UZ 2-GP7YN-7LCI3SV-7XSI"M&J2IGV3R	Y+NCG3R;U6 KF+OCM21J /YF "M&
2I;U3T3I6 WR/N: 2 ?N2-[O2-GP7YN-7LCIS6.2J^I7OR 3OZ 3I	N+S7HF6."J*M7FB-+A7Y3S	L+P;S"M&J7M[O7E* 3E?R

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