(FILECREATED "27-Sep-84 09:36:13" ("compiled on " {ERIS}SOURCES>FILEIO.;20) "25-Sep-84 18:30:10" recompiled changes: COPYCHARS in "INTERLISP-D 25-Sep-84 ..." dated "25-Sep-84 18:59:38") (FILECREATED "27-Sep-84 09:34:09" {ERIS}SOURCES>FILEIO.;20 88664 changes to: (FNS COPYCHARS) previous date: " 7-Sep-84 14:38:47" {ERIS}SOURCES>FILEIO.;19) (/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))) 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 (26Q LISTGET 13Q \ILLEGAL.ARG) (20Q STREAM 5 STREAMTYPE#) () PUTSTREAMPROP D1 (L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) f@d` @$!HB@ABh$hA YBHAB -I+HdA@H$AJdJZI(64Q LISTPUT 53Q LISTGET 12Q \ILLEGAL.ARG) (106Q 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))  @dlQ@ l{@lg@hddi ll @X*H` RH X` DB`!Jh4A0@l [HKlI\JZ`LHK Kh(211Q \DEFINEDEVICE 145Q \LISPERROR 111Q FASSOC 102Q U-CASE 73Q FASSOC 57Q SUBATOM 45Q STRPOS 21Q CHCON1) (200Q FDEVTYPE# 153Q FDEV 121Q \FILEDEVICES 106Q \DEVICENAMETODEVICE 70Q \DEVICENAMETODEVICE 34Q }) () \REMOVEDEVICE D1 (L (0 DEV) P 3 \INTERRUPTABLE) B@`YhX@` @Z@JiI` H` (73Q DREMOVE 60Q DREMOVE 24Q DREMOVE) (76Q \DEVICENAMETODEVICE 70Q \DEVICENAMETODEVICE 63Q \FILEDEVICENAMES 55Q \FILEDEVICENAMES 27Q \FILEDEVICES 21Q \FILEDEVICES 5 \DEVICENAMETODEVICE) () \REMOVEDEVICE.NAMES D1 (L (0 DEV)) 8`!HYJ h` h@I` IhiI(50Q DREMOVE 24Q DREMOVE) (53Q \FILEDEVICENAMES 45Q \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 2 \OPENFILES) s@g@g@g@g9RH`GYRljIdjkkHX` dHH@lIh(126Q REVERSE) (141Q FDEV 123Q \FILEDEVICES 104Q STREAM 73Q 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)) ]@d` I@l@dAih@5@ bd (B @i bd@ABlHbd @@hi (132Q \GETSTREAM 120Q \SEARCHOPENFILES 65Q \GETDEVICEFROMNAME 53Q \SEARCHOPENFILES 45Q \ADD.CONNECTED.DIR 12Q \GETACCESS) (74Q FDEV 5 STREAMTYPE#) () \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(231Q EQUAL 27Q \GETACCESS) (302Q CHANGED 273Q STREAM 267Q STREAM 257Q STREAM 253Q STREAM 243Q STREAM 237Q 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 JHB (211Q 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) () \FDEVINSTANCEA0001 D1 (L (0 STREAM)) @(@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0003 D1 (L (2 FDEV 1 ATTRIB 0 STREAM)) B( @AB(lHNIL (23Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0005 D1 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 CDNAME)) D(@ABCD(lHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0007 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0009 D1 (L (3 FDEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) C(@ABC(lHNIL (24Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0011 D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0013 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0015 D1 (L (5 OLDSTREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) D(@ABCD(ElHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0017 D1 (L (0 STREAM)) @(@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0019 D1 (L (1 BYTE 0 STREAM)) @( @AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0021 D1 (L (1 NOERRORFLG 0 STREAM)) @("@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0023 D1 (L (0 STREAM)) @(&@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0025 D1 (L (1 INDX 0 STREAM)) @(.@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0027 D1 (L (0 STREAM)) @(0@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0029 D1 (L (0 STREAM)) @(2@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0031 D1 (L (0 STREAM)) @(4@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0033 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @(6@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0035 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @(8@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0037 D1 (L (0 STREAM)) @(*@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCE D1 (L (0 FDEV)) hXd@(HgHg HgHgHgHgHgHgHgHg Hg"Hg&Hg.Hg0Hg2Hg4Hg6Hg8Hg*NIL (213Q \FDEVINSTANCEA0037 204Q \FDEVINSTANCEA0035 175Q \FDEVINSTANCEA0033 166Q \FDEVINSTANCEA0031 157Q \FDEVINSTANCEA0029 150Q \FDEVINSTANCEA0027 141Q \FDEVINSTANCEA0025 132Q \FDEVINSTANCEA0023 123Q \FDEVINSTANCEA0021 114Q \FDEVINSTANCEA0019 105Q \FDEVINSTANCEA0017 76Q \FDEVINSTANCEA0015 67Q \FDEVINSTANCEA0013 60Q \FDEVINSTANCEA0011 51Q \FDEVINSTANCEA0009 42Q \FDEVINSTANCEA0007 33Q \FDEVINSTANCEA0005 24Q \FDEVINSTANCEA0003 15Q \FDEVINSTANCEA0001) () CNDIR D1 (L (0 HOST/DIR)) @i @dldo@ @`R@k)l{'@lg@l o@ ]k @Mk Ii \Ih`i ]'o@ gIgHpL j]oi \MgIgH bdg `g  o jo`o g`QoH 3Hd ko>m)l>Hd l,o%Hg Hm)l>gH gHg [LKLlN] oK hiMoK KlMk KMk oIJK(575Q SUBSTRING 565Q SUBATOM 553Q STRPOS 534Q ERROR 503Q PACK* 500Q CONCAT 465Q CONCAT 444Q CONCAT 421Q NCHARS 372Q NCHARS 363Q STRPOS 336Q CONCAT 314Q NCHARS 273Q FILENAMEFIELD 256Q FILENAMEFIELD 243Q PACK* 223Q \GETDEVICEFROMNAME 162Q ERROR 147Q FIXSPELL 133Q \GETDEVICEFROMNAME 125Q SUBATOM 115Q SUBATOM 107Q LISPERROR 75Q STRPOS 41Q LISPERROR 4 DIRECTORYNAME) (615Q \CONNECTED.DIR 610Q \CONNECTED.HOST 510Q FDEV 475Q > 471Q < 461Q < 441Q > 351Q USERNAME 346Q < 341Q \CONNECTED.DIR 327Q \CONNECTED.DIR 307Q \CONNECTED.DIR 276Q \CONNECTED.DIR 270Q DIRECTORY 265Q \CONNECTED.DIR 261Q \CONNECTED.HOST 253Q HOST 237Q } 233Q { 201Q FDEV 172Q } 166Q { 143Q \FILEDEVICENAMES 67Q } 46Q \CONNECTED.HOST 7 \CONNECTED.DIR) ( 603Q "" 547Q "}" 530Q "Non-existent directory" 433Q "" 402Q "" 357Q "<" 333Q ">" 324Q "<" 304Q "" 214Q "" 156Q "Unrecognized host" 103Q "ILLEGAL ARG" 35Q "ILLEGAL ARG") DIRECTORYNAME D1 (L (2 CREATE? 1 STRPTR 0 DIRNAME)) 0@dig`g` c`]gX@ dl{dl[dl(@o`o@ bi Yd/@IBlJXdigIg@ AH iH (214Q MKATOM 203Q MKSTRING 173Q PACKFILENAME.STRING 122Q \GETDEVICEFROMNAME 114Q CONCAT 51Q CHCON1 30Q CONCAT) (167Q DIRECTORY 162Q FDEV 156Q HOST 131Q FDEV 104Q \CONNECTED.HOST 43Q {DSK} 36Q LOGINHOST/DIR 25Q \CONNECTED.DIR 22Q } 17Q \CONNECTED.HOST 14Q {) ( 110Q "}" 101Q "{") 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)) G@k)dl{@l<'g`g@dl)l>@lm o g`g`@ (104Q PACK* 62Q PACK* 51Q SUBATOM) (77Q \CONNECTED.DIR 74Q } 71Q \CONNECTED.HOST 66Q { 27Q } 24Q \CONNECTED.HOST 21Q {) ( 57Q "") \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 2C!HBdd CdmH BـBZdjJoJ HpjHIJ @J?HdjH H0HkKٵH4HkLidjIH kٰIH (263Q \BOUT 245Q \BOUT 164Q \GETEOFPTR 130Q \BUFFERED.COPYBYTES 102Q ERROR 57Q \GETEOFPTR 43Q \SETFILEPTR 40Q \ILLEGAL.ARG 15Q \GETSTREAM 6 \GETSTREAM) (220Q FDEV 213Q STREAM 175Q FDEV 170Q STREAM 150Q FDEV 143Q STREAM 114Q FDEV 107Q STREAM 12Q OUTPUT 3 INPUT) ( 76Q "Negative number of bytes to copy") COPYCHARS D1 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) '@ A j0H^I_HIBC Hjh[H C?KoH BjZ_djOBl HJ CdmQMNCLB.K(H0_HkOMBJ_dO%O BKH0_HkOZMJLoLJ NdjLJdj7H _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 kNlTkLJ_(_&O&O(FIH _dl +O(dk k_(H _l Ojl l Il O O(k_(i(1043Q SHOULDNT 1026Q \BOUT 1020Q \BOUT 704Q \BOUT 663Q \BOUT 621Q \BOUT 470Q \PEEKBIN 406Q \BOUT 333Q ERROR 163Q \SETFILEPTR 155Q \LISPERROR 124Q ERROR 101Q \GETEOFPTR 50Q COPYBYTES 7 \GETSTREAM 3 \GETSTREAM) (574Q FDEV 567Q STREAM 544Q STREAM 424Q STREAM 277Q FDEV 272Q STREAM 221Q FDEV 214Q STREAM 117Q STREAM 64Q FDEV 57Q STREAM 32Q STREAM 22Q STREAM) ( 325Q "Negative number of bytes to copy" 113Q "COPYCHARS: Source file is not random access") COPYFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 (DUMMY.FOR.ERRORSET)) \COPYOPENFILE D1 (L (1 NEWNAME 0 INSTREAM) F 12Q RESETVARSLST) (  @g XgHhJ@g XgHhJ@g YIg@ Y&gIhJIg@g XgHhJoAgghgJ [hWc@0@kLj@j Ig}Kg Hr@g"@_@ _^KOdl +Odjl 0l@i l @ l l l l Okl l O_^ NOlM@K K (445Q CLOSEF 440Q COPYBYTES 344Q \PEEKBIN 247Q GETFILEINFO 230Q SETFILEPTR 167Q OPENSTREAM 126Q GETFILEINFO 73Q \INFER.FILE.TYPE 57Q GETFILEINFO 34Q GETFILEINFO 11Q GETFILEINFO) (417Q STREAM 271Q STREAM 262Q NILL 257Q STREAM 244Q EOL 235Q TEXT 211Q FDEV 204Q STREAM 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) F 3 \OPENFILES) 9S!HhY@ IdRlj*IkJHXNIL (52Q FDEV 45Q STREAM 31Q STREAM 16Q STREAM) () GETEOFPTR D1 (L (0 FILE)) @ H2HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () GETFILEINFO D1 (L (1 ATTRIB 0 FILE)) @g QHd`AgH HY HAIlJAgAdgHg%HdjgdkglgAdgHgH"AdgH uH g&I HgIlK H H dnDAgAghH Y HAIlL!AgI HgIlMdn@l (434Q \LISPERROR 346Q \GETDEVICEFROMNAME 311Q \GETEOFPTR 303Q RANDACCESSP 246Q \GETEOFPTR 240Q RANDACCESSP 170Q SHOULDNT 37Q \GETACCESS 6 \GETFILENAME.OR.STREAM) (410Q LENGTH 401Q FDEV 372Q SIZE 352Q FDEV 336Q OPENBYTESIZE 330Q ACCESS 270Q LENGTH 261Q FDEV 252Q SIZE 231Q LENGTH 221Q STREAM 213Q ENDOFSTREAMOP 205Q STREAM 176Q BUFFERS 164Q CRLF 154Q LF 144Q CR 132Q STREAM 123Q EOL 114Q STREAM 105Q OPENBYTESIZE 76Q BYTESIZE 52Q FDEV 44Q STREAM 31Q ACCESS 17Q STREAMTYPE# 3 OLD) () GETFILEPTR D1 (L (0 FILE)) @ H0HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () SETFILEINFO D1 (L (2 VALUE 1 ATTRIB 0 FILE)) &@g QHd`AgAgAdghg+HBdgjglBdgk BAdgHB"BgHBjغkJJk[KHYHABIlL1AdgHBddjBBB g HB RAgUAgLAgCH YHABIlMAgHBddjBBB @l (443Q \LISPERROR 434Q \SETCLOSEDFILELENGTH 431Q \ILLEGAL.ARG 354Q \GETDEVICEFROMNAME 312Q \SETEOFPTR 274Q \SETEOFPTR 271Q \ILLEGAL.ARG 124Q \ILLEGAL.ARG 6 \GETFILENAME.OR.STREAM) (401Q LENGTH 360Q FDEV 343Q EOLCONVENTION 332Q OPENBYTESIZE 321Q ACCESS 300Q SIZE 240Q LENGTH 216Q FDEV 210Q STREAM 164Q STREAM 155Q BUFFERS 145Q STREAM 136Q ENDOFSTREAMOP 114Q LF 102Q CRLF 71Q CR 64Q STREAM 55Q EOL 46Q OPENBYTESIZE 37Q BYTESIZE 31Q ACCESS 17Q STREAMTYPE# 3 OLD) () SETFILEPTR D1 (L (1 ADR 0 FILE)) C@ H.HAdmd djAAAl lIHjA(63Q \LISPERROR 36Q \GETEOFPTR 3 \GETSTREAM) (74Q STREAM 17Q FDEV 12Q STREAM) () \GENERIC.BINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjAB@ ǿBkbHkXINIL NIL () \GENERIC.BOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHj@AB BkbHkXI(17Q \BOUT) NIL () \GENERIC.RENAMEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 OLDFILE F 1 NEWFILE F 2 RESETVARSLST F 3 RESETY) ,oPg chRcPQ c P Qci(44Q \DELETEFILE 41Q CLOSEF 31Q \COPYOPENFILE 12Q OPENSTREAM) (7 INPUT) ( 3 (AND RESETSTATE (CLOSEF? OLDVALUE))) \GENERIC.RENAMEFILE D1 (P 1 RESETY P 0 LISPXHIST I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \GENERIC.RENAMEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \GENERIC.READP D1 (L (1 FLG 0 STREAM) P 1 \INTERRUPTABLE F 3 \PRIMTERMSA) H@4@kHh1Ahh*S@ kh @ @4@kJh@ (104Q \BACKFILEPTR 42Q \PEEKBIN) (67Q FDEV 62Q 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ǿBkbHkXj@ (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 () \NULLDEVICEA0020 D1 (L (1 RECOG 0 NAME)) gNIL (2 {NULL}) () \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 \NULLDEVICEA0020 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)) zEw`dk0dgdDdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dhdA (166Q \SETACCESS) (121Q \STREAM.DEFAULT.MAXBUFFERS 105Q FILELINELENGTH 70Q \FILEOUTCHARFN 61Q \EOSERROR 52Q \NOIMAGEOPS 43Q \STREAM.NOT.OPEN 34Q \STREAM.NOT.OPEN 20Q {NULL} 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 \REMOVEDEVICE \REMOVEDEVICE.NAMES) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE \GENERATEFILEINFO \GETFILENAME \GETFILENAME.OR.STREAM \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}))) (GLOBALVARS LOGINHOST/DIR \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 GETFILEPTR SETFILEINFO SETFILEPTR) (* Generic functions) (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.READP) (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) (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)))) (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))) (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) (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})) (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)) NIL