(FILECREATED "16-Sep-85 13:44:08" ("compiled on " {ERIS}SOURCES>DISKDLION.;33) " 8-Sep-85 15:09:55" recompiled changes: \DL.DISKINIT \DL.HANDLEMULTIRUN \DL.OBTAINNEWDOB \DL.RELEASEDOB \DL.ACTONVMEMPAGE in "INTERLISP-D 8-Sep-85 ..." dated " 8-Sep-85 15:29:22") (FILECREATED "16-Sep-85 13:42:48" {ERIS}SOURCES>DISKDLION.;33 48281 changes to: (VARS DISKDLDECLS DISKDLIONCOMS) (FNS \DL.OBTAINNEWDOB \DL.DISKINIT \DL.HANDLEMULTIRUN \DL.ACTONVMEMPAGE \DL.RELEASEDOB) (MACROS \DL.DOB.FROM.PAGE.OFFSET \DL.PAGE.OFFSET.FROM.DOB) previous date: "15-Aug-85 00:25:28" {ERIS}SOURCES>DISKDLION.;31) \DL.DISKINIT D1 NIL `nLg`/llllglln:gglxl jglllinlylxl@jglll@?jlylxl@jglllglllpi ``k kjhi ``j jdh(407Q \DL.OBTAINNEWDOB 357Q \DL.OBTAINNEWDOB 353Q \DL.INIT.DOB.CHAIN) (420Q \DL.SPAREDOB 415Q \DL.DOBPAGE 412Q \DL.SPAREDOB 370Q \DL.FAULTHANDLERDOB 365Q \DL.DOBPAGE 362Q \DL.FAULTHANDLERDOB 347Q \DLDISKSHAPE.SECTORSPERCYLINDER 341Q \DLDISKSHAPE.HEADSPERDRIVE 333Q \DLDISKSHAPE.SECTORSPERHEAD 325Q \DISKTYPE 322Q \Q2080 312Q \DLDISKSHAPE.HEADSPERDRIVE 304Q \DLDISKSHAPE.SECTORSPERHEAD 276Q \DISKTYPE 273Q \Q2040 242Q \DLDISKSHAPE.HEADSPERDRIVE 234Q \DLDISKSHAPE.SECTORSPERHEAD 226Q \DISKTYPE 223Q \SA1000 170Q \DLDISKSHAPE.HEADSPERDRIVE 162Q \DLDISKSHAPE.SECTORSPERHEAD 154Q \DISKTYPE 151Q \SA4000 132Q \CONTROLLERTYPE 127Q \SHUGART 120Q \DISKTYPE 115Q \T300 111Q \DLDISKSHAPE.SECTORSPERCYLINDER 102Q \DLDISKSHAPE.HEADSPERDRIVE 74Q \DLDISKSHAPE.SECTORSPERHEAD 63Q \DISKTYPE 60Q \T80 54Q \DLDISKSHAPE.SECTORSPERCYLINDER 46Q \DLDISKSHAPE.HEADSPERDRIVE 40Q \DLDISKSHAPE.SECTORSPERHEAD 24Q \IOCBPAGE 20Q \CONTROLLERTYPE 15Q \TRIDENT 2 \IOCBPAGE) () \DL.DOBNOCROSSP D1 (L (0 DOB)) $@@`H`H@kk`NIL (37Q \DLDISKSHAPE.SECTORSPERCYLINDER 21Q \DLDISKSHAPE.SECTORSPERCYLINDER 10Q \DLDISKSHAPE.SECTORSPERHEAD) () \DL.GETDISKADDRESS D1 (L (0 DOB)) @`@`@NIL (14Q \DLDISKSHAPE.SECTORSPERHEAD 5 \DLDISKSHAPE.SECTORSPERCYLINDER) () \DL.HANDLEMULTIRUN D1 (P 3 STATUS P 2 I P 0 SPAREDOB I 0 DOB) X``H@lHk@kJI2H @ jHdnH`l HdkKgKJkZ(42Q \DL.XFERDISK) (114Q OK 71Q \IOCBPAGE 5 \DL.SPAREDOB 2 \DL.DOBPAGE) () \DL.INIT.DOB.CHAIN D1 NIL :lj`IHJdlJg JlкIkYJhJg jNIL (67Q \DL.DOBCHAIN 60Q FREE 31Q FREE 5 \DL.DOBPAGE) () \DL.OBTAINNEWDOB D1 (L (0 AS.OFFSET.INTO.PAGE)) _`W``Xd`HgHkHhHhHj Hj Hj пHg Hh@H`HNIL (130Q \DL.DOBPAGE 111Q INCOMPLETE 41Q VRR 34Q \DL.DOBCHAIN 27Q \DL.DOBPAGE 15Q \DL.DOBCHAIN 12Q \DL.DOBPAGE 5 \DL.DOBCHAIN) () \DL.PUTDISKADDRESS D1 (L (1 DA 0 DOB)) (@A`@A``@A``HIINIL (34Q \DLDISKSHAPE.SECTORSPERHEAD 30Q \DLDISKSHAPE.SECTORSPERCYLINDER 20Q \DLDISKSHAPE.SECTORSPERHEAD 14Q \DLDISKSHAPE.SECTORSPERCYLINDER 4 \DLDISKSHAPE.SECTORSPERCYLINDER) () \DL.RECALIBRATE D1 (P 0 PUNTCOUNTER) NnLlxnj;HkXjg `nW`n`Y`nQnR `j h(100Q \DL.DISKOP 36Q RAID) (104Q \IOCBPAGE 64Q \IOCBPAGE 53Q \IOCBPAGE 42Q \IOCBPAGE 33Q CouldntRecalibrate) () \DL.RELEASEDOB D1 (L (0 DOB)) %@g @``@h@h@`hNIL (41Q \DL.DOBCHAIN 34Q \DL.DOBPAGE 14Q \DL.DOBCHAIN 11Q \DL.DOBPAGE 3 FREE) () \DL.SHUGART.XFERDISK D1 (P 7 Status P 6 DATALEN P 5 FLG P 4 MODE P 3 SEC P 2 HD P 1 CYL P 0 RetryCount I 0 DOB)  l @@@@U JK`غK`ܻIJ`عJ`ܺI `J `K `@jk@@@ jnnLLdg6`l H`n0G`lJ`n0K`NL`lNg5`l H`n2G`lJ`n0K`NL`lNLdg5`l H`n;G`lJ`n;K`NL`lN|g4`l H`n2G`lJ`n;K`NL`lNDLiLg3`l H`n0G`lJ`n;K`NL`lNg `@ j@_Okً@_OM`JO`JP@`l @l Ŀnc _`l H`n0G`lJ`n0K`nL`lN@OljOdljgljgOkjgg_ OgOg#@@ jLg@`l l OHkXjM@ jgO i(1231Q \DL.RECALIBRATE 1225Q RAID 735Q \DL.DISKOP 615Q RAID 60Q \DL.DISKSEEK) (1220Q HardDiskError 1157Q \IOCBPAGE 1147Q VRR 1124Q VERIFYERROR 1115Q OK 1103Q OK 1077Q VERIFYERROR 1064Q WRITEERROR 1051Q READERROR 1016Q \IOCBPAGE 1005Q \IOCBPAGE 774Q \IOCBPAGE 764Q \IOCBPAGE 753Q \IOCBPAGE 743Q \IOCBPAGE 715Q \IOCBPAGE 701Q \IOCBPAGE 671Q \IOCBPAGE 621Q \IOCBPAGE 612Q InvalidMode 602Q \IOCBPAGE 573Q \IOCBPAGE 562Q \IOCBPAGE 552Q \IOCBPAGE 541Q \IOCBPAGE 531Q \IOCBPAGE 523Q VRW 505Q \IOCBPAGE 476Q \IOCBPAGE 465Q \IOCBPAGE 455Q \IOCBPAGE 444Q \IOCBPAGE 434Q \IOCBPAGE 426Q VVW 415Q \IOCBPAGE 406Q \IOCBPAGE 375Q \IOCBPAGE 365Q \IOCBPAGE 354Q \IOCBPAGE 344Q \IOCBPAGE 335Q VWW 321Q \IOCBPAGE 312Q \IOCBPAGE 301Q \IOCBPAGE 271Q \IOCBPAGE 260Q \IOCBPAGE 250Q \IOCBPAGE 242Q VVR 230Q \IOCBPAGE 221Q \IOCBPAGE 210Q \IOCBPAGE 200Q \IOCBPAGE 167Q \IOCBPAGE 157Q \IOCBPAGE 150Q VRR 104Q \IOCBPAGE 74Q \IOCBPAGE 64Q \IOCBPAGE 52Q \DLDISKSHAPE.HEADSPERDRIVE 43Q \DLDISKSHAPE.HEADSPERDRIVE 34Q \DLDISKSHAPE.SECTORSPERHEAD 25Q \DLDISKSHAPE.SECTORSPERHEAD) () \DL.TRANSFERPAGE D1 (P 1 STAT P 0 DOB I 5 NORAIDFLG I 4 RUNSIZE I 3 LABPTR I 2 OP I 1 BUFPTR I 0 DA) \ XdH@ HAHBHCHDkHhH YH IdgiglIdglgk(67Q \DL.RELEASEDOB 62Q \DLDISK.EXECUTE 22Q \DL.PUTDISKADDRESS 14Q RAID 5 \DL.OBTAINNEWDOB) (125Q VERIFYERROR 115Q READERROR 103Q WRITEERROR 74Q OK) () \DLDISK.EXECUTE D1 (P 0 LASTSTATUS I 0 DOBCHAIN) rg@i`dl@kk@ 4`dl@ )l@@@@@@@ @ @H @bHdg@H(127Q \DL.HANDLEMULTIRUN 122Q RAID 116Q \DOVE.XFERDISK 56Q \DL.XFERDISK 37Q \DL.DOBNOCROSSP) (150Q OK 44Q \MACHINETYPE 13Q \MACHINETYPE 2 OK) () \DL.ACTONVMEMFILE D1 (I 3 WRITEFLAG I 2 NPAGES I 1 BUFFER I 0 FILEPAGE) )BHj@kAC Anb@kbHkXI(20Q \DL.ACTONVMEMPAGE) NIL () \DL.ACTONVMEMPAGE D1 (P 1 I P 0 LINKBASE I 2 WRITEFLAG I 1 BUFPTR I 0 FILEPAGE) `ll%H@HjV``ZHJHJ@HHJkJAJhJBJhJj Jj п`` HlиIdjhkٹ(171Q RAID 152Q \DL.XFERDISK) (146Q \DL.FAULTHANDLERDOB 143Q \DL.DOBPAGE 35Q \DL.FAULTHANDLERDOB 32Q \DL.DOBPAGE 2 \IOCBPAGE) () \DL.DISKSEEK D1 (P 1 MicrocodeSeekCommand P 0 Displacement I 0 Cylinder) J@` Hjjn YjHjHٸn``IY`IlW`HnkQ`@ nR (107Q \DL.DISKOP) (76Q \IOCBPAGE 62Q \IOCBPAGE 51Q \IOCBPAGE 43Q \IOCBPAGE 3 \IOCBPAGE) () \DL.XFERDISK D1 (I 0 DOB) 2`g%@d@@@@@@ HI I@ (57Q \DL.SHUGART.XFERDISK 42Q \DL.TRI.XFERDISK) (5 \TRIDENT 2 \CONTROLLERTYPE) () \DL.DISKOP D1 (I 0 IOCB) (`n`@l ly`nj`NIL (43Q \IOCBPAGE 26Q \IOCBPAGE 12Q \IOPAGE 2 \IOCBPAGE) () \DL.TRI.INITIATE.IO D1 NIL n l y`nj`NIL (26Q \IOCBPAGE 11Q \IOCBPAGE) () \DL.TRI.XFERDISK D1 (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 klIl 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`FkDDdgO`l `n`Mn`n,D`l`n`Mn`n,DNgN`l `n`Mn`n,D`l`n`Mn`n,DDdgO`l `n`Mn`n,`l `n`Mn`n,gD`l `n`Mn`l `n`Mn`n,^DiDgL`l `n`Mn`n,D`l `n`Mn`n,o `C`CEDgDg`l El Ŀ`d5``n8EDgDgDiE`l0l Ŀ`jJn@jgHkXjLGJoJ `ki\JnjghJnjghJnjgh(1506Q RAID 1365Q \DL.TRI.INITIATE.IO 1263Q RAID 76Q IMOD 52Q IMOD 30Q LLSH) (1571Q READERROR 1554Q READERROR 1537Q VERIFYERROR 1512Q \IOPAGE 1453Q OK 1433Q \IOPAGE 1421Q \IOCBPAGE 1407Q VRW 1401Q VRR 1356Q \IOCBPAGE 1353Q \IOPAGE 1342Q \IOCBPAGE 1327Q \IOCBPAGE 1322Q VRW 1313Q VRR 1277Q \IOCBPAGE 1267Q \IOCBPAGE 1246Q \IOCBPAGE 1233Q \IOCBPAGE 1222Q \IOCBPAGE 1212Q \IOCBPAGE 1201Q \IOCBPAGE 1166Q \IOCBPAGE 1155Q \IOCBPAGE 1145Q \IOCBPAGE 1137Q VRW 1120Q \IOCBPAGE 1105Q \IOCBPAGE 1074Q \IOCBPAGE 1064Q \IOCBPAGE 1051Q \IOCBPAGE 1040Q \IOCBPAGE 1030Q \IOCBPAGE 1022Q VVW 1007Q \IOCBPAGE 774Q \IOCBPAGE 763Q \IOCBPAGE 753Q \IOCBPAGE 742Q \IOCBPAGE 727Q \IOCBPAGE 716Q \IOCBPAGE 706Q \IOCBPAGE 677Q VWW 662Q \IOCBPAGE 647Q \IOCBPAGE 636Q \IOCBPAGE 626Q \IOCBPAGE 615Q \IOCBPAGE 602Q \IOCBPAGE 571Q \IOCBPAGE 561Q \IOCBPAGE 553Q VVR 540Q \IOCBPAGE 525Q \IOCBPAGE 514Q \IOCBPAGE 504Q \IOCBPAGE 473Q \IOCBPAGE 460Q \IOCBPAGE 447Q \IOCBPAGE 437Q \IOCBPAGE 430Q VRR 412Q \IOCBPAGE 401Q \IOCBPAGE 370Q \IOCBPAGE 357Q \IOCBPAGE 346Q \IOCBPAGE 333Q \IOCBPAGE 320Q \IOCBPAGE 307Q \IOCBPAGE 300Q \IOCBPAGE 265Q \IOCBPAGE 252Q \IOCBPAGE 241Q \IOCBPAGE 227Q \IOPAGE 224Q \IOCBPAGE 206Q \IOPAGE 203Q \IOCBPAGE 174Q \IOCBPAGE 165Q \IOCBPAGE 156Q \IOCBPAGE 145Q \IOCBPAGE 135Q \IOCBPAGE 125Q \IOCBPAGE 116Q \IOCBPAGE 104Q \IOPAGE 73Q \DLDISKSHAPE.HEADSPERDRIVE 62Q \DLDISKSHAPE.HEADSPERDRIVE 47Q \DLDISKSHAPE.SECTORSPERHEAD 36Q \DLDISKSHAPE.SECTORSPERHEAD) ( 1502Q "Hard disk error" 1260Q "Invalid MODE for \DL.TRI.XFERDISK") \DISKDLION.INIT D1 NIL ;l dk od od od h(62Q \LOCKVAR 43Q \LOCKFN 24Q \LOCKFN 12Q \LOCKPAGES) (5 \DL.DOBPAGE) ( 54Q (\SMALLNEGSPACE \IOCBPAGE \MDSTypeTable \HTCOLL \HTMAIN \VMBASEDP \DLDISKSHAPE.SECTORSPERHEAD \DLDISKSHAPE.SECTORSPERCYLINDER \DLDISKSHAPE.HEADSPERDRIVE \DISKTYPE \CONTROLLERTYPE \DL.DOBPAGE \DL.DOBCHAIN \DL.FAULTHANDLERDOB \DL.SPAREDOB) 35Q (\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) 16Q (\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 ("Xerox Corporation" 1984 1985)) NIL