(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 12:35:58" ("compiled on " {DSK}sources>DISKDLION.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 15:46:03" {DSK}local>lde>lispcore>sources>DISKDLION.;2 61348 changes to%: (VARS DISKDLIONCOMS) previous date%: "30-Nov-87 15:40:41" {DSK}local>lde>lispcore>sources>DISKDLION.;1) \DL.DISKINIT :D8 NIL `nfg`/l(lllg$lln:gg`l g`l "gll llxl j"glllnlylxl@j!glll@Ojlylxl@j!glllglllpi ``k kjhi ``j jdh(405 \DL.OBTAINNEWDOB 373 \DL.OBTAINNEWDOB 367 \DL.INIT.DOB.CHAIN) (420 \DL.SPAREDOB 415 \DL.DOBPAGE 410 \DL.SPAREDOB 388 \DL.FAULTHANDLERDOB 383 \DL.DOBPAGE 378 \DL.FAULTHANDLERDOB 361 \DLDISKSHAPE.SECTORSPERCYLINDER 353 \DLDISKSHAPE.HEADSPERDRIVE 345 \DLDISKSHAPE.SECTORSPERHEAD 337 \DISKTYPE 332 \Q2080 322 \DLDISKSHAPE.HEADSPERDRIVE 314 \DLDISKSHAPE.SECTORSPERHEAD 306 \DISKTYPE 301 \Q2040 274 \DLDISKSHAPE.HEADSPERDRIVE 266 \DLDISKSHAPE.SECTORSPERHEAD 258 \DISKTYPE 253 \SA1000 223 \DLDISKSHAPE.HEADSPERDRIVE 215 \DLDISKSHAPE.SECTORSPERHEAD 207 \DISKTYPE 202 \SA4000 180 \DLDISKSHAPE.HEADSPERDRIVE 172 \DLDISKSHAPE.SECTORSPERHEAD 164 \DISKTYPE 159 \M2243 147 \IOPAGE 139 \M2242 128 \IOPAGE 122 \CONTROLLERTYPE 117 \SHUGART 108 \DISKTYPE 103 \T300 97 \DLDISKSHAPE.SECTORSPERCYLINDER 88 \DLDISKSHAPE.HEADSPERDRIVE 80 \DLDISKSHAPE.SECTORSPERHEAD 69 \DISKTYPE 64 \T80 58 \DLDISKSHAPE.SECTORSPERCYLINDER 50 \DLDISKSHAPE.HEADSPERDRIVE 42 \DLDISKSHAPE.SECTORSPERHEAD 28 \IOCBPAGE 22 \CONTROLLERTYPE 17 \TRIDENT 4 \IOCBPAGE) () \DL.DOBNOCROSSP :D8 (P 0 START.SECTOR I 0 DOB) *@@`H`H@kk`NIL (37 \DLDISKSHAPE.SECTORSPERCYLINDER 21 \DLDISKSHAPE.SECTORSPERCYLINDER 10 \DLDISKSHAPE.SECTORSPERHEAD) () \DL.GETDISKADDRESS :D8 (I 0 DOB) @`@`@NIL (16 \DLDISKSHAPE.SECTORSPERHEAD 7 \DLDISKSHAPE.SECTORSPERCYLINDER) () \DL.HANDLEMULTIRUN :D8 (P 3 STATUS P 2 I P 0 SPAREDOB I 0 DOB) d``H@lHk@kJIKH @ jHdnH`l HdkKdgɿJkZ(41 \DL.XFERDISK) (88 OK 66 \IOCBPAGE 9 \DL.SPAREDOB 4 \DL.DOBPAGE) () \DL.INIT.DOB.CHAIN :D8 (P 2 CurrentAddr P 1 I) Blj`IHJhJg jJdlJg JlкIkYNIL (50 FREE 35 \DL.DOBCHAIN 26 FREE 7 \DL.DOBPAGE) () \DL.OBTAINNEWDOB :D8 (P 1 TEMP P 0 NEWONE I 0 AS.OFFSET.INTO.PAGE) p `f``XYd`HgHkHhHhHj Hj Hj пHg Hh@H`HNIL (105 \DL.DOBPAGE 88 INCOMPLETE 46 VRR 39 \DL.DOBCHAIN 32 \DL.DOBPAGE 19 \DL.DOBCHAIN 14 \DL.DOBPAGE 7 \DL.DOBCHAIN) () \DL.PUTDISKADDRESS :D8 (L (1 DA 0 DOB)) 2@A`@A``@A``HIINIL (38 \DLDISKSHAPE.SECTORSPERHEAD 32 \DLDISKSHAPE.SECTORSPERCYLINDER 22 \DLDISKSHAPE.SECTORSPERHEAD 16 \DLDISKSHAPE.SECTORSPERCYLINDER 6 \DLDISKSHAPE.SECTORSPERCYLINDER) () \DL.RECALIBRATE :D8 (P 0 PUNTCOUNTER) [nLlxnjhHkXjg `nW`n`Y`nQnR `j (77 \DL.DISKOP 35 RAID) (83 \IOCBPAGE 63 \IOCBPAGE 52 \IOCBPAGE 41 \IOCBPAGE 30 CouldntRecalibrate) () \DL.RELEASEDOB :D8 (I 0 DOB) /@g @``@h@h@`hNIL (43 \DL.DOBCHAIN 36 \DL.DOBPAGE 18 \DL.DOBCHAIN 13 \DL.DOBPAGE 5 FREE) () \DL.SHUGART.XFERDISK :D8 (P 7 RetryCount P 6 Status P 5 TriedRecalibrate P 4 MODE P 3 SEC P 2 HD P 1 CYL P 0 IOCBPG I 0 DOB) N `@@@@U JK`غK`ܻIJ`عJ`ܺl _I HJ HK H@jk@@H@ jnnLLLdg%Hl HHn0GHlJHn0KHlNg$Hl HHn2GHlJHn0KHlNLdg$Hl HHn;GHlJHn;KHlNbg#Hl HHn2GHlJHn;KHlN9LiLg"Hl HHn0GHlJHn;KHlNg H@ j@_Okً@_OMHJOHJP@Hl @l Ŀnc Hl HHn0GHlJHn0KHnLHlN@NljNdljg ljgNkjgg^ NgNg"@@ jLg@Hl l NOk_jMi(582 \DL.RECALIBRATE 415 \DL.DISKOP 341 RAID 66 \DL.DISKSEEK) (548 VRR 527 VERIFYERROR 519 OK 509 OK 503 VERIFYERROR 490 WRITEERROR 477 READERROR 336 InvalidMode 296 VRW 250 VVW 208 VWW 164 VVR 121 VRR 53 \DLDISKSHAPE.HEADSPERDRIVE 44 \DLDISKSHAPE.HEADSPERDRIVE 35 \DLDISKSHAPE.SECTORSPERHEAD 26 \DLDISKSHAPE.SECTORSPERHEAD 4 \IOCBPAGE) () \DL.TRANSFERPAGE :D8 (P 1 STAT P 0 DOB I 5 NORAIDFLG I 4 RUNSIZE I 3 LABPTR I 2 OP I 1 BUFPTR I 0 DA) n Xd H@ HAHBHCHDkHhH YH IdgiglIdglgk(65 \DL.RELEASEDOB 58 \DLDISK.EXECUTE 24 \DL.PUTDISKADDRESS 16 RAID 7 \DL.OBTAINNEWDOB) (103 VERIFYERROR 93 READERROR 81 WRITEERROR 72 OK) () \DLDISK.EXECUTE :D8 (P 0 LASTSTATUS I 0 DOBCHAIN) g@h`dl@kk@ <`dl@ /l@@@@@@@ @ @H @bHdg@H(104 \DL.HANDLEMULTIRUN 97 RAID 91 \DOVE.XFERDISK 57 \DL.XFERDISK 38 \DL.DOBNOCROSSP) (123 OK 45 \MACHINETYPE 16 \MACHINETYPE 4 OK) () \DL.ACTONVMEMFILE :D8 (I 3 WRITEFLAG I 2 NPAGES I 1 BUFFER I 0 FILEPAGE) +BHj!@kAC Anb@kbHkXI(18 \DL.ACTONVMEMPAGE) NIL () \DL.ACTONVMEMPAGE :D8 (P 2 NEXTPAGE P 1 I P 0 LINKBASE I 2 WRITEFLAG I 1 BUFPTR I 0 FILEPAGE) `ll%"HZ@Jju``[HKHK@HHKkKAKhKBKhKj Kj п`` gl)o hIdjl*o hkٹHlXf(157 \MP.ERROR 136 \MP.ERROR 117 \DL.XFERDISK) (122 OK 111 \DL.FAULTHANDLERDOB 106 \DL.DOBPAGE 34 \DL.FAULTHANDLERDOB 29 \DL.DOBPAGE 4 \IOCBPAGE) ( 152 "Malformed run table for vmem file" 131 "Hard Disk Error in swapper") \DL.DISKSEEK :D8 (P 1 MicrocodeSeekCommand P 0 Displacement I 0 Cylinder) V@` Hjjn YjHjHٸn``IY`IlW`HnkQ`@ nR (83 \DL.DISKOP) (72 \IOCBPAGE 58 \IOCBPAGE 47 \IOCBPAGE 39 \IOCBPAGE 5 \IOCBPAGE) () \DL.XFERDISK :D8 (I 0 DOB) m`g'@d@@@@@@ HI I`dgdgdg@g@g@ (106 \DL.SHUGART.XFERDISK 40 \DL.TRI.XFERDISK) (97 VRW 89 VVW 77 \M2243 69 \M2242 60 \SA4000 54 \DISKTYPE 9 \TRIDENT 4 \CONTROLLERTYPE) () \DL.DISKOP :D8 (I 0 IOCB) 0`n`@l ly`nj`NIL (43 \IOCBPAGE 28 \IOCBPAGE 14 \IOPAGE 4 \IOCBPAGE) () \DL.TRI.INITIATE.IO :D8 NIL n l y`nj`NIL (26 \IOCBPAGE 11 \IOCBPAGE) () \DL.TRI.XFERDISK :D8 (P 5 DriveMask P 4 FLG P 3 USERFLG P 2 Status P 1 Drive P 0 RetryCount I 7 NORAIDFLG I 6 RUNLENGTH I 5 LABEL I 4 MODE I 3 BUFFER I 2 SEC I 1 HD I 0 CYL) @l jBFjkb kllI AB`bB` b@A`bA` b`jj`@`A`B`n`j `j `j``l0n``l0`d `d `d `j`n`@n `An `n,D`n`n`n`FkDDdg_`l `n`Mn`n,D`l`n`Mn`n,Dg^`l `n`Mn`n,D`l`n`Mn`n,D3Ddg_`l `n`Mn`n,`l `n`Mn`n,gR`l `n`Mn`l `n`Mn`n,sDiDg\`l `n`Mn`n,D`l `n`Mn`n,o `C`CE DgDg`l El Ŀ`d5``n8E#DgDgDiE`l0l Ŀ`jJn@jgHkXjsL"GJoJ `ki\OJnjghJnjghJnjgh(1022 RAID 928 \DL.TRI.INITIATE.IO 844 RAID 76 IMOD 50 IMOD 26 LLSH) (1081 READERROR 1066 READERROR 1051 VERIFYERROR 1028 \IOPAGE 992 OK 974 \IOPAGE 962 \IOCBPAGE 950 VRW 942 VRR 919 \IOCBPAGE 914 \IOPAGE 903 \IOCBPAGE 890 \IOCBPAGE 883 VRW 874 VRR 860 \IOCBPAGE 850 \IOCBPAGE 828 \IOCBPAGE 815 \IOCBPAGE 804 \IOCBPAGE 794 \IOCBPAGE 783 \IOCBPAGE 770 \IOCBPAGE 759 \IOCBPAGE 749 \IOCBPAGE 741 VRW 724 \IOCBPAGE 711 \IOCBPAGE 700 \IOCBPAGE 690 \IOCBPAGE 677 \IOCBPAGE 666 \IOCBPAGE 656 \IOCBPAGE 648 VVW 635 \IOCBPAGE 622 \IOCBPAGE 611 \IOCBPAGE 601 \IOCBPAGE 590 \IOCBPAGE 577 \IOCBPAGE 566 \IOCBPAGE 556 \IOCBPAGE 547 VWW 532 \IOCBPAGE 519 \IOCBPAGE 508 \IOCBPAGE 498 \IOCBPAGE 487 \IOCBPAGE 474 \IOCBPAGE 463 \IOCBPAGE 453 \IOCBPAGE 445 VVR 432 \IOCBPAGE 419 \IOCBPAGE 408 \IOCBPAGE 398 \IOCBPAGE 387 \IOCBPAGE 374 \IOCBPAGE 363 \IOCBPAGE 353 \IOCBPAGE 344 VRR 328 \IOCBPAGE 317 \IOCBPAGE 306 \IOCBPAGE 295 \IOCBPAGE 284 \IOCBPAGE 271 \IOCBPAGE 258 \IOCBPAGE 247 \IOCBPAGE 238 \IOCBPAGE 225 \IOCBPAGE 212 \IOCBPAGE 201 \IOCBPAGE 189 \IOPAGE 184 \IOCBPAGE 168 \IOPAGE 163 \IOCBPAGE 154 \IOCBPAGE 145 \IOCBPAGE 136 \IOCBPAGE 125 \IOCBPAGE 115 \IOCBPAGE 105 \IOCBPAGE 96 \IOCBPAGE 84 \IOPAGE 71 \DLDISKSHAPE.HEADSPERDRIVE 60 \DLDISKSHAPE.HEADSPERDRIVE 45 \DLDISKSHAPE.SECTORSPERHEAD 34 \DLDISKSHAPE.SECTORSPERHEAD) ( 1016 "Hard disk error" 839 "Invalid MODE for \DL.TRI.XFERDISK") \DISKDLION.INIT :D8 NIL Hl dk od od od h(63 \LOCKVAR 45 \LOCKFN 27 \LOCKFN 14 \LOCKPAGES) (7 \DL.DOBPAGE) ( 55 (\SMALLNEGSPACE \IOCBPAGE \MDSTypeTable \HTCOLL \HTMAIN \VMBASEDP \DLDISKSHAPE.SECTORSPERHEAD \DLDISKSHAPE.SECTORSPERCYLINDER \DLDISKSHAPE.HEADSPERDRIVE \DISKTYPE \CONTROLLERTYPE \DL.DOBPAGE \DL.DOBCHAIN \DL.FAULTHANDLERDOB \DL.SPAREDOB) 37 (\DL.DISKINIT \DL.INIT.DOB.CHAIN \DL.ACTONVMEMFILE \DL.ACTONVMEMPAGE \DL.DISKSEEK \DL.XFERDISK \DL.DISKOP \DL.RECALIBRATE \DL.SHUGART.XFERDISK \DL.OBTAINNEWDOB \DL.RELEASEDOB \DLDISK.EXECUTE \DL.HANDLEMULTIRUN \DL.PUTDISKADDRESS \DL.TRI.INITIATE.IO \DL.TRI.XFERDISK) 19 (\MAKENUMBER \SETGLOBALVAL.UFN \RPLPTR.UFN \HTFIND \SLOWIPLUS2 \SLOWIDIFFERENCE \SLOWLLSH1 \SLOWLLSH8 \SLOWLRSH1 \SLOWLRSH8 \SLOWLOGOR2 \SLOWLOGAND2 \SLOWLOGXOR2 \SLOWIGREATERP \SLOWIQUOTIENT \SLOWITIMES2 IMOD IREMAINDER)) (PRETTYCOMPRINT DISKDLIONCOMS) (RPAQQ DISKDLIONCOMS ((FNS \DL.DISKINIT \DL.DOBNOCROSSP \DL.GETDISKADDRESS \DL.HANDLEMULTIRUN \DL.INIT.DOB.CHAIN \DL.OBTAINNEWDOB \DL.PUTDISKADDRESS \DL.RECALIBRATE \DL.RELEASEDOB \DL.SHUGART.XFERDISK \DL.TRANSFERPAGE \DLDISK.EXECUTE \DL.ACTONVMEMFILE \DL.ACTONVMEMPAGE \DL.DISKSEEK \DL.XFERDISK \DL.DISKOP \DL.TRI.INITIATE.IO \DL.TRI.XFERDISK) (FNS \DISKDLION.INIT) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS \DLDISKSHAPE.SECTORSPERCYLINDER \DLDISKSHAPE.HEADSPERDRIVE \DLDISKSHAPE.SECTORSPERHEAD \DL.FAULTHANDLERDOB \DL.DOBPAGE \DL.DOBCHAIN \DL.SPAREDOB \DISKTYPE \CONTROLLERTYPE) (P (\DISKDLION.INIT))) (DECLARE%: EVAL@COMPILE DONTCOPY (COMS * DISKDLDECLS) (COMS * TRIDISKDLDECLS)))) (RPAQ? \DLDISKSHAPE.SECTORSPERCYLINDER NIL) (RPAQ? \DLDISKSHAPE.HEADSPERDRIVE NIL) (RPAQ? \DLDISKSHAPE.SECTORSPERHEAD NIL) (RPAQ? \DL.FAULTHANDLERDOB NIL) (RPAQ? \DL.DOBPAGE NIL) (RPAQ? \DL.DOBCHAIN NIL) (RPAQ? \DL.SPAREDOB NIL) (RPAQ? \DISKTYPE NIL) (RPAQ? \CONTROLLERTYPE NIL) (\DISKDLION.INIT) (PUTPROPS DISKDLION COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1990)) NIL