(FILECREATED "11-Mar-85 12:15:20" ("compiled on " {ERIS}SOURCES>FILEIO.;37) " 7-Mar-85 12:37:06" recompiled changes: COPYBYTES COPYCHARS in "INTERLISP-D 7-Mar-85 ..." dated " 7-Mar-85 13:57:43") (FILECREATED "11-Mar-85 12:13:25" {ERIS}SOURCES>FILEIO.;37 89056 changes to: (FNS COPYBYTES COPYCHARS) (VARS FILEIOCOMS) (RECORDS BYTEPTR) previous date: "13-Feb-85 23:11:42" {ERIS}SOURCES>FILEIO.;34) (/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG FLAG FLAG (BITS 5) POINTER FLAG FLAG FLAG FLAG FLAG (BITS 3) POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER WORD WORD BYTE POINTER WORD WORD WORD WORD WORD WORD (BITS 2) FLAG (BITS 5) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER BYTE))) STREAMPROP D1 (L (0 X)) "eHdl@AB l@A  (37Q \ILLEGAL.ARG 33Q GETSTREAMPROP 20Q PUTSTREAMPROP) NIL () GETSTREAMPROP D1 (L (1 PROP 0 STREAM)) @d`@$A'(13Q \ILLEGAL.ARG) (20Q STREAM 5 STREAMTYPE#) () PUTSTREAMPROP D1 (L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) d@d` @$!HB@ABh$hA'YBHAB -I+HdA@H$AJdJZI(62Q LISTPUT 12Q \ILLEGAL.ARG) (104Q STREAM 36Q STREAM 17Q STREAM 5 STREAMTYPE#) () STREAMP D1 (L (0 X)) @`@NIL (4 STREAMTYPE#) () \GETACCESS D1 (L (0 STREAM)) 4@Rdjhdkgdlgdlglg(61Q SHOULDNT) (55Q BOTH 45Q OUTPUT 34Q APPEND 23Q INPUT 3 STREAM) () \SETACCESS D1 (L (1 ACCESS 0 STREAM) P 0 \INTERRUPTABLE) @@AI@jR@@@j jdkjYIjkj@@g.g,gT@kR@K@jkj@K,@g.@@j jdkjZJ2Adg[@lR@KPjkj@K`jkj @K .@g,@jjgY@lR@KPjkj@K`jkj @K .@g,@jjsAge@lR@K@jkj@KPjkj@K`jkj @K,@K .o A(732Q RAID) (716Q FDEV 712Q STREAM 701Q FDEV 675Q STREAM 654Q FDEV 650Q STREAM 627Q FDEV 623Q STREAM 602Q FDEV 576Q STREAM 564Q STREAM 555Q BOTH 541Q STREAM 532Q \STREAM.NOT.OPEN 527Q STREAM 516Q FDEV 512Q STREAM 471Q FDEV 465Q STREAM 444Q FDEV 440Q STREAM 426Q STREAM 417Q OUTPUT 403Q STREAM 374Q \STREAM.NOT.OPEN 371Q STREAM 360Q FDEV 354Q STREAM 333Q FDEV 327Q STREAM 306Q FDEV 302Q STREAM 270Q STREAM 260Q APPEND 226Q STREAM 222Q STREAM 213Q \STREAM.NOT.OPEN 210Q STREAM 177Q FDEV 173Q STREAM 152Q FDEV 146Q STREAM 135Q STREAM 126Q INPUT 116Q \STREAM.NOT.OPEN 110Q \STREAM.NOT.OPEN 105Q STREAM 101Q STREAM 41Q STREAM 35Q STREAM 31Q STREAM 20Q STREAM 6 STREAM) ( 727Q "Illegal stream access mode") \DEFINEDEVICE D1 (L (1 DEV 0 NAME) P 1 \INTERRUPTABLE) @ bA'@` XDH` @` )`T@` A`HA`@@d`` `H @h`AAlA ` oA bcb^(245Q ERROR 232Q FASSOC 224Q U-CASE 151Q DREMOVE 77Q FASSOC 53Q DREMOVE 40Q DREMOVE 23Q FASSOC 6 U-CASE) (227Q \DEVICENAMETODEVICE 204Q \DEVICENAMETODEVICE 200Q \DEVICENAMETODEVICE 166Q \FILEDEVICENAMES 162Q \FILEDEVICENAMES 154Q \FILEDEVICES 146Q \FILEDEVICES 136Q \FILEDEVICENAMES 124Q \FILEDEVICES 120Q \FILEDEVICES 107Q \FILEDEVICES 74Q \DEVICENAMETODEVICE 65Q FDEVTYPE# 56Q \FILEDEVICENAMES 50Q \FILEDEVICENAMES 43Q \DEVICENAMETODEVICE 35Q \DEVICENAMETODEVICE 20Q \DEVICENAMETODEVICE) ( 241Q "INVALID FILE DEVICE") \GETDEVICEFROMNAME D1 (L (2 DONTCREATE 1 NOERROR 0 NAME)) '@dl@g @B Ah@l (44Q \LISPERROR 27Q \GETDEVICEFROMHOSTNAME 20Q FILENAMEFIELD) (15Q HOST) () \GETDEVICEFROMHOSTNAME D1 (L (1 DONTCREATE 0 HOSTN)) P@` F@ b` 7Ah2`1HhY@IlKZHX`J@I I(114Q \DEFINEDEVICE 25Q FASSOC 15Q U-CASE 6 FASSOC) (103Q FDEVTYPE# 56Q FDEV 40Q \FILEDEVICES 22Q \DEVICENAMETODEVICE 3 \DEVICENAMETODEVICE) () \REMOVEDEVICE D1 (L (0 DEV) P 3 \INTERRUPTABLE) E0`YhX@` @Z@JiI` H` (76Q DREMOVE 63Q DREMOVE 27Q DREMOVE) (101Q \DEVICENAMETODEVICE 73Q \DEVICENAMETODEVICE 66Q \FILEDEVICENAMES 60Q \FILEDEVICENAMES 32Q \FILEDEVICES 24Q \FILEDEVICES 10Q \DEVICENAMETODEVICE) () \REMOVEDEVICE.NAMES D1 (L (1 NAMES 0 DEV)) J`1HYJ h` h@'AI[AAKAI` IhiI(72Q DREMOVE 24Q DREMOVE) (75Q \FILEDEVICENAMES 67Q \FILEDEVICENAMES 27Q \DEVICENAMETODEVICE 21Q \DEVICENAMETODEVICE 2 \DEVICENAMETODEVICE) () \CLOSEFILE D1 (L (0 STREAM)) :@dRk@&@kH@@kH@ @(66Q \SETACCESS) (50Q FDEV 43Q STREAM 25Q IMAGEOPS 20Q STREAM 4 STREAM) () \DELETEFILE D1 (L (1 DEV 0 FILENAME)) "@ bA di bd@AlH(15Q \GETDEVICEFROMNAME 3 \ADD.CONNECTED.DIR) (24Q FDEV) () \DEVICEEVENT D1 (L (0 EVENT) F 3 \OPENFILES) ~@g@g@g@gDS!H`RYRlZj!JJ IdjkkHX` dHH@lIh(141Q REVERSE 77Q \FZEROP) (154Q FDEV 136Q \FILEDEVICES 117Q STREAM 106Q STREAM 54Q STREAM 45Q \FILEDEVICES 26Q BEFORESAVEVM 20Q BEFORESYSOUT 12Q BEFOREMAKESYS 3 BEFORELOGOUT) () \GENERATEFILES D1 (L (2 OPTIONS 1 DESIREDPROPS 0 PATTERN)) @ bd H H@ABlI(11Q \GETDEVICEFROMNAME 3 \ADD.CONNECTED.DIR) (20Q FDEV) () \GENERATENEXTFILE D1 (L (2 SCRATCHLIST 1 NAMEONLY 0 GENOBJ)) @@ABlHNIL NIL () \GENERATEFILEINFO D1 (L (1 ATTRIBUTE 0 GENOBJ)) @@AlHNIL NIL () \GETFILENAME D1 (L (2 FDEV 1 RECOG 0 NAME)) 5@ b @ XB @i bd@ABlIH(27Q \GETDEVICEFROMNAME 14Q \SEARCHOPENFILES 3 \ADD.CONNECTED.DIR) (55Q STREAM 37Q FDEV) () \GETFILENAME.OR.STREAM D1 (L (2 FDEV 1 RECOG 0 NAME)) z@d`%ddRj^U@b I@l@dAih@5@ bd (B @i bd@ABlHbd @@hi (167Q \GETSTREAM 155Q \SEARCHOPENFILES 122Q \GETDEVICEFROMNAME 110Q \SEARCHOPENFILES 102Q \ADD.CONNECTED.DIR 47Q \SEARCHOPENFILES) (131Q FDEV 40Q STREAM 30Q STREAM 15Q STREAM 5 STREAMTYPE#) () \GENERIC.OUTFILEP D1 (L (1 DEV 0 NAME)) =A@gAlHHgHg kkgH gkg@ (72Q PACKFILENAME 56Q PACKFILENAME 42Q FILENAMEFIELD) (66Q BODY 62Q VERSION 52Q BODY 37Q VERSION 33Q VERSION 14Q OLD 3 FDEV) () \OPENFILE D1 (L (3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) @@d`@dAi @AC @Y Y XIABCHlKZ @l bA JAgJ jJAgJ jJAC J(175Q \DO.PARAMS.AT.OPEN 114Q \SETACCESS 104Q \LISPERROR 53Q \GETDEVICEFROMNAME 47Q \ADD.CONNECTED.DIR 33Q \DO.PARAMS.AT.OPEN 23Q \IOMODEP) (160Q STREAM 152Q APPEND 146Q STREAM 133Q STREAM 125Q APPEND 121Q STREAM 57Q FDEV 41Q STREAM 10Q STREAMTYPE#) () \DO.PARAMS.AT.OPEN D1 (L (2 PARAMETERS 1 ACCESS 0 STREAM)) :B1HhYdIiJdg@gg@gK HX(62Q SETFILEINFO) (56Q ENDOFSTREAMOP 50Q ENDOFSTREAMOP 44Q BUFFERS 35Q BUFFERS) () \RENAMEFILE D1 (L (1 NEWFILE 0 OLDFILE)) 5@ bA b@i HAi HH:@AHlI@A (62Q \GENERIC.RENAMEFILE 33Q \GETDEVICEFROMNAME 20Q \GETDEVICEFROMNAME 11Q \ADD.CONNECTED.DIR 3 \ADD.CONNECTED.DIR) (42Q FDEV) () \REVALIDATEFILE D1 (L (0 STREAM)) @@@ gh@@lHHg@h@H  @H@H@H@H@H@HH@@H@H @H g(27Q \GETACCESS) (300Q CHANGED 271Q STREAM 265Q STREAM 255Q STREAM 251Q STREAM 241Q STREAM 235Q STREAM 224Q STREAM 216Q STREAM 206Q STREAM 202Q STREAM 172Q STREAM 166Q STREAM 156Q STREAM 152Q STREAM 142Q STREAM 136Q STREAM 126Q STREAM 122Q STREAM 112Q STREAM 106Q STREAM 76Q STREAM 72Q STREAM 60Q DELETED 37Q STREAM 32Q OLD 21Q STREAM 10Q FDEV 3 STREAM) () \TRUNCATEFILE D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @@ABlHNIL (10Q FDEV 3 STREAM) () \GENERATENOFILES D1 (L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 FDEV)) pgA oA HAHk)l;NgAHk BIAIk)l;5gAIk )ggHIgghgA bgAh(155Q \NULLFILEGENERATOR 135Q PACKFILENAME 101Q STRPOS 50Q STRPOS 16Q STRPOS 6 STRPOS) (143Q STAR 131Q BODY 125Q VERSION 120Q NOSTAR 111Q \NOFILESINFOFN 106Q \NOFILESNEXTFILEFN 72Q  41Q * 2 *) ( 12Q (CONSTANT (CHARACTER (CHARCODE ESC)))) \NULLFILEGENERATOR D1 NIL ghhNIL (2 NILL) () \NOFILESNEXTFILEFN D1 (L (2 SCRATCHLIST 1 NAMEONLY 0 GENFILESTATE)) 0@Ydg@g@ XZghIdg$@g @Hg @ g &kZIgJg@ XIHg H@HAHi Jk԰HB (213Q DCHCON 200Q NAMEFIELD 160Q FILENAMEFIELD 145Q INFILEP 142Q PACKFILENAME 111Q FILENAMEFIELD 103Q INFILEP 75Q FILENAMEFIELD 64Q FULLNAME 30Q INFILEP) (155Q VERSION 134Q BODY 130Q VERSION 106Q VERSION 72Q VERSION 61Q OLDEST 47Q STAR 36Q DONE 20Q DONE 11Q NOSTAR) () \NOFILESINFOFN D1 (L (1 ATTRIBUTE 0 GENSTATE)) @A (6 GETFILEINFO) NIL () \FILE.NOT.OPEN D1 (L (1 NOERROR 0 X)) Ah@d`@l (31Q \LISPERROR) (17Q STREAM 12Q STREAMTYPE#) () \FILE.WONT.OPEN D1 (L (0 X)) @d`@l (24Q \LISPERROR) (12Q STREAM 5 STREAMTYPE#) () \ILLEGAL.DEVICEOP D1 (L (0 N)) /eoHk2JdIK aL Mh\JkZM&(27Q ERROR) NIL ( 7 "Attempt to use undefined device operation") \IS.NOT.RANDACCESSP D1 (L (0 N)) !e@oId`I (36Q ERROR) (26Q STREAM 21Q STREAMTYPE#) ( 13Q "File is not RANDACCESSP") \STREAM.NOT.OPEN D1 (L (0 STREAM)) @@l (15Q \LISPERROR) (3 STREAM) () \FDEVINSTANCEA0002 D1 (L (0 STREAM)) @(@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0005 D1 (L (2 FDEV 1 ATTRIB 0 STREAM)) B( @AB(lHNIL (23Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0008 D1 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 CDNAME)) D(@ABCD(lHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0011 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0014 D1 (L (3 FDEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) C(@ABC(lHNIL (24Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0017 D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0020 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0023 D1 (L (5 OLDSTREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) D(@ABCD(ElHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0026 D1 (L (0 STREAM)) @(@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0029 D1 (L (1 BYTE 0 STREAM)) @( @AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0032 D1 (L (1 NOERRORFLG 0 STREAM)) @("@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0035 D1 (L (0 STREAM)) @(&@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0038 D1 (L (1 INDX 0 STREAM)) @(.@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0041 D1 (L (0 STREAM)) @(0@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0044 D1 (L (0 STREAM)) @(2@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0047 D1 (L (0 STREAM)) @(4@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0050 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @(6@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0053 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @(8@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0056 D1 (L (0 STREAM)) @(*@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCE D1 (L (0 FDEV)) `@ d@(dgdg dgdgdgdgdgdgdgdg dg"dg&dg.dg0dg2dg4dg6dg8dg*(6 NCREATE2) (215Q \FDEVINSTANCEA0056 206Q \FDEVINSTANCEA0053 177Q \FDEVINSTANCEA0050 170Q \FDEVINSTANCEA0047 161Q \FDEVINSTANCEA0044 152Q \FDEVINSTANCEA0041 143Q \FDEVINSTANCEA0038 134Q \FDEVINSTANCEA0035 125Q \FDEVINSTANCEA0032 116Q \FDEVINSTANCEA0029 107Q \FDEVINSTANCEA0026 100Q \FDEVINSTANCEA0023 71Q \FDEVINSTANCEA0020 62Q \FDEVINSTANCEA0017 53Q \FDEVINSTANCEA0014 44Q \FDEVINSTANCEA0011 35Q \FDEVINSTANCEA0008 26Q \FDEVINSTANCEA0005 17Q \FDEVINSTANCEA0002 2 FDEVTYPE#) () CNDIR D1 (L (0 HOST/DIR) F 0 \CONNECTED.DIRECTORY) @i o@ c(16Q ERROR 4 DIRECTORYNAME) NIL ( 12Q "Non-existent directory") DIRECTORYNAME D1 (L (2 CREATE? 1 STRPTR 0 DIRNAME) F 3 \CONNECTED.DIRECTORY) r0@diSU`OgJ@g g@gS bg Yd/@IBlJXdigIg@ AH iH (157Q MKATOM 146Q MKSTRING 136Q PACKFILENAME.STRING 65Q \GETDEVICEFROMHOSTNAME 62Q FILENAMEFIELD 52Q PACKFILENAME.STRING 35Q FILENAMEFIELD) (132Q DIRECTORY 125Q FDEV 121Q HOST 74Q FDEV 57Q HOST 46Q DIRECTORY 42Q DIRECTORY 32Q HOST 24Q {DSK} 17Q LOGINHOST/DIR) () DIRECTORYNAMEP D1 (L (1 HOSTNAME 0 DIRNAME)) .AgAg@ @ !Hi YdHIlJi(31Q \GETDEVICEFROMNAME 21Q \ADD.CONNECTED.DIR 14Q PACKFILENAME) (37Q FDEV 10Q BODY 4 HOST) () HOSTNAMEP D1 (L (0 NAME)) d@@dl ;@ Xd l{HlgHl dk X` `Zhi[HkIKiJ(76Q MEMB 67Q SUBATOM 57Q STRPOS 35Q CHCON1 30Q MKATOM 25Q U-CASE 14Q U-CASE) (120Q FDEV 102Q \FILEDEVICES 73Q \FILEDEVICENAMES 51Q }) () \ADD.CONNECTED.DIR D1 (L (0 FILENAME) F 0 \CONNECTED.DIRECTORY) $@dld@g g@gP @(37Q PACKFILENAME 23Q FILENAMEFIELD) (33Q DIRECTORY 27Q BODY 20Q HOST) () \BACKFILEPTR D1 (L (0 STREAM)) @&@kHNIL (10Q FDEV 3 STREAM) () \BACKPEEKBIN D1 (L (0 STREAM) P 0 \INTERRUPTABLE) @ @ (6 \BACKFILEPTR) NIL () \BACKBIN D1 (L (0 STREAM)) @ @ (11Q \PEEKBIN 3 \BACKFILEPTR) NIL () BIN D1 (L (0 STREAM)) @ NIL NIL () \BIN D1 (L (0 STREAM)) @b,@kHNIL (10Q STREAM 3 STREAM) () \BINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @b6@ABClHNIL (12Q FDEV 3 STREAM) () BOUT D1 (L (1 BYTE 0 STREAM)) @A (4 \BOUT) NIL () \BOUT D1 (L (1 BYTE 0 STREAM)) @b.@AlHNIL (10Q STREAM 3 STREAM) () \BOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @b8@ABClHNIL (12Q FDEV 3 STREAM) () COPYBYTES D1 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) @g Ag 2CPBChHBddjBBdoB CdmH djCCdoC BـBZdjJoJ HpjHIJ @J?HdjH H0HkKٵH4HkLidjIH kٰIH (342Q \BOUT 324Q \BOUT 243Q \GETEOFPTR 207Q \BUFFERED.COPYBYTES 161Q ERROR 136Q \ILLEGAL.ARG 104Q \GETEOFPTR 70Q \SETFILEPTR 65Q \ILLEGAL.ARG 15Q \GETSTREAM 6 \GETSTREAM) (277Q FDEV 272Q STREAM 254Q FDEV 247Q STREAM 227Q FDEV 222Q STREAM 173Q FDEV 166Q STREAM 12Q OUTPUT 3 INPUT) ( 155Q "Negative number of bytes to copy" 127Q 77777777Q 56Q 77777777Q) COPYCHARS D1 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) G@ A j0H^I_HIBC Hjh[H C]KoH BjZ_djOOoBl HJ CdmgddjCCdoRC LB.K(H0_HkOMBJ_dO%O BKH0_HkOZMJLoLJ NdjLJdj9H _l OlIl Il IH H__dl +Odjl 0lHi l H l l l l Okl l O_$_" _ O"O$lO H4_HkOIO kTk0LJdjH _l Il OlIl IO kNlVkLJ_(_&O&O(HIH _dl ,O(dk!m_(H _l Ojl l Il O O(m_(i(1103Q SHOULDNT 1065Q \BOUT 1057Q \BOUT 742Q \BOUT 721Q \BOUT 657Q \BOUT 526Q \PEEKBIN 444Q \BOUT 371Q ERROR 236Q \ILLEGAL.ARG 173Q \SETFILEPTR 165Q \LISPERROR 124Q ERROR 101Q \GETEOFPTR 50Q COPYBYTES 7 \GETSTREAM 3 \GETSTREAM) (632Q FDEV 625Q STREAM 602Q STREAM 462Q STREAM 335Q FDEV 330Q STREAM 257Q FDEV 252Q STREAM 117Q STREAM 64Q FDEV 57Q STREAM 32Q STREAM 22Q STREAM) ( 363Q "Negative number of bytes to copy" 226Q 77777777Q 155Q 77777777Q 113Q "COPYCHARS: Source file is not random access") COPYFILEA0001 D1 (NAME ERRORSET F 0 FROMFILE F 1 RESETVARSLST F 2 TOFILE F 3 RESETY) &oPghdo chQcPR ci(40Q \COPYOPENFILE 21Q OPENSTREAM) (7 INPUT) ( 15Q ((SEQUENTIAL T)) 3 (PROGN (CLOSEF OLDVALUE))) COPYFILE D1 (P 1 RESETY P 0 LISPXHIST I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COPYFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COPYFILEA0001)) \COPYOPENFILE D1 (L (1 NEWNAME 0 INSTREAM) F 12Q RESETVARSLST)   @g XgHhJ@g XgHhJ@g YIg@ Y&gIhJIg@g XgHhJoAgghgJ [hWc@0@kLj@j IgtKg Hi@g"@_@ _[KOdl +Odjl 0l@i l @ l l l l Okl l O_^ NOlM@K K (426Q CLOSEF 421Q COPYBYTES 330Q \PEEKBIN 241Q GETFILEINFO 222Q SETFILEPTR 167Q OPENSTREAM 126Q GETFILEINFO 73Q \INFER.FILE.TYPE 57Q GETFILEINFO 34Q GETFILEINFO 11Q GETFILEINFO) (251Q NILL 236Q EOL 227Q TEXT 161Q SEQUENTIAL 155Q NEW 152Q OUTPUT 133Q EOL 123Q EOL 114Q TEXT 101Q TYPE 65Q ? 54Q TYPE 41Q LENGTH 31Q LENGTH 16Q CREATIONDATE 6 CREATIONDATE) ( 146Q (AND RESETSTATE (DELFILE (CLOSEF OLDVALUE)))) \INFER.FILE.TYPE D1 (L (0 STREAM)) =@ 7@j @"@g"@ glgY@H"@j I(71Q SETFILEPTR 12Q SETFILEPTR 3 RANDACCESSP) (61Q STREAM 54Q BINARY 43Q TEXT 32Q NILL 27Q STREAM 16Q STREAM) () EOFP D1 (L (0 FILE)) #@gi @ H4HkI(15Q \GETSTREAM 7 \GETSTREAM) (31Q FDEV 24Q STREAM 3 INPUT) () FORCEOUTPUT D1 (L (1 WAITFORFINISH 0 STREAM)) @g bd*@AlH(6 \GETSTREAM) (21Q FDEV 14Q STREAM 3 OUTPUT) () \FLUSH.OPEN.STREAMS D1 (L (0 FDEV)) ;`!HhY@ IdRlj*IkJHXNIL (54Q FDEV 47Q STREAM 33Q STREAM 20Q STREAM 2 \OPENFILES) () GETEOFPTR D1 (L (0 FILE)) @ H2HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () GETFILEINFO D1 (L (1 ATTRIB 0 FILE)) Q@g aHd`AgH HY HAIlJHRjAgAdgHg%HdjgdkglgAdgHgH"AdgH H g&I HgIlK H H dnAg_I HgIlLdLnDAgAghH Y HAIlM!AgI HgIlNdn@l (516Q \LISPERROR 430Q \GETDEVICEFROMNAME 332Q \GETEOFPTR 324Q RANDACCESSP 267Q \GETEOFPTR 255Q RANDACCESSP 205Q SHOULDNT 37Q \GETACCESS 6 \GETFILENAME.OR.STREAM) (472Q LENGTH 463Q FDEV 454Q SIZE 434Q FDEV 420Q OPENBYTESIZE 412Q ACCESS 365Q LENGTH 356Q FDEV 347Q SIZE 311Q LENGTH 302Q FDEV 273Q SIZE 246Q LENGTH 236Q STREAM 230Q ENDOFSTREAMOP 222Q STREAM 213Q BUFFERS 201Q CRLF 171Q LF 161Q CR 147Q STREAM 140Q EOL 131Q STREAM 122Q OPENBYTESIZE 113Q BYTESIZE 76Q STREAM 52Q FDEV 44Q STREAM 31Q ACCESS 17Q STREAMTYPE# 3 OLD) () \TYPE.FROM.FILETYPE D1 (L (0 FILETYPE)) '@`H h@Y@IiHXNIL (5 FILING.TYPES) () \FILETYPE.FROM.TYPE D1 (L (0 TYPE)) @`  @d(6 ASSOC) (3 FILING.TYPES) () GETFILEPTR D1 (L (0 FILE)) @ H0HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () SETFILEINFO D1 (L (2 VALUE 1 ATTRIB 0 FILE)) 4@g QHd`AgAgAdghg+HBdgjglBdgk BAdgHB"BgHBjغkJJk[KHYHABIlL8Adg#HBddjBBdoB g HB YAgNAgEAgAhh7T@ IljHIkh @ @4@kKh@ (121Q \BACKFILEPTR 42Q \PEEKBIN) (104Q FDEV 77Q STREAM 10Q FDEV 3 STREAM) () \EOF.ACTION D1 (L (0 STREAM)) @"@kHNIL (3 STREAM) () \EOSERROR D1 (L (0 STREAM)) @@li (16Q \LISPERROR) (3 STREAM) () \GETEOFPTR D1 (L (0 STREAM)) @2@kHNIL (10Q FDEV 3 STREAM) () \INCFILEPTR D1 (L (1 AMOUNT 0 STREAM)) 2@d0j@d0@kHA A (57Q \PAGED.INCFILEPTR 52Q \SETFILEPTR) (33Q FDEV 26Q STREAM 11Q FDEV 4 STREAM) () \PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) @"@AlHNIL (10Q FDEV 3 STREAM) () \SETCLOSEDFILELENGTH D1 (L (1 NBYTES 0 FILENAME)) @gg HA H i(25Q \CLOSEFILE 21Q \SETEOFPTR 11Q \OPENFILE) (6 OLD 3 BOTH) () \SETEOFPTR D1 (L (1 LEN 0 STREAM)) @@@AlHNIL (10Q FDEV 3 STREAM) () \SETFILEPTR D1 (L (1 INDX 0 STREAM)) @.@AlHNIL (10Q FDEV 3 STREAM) () \FIXPOUT D1 (L (1 N 0 STRM)) (@Al @Al @Al @Al (45Q \BOUT 35Q \BOUT 24Q \BOUT 12Q \BOUT) NIL () \FIXPIN D1 (L (0 STRM)) @ @ @ @ NIL NIL () \BUFFERED.BIN D1 (L (0 STREAM)) I @@Xd@@>@glIdi𝿰@HkNIL (77Q STREAM 60Q READ 51Q FDEV 44Q STREAM 30Q STREAM 20Q STREAM 6 STREAM) () \BUFFERED.PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) ?@@d@#@>@gAlHdi𓿰NIL (56Q READ 45Q FDEV 40Q STREAM 24Q STREAM 15Q STREAM 3 STREAM) () \BUFFERED.BOUT D1 (L (1 BYTE 0 STREAM)) P @-@Xd@0@HkAǿ@k k@>@glINIL (107Q WRITE 100Q FDEV 73Q STREAM 57Q STREAM 42Q STREAM 30Q STREAM 20Q STREAM 6 STREAM) () \BUFFERED.BINS D1 (L (4 NOERRORFLG 3 NBYTES 2 OFFSET 1 DBASE 0 STREAM)) Ca@[=@@ZLYHLHYغKLABI @JIHCBIbHIٸ@>@gDlN]CHiABMǿBkbHmXj@ (56Q \MOVEBYTES) (127Q READ 120Q FDEV 113Q STREAM 63Q STREAM 27Q STREAM 20Q STREAM 7 STREAM) () \BUFFERED.BOUTS D1 (L (3 NBYTES 2 OFFSET 1 SBASE 0 STREAM)) i@Q@[F@@0ZLYCLCYغABKLI @J@k CIbjhBIbH>@glM(63Q \MOVEBYTES) (140Q WRITE 131Q FDEV 100Q STREAM 70Q STREAM 34Q STREAM 25Q STREAM 14Q STREAM 3 STREAM) () \BUFFERED.COPYBYTES D1 (L (2 NBYTES 1 DST 0 SRC)) sBh@b@ZG@]@\ٻBKBLB[ؽA8AJLKlN@MBKBBKbI>_@dgHlOhNIL (147Q READ 135Q FDEV 110Q STREAM 70Q FDEV 63Q STREAM 37Q STREAM 30Q STREAM 17Q STREAM 6 STREAM) () \NULLDEVICEA0014 D1 (L (1 NOERRORFLG 0 STREAM)) Ah@ NIL NIL () \NULLDEVICE D1 NIL g`dgdkdk dgdgdgdgdgdg dg"dg$dg&dg4dg:dgdgdg6dg8dg dg0dg2dg.dg dgdg@dg*dgdg (313Q \DEFINEDEVICE) (305Q NILL 276Q NILL 267Q NILL 260Q NILL 251Q NILL 242Q NILL 233Q NILL 224Q ZERO 215Q ZERO 206Q \NULLFILEGENERATOR 177Q NILL 170Q \EOF.ACTION 161Q NILL 152Q NILL 143Q NILL 134Q TRUE 125Q NILL 116Q NILL 107Q \NULLDEVICEA0014 100Q NILL 71Q \EOF.ACTION 62Q \NULL.OPENFILE 53Q \NULL.OPENFILE 44Q NILL 35Q NILL 12Q NULL 5 FDEVTYPE# 2 NULL) () \NULL.OPENFILE D1 (L (5 OLDSTREAM 4 DEVICE 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) xEu`dk0dhdDdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dhdA (164Q \SETACCESS) (117Q \STREAM.DEFAULT.MAXBUFFERS 103Q FILELINELENGTH 66Q \FILEOUTCHARFN 57Q \EOSERROR 50Q \NOIMAGEOPS 41Q \STREAM.NOT.OPEN 32Q \STREAM.NOT.OPEN 5 STREAMTYPE#) () (PRETTYCOMPRINT FILEIOCOMS) (RPAQQ FILEIOCOMS ((* Device independent IO. This file is used by VAX) (COMS (* STREAM, FDEV declarations) (DECLARE: FIRST DOCOPY (* The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)) (INITRECORDS STREAM)) ( SYSRECORDS STREAM) (DECLARE: DONTCOPY (EXPORT (RECORDS STREAM) (MACROS STREAMOP) (CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) (BothBits (LOGOR ReadBit OutputBits))) (MACROS APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) (MACROS TestMasked) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP) (COMS (* Needed b/c of STREAM initialization) (INITVARS (FILELINELENGTH 102) (\STREAM.DEFAULT.MAXBUFFERS 3)) ) (FNS \GETACCESS \SETACCESS) (DECLARE: DONTCOPY (EXPORT (MACROS FDEVOP) (RECORDS FDEV FILEGENOBJ))) ( INITRECORDS FDEV) (SYSRECORDS FDEV)) (COMS (* Device operations) (FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE \REMOVEDEVICE.NAMES) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE \GENERATEFILEINFO \GETFILENAME \GETFILENAME.OR.STREAM \GENERIC.OUTFILEP \OPENFILE \DO.PARAMS.AT.OPEN \RENAMEFILE \REVALIDATEFILE \TRUNCATEFILE) (COMS (* Generic enumerator) (FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN) ( DECLARE: DONTCOPY (RECORDS NOFILEGENSTATE))) (FNS \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP \STREAM.NOT.OPEN) (ADDVARS (\FILEDEVICES) (\FILEDEVICENAMES) (\DEVICENAMETODEVICE) ) (COMS (* Device instances) (FNS \FDEVINSTANCE) (MACROS \INHERITFDEVOP.D \INHERITFDEVOP.S)) (INITVARS (LOGINHOST/DIR (QUOTE {DSK})) (\CONNECTED.DIRECTORY (QUOTE {DSK}))) (GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES \DEVICENAMETODEVICE)) (COMS (* Directory defaulting ) (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR)) (COMS (* Binary I/O - Public functions) (FNS \BACKFILEPTR \BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES COPYCHARS COPYFILE \COPYOPENFILE \INFER.FILE.TYPE EOFP FORCEOUTPUT \FLUSH.OPEN.STREAMS GETEOFPTR GETFILEINFO \TYPE.FROM.FILETYPE \FILETYPE.FROM.TYPE GETFILEPTR SETFILEINFO SETFILEPTR) (* Generic functions) (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.READP) (VARS FILING.TYPES) ( GLOBALVARS FILING.TYPES) (DECLARE: DONTCOPY (EXPORT (MACROS \OUTCHAR))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) ( \GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T))))))) (COMS (* Internal functions) (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH \SETEOFPTR \SETFILEPTR) (FNS \FIXPOUT \FIXPIN) (DECLARE: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS \BOUTS \EOFP) (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) WordsPerPage) (CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 24)))) (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) (COMS (* Buffered IO) (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES)) (COMS (* NULL device) (FNS \NULLDEVICE \NULL.OPENFILE) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE)))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP))))) (ADDTOVAR SYSTEMRECLST (DATATYPE STREAM ((COFFSET WORD) (CBUFSIZE WORD) (BINABLE FLAG) (BOUTABLE FLAG) (EXTENDABLE FLAG) (NIL BITS 5) (CBUFPTR POINTER) (NONDEFAULTDATEFLG FLAG) (REVALIDATEFLG FLAG) ( MULTIBUFFERHINT FLAG) (USERCLOSEABLE FLAG) (USERVISIBLE FLAG) (ACCESSBITS BITS 3) (FULLFILENAME POINTER) (DEVICE POINTER) (VALIDATION POINTER) (EPAGE WORD) (EOFFSET WORD) (F1 POINTER) (F2 POINTER) ( F3 POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (BYTESIZE BYTE) (BUFFS POINTER) (CPAGE WORD) (FW8 WORD) (MAXBUFFERS WORD) (CHARPOSITION WORD) (DIRTYBITS WORD) (LINELENGTH WORD) ( EOLCONVENTION BITS 2) (CBUFDIRTY FLAG) (NIL BITS 5) (OUTCHARFN POINTER) (ENDOFSTREAMOP POINTER) ( OTHERPROPS POINTER) (IMAGEOPS POINTER) (IMAGEDATA POINTER) (EXTRASTREAMOP POINTER) (STRMBINFN POINTER) (STRMBOUTFN POINTER) (CBUFMAXSIZE WORD) (FW9 WORD) (F10 POINTER) (CHARSET BYTE)))) (RPAQ? FILELINELENGTH 102) (RPAQ? \STREAM.DEFAULT.MAXBUFFERS 3) (/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) (ADDTOVAR SYSTEMRECLST (DATATYPE FDEV ((DEVICENAME POINTER) (RESETABLE FLAG) (RANDOMACCESSP FLAG) ( NODIRECTORIES FLAG) (PAGEMAPPED FLAG) (FDBINABLE FLAG) (FDBOUTABLE FLAG) (FDEXTENDABLE FLAG) (BUFFERED FLAG) (CLOSEFILE POINTER) (DELETEFILE POINTER) (DIRECTORYNAMEP POINTER) (EVENTFN POINTER) ( GENERATEFILES POINTER) (GETFILEINFO POINTER) (GETFILENAME POINTER) (HOSTNAMEP POINTER) (OPENFILE POINTER) (READPAGES POINTER) (REOPENFILE POINTER) (SETFILEINFO POINTER) (TRUNCATEFILE POINTER) ( WRITEPAGES POINTER) (BIN POINTER) (BOUT POINTER) (PEEKBIN POINTER) (READP POINTER) (BACKFILEPTR POINTER) (DEVICEINFO POINTER) (FORCEOUTPUT POINTER) (LASTC POINTER) (SETFILEPTR POINTER) (GETFILEPTR POINTER) (GETEOFPTR POINTER) (EOFP POINTER) (BLOCKIN POINTER) (BLOCKOUT POINTER) (RENAMEFILE POINTER) (RELEASEBUFFER POINTER) (GETNEXTBUFFER POINTER) (SETEOFPTR POINTER) (FREEPAGECOUNT POINTER) ( MAKEDIRECTORY POINTER) (WINDOWOPS POINTER) (WINDOWDATA POINTER) (NIL POINTER)))) (ADDTOVAR \FILEDEVICES) (ADDTOVAR \FILEDEVICENAMES) (ADDTOVAR \DEVICENAMETODEVICE) (PUTPROPS \INHERITFDEVOP.D MACRO (X (SUBPAIR (QUOTE (NEWARGS OPNAME . ARGS)) (CONS (SUBST (QUOTE ( fetch DEVICEINFO of FDEV)) (QUOTE FDEV) (CDR X)) X) (QUOTE (FUNCTION (LAMBDA ARGS (FDEVOP (QUOTE OPNAME) (fetch DEVICEINFO of FDEV) . NEWARGS))))))) (PUTPROPS \INHERITFDEVOP.S MACRO ((OPNAME . ARGS) (FUNCTION (LAMBDA ARGS (FDEVOP (QUOTE OPNAME) (fetch DEVICEINFO of (fetch DEVICE of STREAM)) . ARGS))))) (RPAQ? LOGINHOST/DIR (QUOTE {DSK})) (RPAQ? \CONNECTED.DIRECTORY (QUOTE {DSK})) (RPAQQ FILING.TYPES ((BINARY 0) (DIRECTORY 1) (TEXT 2) (SERIALIZED 3) (INTERPRESS 4361))) (MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) ( \GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T)))) (\NULLDEVICE) (PUTPROPS FILEIO COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985)) NIL