(FILECREATED "29-Jul-86 15:22:58" ("compiled on " {ERIS}PCE>PCEERD.;14) "29-Jul-86 01:13:34" recompiled changes: \PCE.ERD.Init in "Xerox Lisp 29-Jul-86 ..." dated "29-Jul-86 01:25:07") (FILECREATED "29-Jul-86 15:21:58" {ERIS}PCE>PCEERD.;14 25180 changes to: (FNS \PCE.ERD.Init) previous date: "28-Jul-86 15:00:22" {ERIS}PCE>PCEERD.;13) (NLSETQ (\PCE.TERMINATE)) PCE.CREATE.ERDFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 2 BYTESPERCYLINDER P 1 LASTBYTEONPAGE F 4 STREAM F 5 RESETVARSLST F 6 NBYTES F 7 AUTOCONFIRMFLG F 10Q CYLINDERS F 11Q RESETY) ygThhhUc ¿VnVWÛIHó³CTIkÙ ¿Tj!¿W³'IJ [jðªK²K ²IJÛi ¿oi ¿¿InÔY°½W­oi ¿i €hci(161Q TERPRI 154Q PRIN1 127Q BLOCK 123Q PRIN1 112Q PRIN1 101Q \FZEROP 64Q IMOD 46Q SETFILEPTR) (2 CLOSEF?) ( 150Q "done" 117Q "...") PCE.CREATE.ERDFILE D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 NBYTES P 0 STREAM I 2 AUTOCONFIRMFLG I 1 CYLINDERS I 0 FILENAME F 5 LISPXHIST F 6 RESETVARSLST) Ï A3•kAjØó˜oA ¿AjØbdjkh YB³zoi ¿@i ¿oi ¿Ai ¿oi ¿InÛi ¿oi ¿Ii ¿oi ¿hdoo gð®oi ¿i hi ¿oi ¿@gg XU!Vog ‘h‚g\ ¿L´h(313Q ERROR! 304Q RESETRESTORE 272Q PCE.CREATE.ERDFILEA0001 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) (300Q ERROR 267Q INTERNAL 247Q NEW 244Q OUTPUT 201Q Yes) ( 264Q (PCE.CREATE.ERDFILEA0001) 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 \PCE.RIGIDDISK.FCBPTR 137Q \PCE.ERD.erdPresent 114Q \PCE.RIGIDDISK.FCBPTR 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 \PCE.RIGIDDISK.FCBPTR 24Q \PCE.RIGIDDISK.FCBPTR 10Q \PCE.RIGIDDISK.FCBPTR 2 \PCE.RIGIDDISK.FCBPTR) () \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 \PCE.RIGIDDISK.FCBPTR 2 \PCE.RIGIDDISK.FCBPTR) () \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 >`´9g hjghggggggggh (70Q ADD.PROCESS 12Q CREATE.EVENT) (73Q \PCE.ERD.Process 62Q \PCE.ERD.Init 57Q RESTARTFORM 54Q HARDRESET 51Q RESTARTABLE 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 $`l€Ï‡`È9`¨` ¿°õh¿`š`Êl€ð³`›`§o ¿l€±È`ʇdjð”¿j±¹dkðž¿``Ï¿j±¦dlð–¿±šdlð–¿±Ždlð”¿j±„dlð•¿°xdlð•¿°mdlð•¿°bdlð•¿°Wdl ð“¿j°Ndl ð“¿j°Edl ð“¿j°