(FILECREATED " 1-May-86 13:08:44" ("compiled on " {ERIS}PCE>PCEERD.;32) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED " 1-May-86 13:06:46" {ERIS}PCE>PCEERD.;32 24028 changes to: (FNS PCE.CREATE.ERDFILE \PCE.ERD.AddrToFilePtr \PCE.ERD.Configure \PCE.ERD.FilePtrToAddr \PCE.ERD.FormatDrive \PCE.ERD.FormatTrack \PCE.ERD.GetDiskBufferAddr \PCE.ERD.GetMaxCylinder \PCE.ERD.GetMemBufferPtr \PCE.ERD.GetSectorBuffer \PCE.ERD.IncrementPCMemPtr \PCE.ERD.Init \PCE.ERD.Notify \PCE.ERD.NotifyProcedure \PCE.ERD.PutDiskBufferAddr \PCE.ERD.ReadSectorBuffer \PCE.ERD.ReadSectors \PCE.ERD.ReadSectorsProc \PCE.ERD.ReturnDriveParameters \PCE.ERD.Terminate \PCE.ERD.WriteSectorBuffer \PCE.ERD.WriteSectors \PCE.ERD.WriteSectorsProc) (VARS PCEERDCOMS) previous date: "28-Apr-86 16:58:46" {ERIS}PCE>PCEERD.;31) (NLSETQ (\PCE.TERMINATE)) PCE.CREATE.ERDFILE D1 (P 5 BYTESPERCYLINDER P 4 LASTBYTEONPAGE P 1 NBYTES P 0 STREAM I 2 AUTOCONFIRMFLG I 1 CYLINDERS I 0 FILENAME) 0A3•kAjØó˜oA ¿AjØbdjkh YB³zoi ¿@i ¿oi ¿Ai ¿oi ¿InÛi ¿oi ¿Ii ¿oi ¿hdoo gð®oi ¿i hi ¿oi ¿@gg XInIAÛLKó³BHLkÙ ¿Hj!¿B³'LM ZjðªJ²J ²LMÛi ¿oi ¿¿LnÔ\°¾B­oi ¿i ¿H h(417Q CLOSEF 412Q TERPRI 405Q PRIN1 361Q BLOCK 355Q PRIN1 344Q PRIN1 333Q \FZEROP 316Q IMOD 301Q SETFILEPTR 252Q \PCE.OPENSTREAM 237Q PRIN1 226Q TERPRI 220Q TERPRI 213Q PRIN1 176Q ASKUSER 160Q PRIN1 147Q PRIN1 141Q PRIN1 130Q PRIN1 116Q PRIN1 105Q PRIN1 77Q PRIN1 66Q PRIN1 60Q PRIN1 44Q \PCE.ERD.AddrToFilePtr 24Q ERROR) (247Q NEW 244Q OUTPUT 201Q Yes) ( 401Q "done" 351Q "..." 233Q "Creating file..." 207Q "aborted" 173Q (Yes No) 167Q "" 154Q " bytes (Y/N)? " 135Q " pages = " 112Q " cylinders = " 73Q " with " 54Q "Create file " 20Q "Bad CYLINDERS argument") \PCE.ERD.AddrToFilePtr D1 (L (0 ADDR)) @kÙ@@lÚØlÚØnÚNIL NIL () \PCE.ERD.Configure D1 (I 0 ERD.CONFIG) p@g'´U@g'´N@g'gg kñ²o@g' ¿¿`gg i`kØ9HIÍI`jÍoj (155Q PCE.POKE.WORD 117Q \PCE.ERD.GetMaxCylinder 105Q WHENCLOSE 70Q ERROR! 64Q ERROR 45Q \PCE.ERD.GetMaxCylinder 36Q \PCE.OPENSTREAM 2 \PCE.ERD.Terminate) (142Q \DovePCERigidDisk.FCBPointer 137Q \PCE.ERD.erdPresent 114Q \DovePCERigidDisk.FCBPointer 111Q \PCE.ERD.erdPresent 102Q NO 77Q CLOSEALL 74Q \PCE.ERD.erdStream 60Q ERDFILE 41Q \PCE.ERD.erdStream 33Q OLD 30Q BOTH 24Q ERDFILE 15Q ERDFILE 6 RIGIDDISK) ( 151Q 3100000Q 54Q "ERD file smaller than one cylinder") \PCE.ERD.FilePtrToAddr D1 (P 4 REMAINDER P 3 SEC P 2 HEAD P 1 CYL P 0 SECTORINFILE I 0 FILEPTR) ,P@nÛXdlDÛYHlD \dlÛZLl kØ[IJKh(37Q IMOD 23Q IMOD) NIL () \PCE.ERD.FormatDrive D1 (P 0 DISKADDR) %XdkHjHHÙkØlDÚ j(41Q \PCE.ERD.WriteSectorsProc 26Q \PCE.ERD.GetMaxCylinder 23Q \PCE.ERD.GetSectorBuffer 5 \PCE.ERD.GetDiskBufferAddr) NIL () \PCE.ERD.FormatTrack D1 (P 0 DISKADDR) XdkHl j(24Q \PCE.ERD.WriteSectorsProc 17Q \PCE.ERD.GetSectorBuffer 5 \PCE.ERD.GetDiskBufferAddr) NIL () \PCE.ERD.GetDiskBufferAddr D1 NIL '`ʇ`ÊlÀåààä`ʇ`Êl?åhNIL (32Q \DovePCERigidDisk.FCBPointer 24Q \DovePCERigidDisk.FCBPointer 10Q \DovePCERigidDisk.FCBPointer 2 \DovePCERigidDisk.FCBPointer) () \PCE.ERD.GetMaxCylinder D1 NIL `g kÙ(13Q \PCE.ERD.FilePtrToAddr 10Q GETFILEINFO) (5 LENGTH 2 \PCE.ERD.erdStream) () \PCE.ERD.GetMemBufferPtr D1 (P 2 pcAddress P 1 newBXReg P 0 newESReg) "`È9`È9HlÚIØZd Jkå(33Q \PCE.GET.PC.PTR) (11Q \DovePCERigidDisk.FCBPointer 2 \DovePCERigidDisk.FCBPointer) () \PCE.ERD.GetSectorBuffer D1 NIL `µ l€j j(12Q \ALLOCBLOCK) (15Q \PCE.ERD.SectorBuffer 2 \PCE.ERD.SectorBuffer) () \PCE.ERD.IncrementPCMemPtr D1 (L (0 BUFFERPTR)) @nÐ@NIL NIL () \PCE.ERD.Init D1 NIL 0`´+g hjghgggg (52Q ADD.PROCESS 12Q CREATE.EVENT) (55Q \PCE.ERD.Process 46Q DELETE 43Q AFTEREXIT 40Q PCE-ERD 35Q NAME 30Q \PCE.ERD.NotifyProcedure 25Q \PCE.ERD.status 21Q \PCE.ERD.gotUpNotify 15Q \PCE.ERD.Condition 7 ERD.Condition 2 \PCE.ERD.erdPresent) () \PCE.ERD.Notify D1 NIL %i``ð–` `´ o` (42Q \PCE.SYSTEM.ERROR 22Q NOTIFY.EVENT) (37Q \PCE.ERD.Condition 26Q \PCE.DEBUG.FLG 17Q \PCE.ERD.Condition 12Q EVENTTYPE# 6 \PCE.ERD.Condition 3 \PCE.ERD.gotUpNotify) ( 34Q "\PCE.ERD.Condition not an event") \PCE.ERD.NotifyProcedure D1 NIL `¨` ¿°õh¿`š`Êl€ð³`›`§o ¿l€±È`ʇdjð”¿j±¹dkðž¿``Ï¿j±¦dlð–¿±šdlð–¿±Ždlð”¿j±„dlð•¿°xdlð•¿°mdlð•¿°bdlð•¿°Wdl ð“¿j°Ndl ð“¿j°Edl ð“¿j°