File CSORT.SV (save files (Executable program)

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

??2CBPPLFXIY,SH;(ZLZ,+A(2%6DCDAH<H:;LY AL $X
(9L* 
DJ +L8XHY$LF\KX($H*P\L	,6XIDI$6LS\IH	\54;DO,9MD;H2TJ6PAQLL/LQ,FLHKHYHS;
,9D2LYDI<KH=8DY$HLAD	DI L]4I
$?NHYHY8OJH<L",JXIDI$6HS8HY<OL&E
FD.DA\MM0FH	 DA4XLR(TJDDQOH (D\JLX,=L8KX,HD<DXDK ;I$2LLHHA$\HP(Q";DK :S$2LLHSHA >L*HLI$O2LAH8>D8  LU\	H[\HL6\*DH WLX\	H[\XL6T/DH WLYP	LH XD!$HH=<H3D8D8 !LZH	L;HDILLL28AL(D/L	,0DPHH2\J?DH"(;LHHTLJ<	DLB/L*,HK
,/HY8
HY\BH-0	P+L*,PGF\.LBTFSP\D,FG4!D
<GE<B??%)8 H^H;9 H:H^,BJDJD>POASORTAATM<B2A-UGIUF1LAKLB0 B>">&G8???0B
B A8 ?>B??;0&2J%?H2J	?E*8;0&2IO>2A<(*C=XPHP2J	?A *JWX=;K>XHK<XQK;XI2ILH2A\IPQ*";K:XS2ILS2A>(*2IO92AC8> 8 XU	7[H	6/5HWXX	7[X	6/4HWXY	3HX8!HY=H/58A8!XZ	2;2ILS2A>(/1	0;HT2J	?A"*;HT2J	?BS3*;K 
/KY
.YB	-	,+*GDF.GBF5S DF[M
G
G!FN2D>$>E[??<O>B	?;2AH9> *R	>	=O<
;O:X8H=YX9	9	8/7	>	6;IH> 	5: YAX9; ISA>X3	=O<
;O:X8H=Y"(/4<B;AZ/H38!X<	3R/P<*.	2H38!X<8AZ:	1R:P<*9	0;K/X;H;X!H;I=X>H>8AX$L$<(+N	.;K/X!	-;H!I<X!L!P!L!X$K,XHXQLH8!H$PQ> +]HQ[)8 H!X!	1*?.([(J)PO$LXF[V,Y,
&H5>T0J"ZHMRZGZPT=<B;XW	?XVHVK>>(*WHVK=?H.HVK<?.	;HVK=HWXW*CRK:	9.<BK8YVK7XHK6X[\HP[*"K5X!K4X\K3X?X^X .[<B;K2X[	BBX8>H*;P[*2/1R5;[CK0X]YB..<B;
/H!K.?/-	,X
H
K+>(/*H\\!P!H 8H:IVC)<XI;\!P!/(/D		/&		/%-3I	B7B=M
HB8CM?!VH2BCI(8B?=RP$&?2INBJT	=F=P=3ZK	?X
H
	>H
K=>(*JS(*H^<(*[8!K(<(* ?H*UK(X^HU> * 	<Z./;K(X^H^YG	:;IVC9K8> /7;HU8H:H^<P8H9K6H\>P/7	5"5/4<B;K3Z>Z?;A2J	2CAQ/1;
0;A2J	2A /2KGYKGX6J>
/J?X88AX:8 X98 YIISA>K.X$J>\$	-	,;ISA>8!IE?H	+	*.5PTF[^JK^J"W]MRK+JBAQC*PHAG^?(8\E])N2?!JCV	?Z]/><BX
H 8H:H
!U<X*T8F8F8F\\8 X 2A.CL\\\2AX P\P?.CIVK=YVX\K<X?.C<B;K;X!	:")*	<B;YPH!8AX$L$>(."L!X+P!L!P!X$H$?H8 X,H$A:K9
8HX8!X0HZX1	7[]IP> +N8 P0+SYPP18H1?(	6;K]	5;K]K4> +E	3.)<B;K2	5;K2	5	1:A2J	<DAQ/0QS/^HXMWMF
M
?!L	N)LFLK2AL$BH])N2<B;K?X-X..<B;H,8H:L+2A<X*Y8J8J8JA>X
8 X,H
.FA>X
X,P+;H+K>>P*WK=JKZKX+*W<BX
H.8H:H
<X*98F8F8FA?2Y\-2A8 X..	A>2YL-\-2AP-X.H-K<?H.	F.	<B;K;X/P88H8? +&%"X<<H+ZP/+O	:Z>/9"SRW8W7/F<B;K6	5K4	5/
H9>(+,	:Z]/9	:U/9F+7K.	>BJNBMK+T:])N2?=HB<<BX$0Y*M0^K?<(*YK>> *M8 X2H2> .H9> .H$0!*T0&:.;K="K<"K;"K:"/9<B0!*$0&:.<B;O8K7=HI9I8".)<B;N2X4X5R2;H58H:L4<X+F8J8J8JX$8 X5+IX$P4X5H$A><(.2	6"*8"2OS/5ERROR - INPUT FILE(S) TOO LONGHT])T
? K]>BJBMCCC^>0==<B;K?X;H;X!H;I=X>;L>>(."O*I<B;AH>X$L$<(/>;L![(L>[)P>H!8AX$L$X$H$?H8 X%H$C=K<
;L>P>X$H$?H8 
:H$C=K<
9HZ
8; HX98HX)>X8 X*;H*H%>X+IH*>(+K8 X%+KX%8AH)9K(X"<X+V;H"K7>P+]O;K6
;K7K(H)X";H*O:>X/5H*>(/48 
:/4<BK3< K2/*!>?6 ? RBRHBS
R6S^RX2A8TU$[^8AH)9O?X<X*M;HK>>P*TJ6K=Z6K>O?H)X;H%8H:L"2A<X*%8J8J8JA>X
8 X%*2A>X
X%P";H"K>>P*2K=JXZXX";K^8H:L2A<X+C8J8J8JA>X&8 [^+PA>X&[^P;HK>>P+PK=J6Z6XH&	<X&H
	<8!H&=H/;> /:S
*T/:<B;K9XHK8XQ2ILS2AXTPS2ILS2APS\HPQ++/ 3?<S2PPTQ*HBQ);H>I<X$L$X	L!\$H	\!H!8AX(P$L$X	L(\$H	\(/?P!P!;H!I=X>O>Z^.^<BX$H$K==HI9I8.
<B;K<XQHWPQ*+XW.	<B;I7	;	:HP2J%6D\/9.0<B;2IO82AC7>(.=K6XS2ILS2A>(.=	5HT2J%6DS3/9;+GERROR - RECORD TOO LARGEERROR - OUTPUT AREA INSUFFICIENT	9S >ED>MWMFL	?6? POPP<B;IBK??"
O>8H:IA2Y> 2IL]2A<X*X8J8J8JX
8 
>*[X

>P]H
A>QB.<B;IA>(**;H7Z(",.
	=.
<B;K<XQN,R,X7; H798J8J8H[GIO>(*?K;<HK:H7X$L$T$[H$6BH<H+NPQ+E/9;
>YB; H798J8J8HX]H7K8YC]C.,>[K;-HOMWW]AX?=F.GC8<B;YJNX7R; H798J8J8HX$H7K?YCMC8HH$X]>X8 
>MCYBX?H7K=X$L$X$H$C<K;YVH$A?X\X H\\!P!IVC<\!P!	:UCK9<(+IK8*7	:UCX
H
	7QJ8H
K9> *5HU>(.IJ?.	6UV/5;H!I<X$H$8AX	H!8AX(L!\$L(\	L(>(+P!P!P$P$P	P	P(P(+SK4X$L$> .2J%?H/3;	2	1/0>]YT0E+$A])N2JC
?!V2A8[(GCO<B;
?HP2J	>C\/>.<B;0Y*M0^Z\J\K=>(/<J\0!*V0&;J\.KERROR - SCRATCH AREA INSUFFICIENTERROR - VARIABLE LENGTH RECORDSERROR - DEVICE I-OSORT KEY:-     FROM CHAR. NO: UP TO AND INCLUDING CHAR. NO: PHPPPXP P(P0P8PXHXPXXX X(X0X8X^X\&NY==BT:<B;K?YEHU>(*]K>XHK=\HK<\HK;\
K:\HK9\HK8\HK7YE.EIGK6?H.EIG9A8H<X8AI>A?YDK>XRXQ9LRIDX$<P*6H$A?> *;H$PR\RPQ*-;K:\R9LRIDX$<P+HH$A?> +MH$PR\RPQ*?; HRXRLRA?IDK5?8 HQYE.E<B;II>(/YK4YS	3;IH>(/YK2YS	3/Y;2J%?H/1^^.,]Y.BA^AAH0G XPXX0P PPP[)O<B;A2J%6DAQ.QS*A<B;H]YLO?YMIBYN8 O>
>; ISA>X3O=YKIF8!IE?H/<IFI6YSK;Z*Z+;A2J%6CAQ/:; YA8 X9
9J*
8J+X8H6YIFK7X$J*\$	6;IFI6YSI7	5	4;O9[M;A2J%6DAQ/3QF;K2YS";
9K2YSIK
=8 YHYA	1ILX]IM
?INYBYO.J<B"J;IFI6YS8 YO/&^.Y%F.AAMWMFL	D(AXMRT:JAQOPH5F5GC

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