File KSORT.RL (Fortran library or relocatable file)

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

C.MAINDQS?C CEXITB0EXTERNBAIABSBAPMAX0BA XFUNCBA0READOBBRSVOBBPRENDOBB WRITOBB0GTBCLEBCPLTBC REWBC0EQBDNEBDPEXITBD AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHA
AHX6\HAJDCMAIN  LAIBLAIHSLAHXTHAYHA+DA LAHXMDC HA4HA7HA:HA=HAAHAACHAAFHAAIHAALHAAOHAARHAAUHAAXHAA[HAA^HAA!HAA$HAA	HAA*HAA-HAA0HAA3HAA6HAA9HAA<HAA?HABBHABEHABHHABKHABTD(APBPBXCPCTCXC\DTDXGYI
PJ
PLAHXCPDALAHXC"DALAHXDDALAHXD^DALAHXD	DALAHXD?DALAHXGCDALAHXG!HAC%HADCHAD!HAD*HAENHAGFHAG$HA6\HBHBCHACSHACVHACVHACYHA6\AALAIHSLAIBDNABACADAEAFAGAHHAA6DCJ
PHA6.DHAIAJAKALLAHX6>DH(6I3,F10.0)AMLAHX7[D[(	 GROUP NR 	,I5,	 >	,I4,	 OBSERVATIONS IGNORED	)ANLAHX7"DE(12A6)AOLAHX7+DG(1H ,3A6)APLAHX76DI(I3,(7E11.4))AQLAHX8IDQ(	1               K- S O R T	)ARLAHX9KE(	0 GROUP NUMBER	,I5,	 CONTAINS 	,I5,	 ROWS	,/ 	 KOL   
ROM   CODE     COL2    KONST     NO OF	,/ 4X,	GR   COL	,28X,	DATA	)ASLAHX9\DO(1H ,2I3,2I5,I9,F11.3,I6)ATLAHX9/DQ(	0 ILLEGAL REQUEST STOPPING	)AULAHX9<DG(	 GROUP NR:	,DDI5)AVLAHX:DDF(10I10)AWLAHX:ZDT(	 GROUP NUMBER CHANGED BY EXTERN	)AXLAHX:-DQ(1H+,32X,	LI
TING INHIBITED	)AYLAHX;DQ(1H+,32X,	SORTING INHIBITED	)AZLAHX;SDQ(	 *  SORTED BY THIS COLUMN	)A[LAHX;^DM(1H+,44X,	*	)A\A]A^HAGFD^HA1DCHA;$DBA
LHXLAHXBLAHX:LIXDA2\LIXDA2
LIXDA2NLIXDA2$LIXDA2MLIXDA2YLIXDA2[LJXDDA BZR+LAH <KDEB!2ZA!BYLAH<XLKXLAHXB]LAHX7:LJXDBA"LHXLAHXB&LAHX68AALIXDA2]LIXDA2 LJXDBALHXLAHXB&LAHX7
DBAA?4LIXLA4MENLAQH<2LJXDBA$LHXLAHXBLAHX7
DBAA?4LIXLA4MENLAQH=DLJXDCA%B\LAH(=WLAH=-LAHX=>DCA&B
LB4DBA	LEIXLAHX="LAHXA	DG2^A(B-2A)LAHX>LDKA*B]2^A+B-2A,B
LB4DBA-LAHX>LDCA.B
LB4DKA/B\2^A0B\J-2A1LBDDAR+LAH >TDAB LB4DBA2LBDDAR3LLIPDA2(LBDDAR+LMIPDAJ(LAH!R-DDA3B^R5LLIPDA2(LBDDAR+LMIPDAJ(LAH!R-DCA4B$LBTLLIPDC2(B$R+LNIPDAJ(LAH!R-DBA5LKXLAHXB)LAHX68DAB^LIXLBDAALIXLJXDBA6LKXLAHXB)LAHX7
DBAA?4LADMENLIXLAQH?]LJXDEA7B,2LB^LA4ASODCA8B\LAH(?7LAHAHLAHYPDBA9LKXLAHXB)LAHX93DABLLIXLJXDBA:LAHY8DFA;B12QA<LAHYTDFA=B02QA>LHXLAHXAFLAHX7
DBAA?=LIXLA4MD*LAQI\LJXDBA?LKXLAHXB)LAHX7
DBAA?=LADMD*LIXLAQI.LJXDEAABLJ,2LLATASOLAHP?,DGAAAB]J-2"AABLBDDF2
AACB,2LB^LA4ASRDCAADBYLAH!A LKXLAHXBTLAHX93DABLLIXLJXDEAAEB,2TB!LA4ASUDEAAFBTWB+LA48G!DCBTJ,2TLATASULAHQA	DCAAGB1LOXDCAAHB0LOXDEAAIB,2TB"AALA4ASXDBAAJLHXLAHXB&LAHX7
DBAA?=LIXLA4MD*LAQIBPLJXDCBTJ,2TLATASXLAHQBFDEAAKB,2TBLA4AS[DBAALLHXLAHXBLAHX7
DBAA?=LIXLA4MD*LAQIB0LJXDCBTJ,2TLATAS[LAHQB&DIAAMB,2UAANBUWB+LA48C"DEAAOBUWB+LA48DDGAAPBU"/J.WB+LA48D?DGAAQBU"/J/WB+LA48D?DHAARBU"/J-WBN"ULA48D?DDBUJ,2UR3LAHQCCDLAASB,2TAATBT"/J,WBN"LLA48D?DDBTJ,2TR3LAHQC7DBAAULHXLAHXBLAHX68DBAA?:LIXLA4MC%LAQIDQLIXDA2	LJX
DAAVCR+LAHAF(DDAAWCR+LAHID-DCB.WBLLA48CPDDAAXCR+LAHID5DFBL3AAYCRLLAH!DIDCAAZCALBTAALLIPDC2(CAR+LPIPDAJ(LAH!DIDDAA[CAR+LAH)E4DMAA\B,2TAA]CA"/JTWBTJ-VLAD0CPLA48D?DDBTJ,2TR/LAHQETDEAA^CAWB	LA48C"DBAA
LAHYDIDDAA B,2OLBDLA4AS^DEAA!B/WBOLA48CPDEAA"BOWB	LA48C"DMAAB,2TAA$BO"/JTWBTJ-VLAD0CPLA48D?DDBTJ,2TR/LAHQFLDCBOJ,2OLATAS^LAHQE:DBAA%LHXLAHXB&LAHX7/LIXDD2SB,2TB LA4AS!DBBTWLIXLA48GCDCBTJ,2TLATAS!LAHQF6LJXDDAA&BSR+LAHAIPDKAA	B,2TAA(BT"/J,WBSLAT8D?LAH!IDDFAA
BT"/J-WLAD8D?DAVLAD0GCDG2	AA*BT"/J.WLAD8D?DAR+LAHAHSDKBT"/J,VBTU^".HFJ=LA4AHODEE]".HFDAJ9LA4AHQDAELGIXLAHYHSLAHXBHLAHXGFLAHYHOLAHYHQDDAA+BTWLAD8DDAJ,LA48DDDAA,BTWLAD8DLB$DAR6LAH1Q,DDAA-BTWLAD8DDARZLAH1IPDDAA.BTWLAD8DDAR,LB$DGJT2PAA/BPWB	LA48G!DFAA0BTJ,2TR
LAHQGODBAA1LAHYF(DHAA2B+2RAA3B,2TLBDLA4AS$DIAA4BTW
".HFJ:LA4AI,DAELFIXLAHYI.LAHXAILAHYI,DD2RBTJ,2TLATAS$LAHQIZDDAA5B$R+LAHAK%DFAA6B,2OBRR,LA4AS	DFAA7BOJ,2TBRLA4AS*DDAA8BOR,LB$DE2VAA9BTR,LB$DI2WAA:BVJ$WBWJ$VLAD8G!LAT0G!LAH)KUDDAA;B,2XLBDLA4AS-DEAA<BVJXWLAD8G!DI2	AA=BVJXWBWJXVAALAD0G!LA48G!DFAA>BWJXWB	LA48G
DCBXJ,2XLATAS-LAHQJ0DEAA?BTJ,2TLATAS*LAHQJLDCBOJ,2OLATAS	LAHQJDDDABBRR+LAHAQ<DEABAB,2TBRLA4AS0DKABBBL2\ABCB,2KABDB,LPIPDH2&ABEB,2%ABFBMLAHAL%DBBTR,LB$DGJ,W
".HFJ?LA4AL[DAELDIXLAHYL%LAHXA	LAHYL[LBHXLAHXBBLAHXBELAHX4DBABGLBDDAR
LAHAL.LRIXDIABHBKJ,2KABIB\RLLAHANRDDABJB\R^LAH1R-DCABKBJLAH!MLLKXLAHXBTLAHX:HLJXDCABLBYLAHAMYLKXLAHXB]LAHX:HLJXDCABMBYLAHAM&LKXLAHXB]LAHX:^LJXDCABNB,LPIPDE2YABOB$R+LAHAM:LKXLAHXB]LAHX:HLJXADDABPB$R+LAHANHLKXLAHXB]LAHX:1LJXDKABQB,2JABRB+2$ABSB[LAHAN=DEABTB
2UB
LA4AS3DCABUB%LPIPDC2(BTR,LB$DBJUWLAD8G!DAR+LPIPDAJ(LAHAN4DAB,LPIPDD2%BUJ,2ULATAS3LAHQN\DCABVB%LAHAO"LKXLAHXB)LAHX7/DAB\LIXDBB,2ULBDLA4AS6DBBTR,LB$DBJUWLAD8G!LIXDCBUJ,2ULATAS6LAHQOOLJXDCABWB&LAH!K:DEABXBTJ,2TLATAS0LAHQK0DCABYBYLAHAQ<DBABZLKXLAHXB]LAHX8MDAB
LIXDABRLIXLJXDDAB[B,2TLBDLA4AS9DBAB\LKXLAHXB]LAHX9ODABTLIXDFB,2UBT"/JUWLAD8D?LIXDDBUJ,2UR/LAHQPZDBBTWLAD8C"AALIXLAD8DLIXLJXDDAB]BTR$LAH!QBLKXLAHXB]LAHX;WLJXDEAB^BTJ,2TLATAS9LAHQPMDDAB
B$R+LAHAQYLKXLAHXB]LAHX;DLJXDCAB BMLAHAQ&LKXLAHXB]LAHX;WLJXDBAB!LAHYQ<DBAB"LKXLAHXB]LAHX7BDABLLIXDAB!LIXLJXDEABBLJ,2LLATASRLAHQAPDFAB$B+2LAB%LKXLAHXB)LAHX7/DABLLIXDBB,2LLBDLA4AS<DBBLWLAD8GCLIXDCBLJ,2LLATAS<LAHQRXLJXDBAB&LCIXDBAB	LKXLAHXBTLAHX9 LJXDCAB(BYL
HASBLKXLAHXB]LAHX9 LJXDCAB)B2LOXDBAB*LRIXDBAB+LRIXHAAS?AAAAAAAAAAAAAAA

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