File 6SORT.SV (save files (Executable program)

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

??2CBTAL9 1DK >H*<):L;HLA<%D%\R4EDATTHREEPN XO $FHLEHIN(LOT0AD)H E<CHRDHN8ODH	(9D4D]/(TLJ%WKTCH H

 FTW ?L-AD??<?XPLK0N"B"B&*C:H+X[%SYSTEM ERRHD?;OL=L1>AGJI0&>1G<H-R0!)X-RLBI6>GB.D??:?&<??6?>?A?O?FL80Z0[2IO?2A>(/>%\"6SORT", V. 1A%?2J%>H	=K<Z 2IO;Z	O:2A2J%]A4A;A< %Q& A:>H<H%QI>Y[K9XOI=XNLO\NQ[*1	8Y+	7Y XPK6[O52J%]A:A;A< %QKY)K4[LO52J%]C;U< %QKLY*KMYPK3
2Y/10Y/Y0\A<K0>(-T0Z/Y8J8J8J*HY*/ A5<(/*I<A5?=DL?&DTAT:ART"9?>O>P4APJ>6I]Y[8 XO2I\OQ[*F2AY ."9 LNY(<P	?1G	>; Y.PP8IO8!Y!I 8A	=XOK<Y"	;	:+R<QM"8!Y[=Q*5;$I"YMQ"8!M"8!Y[	:	?Q[*3<QM"8!Q"M"8 Y[Q"M"> /9Q"M"[KKK[Z=A+K	:	?8A;8BQ[+W++ :I > 	8/7<Q	:	?8A;=A+Q[+IQ!**
 I H;?	8	6+R;+	2I\O2A/+R;F5HVFUQQL	CYV4	?.A<K>YRMRA<< K=R.K<!RK;!R.LZRH:9!Z I=IP<X*-YPI*Z!%)>H: < %QI=I*Y*I=I+Y+	:.R;%\NO ROOM: %Q; 2IXOK9Y[8 \OQ[*:2A[DI*[E%)"H: < %Q2J%>HK8[U:AI+[VO72J%]D;G< %QK6[ 8A2J%]BK"/5K [(2J%]F> : [XJB< SYC4/YH IP?
I&K"TTA<DBJBM?!NR;;I =(	?9H<(*&8A[!I ["; K!=(*U[!MI!I
*(;MI"I
MI I"; K"["8 K"? *(MI
I J/>K![$:K$[K$9D[$K$8!K"=H+H>(*?8AK$[%VI$I%>XS$VI
I$>P+HMI$I**;MI
I*LOMY^SMOMY
SM	=/MOVY^SVOVY
SV	</VA:%\CAN	T FIND 6SHUFL.SV ON SYS:-TX\	>H;$SMFLWFSK&%\.NO-DA-TE !%?-T< *S%\BAD READ*-=*];%\BAD WRITE*-<Q%\U.S.R. ERROR, FUNCTION=AC%?; JI[ %\ERROR DETECTED AT LOCATIONK C-T[ [!K?!RK>Y[K 9D<HK 8D8F[ K C=<Q=A>(+YK<[!=AK!< !RQ[+M/C6SHUFLSV:K&ZI*-<(+T$S+*
A-/H4%)H3[=+:HY>(,2%2BAB0G?<B %?N8B"IN"IR*BA;< *OR.K?A;K?1G0Y!R;.IH:Y[M^"	XIM
"	XJ2ILI\JQ[*!2A.W<(+[BH:8!<Q[C?A9H<Q<P*7KBKC[C?A>(*>KB9D[B*/KC8!8 .	M^"	[EM
"	[CH<Y"H=Y$IF[3;M"?(/FO3KEXIO3KCXJM$<(+-8![D2ILJ91LI<X+1< +1SD+2AQ"Q$S3+S2A/FK0[0/,%SAVE ERRORO5B B N!B"BB$N%N&B	N(N)B*B+N,B-B.B/B0B1B2B3B4B5B6B7B8B9N:N;N<N=N>N?OCACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZO[B O]O^O
O CACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZ0Z0[%?%\OUTPUT FILES: (1) SCRATCH DEVICES "A" AND (2) "B"%\              (3) THE FINAL OUTPUT   DEV:FILNAM.EX%?%\INPUT: (1) 	.6S	 FILE  (2) UP TO 8 RECORD FILES.%?%?2J%]E6S2IMT>(+,O?>(+,O>>(+,O=>(+,O<>
+,2A.2A%\INCOMPLETE INPUT*A77/7?OTS>R>P>J>EK?Y-"I>H<H%Q"	.K>ZRM-<(.I2J%>A;A< %QM-A=Y%M-C=< I=9Z8JY0Q-M-Z-Q-Y,RI.I?Q[P&RB0+LJ-Y&Y	R-KP<QQ0<HQ,K<XN.	;Q.+DQY/I/8B+G; Y.I/A;< K;R;.;Q,?H%Q*/Q(+K:HNY	%< +^"I.;"	+W8!8 Y(/"DR%/Q;AK9HN>P+1I,>(+0"I.;"	LN/%CCCLPAB
/??04ATQKEYLISKAKEYLISKB;2J%]K2IMTA=ZK?Z2K>XOK=Y[LOZJR2Q[*12A<	;A<U;?."KFXHK<XILH<(."\I+AUF<QH:8!Z.8 <E<B=Q.	I%2I\OI&\OI	\O2A/QSA/AH&8A*LOH%X%P++BX%M]< *)/AM 8!HOXO/*I\[52B$)"HLA-[/0L	?(>IZJ;K?XKQ"M"Z+I>=Q*T	>"4A;8BQ[*Q\K*Y<Q	>"4A;=A\KQ[*IHKXGLGC=>(*	LGC<
GJ+C;8 B$Z+K?XKLK2I8\O2AHG91HK>X*)/:;2A%?%\PREMATURE END OF FILE IN (OCTAL) RECORD NO.HP	9J4]Q/TJJ\O8A%U\OHO]P: M!]!L(H,\(%O-NLO9!X!HH&:H<(8PH!:PH!8!H&>8+<H!X&;$HOX*MMKCE  

  FW?

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