(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:41:36" ("compiled on " {DSK}larry>il>medley>sources>MOD44IO.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED "11-May-2023 21:48:37" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>MOD44IO.;2 138564 :EDIT-BY "lmm" :CHANGES-TO (VARS MOD44IOCOMS) :PREVIOUS-DATE "16-Mar-2021 19:55:51" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>MOD44IO.;1) \M44AddDiskPages :D8 (L (2 NEWLASTBYTE 1 NEWLASTPAGE 0 STREAM)) V@dÈ @dÉkØA@ÉÙ@A ÉB @A@AÍ@BÍA(55 \ADDDISKPAGES 41 \M44ExtendFilePageMap 13 \M44FillInMap) (79 STREAM 70 STREAM 61 STREAM 46 ARRAYP 31 STREAM 20 STREAM 6 STREAM) () \M44CloseFile :D8 (L (0 STREAM)) >@ @d gð³)¿@dÉ@Èi¿@É @(58 \M44FLUSHDISKDESCRIPTOR 44 \M44TruncateFile 12 \GETACCESS 5 \CLEARMAP) (51 STREAM 36 STREAM 28 STREAM 17 INPUT) () \M44CompleteFH :D8 (L (0 STREAM)) 7hh@ @É ÉSIÈþkÙ[mÿð³ilgnÿþjKkØ¾]kIÈý¿Mlnÿÿ¿JhMÉK@NdnÖHhi Nð´H\IÈÿð²@KÍ¿@LÍ°Gl@_¿@O »OdKð³n¿Jh@ÉÉmÿ@KkØKkØnÖH ¼@KHi¿@IÈIÈõ@dÈnð²%¿@@ÈkØ¿@j°&l@Ô±ÿ~@È¿@@ÈÍ@(209 \M44SetEndOfFile 198 \ACTONDISKPAGES 153 \M44FillInMap 106 \ACTONDISKPAGES 79 SETA 67 SETA 53 ARRAY 8 \M44ReadLeaderPage) (303 STREAM 297 STREAM 286 STREAM 280 STREAM 266 STREAM 253 STREAM 247 STREAM 232 STREAM 216 STREAM 177 ARRAYP 170 STREAM 135 STREAM 125 STREAM 88 ARRAYP 44 WORD 21 FDEV 14 STREAM) () \M44CREATEFILE :D8 (L (5 DIRECTORYP 4 TYPE 3 CRDATE 2 LENGTH 1 UNAME 0 FDEV)) @ÉA l jÄI¡hldnÿÿÍ5¿`_¿dOÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`_¿dOÍ¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿_dÉ Éhµg ¿O_mÿ¿OjÍ¿OjÍ¿O\dIL@ Llgjd]LB3 šlBnÿØãâØl@gnÿþj^LjL`‘k€j_Ï ¿OjðhðLJMÉ_djHÉ_jOj kÔE›OdÈn€ÔÍ¿OkÍNjnÿÿNlnÿÿJlÐl _lÄJCµOlÄAJlÐAO µO$kð³=O"KkÔ[l!Ç¿O$ °'_&¿O"KkÔ[O&Ç¿O _ °Ñd_¿O"KkÔ[OÇ¿µïO"KkÔ[l.Ç¿JKÏJlÏöJlÒÏö‡LD HJhdNÉmÿLjkhdjd ONÉNl kØÐÈÍLLÉAK@L(647 \M44MAKEDIRENTRY 618 \GETBASEFIXP 595 \WRITEDISKPAGES 566 \M44SETFILETYPE 489 CHCON 434 \DAYTIME0 422 SETA 411 SETA 382 \PUTBASEFIXP 377 \PUTBASEFIXP 370 \GETBASEFIXP 296 ARRAY 256 ARRAY 178 \EXTERNALFORMAT 13 \M44PACKFILENAME) (637 STREAM 631 STREAM 611 ARRAYP 603 ARRAYP 578 ARRAYP 350 ARRAYP 341 STREAM 319 \M44MULTFLG 314 STREAM 305 STREAM 287 WORD 265 STREAM 249 SMALLPOSP 242 STREAM 233 STREAM 224 STREAM 211 STREAM 200 STREAM 188 STREAM 173 :DEFAULT 164 FDEV 94 FILELINELENGTH 86 \STREAM.NOT.OPEN 77 \STREAM.NOT.OPEN 68 \EOSERROR 59 \NOIMAGEOPS 39 \STREAM.DEFAULT.MAXBUFFERS 5 FDEV) () \M44DeleteFile :D8 (L (1 DEV 0 FILENAME)) ~@gAi!H´AÉ¹HdÉhAlI‘hmÿ AÉÉ ZHÉ ¿Jd lå ¿J ¿H HhHÉ(106 \M44KillFilePageMap 99 FLUSHMAP 92 \BOUT 84 \PEEKBIN 76 \SETFILEPTR 52 \M44DELETEPAGES 12 \M44GetFileHandle) (121 STREAM 112 STREAM 69 STREAM 58 FDEV 34 STREAM 24 FDEV 5 OLDEST) () \M44EVENTFN :D8 (L (1 EVENT 0 FDEV)) >Agð³ Agð³Agð¬Adgð¢±¿@ÉaHÉYµ~HÉ ¿@É »@HÉ lK¿`lð¢±©@ÉÊjð@Ég ð¾]›i¿M’N³@É¼hd@lL²bMdNð²/¿@ °Q ¿@É º@IlJ¿HjÏ¿Hh¿±ÿc´$@g ¿@Él @ †d@³Hh ¿@g¿@ ¿@ gð´@ ¿@ (315 \M44FLUSHDISKDESCRIPTOR 308 \FLUSH.OPEN.STREAMS 293 \PAGED.REVALIDATEFILELST 285 \REMOVEDEVICE 258 \OPENDISKDEVICE 250 \OPENDISK 244 SUBATOM 228 \REMOVEDEVICE.NAMES 184 FORGETPAGES 177 \OPENDIR 130 PACK* 125 DISKPARTITION 63 FORGETPAGES) (299 BEFORELOGOUT 276 NILL 271 FDEV 235 FDEV 223 DSK 191 FDEV 152 FDEV 140 \M44.READY 120 DSK 113 FDEV 100 FDEV 87 \MACHINETYPE 70 FDEV 44 FDEV 32 AFTERSAVEVM 23 AFTERMAKESYS 14 AFTERSYSOUT 5 AFTERLOGOUT) () \M44ExtendFilePageMap :D8 (L (1 TOPAGE# 0 STREAM)) †@É1H²AlØH[Ê‡KÈõYýñ‘HAlØl?ØmÀågnÿþjZH²dÉHÉIÄ°%Jjnÿÿ¿Jk@ÉÉÈ¿@JJ(120 SETA 95 SETA 61 ARRAY) (127 STREAM 111 ARRAYP 104 STREAM 79 ARRAYP 71 ARRAYP 52 SMALLPOSP 23 ARRAYP 5 STREAM) () \M44FillInMap :D8 (L (1 UPTOPAGE 0 STREAM)) “ @A @É É@ÉcHÉ^AJñ²ZNJkØlØÐÈ_nÿþðOnÿÿð³AJkÔº°Þ`AJÙkØ_¿dOñ’¿O»IhNmÿ@JkØJKØkÙkØ]nÖ \kÙºMLñ²¥@JJ(125 \ACTONDISKPAGES 6 \M44ExtendFilePageMap) (140 STREAM 82 \MAXDISKDAs 38 ARRAYP 27 STREAM 19 FDEV 12 STREAM) () \M44GetFileHandle :D8 (L (4 CREATEFLG 3 FAST 2 FDEV 1 RECOG 0 NAME)) Q BÉÉ H´‚±>@ABDYd¢±/Z¢±ldnÿÿÍ5¿`¼dLÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`½dMÍ¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿^dÉ Éhµg ¿N_mÿ¿OjÍ¿OjÍ¿O[dB KHJ KJKIJHK`‘k€j_Ï ¿OjðhðC¥K KI«o@ D´I(328 LISPERROR 312 \M44CompleteFH 275 \M44PACKFILENAME 249 \M44READDIRFID 188 \EXTERNALFORMAT 28 \M44PARSEFILENAME) (288 \M44MULTFLG 283 STREAM 266 STREAM 257 STREAM 242 STREAM 233 STREAM 220 STREAM 209 STREAM 197 STREAM 183 :DEFAULT 174 FDEV 108 FILELINELENGTH 100 \STREAM.NOT.OPEN 91 \STREAM.NOT.OPEN 82 \EOSERROR 73 \NOIMAGEOPS 56 \STREAM.DEFAULT.MAXBUFFERS 5 FDEV) ( 322 "BAD FILE NAME") \M44GetFileInfo :D8 (L (2 DEV 1 ATTRIBUTE 0 STREAM)) B@Ã³@gBib´‚±&AgðªAdgð²H¿@É¦@ ¿Agð²@Éáà@ÈØ@É@ÈnÿØãâØgð²[@ HÊö‡jñ´‚±±HdÊöÐXdÊdjð‘hlˆð²'HÈdkð•gdlð•gjð³ßHÈ HdÊ‡ÐX°ÆAdgð™¿@jigð™@liAdgðš¿@ligð—@j Adgð™¿@l gð´ @l (319 \M44GETDATEPROP 302 \M44GETDATEPROP 283 \M44GETDATEPROP 268 \M44GETDATEPROP 248 \M44GETDATEPROP 231 \M44GETDATEPROP 203 \TYPE.FROM.FILETYPE 130 \M44ReadLeaderPage 62 \M44CompleteFH 20 \M44GetFileHandle) (308 IREADDATE 291 IWRITEDATE 274 ICREATIONDATE 256 READDATE 237 WRITEDATE 220 CREATIONDATE 190 BINARY 179 TEXT 121 TYPE 106 STREAM 98 STREAM 88 STREAM 78 STREAM 69 LENGTH 53 STREAM 43 SIZE 34 LENGTH 13 OLD 5 STREAM) () \M44GETDATEPROP :D8 (L (2 STRINGIFY 1 OFFSET 0 STREAM)) -@ AÐHÈHÈõdjð³doæYB–d Ih(38 GDATE 5 \M44ReadLeaderPage) NIL ( 28 -2147483648) \M44GetFileName :D8 (L (2 FDEV 1 RECOG 0 NAME)) *@ABHd²d²Hd´BÉÉ (39 \M44PACKFILENAME 7 \M44PARSEFILENAME) (30 FDEV) () \M44GetPageLoc :D8 (L (2 CREATE? 1 PAGENO 0 STREAM)) _A@Èñ³?A@Éñ—@A ¿@ÉAlØHÉHl IØÐÈBž@Ajhb¿¿°¨nÿÿ(82 \M44AddDiskPages 66 \GETBASEFIXP 29 \M44FillInMap) (59 ARRAYP 51 ARRAYP 36 STREAM 18 STREAM 6 STREAM) () \M44KillFilePageMap :D8 (L (0 fHandle)) @h@mÿmÿNIL (14 STREAM 5 STREAM) () \M44MAKEDIRENTRY :D8 (L (3 FDEV 2 NC 1 UNAME 0 FID) P 7 *PRINT-BASE*) ©CÉÉ ARBlØâH ZH@É½\É É@»LMjl lK¿HB AŠd¾HN ¿µóIkð³Hl! ¿l IH Hl. Bkåjð—Hj ¿HJ Hd lä H J(165 FORCEOUTPUT 159 \BOUT 151 \PEEKBIN 144 \SETFILEPTR 136 \BOUT 123 \BOUT 114 PRIN3 101 \BOUT 83 \BOUT 69 \BOUT 25 \FINDDIRHOLE) (49 FDEV 42 STREAM 33 ARRAYP 5 FDEV) () \M44OpenFile :D8 (L (5 OLDSTREAM 4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) î° Agð³`C°Zd^dgðŸ¿lNnÿØãâØ¸°ºHIjl lJB(27 ARRAY 9 \SETFILEPTR) (52 FDEV 45 STREAM 34 ARRAYP 20 SMALLPOSP) () \M44READDIRNAME :D8 (L (1 DIRPTR 0 DIRSTREAM)) 3@AlÔ @ kÙAk\Hó¦@ dl!ð‘I»JµKhZ¹LkÔ°çK&º°ø(9 SETFILEPTR) NIL () \M44SEARCHDIR :D8 (L (2 HMIN 1 TLIST 0 STREAM)) ¬ `ÉAAs B™@h¿J ¼@I] ¿@É É<_¿@dkO‘h _låá@ Ø_àMØ¹Oââkð³B²ÃBOñ³½@M¿hb¿°@MlØ ¿@ [Lýñ³šJ^§AI¿KLÙH@ ÂNð²†N°ë(137 \SETFILEPTR 50 \SETFILEPTR 41 LENGTH) (117 STREAM 64 FDEV 57 STREAM 31 STREAM 14 ARRAYP 9 ARRAYP 4 \DISKNAMECASEARRAY) () \M44UNPACKFILENAME :D8 (L (2 CREATEFLG 1 DEV 0 NAME)) 2 `Éj²@d²Bið³=@dd3@ð©¿@ ´.@k l{ð´"o@lZ´@JkÔZ l<ð´hAÉhh_½O¾@J [¢±HKÂ\jð³ÖMLdl;ð³4l#ð¦Ldl*ð“¿¿°Àl.ð²@@JkØ µ¿±Ðdl;ð¥dl!ð²¿JkÔZ¿¿@JkÔZ [³%±®¿LM_¿B•N_¿€L&½B“NK&¾JkÔºIkÔ¹°‚HKÂ[djð“¿±ÿ_lHð–g°KdlLð–¿g‰lNð²g_¿J@ ð´‚±ÿ-°Lj_¿K²(l0Kñ³"Kl9ñ³Ol ÖKl0ÕÔ_¿@JkÔZ [°ÚOdjð™¿g_¿‡nÿÿñ’±þåK’±þàOO¿Il Õ_jó²5Oµ4Ojó²+OOkØOO¿B²OOkØOOO_¿O_¿O_²µO YdOó³!¿Oh¿BžOh¿OIÕ_°‰OÕO h¿B²l IOÕÔO h¿j_±ÿc(551 CL:NTHCDR 531 CL:NTHCDR 483 LENGTH 442 NLEFT 419 NLEFT 346 NTHCHARCODE 295 NCHARS 201 NTHCHARCODE 167 NTHCHARCODE 118 NTHCHARCODE 82 NTHCHARCODE 69 STRPOS 51 NTHCHARCODE 42 STRINGP) (361 OLD 285 NEW 274 OLDEST 260 OLD 95 FDEV 14 ARRAYP 9 ARRAYP 4 \DISKNAMECASEARRAY) ( 61 "}") \CREATE.FID.FOR.DD :D8 (L (0 FDEV)) ,lgjdHÉ@ÉÉl1ÐlÄH(13 ARRAY) (30 FDEV 22 ARRAYP 6 SMALLPOSP) () \OPENDISK :D8 (L (1 FDEV 0 PARTNUM)) \ @ ¡hl YhÎ¿IXdl$ H@ÏHdlÐÎHlÍHn–Í HlÍ!HlÍ"HlÍ#H`É@HA(89 \OPENDISKDEVICE 33 \LOCKWORDS 18 \ALLOCBLOCK 8 \TESTPARTITION) (77 \MAINDISK) () \OPENDISKDEVICEA0017 :D8 (L (0 NAME)) @mÿ l}ð(7 NTHCHARCODE) NIL () \OPENDISKDEVICEA0036A0037 :D8 (L (0 DEV)) @ÉÊ jð´@ (20 \REMOVEDEVICE) (5 FDEV) () \OPENDISKDEVICEA0036 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FDEV F 1 SI::*RESETFORMS* F 2 NAME F 3 PARTITION) 0gPhhdQcRP P ´SªgP P(44 \DEFINEDEVICE 29 \OPENDIR 23 \DEFINEDEVICE) (38 DSK 4 \OPENDISKDEVICEA0036A0037) () \OPENDISKDEVICE :D8 (L (1 DSKOBJ) P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 FDEV P 0 NAME I 2 FDEV I 0 PARTITION F 5 *DEFAULT-EXTERNALFORMAT* F 6 LISPXHIST) pg@µ Iµ‚±$`dH¿dkÏ ¿dg¿dg¿dgD¿dg¿dg¿dg^¿dgF¿dgb¿dg`¿dg¿dg¿dg ¿dg¿dg¿dg"¿dg¿dg¿dg ¿dUh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg*¿dg¿ YAµ `bAHV!g ¿$(361 SI::RESETUNWIND 356 \MVLIST 351 \OPENDISKDEVICEA0036 315 \MAKE.PMAP.DEVICE 17 PACK* 12 DISKPARTITION) (346 SI::RESETUNWIND 329 \MAINDISK 321 FDEV 307 \GENERIC.RENAMEFILE 298 NILL 289 \GENERIC.READP 280 \ILLEGAL.DEVICEOP 271 \GENERIC.BINS 262 \GENERIC.BOUTS 253 NILL 244 \GENERIC.CHARSET 235 \ILLEGAL.DEVICEOP 226 \IS.NOT.RANDACCESSP 217 \IS.NOT.RANDACCESSP 203 \GENERIC-UNREGISTER-STREAM 194 \ADD-OPEN-STREAM 185 \GENERIC.OPENP 176 \M44FREEPAGECOUNT 167 NILL 158 \OPENDISKDEVICEA0017 149 \M44EVENTFN 140 \M44GENERATEFILES 131 \M44OpenFile 122 \M44WritePages 113 \M44TruncateFile 104 \M44SetFileInfo 95 \M44ReadPages 86 \M44OpenFile 77 \M44GetFileName 68 \M44GetFileInfo 59 \M44DeleteFile 50 \M44CloseFile 32 |FDEVTYPE#| 4 DSK) () \OPENDIR :D8 (L (0 FDEV)) 9 @ÉÊ@ÉjÏ ¿jdðhðHjð³H ¬@Éh h@oglgjd[djn€¿Kkld¿Klk¿Klj¿Klk¿YdIÉkØ¼l@Lñ¡Ll@Í4@ÉI Hjð³n@ Zl ¿J@ÉÉ_¿^É É>½NOjllM¿@ÉÉ_jOj lÔ¿@d ®¿@Éh h@ÉkÏ ¿kjðhðI(276 \M44CHECKPASSWORD 268 \PUTBASEFIXP 260 \GETBASEFIXP 197 \SETFILEPTR 189 \OPENDISKDESCRIPTOR 138 \M44OPENFILEFROMFP 132 SETA 122 SETA 112 SETA 102 SETA 92 SETA 81 ARRAY 42 \TESTPARTITION) (297 FDEV 284 FDEV 245 FDEV 225 FDEV 218 STREAM 205 FDEV 173 FDEV 151 STREAM 145 STREAM 74 SMALLPOSP 67 BOTH 49 FDEV 19 FDEV 5 FDEV) ( 62 "SYSDIR.;1") \M44CHECKPASSWORD :D8 (L (0 DEV) P 11 \INTERRUPTABLE) g@Éogg¡ H¡il kØâ ¹Hn ¿HÉ É>_¿HIjllO¿IÈjð—H iHn ¿H ^ ½HMdÊjð¥ É_¿_É É>_¿OOjNlO¿H ¿M ½@ÉLhdM [¡hZl@ÐIl Ä¿Jl@l ØÐK ¿Jl@l ØÐJl@Ð ’±ÿ]i¼°®(267 \CHECKBCPLPASSWORD 250 SetBcplString 245 \DECRYPT.PWD 222 \GETPACKETBUFFER 210 \INTERNAL/GETPASSWORD 191 MKATOM 184 \CLOSEFILE 141 %%ARRAY-BASE 126 ALLOCSTRING 117 SETFILEPTR 106 \CLOSEFILE 64 SETFILEPTR 54 \ALLOCBLOCK 37 \OPENFILE 22 PACK*) (198 FDEV 161 FDEV 154 STREAM 78 FDEV 71 STREAM 32 OLD 27 INPUT 10 FDEV 4 {) ( 17 "}SYS.BOOT;1") \M44HOSTNAMEP :D8 (L (1 DEV 0 NAME)) R@gð•g@khi ´0@l 3 Xd²" ´Hðšg H (79 \OPENDISK 72 \GETDEVICEFROMNAME 60 DISKPARTITION 52 \TESTPARTITION 41 SUBATOM 31 STRPOS 15 \OPENDISKDEVICE) (67 DSK 21 DSK 8 DSK) () \COPYSYS1 :D8 (L (1 LASTPAGE 0 STREAM) F 36 SI::*RESETFORMS* F 37 \VMEMACCESSFN) š$@É HÃ´HÉgð²#@É Égðšo ¿WJ@É Ê0jðhð`kÙ`l`n€`È:`lð¹gd gk ¿WHcHgd gKJáÐ ¿WHcHgd g@É _Ã²OÉgð›JkÙºKnÐ»k€j ¿WHcHJKBk_2¿O2O(ó³.O*_0¿O.µO0h_._,¿O2kÔ_2¿O*nÐ_*¿°×O0&_.¿°èO,_Aã__Odjðš¿Kn …KklH¿I²"@A¿@jÍ¿@jO°)@O_ ¿_É É@_¿OO jnlO¿LAó’±ßOLó³*MdÈNæÍ¿O•¿OOÔ_¿Nâ^jð—MkÐ½n€¾H_$¿LKJALÕkØ_"¿dO"ñ’¿O"_lO$¿I³-@KOáàO4É É@_&¿O4O6jO8lO&°(@LkÙJOó“O°OOR#k_D¿O:µO>¿LOÔ\±ÿT_F¿ODO<ó³æOF_B¿O@µOBh_@_>¿ODkÔ_D¿O:_:°ÃOB&_@¿°ìh(602 \WRITEPAGES 465 \DoveDisplay.SetCursorShape 393 \WRITEPAGES 352 \CLEARWORDS 259 SETTOPVAL 202 GETTOPVAL 185 SETTOPVAL 170 GETTOPVAL 153 SETTOPVAL 141 GETTOPVAL 67 ERROR) (545 FDEV 538 STREAM 416 FDEV 409 STREAM 379 STREAM 369 STREAM 239 \M44OpenFile 232 FDEV 223 FDEV 214 STREAM 208 \#DISKBUFFERS 196 \#DISKBUFFERS 176 \EMUSWAPBUFFERS 164 \EMUSWAPBUFFERS 147 \#SWAPBUFFERS 135 \#SWAPBUFFERS 124 \MACHINETYPE 117 \InterfacePage 109 \EM.CURSORBITMAP 102 \EMUBUFFERS 95 \#EMUBUFFERS 83 FDEV 76 STREAM 55 DSK 48 FDEV 41 STREAM 31 \M44OpenFile 24 FDEV 16 FDEV 5 STREAM) ( 62 "Sysout to Dorado login partition no longer supported.") \MAIKO.CHECKFREESPACE :D8 (L (0 FILENAME)) î`lR lB@µ+g½oMoo µo°g ½@gM ZoMoJZdI «oJ ¿HIlÚ\ñ´_`²HJd ³¿ggJ¿Jg [HKLØñ²ggJJ ggJ(235 CL:ERROR 218 DELFILE 211 CL:ERROR 187 GETFILEINFO 175 CL:ERROR 156 INFILEP 132 LISPERROR 120 \UFSGetFreeBlock-C 112 CONCAT 94 \UFS.RECOGNIZE.FILE 89 \GETDEVICEFROMNAME 76 U-CASE 71 FILENAMEFIELD 59 CONCAT 47 UNIX-GETENV 11 \GETBASEFIXP) (229 :PATHNAME 224 XCL:FS-RESOURCES-EXCEEDED 205 :PATHNAME 200 XCL:FS-RESOURCES-EXCEEDED 182 SIZE 169 :PATHNAME 164 XCL:FS-RESOURCES-EXCEEDED 147 \LDEDESTOVERWRITE 83 NON 66 HOST 25 DSK 4 \InterfacePage) ( 126 "FILE NOT FOUND" 106 "}" 100 "{" 54 "~/lisp.virtualmem" 42 "LDEDESTSYSOUT" 37 "}" 31 "{") GATHERSTATS :D8 (L (0 FILENAME)) Å`lð«o@ @¢±š`•¿@g dgð³'³ggg@bŠo@ ¿i@ggHd ¿HÉ ¿HÉ jÏ¿ÉÉ `´ h(188 \GATHERSTATS 175 \GATHERSTATS 141 \M44FLUSHDISKDESCRIPTOR 127 \CLOSEFILE 117 \OPENFILE 94 ERROR 80 PACKFILENAME.STRING 48 FILENAMEFIELD 36 GATHERSTATS 19 ERROR) (194 \STATSON 181 \STATSON 167 ARRAYP 160 STREAM 148 STREAM 134 STREAM 112 NEW 107 OUTPUT 101 \STATSON 74 BODY 69 DSK 64 HOST 54 DSK 43 HOST 30 \STATSON 4 \MACHINETYPE) ( 88 "Stats file must be on DSK" 13 "Stats not implemented for this type of machine") (PRETTYCOMPRINT MOD44IOCOMS) (RPAQQ MOD44IOCOMS ((* ;;; "Dorado disk driver") (COMS (* ;; "Device dependent code for the Model44 disk") (FNS \M44AddDiskPages \M44CloseFile \M44CompleteFH \M44CREATEFILE \M44DeleteFile \M44EVENTFN \M44ExtendFilePageMap \M44FillInMap \M44GetFileHandle \M44GetFileInfo \M44GETDATEPROP \M44GetFileName \M44GetPageLoc \M44KillFilePageMap \M44MAKEDIRENTRY \M44OpenFile \M44OPENFILEFROMFP \M44ReadDiskPage \M44ReadLeaderPage \M44ReadPages \M44SetAccessTimes \M44SetEndOfFile \M44SetFileInfo \M44SETFILETYPE \M44TruncateFile \M44WriteDiskPage \M44WriteLeaderPage \M44WritePages \M44WritePages1)) (COMS (* ;; "Disk allocation") (FNS \ADDDISKPAGES \M44DELETEPAGES \ASSIGNDISKPAGE \COUNTDISKFREEPAGES \M44MARKPAGEFREE \M44FLUSHDISKDESCRIPTOR \MAKELEADERDAS DISKFREEPAGES \M44FREEPAGECOUNT)) (COMS (INITVARS (\M44MULTFLG T)) (DECLARE%: DONTCOPY (MACROS UCASECHAR UPDATEVALIDATION) (RECORDS M44DEVICE) (GLOBALVARS \M44MULTFLG \DISKNAMECASEARRAY) ( MACROS .LISP.TO.BFS. .BFS.TO.LISP. .DISKCASEARRAY.) (CONSTANTS (PageMapIncrement 64) ( \MAX.ALTO.NAME.LENGTH 39)) (COMS (* ;; "File properties") (RECORDS M44FILEPROP) (CONSTANTS * FPROPTYPES) (CONSTANTS * FPTYPES)) (GLOBALRESOURCES \M44PAGEBUFFER)) (INITRESOURCES \M44PAGEBUFFER)) ( COMS (* ;; "Directory enumeration") (FNS \M44GENERATEFILES \M44SORTFILES \M44GENERATENEXT \M44NEXTFILEFN \M44SORTEDNEXTFILEFN \M44FILEINFOFN)) (COMS (* ;; "Directory lookup routines") (FNS \M44PARSEFILENAME \FINDDIRHOLE \M44PACKFILENAME \M44READVERSION \OPENDISKDESCRIPTOR \M44READDIRFID \M44READDIRNAME \M44SEARCHDIR \M44UNPACKFILENAME) (VARS \FILENAMECHARSLST) (GLOBALVARS \FILENAMECHARSLST) (DECLARE%: DONTCOPY (RECORDS UNAME FILESPEC M44GENFILESTATE M44DIRSEARCHSTATE) ( MACROS BETWEEN))) (COMS (FNS \CREATE.FID.FOR.DD \OPENDISK \OPENDISKDEVICE \OPENDIR \M44CHECKPASSWORD \M44HOSTNAMEP) (DECLARE%: DONTCOPY (CONSTANTS \OFFSET.BCPLUSERNAME \OFFSET.BCPLPASSWORD \NWORDS.BCPLPASSWORD))) (COMS (* ;; "SYSOUT etc.") (FNS \COPYSYS1) (* ;; "For MAIKO. \COPYSYS use UNIX-PAGEPERBLOCK.") (FNS \MAIKO.CHECKFREESPACE) (INITVARS (\LDEDESTOVERWRITE NIL)) (DECLARE%: DONTCOPY (CONSTANTS (LISPPAGE-PER-UNIXBLOCK 2)))) (COMS (* ;; "Stats code. On MOD44IO because it writes on the disk and uses records not exported from MOD44IO. (For this and other reasons, GATHERSTATS only works on Dorados.)" ) (FNS GATHERSTATS) (VARS (\STATSON NIL))) (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) (FILES ( LOADCOMP) LLBFS)))) (RPAQ? \M44MULTFLG T) (/SETTOPVAL (QUOTE \\M44PAGEBUFFER.GLOBALRESOURCE) NIL) (RPAQQ \FILENAMECHARSLST (36 43 45 46)) (RPAQ? \LDEDESTOVERWRITE NIL) (RPAQQ \STATSON NIL) NIL