(FILECREATED "11-NOV-83 17:49:44" ("compiled on " {PHYLUM}LIBRARY>MAKEDIR.;3) "10-NOV-83 20:43:55" recompiled exprs: AdvanceToNextChar ParseNetDirEntry ReadAddrConst ReadAddress ReadAttributeList in WORK dated "10-NOV-83 20:57:54") (FILECREATED "11-NOV-83 17:47:28" {PHYLUM}LIBRARY>MAKEDIR.;3 16668 changes to: (FNS ParseNetDirEntry ReadAddress AdvanceToNextChar ReadAddrConst ReadAttributeList MakeNetDir ReadNameList ReadName ReadAddrList) (VARS MAKEDIRCOMS) previous date: "11-NOV-83 11:07:53" {PHYLUM}LIBRARY>MAKEDIR.;1) AddressCompare D1 (L (1 A2 0 A1)) 1@dAiAh@dAA@AhNIL NIL NIL AdvanceToNextChar D1 (I 0 FILE) @i dl dl ihh@ (4 \PEEKBIN) NIL () CollapseExpressions D1 (L (0 LIST)) ;jdd@dHjKIjKJjKHdIJjhIJhNIL NIL NIL DigestEntry D1 (P 1 ADDR P 0 NAME I 1 ADDRLST I 0 NAMELST) D@ dH A` `H Ad`I `@Ah (101Q TCONC 61Q TCONC 36Q TCONC 26Q PUTHASH 17Q MKATOM 14Q U-CASE) (71Q ENTRIES 55Q ADDRESSES 32Q NAMES 23Q NAMETABLE) NIL LookUpName D1 (I 0 ENTRY) @ ` o@ (24Q ERROR 6 MKATOM 3 U-CASE) (11Q NAMETABLE) (20Q "Name not found") MakeNetDir D1 (P 4 ENTRY P 1 ENLENGTH P 0 NAME I 3 PASS2 I 2 DEBUG I 1 BINFILE I 0 FILE) [@C@gi @gg boi @ i i @j ld hhhhhhh@ @B `g `g `@ oi Aggg@ gg boi @ Xi oi @l `d@L @ lY@ @ @ @ @l @I @Il @j @l @Hg ZK JKl oi i @ hH(515Q CLOSEF 511Q TERPRI 504Q PRIN1 473Q \BOUT 462Q \BOUT 453Q FILENAMEFIELD 443Q \BOUT 434Q \BOUT 427Q \BOUT 416Q \BOUT 410Q SETFILEPTR 402Q WriteNameTable 376Q SeekToNextBlock 372Q WriteAddressTable 366Q SeekToNextBlock 356Q GETFILEPTR 345Q WriteEntryBlock 327Q SETFILEPTR 321Q PRIN1 310Q PRIN1 303Q FULLNAME 276Q PRIN1 264Q OPENSTREAM 253Q PACKFILENAME 250Q FULLNAME 230Q PRIN1 217Q CLOSEF 202Q SORT 164Q SORT 145Q ParseNetDirEntry 137Q EOFP 100Q HARRAY 72Q SETFILEPTR 64Q TERPRI 57Q PRIN1 53Q FULLNAME 46Q PRIN1 33Q OPENSTREAM 17Q \GETSTREAM) (527Q NAMES 524Q ADDRESSES 521Q ENTRIES 450Q VERSION 332Q ENTRIES 261Q NEW 256Q OUTPUT 244Q BODY 241Q DIRECTORY 236Q EXTENSION 212Q ENTRIES 206Q ENTRIES 177Q AddressCompare 174Q ADDRESSES 170Q ADDRESSES 161Q NameCompareFn 156Q NAMES 152Q NAMES 132Q ENTRIES 123Q ADDRESSES 114Q NAMES 105Q NAMETABLE 30Q OLD 25Q INPUT 13Q INPUT) ( 500Q "done" 315Q "... " 272Q "output to file " 224Q "Writing binary file... " 42Q "Reading from file ") NameCharP D1 (L (0 CHAR)) 1l0@@l9%lA@@lZla@@dlzi@l/@l-iNIL NIL NIL NameCompareFn D1 (I 1 NAME2 I 0 NAME1) @A dgdgi(6 StringCompare) (20Q LESS 12Q EQ) NIL NextByteInFile D1 (L (0 CURRENTBYTE)) @dljlllNIL NIL NIL ParseNetDirEntry D1 (P 1 ADDRLST P 0 NAMELST I 1 DEBUG I 0 FILE) G @ dgdg@ h@ X@ Y@ HI AHi hihi i (102Q TERPRI 75Q PRINTDEF 65Q POSITION 55Q DigestEntry 50Q ReadAttributeList 43Q ReadAddrList 36Q ReadNameList 27Q ReadtoEOL 6 SKIPSEPRS) (20Q EOL 12Q ;) () ParsePortConstant D1 (I 0 STR) Z@` 1HIJKhIjJjIKjl0HHdl7K jHl0ذHl#JKjHX(6 DCHCON) (3 CHCONLST1) NIL PutBCPLString D1 (I 1 STRING I 0 FILE) H@A @AAAH8HIJKlLAkj@j (105Q BOUT 11Q BOUT) (70Q STRINGP 50Q FDEV 43Q STREAM 32Q STRINGP 24Q STRINGP 16Q STRINGP 4 STRINGP) NIL ReadAddrConst D1 (P 3 STRING P 2 PORT P 1 LENGTH P 0 BEGIN I 0 FILE) @ j2@ dl dl dl dl,dl;ihIkعIjP@H I @KKM6MNOIlL@ K ZdlJlJhh(156Q ParsePortConstant 151Q AdvanceToNextChar 76Q ALLOCSTRING 71Q SETFILEPTR 3 GETFILEPTR) (130Q FDEV 123Q STREAM 112Q STRINGP 104Q STRINGP) () ReadAddrList D1 (P 3 ADDRESS I 0 FILE) H@@i dl;dl dl dl dil,@ h@ [кI JhYJ&H(57Q ReadAddress 7 \PEEKBIN) NIL () ReadAddress D1 (P 3 ENTRY P 2 CHAR P 1 ADDRCONST P 0 NAME I 0 FILE) g0@ @i ZJl;Jl,Jl Jdl H3l#l0JJl7@ H@ IdK IY@ I (144Q CollapseExpressions 140Q AdvanceToNextChar 123Q LookUpName 105Q ReadAddrConst 73Q ReadName 13Q \PEEKBIN 6 SKIPSEPRS) NIL () ReadAttributeList D1 (P 1 TERMCHAR I 0 FILE) 5@4@kH@ dl l;@ YIl,h(50Q ReadtoEOL) (10Q FDEV 3 STREAM) () ReadName D1 (P 3 END P 2 STRING P 1 START P 0 LENGTH I 0 FILE) ajA@ @ Y@ HkظHj4@I H @JJM6MNOHlLoJ@ @ (131Q SKIPSEPRS 47Q ALLOCSTRING 42Q SETFILEPTR 21Q NameCharP 13Q GETFILEPTR 7 SKIPSEPRS) (101Q FDEV 74Q STREAM 63Q STRINGP 55Q STRINGP) ( 123Q "") ReadNameList D1 (P 3 TEMP I 0 FILE) #@@ [hIJhYKl=HJ&(6 ReadName) NIL () ReadtoEOL D1 (P 0 CHAR I 0 FILE) *@ @ l @ @ @ @i l H(41Q \PEEKBIN 33Q EOFP 13Q \PEEKBIN 6 EOFP) NIL NIL SeekToNextBlock D1 (P 0 A I 0 FILE) @ @H H(16Q SETFILEPTR 6 NextByteInFile 3 GETFILEPTR) NIL NIL WriteAddressBlock D1 (P 1 NEXT P 0 START I 3 MORE I 2 ENTRY I 1 ADDRESS I 0 FILE) @  @j @j @BZK JKl @A @A @A \M LMl @A _^O NOl @j @j @ YC"@H @I__O OOl @I h(240Q SETFILEPTR 232Q \BOUT 217Q \BOUT 200Q SETFILEPTR 167Q SeekToNextBlock 163Q \BOUT 155Q \BOUT 147Q \BOUT 135Q \BOUT 123Q \LONUM 112Q \BOUT 101Q \BOUT 72Q \HINUM 62Q BOUT 53Q BOUT 44Q \BOUT 33Q \BOUT 21Q \BOUT 13Q \BOUT 3 GETFILEPTR) NIL NIL WriteAddressTable D1 (P 10Q I P 1 END P 0 START I 0 FILE) u @ q`!d@OZK JKl @ Y@l @` \M LMl @H_^O NOl @I @ h(161Q SeekToNextBlock 155Q SETFILEPTR 147Q \BOUT 135Q \BOUT 117Q \BOUT 106Q \BOUT 77Q LENGTH 70Q SETFILEPTR 61Q GETFILEPTR 50Q \BOUT 37Q \BOUT 3 SeekToNextBlock) (74Q ADDRESSES 11Q ADDRESSES) NIL WriteEntryBlock D1 (P 12Q ADDRESS P 11Q NAME P 4 NEXT P 3 ADDRSTART P 2 START P 1 AD P 0 NM I 1 ENTRY I 0 FILE) AA@ c@Jl  He@ @ [ Ir@ \@J @Jlؾ]N MNl @K__O OOl @j @j @L @ h_@ h @OJH HX_@ h @OJI IYs(261Q WriteAddressBlock 247Q \NCONC2 242Q GETFILEPTR 224Q WriteNameBlock 211Q \NCONC2 204Q GETFILEPTR 173Q SeekToNextBlock 167Q SETFILEPTR 162Q \BOUT 154Q \BOUT 146Q \BOUT 133Q \BOUT 114Q \BOUT 103Q \BOUT 66Q SETFILEPTR 60Q GETFILEPTR 43Q GETFILEPTR 37Q SeekToNextBlock 23Q SETFILEPTR 10Q GETFILEPTR) NIL NIL WriteNameBlock D1 (P 1 NEXT P 0 START I 3 MORE I 2 ENTRY I 1 NAME I 0 FILE) U@ Q@j @j @BZK JKl @A @ YC@H @I\M LMl @I h(121Q SETFILEPTR 113Q \BOUT 102Q \BOUT 67Q SETFILEPTR 56Q SeekToNextBlock 52Q PutBCPLString 44Q \BOUT 33Q \BOUT 21Q \BOUT 13Q \BOUT 3 GETFILEPTR) NIL NIL WriteNameTable D1 (P 7 I P 0 START I 0 FILE) _@ a`d@OYJ IJl @j @` [L KLl @H]N MNl h(133Q \BOUT 122Q \BOUT 107Q \BOUT 76Q \BOUT 67Q LENGTH 60Q SETFILEPTR 46Q \BOUT 35Q \BOUT 3 SeekToNextBlock) (64Q NAMES 11Q NAMES) NIL (PRETTYCOMPRINT MAKEDIRCOMS) (RPAQQ MAKEDIRCOMS ((FNS AddressCompare AdvanceToNextChar CollapseExpressions DigestEntry LookUpName MakeNetDir NameCharP NameCompareFn NextByteInFile ParseNetDirEntry ParsePortConstant PutBCPLString ReadAddrConst ReadAddrList ReadAddress ReadAttributeList ReadName ReadNameList ReadtoEOL SeekToNextBlock WriteAddressBlock WriteAddressTable WriteEntryBlock WriteNameBlock WriteNameTable) ( DECLARE: EVAL@COMPILE DONTCOPY (MACROS WORDIN WORDOUT)))) (PUTPROPS MAKEDIR COPYRIGHT ("Schlumberger Technology Corporation" 1983)) NIL