(FILECREATED "26-Aug-84 11:51:00" ("compiled on " {ERIS}SOURCES>FLOPPY.;23) "23-Aug-84 16:46:31" recompiled changes: \SFLOPPY.INIT \SFLOPPY.GETFILEINFO \SFLOPPY.OPENHUGEFILE \SFLOPPY.WRITEPAGES \SFLOPPY.WRITEPAGE \SFLOPPY.READPAGES \SFLOPPY.READPAGE \SFLOPPY.CLOSEHUGEFILE \SFLOPPY.INPUTFLOPPY \SFLOPPY.OUTPUTFLOPPY \SFLOPPY.CLOSEFLOPPY \SFLOPPY.HACK \HFLOPPY.INIT \HFLOPPY.GETFILEINFO \HFLOPPY.OPENHUGEFILE \HFLOPPY.WRITEPAGES \HFLOPPY.WRITEPAGE \HFLOPPY.READPAGES \HFLOPPY.READPAGE \HFLOPPY.CLOSEHUGEFILE \HFLOPPY.INPUTFLOPPY \HFLOPPY.OUTPUTFLOPPY \HFLOPPY.CLOSEFLOPPY FLOPPY.ARCHIVE FLOPPY.UNARCHIVE in "INTERLISP-D 23-Aug-84 ..." dated "23-Aug-84 18:52:49") (FILECREATED "26-Aug-84 11:29:52" {ERIS}SOURCES>FLOPPY.;23 267839 changes to: (VARS FLOPPYCOMS) (FNS \SFLOPPY.INIT \SFLOPPY.GETFILEINFO \SFLOPPY.OPENHUGEFILE \SFLOPPY.WRITEPAGES \SFLOPPY.WRITEPAGE \SFLOPPY.READPAGES \SFLOPPY.READPAGE \SFLOPPY.CLOSEHUGEFILE \SFLOPPY.INPUTFLOPPY \SFLOPPY.OUTPUTFLOPPY \SFLOPPY.CLOSEFLOPPY \SFLOPPY.HACK \HFLOPPY.INIT \HFLOPPY.GETFILEINFO \HFLOPPY.OPENHUGEFILE \HFLOPPY.WRITEPAGES \HFLOPPY.WRITEPAGE \HFLOPPY.READPAGES \HFLOPPY.READPAGE \HFLOPPY.CLOSEHUGEFILE \HFLOPPY.INPUTFLOPPY \HFLOPPY.OUTPUTFLOPPY \HFLOPPY.CLOSEFLOPPY FLOPPY.ARCHIVE FLOPPY.UNARCHIVE)) \FLOPPY.TRANSLATEFLOPPYRESULT D1 (L (0 FLOPPYRESULT)) @dnn@gnHdjgkgHdngn gHdngngHdndngdn gngHn@gNIL (174Q UNKNOWNERROR 161Q RECORDNOTFOUND 150Q RECALIBRATERROR 136Q NOTREADY 114Q DOORISOPEN 103Q DOOROPENED 70Q DATALOST 57Q CRCERROR 44Q BUSY 35Q OK 15Q WRITEPROTECT) () \FLOPPY.SEVERE.ERROR D1 (I 0 MESSAGE) o@ h(7 ERROR) NIL ( 3 "Floppy: Severe Error!") \FLOPPY.TRANSLATEPMPAGEETYPE D1 (L (0 PMPAGEETYPE)) '@djgkg@dlglggNIL (44Q ? 40Q BADSECTORS 30Q PFILELIST 16Q FILE 7 FREE) () \FLOPPY.TRANSLATEFILETYPE D1 (L (0 FILETYPE)) g@djgng@dngng@dngng@dngng@dngnggNIL (144Q ? 140Q BACKSTOPDEBUGGEE 127Q BACKSTOPDEBUGGER 114Q PFILELIST 103Q CLEARINGHOUSEBACKUPFILE 70Q FILE 57Q BACKSTOPLOG 44Q ATVMSTRANSACTION 33Q DIRECTORY 20Q UNASSIGNED 7 FREE) () \FLOPPY.MTL.FIXP D1 (I 0 X) @ll (7 ROT) NIL () \FLOPPY.LTM.FIXP D1 (I 0 X) @ll (7 ROT) NIL () \FLOPPY.MTL.IDATE D1 (L (0 X)) @oNIL NIL ( 4 -20000000000Q) \FLOPPY.LTM.IDATE D1 (L (0 X)) @oNIL NIL ( 4 -20000000000Q) \FLOPPY.TRANSLATESETUP D1 (I 0 SETUP) K@djgkg@dlglg@dlglg@dlglg(110Q SHOULDNT) (104Q IBMD1024 74Q IBMD512 62Q IBMD256 52Q IBMD128 40Q IBMS1024 30Q IBMS512 16Q IBMS256 7 IBMS128) () \FLOPPY.SETUP D1 (P 4 GAP3 P 3 SECTORSPERTRACK P 2 ENCODEDSECTORLENGTH P 1 DENSITY P 0 SECTORLENGTH I 1 SETUP I 0 FLOPPYIOCB) _PA XA YA ZA [A \@H@Iÿ@j @H @J @K @L @(32Q \FLOPPY.GAP3 25Q \FLOPPY.SECTORSPERTRACK 20Q \FLOPPY.ENCODEDSECTORLENGTH 13Q \FLOPPY.DENSITY 6 \FLOPPY.SECTORLENGTH) (127Q FLOPPYIOCB 116Q FLOPPYIOCB 105Q FLOPPYIOCB 72Q FLOPPYIOCB 61Q FLOPPYIOCB 50Q FLOPPYIOCB 37Q FLOPPYIOCB) () \FLOPPY.CHECK.FLOPPYIOCB D1 (P 0 SETUP I 0 FLOPPYIOCB)  `@ jllkllh @ jjo 0j@YI_OlLo j@ZJn_Oko k@[Kl^Nl$o @@ћ@kjH@@ѩ@j0@ lj@\L@lMo @ kj@ jo @dj2@ djj]dkkUdllKllCo:l1@ djl(dkldlllloo X@H ljK@ H lj8@ H j(@]Ml@ @ H jo h(756Q \FLOPPY.SEVERE.ERROR 743Q \FLOPPY.GAP3 674Q \FLOPPY.SECTORSPERTRACK 651Q \FLOPPY.SECTORLENGTH 626Q \FLOPPY.SECTORLENGTH 613Q \FLOPPY.SEVERE.ERROR 423Q \FLOPPY.SEVERE.ERROR 365Q \FLOPPY.SEVERE.ERROR 224Q \FLOPPY.SEVERE.ERROR 165Q \FLOPPY.SEVERE.ERROR 123Q \FLOPPY.SEVERE.ERROR 60Q \FLOPPY.SEVERE.ERROR 35Q MEMB) (734Q FLOPPYIOCB 723Q FLOPPYIOCB 705Q FLOPPYIOCB 665Q FLOPPYIOCB 642Q FLOPPYIOCB 620Q FLOPPYIOCB 531Q FLOPPYIOCB 445Q FLOPPYIOCB 430Q FLOPPYIOCB 406Q FLOPPYIOCB 372Q FLOPPYIOCB 347Q FLOPPYIOCB 332Q FLOPPYIOCB 314Q FLOPPYIOCB 302Q FLOPPYIOCB 272Q FLOPPYIOCB 264Q FLOPPYIOCB 250Q FLOPPYIOCB 240Q FLOPPYIOCB 232Q FLOPPYIOCB 173Q FLOPPYIOCB 131Q FLOPPYIOCB 71Q FLOPPYIOCB 42Q FLOPPYIOCB 6 FLOPPYIOCB) ( 753Q "Illegal FLOPPYIOCB Setup 3" 610Q "Illegal FLOPPYIOCB Setup 2" 603Q "Illegal FLOPPYIOCB Setup 2" 516Q "Illegal FLOPPYIOCB Setup 2" 420Q "Illegal FLOPPYIOCB Setup 1" 362Q "Illegal FLOPPYIOCB Buffer" 221Q "Illegal Diskaddress" 162Q "Illegal Diskaddress" 120Q "Illegal Diskaddress" 55Q "Illegal FLOPPYIOCB Command") \FLOPPY.DENSITY D1 (I 0 SETUP) 0@j@k@l@dljl@l@l@ll(55Q SHOULDNT) NIL () \FLOPPY.SECTORLENGTH D1 (I 0 SETUP) :@j@dllk@dlnl@dlnl@ln(67Q SHOULDNT) NIL () \FLOPPY.ENCODEDSECTORLENGTH D1 (I 0 SETUP) 5@j@dljk@dlkl@dlll@ll(62Q SHOULDNT) NIL () \FLOPPY.GAP3 D1 (I 0 SETUP) C@djlkl*@dll:llK@dllll6@dllTllt(100Q SHOULDNT) NIL () \FLOPPY.SECTORSPERTRACK D1 (I 0 SETUP) =@djlkl@dllll@dll$l@dll(72Q SHOULDNT) NIL () \FLOPPY.RUNA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 \INTERRUPTABLE F 2 FLOPPYIOCB F 3 RESETVARSLST F 4 RESETY) IgRhR hSc`jR ``%Rgjd R HdjgZ kgLHdlg@lg7Hdlg+lg"HdlglgHlggi oi RHHi oi RHHni oi RHHli oi i `RlĿ```jhci(504Q BLOCK 437Q TERPRI 432Q PRIN1 421Q PRIN1 372Q PRIN1 361Q PRIN1 330Q PRIN1 317Q PRIN1 271Q PRIN1 260Q PRIN1 126Q CLOSEW 72Q INSPECT 43Q \FLOPPY.CHECK.FLOPPYIOCB 35Q BLOCK 12Q \FLOPPY.LOCK.BUFFER) (467Q \IOPAGE 461Q \FLOPPYIOCBADDR 456Q \IOPAGE 446Q \FLOPPYIOCB 377Q FLOPPYIOCB 335Q FLOPPYIOCB 276Q FLOPPYIOCB 253Q ? 247Q ESCAPE 236Q INITIALIZE 225Q RECALIBRATE 211Q FORMATTRACK 200Q READID 164Q WRITEDELETEDSECTOR 153Q WRITESECTOR 137Q READSECTOR 121Q NOP 102Q FLOPPYIOCB 75Q \FLOPPY.INSPECTW 64Q FLOPPYIOCB 56Q \FLOPPY.INSPECTW 47Q \FLOPPY.DEBUG 25Q \IOPAGE 2 \FLOPPY.UNLOCK.BUFFER) ( 426Q ") " 366Q " S" 324Q " H" 265Q " (C") \FLOPPY.RUN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 RETRYFLG I 1 NOERROR I 0 FLOPPYIOCB F 4 LISPXHIST F 5 RESETVARSLST) T!Uog hg[ K`@j`ji`j,``jj`n@djhjdnDo]dnEoPdnFoCdnGo6dnHo)dnIodnJonKooi hi H`6`jj`n@djhjdnDo]dnEoPdnFoCdnGo6dnHo)dnIodnJonKoo `jh`j(`gi hi HAH`ug l`j``jQHN@ lljh 9`!` i ` hi A `jA Aji(1024Q \FLOPPY.ERROR 1013Q \FLOPPY.RECALIBRATE 775Q \FLOPPY.INITIALIZE 770Q BREAK1 762Q \FLOPPY.MESSAGE 757Q \FLOPPY.TRANSLATEFLOPPYRESULT 746Q PRIN1 742Q \FLOPPY.TRANSLATEFLOPPYRESULT 723Q MEMB 650Q \FLOPPY.MESSAGE 625Q BREAK1 617Q PRIN1 570Q \FLOPPY.ERROR 551Q \FLOPPY.MESSAGE 330Q BREAK1 322Q PRIN1 41Q ERROR! 33Q RESETRESTORE 21Q \FLOPPY.RUNA0001) (1001Q \FLOPPYRESULT 752Q \FLOPPYRESULT 735Q \FLOPPYRESULT 730Q \FLOPPY.DEBUG 704Q FLOPPYIOCB 666Q \FLOPPYRESULT 655Q \FLOPPYRESULT 645Q CRCERROR 640Q \FLOPPY.DEBUG 613Q CRCERROR 607Q \FLOPPY.DEBUG 575Q \FLOPPYRESULT 557Q \FLOPPYRESULT 360Q \FLOPPYRESULT 345Q \FLOPPYRESULT 336Q \FLOPPY.DEBUG 130Q \FLOPPYRESULT 115Q \FLOPPYRESULT 106Q \FLOPPY.DEBUG 72Q \FLOPPYRESULT 57Q \FLOPPYRESULT 46Q \FLOPPYRESULT 27Q ERROR 16Q INTERNAL) ( 546Q "Unknown Domino Error" 541Q "Domino NoDmaEndCount2 Error" 527Q "Domino NoDmaEndCount1 Error" 512Q "Domino BadDmaChannel Error" 475Q "Domino TrackToBig Error" 460Q "Domino CommandTrack Error" 443Q "Domino InvalidEscapeCmd Error" 426Q "Domino UnImplFloppyCmd Error" 411Q "Domino NoValidCommand Error" 316Q "Unknown Domino Error" 311Q "Domino NoDmaEndCount2 Error" 277Q "Domino NoDmaEndCount1 Error" 262Q "Domino BadDmaChannel Error" 245Q "Domino TrackToBig Error" 230Q "Domino CommandTrack Error" 213Q "Domino InvalidEscapeCmd Error" 176Q "Domino UnImplFloppyCmd Error" 161Q "Domino NoValidCommand Error" 13Q (DUMMY.FOR.ERRORSET)) \FLOPPY.ERROR D1 (P 0 $FLOPPYRESULT F 1 \FLOPPY.HISTORYW) [` X`dQ hi Hg`jH Ho `jh(127Q \FLOPPY.RECALIBRATE 112Q \FLOPPY.INITIALIZE 106Q \FLOPPY.CLOSE 102Q MEMB 72Q \FLOPPY.BREAK 66Q \FLOPPY.INITIALIZE 62Q \FLOPPY.RECALIBRATE 45Q \FLOPPY.INITIALIZE 32Q BREAK1 24Q PRIN1 12Q \FLOPPY.TRANSLATEFLOPPYRESULT) (115Q \FLOPPYRESULT 51Q \FLOPPYRESULT 37Q DOOROPENED 16Q \FLOPPY.DEBUG 5 \FLOPPYRESULT) ( 77Q (DOOROPENED DOORISOPEN)) \FLOPPY.LOCK.BUFFER D1 (P 1 COUNT P 0 BUFFER I 0 FLOPPYIOCB) W@@ klh B@@Ѹ@HI IkjKJHKnHKnKk[h(56Q \LOCKPAGES 22Q MEMB) (46Q FLOPPYIOCB 36Q FLOPPYIOCB 30Q FLOPPYIOCB 6 FLOPPYIOCB) () \FLOPPY.UNLOCK.BUFFER D1 (P 1 COUNT P 0 BUFFER I 0 FLOPPYIOCB) 2 @ klh @@Ѹ@HI h(56Q \UNLOCKPAGES 22Q MEMB) (46Q FLOPPYIOCB 36Q FLOPPYIOCB 30Q FLOPPYIOCB 6 FLOPPYIOCB) () \FLOPPY.PREPAREFORCRASH D1 NIL ohd` o h(34Q RESET 30Q MEMBER 21Q PROMPTFORWORD 5 SAVEVM 2 \FLOPPY.DEBUGBLOCKS) (16Q PROMPTWINDOW) ( 25Q (NIL "y" "Y" "yes" "YES") 11Q "Proceed?") \FLOPPY.COMMAND D1 (P 1 \INTERRUPTABLE P 0 DISKADDRESS I 3 NOERROR I 2 SUBCOMMAND I 1 COMMAND I 0 FLOPPYIOCB) FkX@A @B @lH @h@h@j@C (103Q \FLOPPY.RUN 43Q \PUTFIXP) (72Q FLOPPYIOCB 61Q FLOPPYIOCB 50Q FLOPPYIOCB 34Q FLOPPYIOCB 24Q FLOPPYIOCB 13Q FLOPPYIOCB) () \FLOPPY.INITIALIZE D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) p`(`Hl HljdjlLo h.jjdjko jkdkl$o k HIlj@ I(150Q \FLOPPY.COMMAND 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (154Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 56Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) ( 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.NOP D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) o`(`Hl HljdjlLo h.jjdjko jkdkl$o k HIjd@ I(147Q \FLOPPY.COMMAND 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (153Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 56Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) ( 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.RECALIBRATE D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) p`(`Hl HljdjlLo h.jjdjko jkdkl$o k HIlj@ I(150Q \FLOPPY.COMMAND 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (154Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 56Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) ( 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.RECOVER D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) p`(`Hl HljdjlLo h.jjdjko jkdkl$o k HIlk@ I(150Q \FLOPPY.COMMAND 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (154Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 56Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) ( 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.TRANSFER D1 (P 0 \INTERRUPTABLE I 4 NOERROR I 3 PAGE I 2 DISKADDRESS I 1 COMMAND I 0 FLOPPYIOCB) D@A @j @lB @C@C@k@D C(76Q \FLOPPY.RUN 36Q \PUTFIXP) (65Q FLOPPYIOCB 54Q FLOPPYIOCB 43Q FLOPPYIOCB 27Q FLOPPYIOCB 17Q FLOPPYIOCB 6 FLOPPYIOCB) () \FLOPPY.READSECTOR D1 (I 3 NOERROR I 2 PAGE I 1 DISKADDRESS I 0 FLOPPYIOCB) @kABC (10Q \FLOPPY.TRANSFER) NIL () \FLOPPY.WRITESECTOR D1 (I 3 NOERROR I 2 PAGE I 1 DISKADDRESS I 0 FLOPPYIOCB) @lABC (11Q \FLOPPY.TRANSFER) NIL () \FLOPPY.FORMATTRACKS D1 (P 0 \INTERRUPTABLE I 3 NOERROR I 2 COUNT I 1 DISKADDRESS I 0 FLOPPYIOCB) B@l @j @lA @h@h@B@C (77Q \FLOPPY.RUN 37Q \PUTFIXP) (66Q FLOPPYIOCB 55Q FLOPPYIOCB 44Q FLOPPYIOCB 30Q FLOPPYIOCB 20Q FLOPPYIOCB 6 FLOPPYIOCB) () \FLOPPY.DUMP D1 (P 1 PAGE P 0 STRING I 1 MODE I 0 DISKADDRESS F 4 \FLOPPY.SCRATCH.FLOPPYIOCB) r@T@l  YldI` Zdjl knJdlnlngdKdjCdkXAdgd gH H(155Q EBCDICTOASCII 143Q ASCIITOASCII 12Q \FLOPPY.READSECTOR) (147Q EBCDIC 134Q ASCII 104Q ? 31Q FLOPPYIOCB 26Q \FLOPPYIOCB) () \FLOPPY.DEBUG D1 NIL 5`gllF gg `gn"lF gg h(61Q PUTWINDOWPROP 50Q INSPECT 31Q PUTWINDOWPROP 20Q INSPECT 2 CLOSEINSPECT) (56Q \FLOPPYRESULT 53Q TITLE 37Q FLOPPYRESULT 34Q \FLOPPYRESULT 26Q \FLOPPYIOCB 23Q TITLE 10Q FLOPPYIOCB 5 \FLOPPYIOCB) () FLOPPY.RESTARTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 \FLOPPY.SCRATCH.BUFFER F 2 \FLOPPY.SCRATCH.FLOPPYIOCB F 3 \FLOPPY.IBMS128.FLOPPYIOCB F 4 RESETY F 5 \FLOPPY.IBMD256.FLOPPYIOCB F 6 \FLOPPY.IBMD512.FLOPPYIOCB) `hi n`lll c`Hl HljdjlLo jjdjko jkdkl$o k Hc`Hl HljdjlLo jjdjko jkdkl$o k Hj c`Hl HljdjlLo jjdjko jkdkl$o k Hl c `Hl HljdjlLo jjdjko jkdkl$o k Hl c n`hg g hci(671Q \FLOPPY.INITIALIZE 664Q \FLOPPY.EXISTSP 655Q FLOPPY.MODE 630Q \FLOPPY.FLUSH 606Q \FLOPPY.SETUP 576Q \PUTFIXP 567Q \FLOPPY.SEVERE.ERROR 545Q \FLOPPY.SEVERE.ERROR 524Q \FLOPPY.SEVERE.ERROR 474Q \FLOPPY.SETUP 454Q \FLOPPY.SETUP 444Q \PUTFIXP 435Q \FLOPPY.SEVERE.ERROR 413Q \FLOPPY.SEVERE.ERROR 372Q \FLOPPY.SEVERE.ERROR 342Q \FLOPPY.SETUP 322Q \FLOPPY.SETUP 313Q \PUTFIXP 304Q \FLOPPY.SEVERE.ERROR 262Q \FLOPPY.SEVERE.ERROR 241Q \FLOPPY.SEVERE.ERROR 211Q \FLOPPY.SETUP 166Q \PUTFIXP 157Q \FLOPPY.SEVERE.ERROR 135Q \FLOPPY.SEVERE.ERROR 114Q \FLOPPY.SEVERE.ERROR 64Q \FLOPPY.SETUP 44Q \FLOPPY.BUFFER 7 OBTAIN.MONITORLOCK) (661Q NOERROR 652Q PILOT 646Q \CFLOPPYFDEV 643Q \HFLOPPYFDEV 640Q \SFLOPPYFDEV 635Q \PFLOPPYFDEV 623Q \FLOPPYFDEV 617Q \HFLOPPY.MAXPAGES 501Q FLOPPYIOCB 462Q FLOPPYIOCBTYPE# 347Q FLOPPYIOCB 330Q FLOPPYIOCBTYPE# 216Q FLOPPYIOCB 177Q FLOPPYIOCBTYPE# 71Q FLOPPYIOCB 52Q FLOPPYIOCBTYPE# 36Q \FLOPPYRESULT 30Q \FLOPPYIOCB 22Q \IOCBPAGE 16Q \FLOPPYIOCBADDR 2 \FLOPPYLOCK) ( 564Q "Illegal Diskaddress" 542Q "Illegal Diskaddress" 521Q "Illegal Diskaddress" 432Q "Illegal Diskaddress" 410Q "Illegal Diskaddress" 367Q "Illegal Diskaddress" 301Q "Illegal Diskaddress" 257Q "Illegal Diskaddress" 236Q "Illegal Diskaddress" 154Q "Illegal Diskaddress" 132Q "Illegal Diskaddress" 111Q "Illegal Diskaddress") FLOPPY.RESTART D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) +g S!Tog hgZ JI(46Q ERROR! 41Q RESETRESTORE 27Q FLOPPY.RESTARTA0001 5 CREATE.MONITORLOCK) (35Q ERROR 24Q INTERNAL 10Q \FLOPPYLOCK 2 FLOPPY) ( 21Q (DUMMY.FOR.ERRORSET)) FLOPPY.MODEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 \INTERRUPTABLE P 1 FDEV P 0 OLDMODE F 3 MODE F 4 RESETY) `hi  `h4``g'``g``g``gSdg`I`@dg`4`+dg``dg6` ``I`SgI IHci`YSl c;(315Q \LISPERROR 264Q \DEFINEDEVICE 247Q \FLOPPY.CLOSE 225Q \CFLOPPY.INIT 177Q \SFLOPPY.INIT 152Q \HFLOPPY.INIT 125Q \PFLOPPY.INIT 7 OBTAIN.MONITORLOCK) (304Q \FLOPPYFDEV 271Q \FLOPPYFDEV 260Q FLOPPY 242Q \FLOPPYFDEV 235Q \FLOPPYFDEV 231Q \CFLOPPYFDEV 220Q \CFLOPPYFDEV 211Q CPM 203Q \SFLOPPYFDEV 172Q \SFLOPPYFDEV 164Q SYSOUT 156Q \HFLOPPYFDEV 145Q \HFLOPPYFDEV 137Q HUGEPILOT 131Q \PFLOPPYFDEV 120Q \PFLOPPYFDEV 112Q PILOT 104Q CPM 76Q \FLOPPYFDEV 73Q \CFLOPPYFDEV 67Q SYSOUT 62Q \FLOPPYFDEV 57Q \SFLOPPYFDEV 52Q HUGEPILOT 45Q \FLOPPYFDEV 42Q \HFLOPPYFDEV 35Q PILOT 30Q \FLOPPYFDEV 25Q \PFLOPPYFDEV 16Q \FLOPPYFDEV 2 \FLOPPYLOCK) () FLOPPY.MODE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 MODE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.MODEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FLOPPY.EVENTFNA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EVENT F 1 RESETY) 2`hi i Pdgdgdghci(52Q \FLOPPY.INITIALIZE 31Q \FLOPPY.CLOSE 14Q \FLOPPY.EXISTSP 7 OBTAIN.MONITORLOCK) (44Q AFTERMAKESYS 36Q AFTERSYSOUT 23Q AFTERLOGOUT 2 \FLOPPYLOCK) () \FLOPPY.EVENTFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 EVENT I 0 FDEV F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FLOPPY.EVENTFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FLOPPY.HOSTNAMEPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FDEV F 1 NAME F 2 RESETY) `hi P` QPci(7 OBTAIN.MONITORLOCK) (25Q FDEV 15Q FDEVTYPE# 2 \FLOPPYLOCK) () \FLOPPY.HOSTNAMEP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 FDEV I 0 NAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FLOPPY.HOSTNAMEPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FLOPPY.ADDDEVICENAME D1 (I 0 FILENAME) g`g@ (21Q PACK*) (15Q } 10Q FDEV 5 \FLOPPYFDEV 2 {) () \FLOPPY.ASSUREFILENAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILENAME) P h(3 UNPACKFILENAME) NIL () \FLOPPY.ASSUREFILENAMEA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 UNAME) P h(3 PACKFILENAME) NIL () \FLOPPY.ASSUREFILENAME D1 (P 1 FILENAME P 0 UNAME I 0 FILE) T @d`@o XHd@l* bXg o YIdo@l* b(114Q \LISPERROR 72Q \FLOPPY.ASSUREFILENAMEA0002 62Q LISTPUT 46Q \LISPERROR 31Q \FLOPPY.ASSUREFILENAMEA0001) (57Q HOST 17Q STREAM 10Q STREAMTYPE#) ( 103Q (MKATOM "") 67Q (DUMMY.FOR.ERRORSET) 26Q (DUMMY.FOR.ERRORSET)) \FLOPPY.OTHERINFO D1 (L (0 OTHERINFO)) *@@ d[ddKiIHhZH&JNIL NIL () \FLOPPY.LEXASSOC D1 (P 1 BUCKET I 1 ALIST I 0 KEY) !AHh@I @IIHX(21Q ALPHORDER) NIL () \FLOPPY.LEXPUTASSOC D1 (P 3 BUCKET P 2 TAIL P 0 BUCKET I 2 ALIST I 1 VAL I 0 KEY) dBXB@Ah@dHHABH @ABBBI J@A&BJd@dKKAK J@AJJIY(117Q ALPHORDER 36Q ALPHORDER) NIL () \FLOPPY.LEXREMOVEASSOC D1 (P 3 BUCKET P 2 TAIL P 0 BUCKET I 1 ALIST I 0 KEY) BAXA@HAAAIAJ@dKJdK JIY(66Q ALPHORDER) NIL () \FLOPPY.CACHED.READ D1 (P 0 ANSWER I 0 NOERROR) i @ @ (25Q \FLOPPY.OPEN 17Q \FLOPPY.UNCACHED.READ 12Q \FLOPPY.CLOSE 6 \FLOPPY.CAN.READP) NIL () \FLOPPY.CACHED.WRITE D1 (P 0 ANSWER I 0 NOERROR) i @ @ (25Q \FLOPPY.OPEN 17Q \FLOPPY.UNCACHED.WRITE 12Q \FLOPPY.CLOSE 6 \FLOPPY.CAN.READP) NIL () \FLOPPY.OPEN D1 (I 0 NOERROR) /``````@ ``@ (54Q SHOULDNT 50Q \CFLOPPY.OPEN 33Q \PFLOPPY.OPEN) (42Q \FLOPPYFDEV 37Q \CFLOPPYFDEV 25Q \FLOPPYFDEV 22Q \SFLOPPYFDEV 15Q \FLOPPYFDEV 12Q \HFLOPPYFDEV 5 \FLOPPYFDEV 2 \PFLOPPYFDEV) () \FLOPPY.CLOSE D1 NIL G```/`````````hh(103Q \FLOPPY.FLUSH) (74Q CINFO 71Q \CFLOPPYINFO 64Q \FLOPPYFDEV 61Q \CFLOPPYFDEV 55Q PFINFO 52Q \SFLOPPYINFO 45Q \FLOPPYFDEV 42Q \SFLOPPYFDEV 35Q PFINFO 32Q \HFLOPPYINFO 25Q \FLOPPYFDEV 22Q \HFLOPPYFDEV 15Q PFINFO 12Q \PFLOPPYINFO 5 \FLOPPYFDEV 2 \PFLOPPYFDEV) () \FLOPPY.FLUSH D1 (P 1 STREAM F 2 \OPENFILES) $RHhY`IR cHX(32Q DREMOVE) (23Q \FLOPPYFDEV 16Q STREAM) () \FLOPPY.UNCACHED.READ D1 (I 0 NOERROR) @ hi @ @ @ i(32Q \FLOPPY.RECALIBRATE 24Q \FLOPPY.CAN.READP 17Q \FLOPPY.INITIALIZE 12Q \FLOPPY.CAN.READP 3 \FLOPPY.EXISTSP) NIL () \FLOPPY.UNCACHED.WRITE D1 (I 0 NOERROR) "@ hi i @ @ @ i(36Q \FLOPPY.RECALIBRATE 30Q \FLOPPY.CAN.WRITEP 23Q \FLOPPY.INITIALIZE 16Q \FLOPPY.CAN.WRITEP 12Q \FLOPPY.NOP 3 \FLOPPY.EXISTSP) NIL () \FLOPPY.EXISTSP D1 (P 0 ANSWER I 0 NOERROR) gX@dHo h(27Q \FLOPPY.BREAK 5 MACHINETYPE) (10Q DANDELION) ( 24Q "No floppy drive on this machine") \FLOPPY.MOUNTEDP D1 (P 1 \INTERRUPTABLE P 0 ANSWER I 0 NOERROR) )i `jhhX@HHo h(45Q \FLOPPY.BREAK 11Q \FLOPPY.NOP) (15Q \FLOPPYRESULT) ( 42Q "Door open(ed) or disk missing") \FLOPPY.WRITEABLEP D1 (P 1 \INTERRUPTABLE P 0 ANSWER I 0 NOERROR) )i `jhhX@HHo h(45Q \FLOPPY.BREAK 11Q \FLOPPY.NOP) (15Q \FLOPPYRESULT) ( 42Q "Write protected") \FLOPPY.CAN.READP D1 (I 0 NOERROR) @ @ (11Q \FLOPPY.MOUNTEDP 3 \FLOPPY.EXISTSP) NIL () \FLOPPY.CAN.WRITEP D1 (I 0 NOERROR) @ @ @ (17Q \FLOPPY.WRITEABLEP 11Q \FLOPPY.MOUNTEDP 3 \FLOPPY.EXISTSP) NIL () \FLOPPY.BREAK D1 (I 0 MESSAGE) @i gli h(15Q \LISPERROR 4 \FLOPPY.MESSAGE) (7 {FLOPPY}) () \FLOPPY.MESSAGE D1 (I 1 STREAM I 0 MESSAGE) A`b oA @A h(27Q PRIN1 22Q PRIN1 12Q FRESHLINE) (5 PROMPTWINDOW) ( 16Q "Floppy: ") \FLOPPY.BUFFER D1 (I 0 N) @lhdl (12Q \ALLOCBLOCK) NIL () \PFLOPPY.INIT D1 NIL ``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dg8dg6dg4dg2dg0dg.dg*dg$d h(306Q \MAKE.PMAP.DEVICE) (302Q \PFLOPPYFDEV 274Q \GENERIC.READP 265Q NILL 256Q \IS.NOT.RANDACCESSP 247Q \ILLEGAL.DEVICEOP 240Q \IS.NOT.RANDACCESSP 231Q \ILLEGAL.DEVICEOP 222Q \GENERIC.BINS 213Q \GENERIC.BOUTS 204Q \PFLOPPY.RENAMEFILE 175Q \PFLOPPYINFO 166Q \PFLOPPY.WRITEPAGES 157Q \PFLOPPY.TRUNCATEFILE 150Q \PFLOPPY.SETFILEINFO 141Q \PFLOPPY.OPENFILE 132Q \PFLOPPY.READPAGES 123Q \PFLOPPY.OPENFILE 114Q \FLOPPY.HOSTNAMEP 105Q \PFLOPPY.GETFILENAME 76Q \PFLOPPY.GETFILEINFO 67Q \PFLOPPY.GENERATEFILES 60Q \FLOPPY.EVENTFN 51Q TRUE 42Q \PFLOPPY.DELETEFILE 33Q \PFLOPPY.CLOSEFILE 16Q FLOPPY 11Q FDEVTYPE# 6 \PFLOPPYINFO 2 PFINFOTYPE#) () \PFLOPPY.OPEN D1 NIL h`(X`(hh`(h`(h`(hh`(ii(126Q \PFLOPPY.OPEN.PFILELIST 123Q \PFLOPPY.OPEN.PSECTOR9) (141Q PFINFO 134Q FDEV 131Q \FLOPPYFDEV 120Q \PFLOPPYPSECTOR9 110Q PFINFO 103Q FDEV 100Q \FLOPPYFDEV 72Q PFINFO 65Q FDEV 62Q \FLOPPYFDEV 54Q PFINFO 47Q FDEV 44Q \FLOPPYFDEV 41Q \PFLOPPYPFILELIST 31Q PFINFO 24Q FDEV 21Q \FLOPPYFDEV 12Q PFINFO 5 FDEV 2 \FLOPPYFDEV) () \PFLOPPY.OPEN.PSECTOR9 D1 (P 0 PSECTOR9) (Xo `(HHh(16Q \FLOPPY.BREAK 5 \PFLOPPY.GET.PSECTOR9) (44Q \PFLOPPYPSECTOR9 34Q PFINFO 27Q FDEV 24Q \FLOPPYFDEV) ( 13Q "Not a pilot floppy") \PFLOPPY.GET.PSECTOR9 D1 (P 2 \FLOPPY.IBMS128.FLOPPYIOCB P 0 PSECTOR9)  `%`Yl IljdjlLo h1jjdjko jkdkl$o k Ij JjdjlLo jjdjko jkl l l$o l `i JHdn jHljHh(246Q \FLOPPY.READSECTOR 231Q \FLOPPY.SEVERE.ERROR 205Q \FLOPPY.SEVERE.ERROR 164Q \FLOPPY.SEVERE.ERROR 140Q \FLOPPY.SETUP 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (301Q PSECTOR9 263Q PSECTOR9 253Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 241Q PSECTOR9TYPE# 56Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE) ( 226Q "Illegal Diskaddress" 202Q "Illegal Diskaddress" 161Q "Illegal Diskaddress" 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \PFLOPPY.OPEN.PFILELIST D1 (P 20Q PFALLOC P 13Q START P 6 PFALLOCS P 5 PFALLOC P 4 PLPAGE P 3 PMPAGE P 2 FILENAME P 1 PFILELIST P 0 PSECTOR9)  `(l `(IIHlk l  `OkK Kn2jh^KȆnl`OL LnjLldh^mlLl_dOL_ldOOld_dOdjCdk KȆ h`dJdOdKdL KȆjM MNOdn jN ^N"O!K_ȂOȁk__O`(NNO+h_OOOOO_O__ ȆnO gO O_(655Q \PFLOPPY.DIR.PUT 436Q DREVERSE 411Q \PFLOPPY.ADD.TO.PFILELIST 337Q \FLOPPY.TRANSLATEFILETYPE 324Q MKATOM 221Q \PFLOPPY.DAMAGED 166Q \PFLOPPY.READPAGENO 131Q \PFLOPPY.DAMAGED 110Q \PFLOPPY.READPAGENO 65Q \PUTSWAPPEDFIXP 25Q \PFLOPPY.CREATE.PFILELIST) (650Q OLD 643Q PFALLOC 627Q PMPAGE 622Q PFALLOC 571Q PFALLOC 557Q PFALLOC 526Q PFINFO 521Q FDEV 516Q \FLOPPYFDEV 457Q PMPAGE 400Q PMPAGE 345Q PFALLOCTYPE# 332Q PMPAGE 254Q PLPAGE 210Q PLPAGE 173Q PLPAGE 156Q PLPAGETYPE# 143Q PMPAGE 115Q PMPAGE 76Q PMPAGETYPE# 56Q PSECTOR9 51Q \PFLOPPYPFILELIST 41Q PFINFO 34Q FDEV 31Q \FLOPPYFDEV 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.DAMAGED D1 NIL oo h(20Q \FLOPPY.BREAK 15Q CONCAT 6 \PFLOPPY.GET.NAME) NIL ( 12Q " needs scavenging." 3 "Damaged floppy. ") \PFLOPPY.OPENFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ACCESS) Pgi(14Q \FLOPPY.CACHED.WRITE 10Q \FLOPPY.CACHED.READ) (3 INPUT) () \PFLOPPY.OPENFILE D1 (P 4 BUCKET P 3 FULLFILENAME P 2 PFALLOC P 1 WAIT P 0 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) @ABCDE @C bo @l @d`BC Xdw AdgTgC YH Jk C-J jH[l i bdHLL AgHj Hj H(224Q \PFLOPPY.SETFILEINFO 203Q \LISPERROR 134Q BLOCK 130Q \PFLOPPY.STREAMS.AGAINST 120Q ASSOC 66Q \PFLOPPY.OPENFILE1 47Q \LISPERROR 40Q \PFLOPPY.OPENFILEA0001 26Q \FLOPPY.OTHERINFO 11Q \SFLOPPY.HACK) (253Q STREAM 243Q STREAM 235Q OUTPUT 172Q STREAM 157Q PFALLOC 143Q PFALLOC 114Q WAIT 105Q INPUT 75Q STREAM 57Q STREAMTYPE#) ( 35Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.OPENFILE1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 STREAM P 4 IDATE P 3 PLPAGE P 2 PFALLOC P 1 EXTENSION P 0 FILENAME F 6 RECOG F 7 OTHERINFO F 10Q FILE F 11Q RESETY) `hi `W XV VdgdgJ HW 1 ,dgJHW hdgdgJ ]VdgdgHl i hci(167Q \LISPERROR 137Q SHOULDNT 132Q \PFLOPPY.OPENOLDFILE 104Q \PFLOPPY.OPENNEWFILE 63Q \PFLOPPY.OPENOLDFILE 56Q \PFLOPPY.OPENNEWFILE 25Q \PFLOPPY.DIR.GET 20Q \FLOPPY.ASSUREFILENAME 7 OBTAIN.MONITORLOCK) (155Q OLD/NEW 147Q NEW 123Q OLDEST 115Q OLD 71Q NEW 41Q OLD/NEW 33Q EXACT 2 \FLOPPYLOCK) () \PFLOPPY.OPENFILE1 D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 OTHERINFO I 1 RECOG I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.OPENFILE1A0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.OPENOLDFILE D1 (P 1 STREAM P 0 PLPAGE I 0 PFALLOC) k @d` X`d`@ dJH[ K H\LH] M H^Nnڰ!H_O H_ O nn_dO H_ O H_OH_ O H_Onڰ!H_O H_ O nn_ dO dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhYd@ IHI(45Q \FLOPPY.ADDDEVICENAME) (544Q STREAM 535Q STREAM 462Q \STREAM.DEFAULT.MAXBUFFERS 446Q FILELINELENGTH 431Q \FILEOUTCHARFN 422Q \EOSERROR 413Q \NOIMAGEOPS 404Q \STREAM.NOT.OPEN 375Q \STREAM.NOT.OPEN 336Q PLPAGE 321Q PLPAGE 276Q PLPAGE 255Q PLPAGE 237Q PLPAGE 222Q PLPAGE 163Q PLPAGE 146Q PLPAGE 125Q PLPAGE 106Q PLPAGE 72Q PLPAGE 57Q PLPAGE 40Q PFALLOC 31Q \FLOPPYFDEV 24Q STREAMTYPE# 16Q PFALLOC) () \PFLOPPY.OPENNEWFILE D1 (P 15Q VALUE P 4 STREAM P 3 IDATE P 2 PLPAGE P 1 PFALLOC P 0 LENGTH I 1 OTHERINFO I 0 FILENAME)  gA XddnnkX Y@gI [gA _`dkFdnEdlDdlCdlddndkdn_dlK OlK hOdOJN]Mdg6OkFZ I _JO _ldOOgOlldlJl_dOJ_dOdjCdkkOkJ IJ I `d`I _dOdj dj dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dh\dI LI L(516Q \FLOPPY.ADDDEVICENAME 472Q \PFLOPPY.ADD.TO.PFILELIST 456Q RPLSTRING 453Q SUBSTRING 321Q NCHARS 305Q MKSTRING 302Q MKSTRING 212Q \PUTSWAPPEDFIXP 207Q \FLOPPY.LTM.IDATE 172Q \PUTSWAPPEDFIXP 167Q \FLOPPY.LTM.IDATE 61Q ASSOC 51Q IDATE 46Q \PFLOPPY.DIR.PUT 35Q \PFLOPPY.ALLOCATE 11Q ASSOC) (720Q PFALLOC 714Q STREAM 705Q STREAM 632Q \STREAM.DEFAULT.MAXBUFFERS 616Q FILELINELENGTH 601Q \FILEOUTCHARFN 572Q \EOSERROR 563Q \NOIMAGEOPS 554Q \STREAM.NOT.OPEN 545Q \STREAM.NOT.OPEN 511Q PFALLOC 502Q \FLOPPYFDEV 475Q STREAMTYPE# 463Q PFALLOC 446Q PLPAGE 407Q PLPAGE 352Q PLPAGE 342Q BINARY 314Q PLPAGE 275Q PFALLOC 261Q PLPAGE 250Q TEXT 235Q PLPAGE 200Q PLPAGE 160Q PLPAGE 70Q PLPAGETYPE# 55Q TYPE 42Q NEW 5 LENGTH) () \PFLOPPY.ASSURESTREAM D1 (P 0 STREAM I 0 FILE) !@d`@g X@l b(33Q \LISPERROR 22Q \PFLOPPY.OPENFILE1) (17Q OLD 10Q STREAMTYPE#) () \PFLOPPY.GETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 ANSWER P 1 PLPAGE P 0 STREAM F 3 FILE F 4 RESETY F 5 PFALLOC F 6 ATTRIBUTE) +`hi 0S XJci c V (47Q \PFLOPPY.GETFILEINFO1 23Q \PFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (37Q STREAM 2 \FLOPPYLOCK) () \PFLOPPY.GETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 ATTRIBUTE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.GETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.GETFILEINFO1 D1 (P 1 ANSWER P 0 PLPAGE I 1 ATTRIBUTE I 0 PFALLOC) 0@ XAdgdZJ gH[K AdgH\L gH]M Adg_H^ N H_OH_ O H_OnH_O H_ O ngCHFdkg_HjllgH_ljOOOhAdgHjlHgHAdgH_OgH_ O AdgH_ O gH_"O" (151Q \FLOPPY.MTL.IDATE 125Q \FLOPPY.MTL.IDATE 76Q GDATE 73Q \FLOPPY.MTL.IDATE 46Q GDATE 43Q \FLOPPY.MTL.IDATE) (607Q PLPAGE 600Q HUGELENGTH 563Q PLPAGE 554Q HUGEPAGELENGTH 535Q PLPAGE 527Q HUGEPAGESTART 512Q PLPAGE 503Q SIZE 473Q PLPAGE 465Q MESATYPE 457Q PLPAGE 443Q PLPAGE 433Q BYTESIZE 401Q PLPAGE 373Q BINARY 353Q PLPAGE 344Q TEXT 331Q PLPAGE 322Q TYPE 300Q PLPAGE 263Q PLPAGE 241Q PLPAGE 220Q PLPAGE 202Q PLPAGE 167Q PLPAGE 157Q LENGTH 137Q PLPAGE 131Q ICREATIONDATE 113Q PLPAGE 104Q IWRITEDATE 61Q PLPAGE 52Q CREATIONDATE 31Q PLPAGE 21Q WRITEDATE 11Q PFALLOC) () \PFLOPPY.SETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 PLPAGE P 0 STREAM F 4 VALUE F 5 FILE F 6 ATTRIBUTE F 7 RESETY) :`hi @U XdVdgIlT dgIlT dgIlT dgIlT dgdg6TdTIKZJdgIkFlgIldgITNdgIT>dgIl*dgIl dgIl gIl T H H I hci(461Q \PFLOPPY.WRITEPAGENO 441Q OPENP 434Q \PUTSWAPPEDFIXP 171Q \FLOPPY.LTM.IDATE 144Q \FLOPPY.LTM.IDATE 117Q \FLOPPY.LTM.IDATE 114Q IDATE 66Q \FLOPPY.LTM.IDATE 63Q IDATE 23Q \PFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.WRITE 7 OBTAIN.MONITORLOCK) (453Q PFALLOC 446Q STREAM 425Q PLPAGE 417Q HUGELENGTH 411Q PLPAGE 402Q HUGEPAGELENGTH 372Q PLPAGE 363Q HUGEPAGESTART 353Q PLPAGE 344Q PAGELENGTH 333Q PLPAGE 324Q MESATYPE 313Q PLPAGE 304Q BYTESIZE 274Q PLPAGE 265Q BINARY 255Q PLPAGE 246Q TEXT 233Q PLPAGE 211Q TYPE 200Q LENGTH 162Q PLPAGE 153Q ICREATIONDATE 135Q PLPAGE 126Q IWRITEDATE 105Q PLPAGE 75Q CREATIONDATE 54Q PLPAGE 44Q WRITEDATE 34Q STREAM 2 \FLOPPYLOCK) () \PFLOPPY.SETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 VALUE I 1 ATTRIBUTE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.SETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.CLOSEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 FULLFILENAME P 0 STREAM F 2 FILE F 3 RESETY) `hi  R X H ci(30Q \PFLOPPY.CLOSEFILE1 23Q \CLEARMAP 17Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (2 \FLOPPYLOCK) () \PFLOPPY.CLOSEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.CLOSEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.CLOSEFILE1 D1 (P 5 \INTERRUPTABLE P 4 FULLFILENAME P 3 NPMPAGE P 2 NEXT P 1 PMPAGE P 0 PFALLOC I 0 STREAM) P@ X@\@ gHH hHYHZd[Ik̓In͆KkKnHkIi JkKi i i Hj jdhH j@ L(254Q \PFLOPPY.DELETEFILE 217Q \PFLOPPY.SAVE.PSECTOR9 212Q \PFLOPPY.SAVE.PFILELIST 205Q \PFLOPPY.WRITEPAGENO 167Q \PFLOPPY.WRITEPAGENO 53Q \PFLOPPY.WRITEPAGENO 24Q \GETACCESS) (242Q PFALLOC 224Q PFALLOC 174Q PFALLOC 156Q PFALLOC 144Q PMPAGE 134Q PMPAGE 122Q PMPAGE 112Q PMPAGE 100Q PFALLOC 71Q PFALLOC 62Q PFALLOC 46Q PFALLOC 40Q PFALLOC 27Q INPUT 15Q STREAM 6 STREAM) () \PFLOPPY.DELETEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 FULLFILENAME P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PFALLOC P 0 FILENAME F 6 FILE F 7 RESETY) Z`hi `V Xg Yd7 I Ik Ij I I I Mci(121Q \PFLOPPY.SAVE.PFILELIST 115Q \PFLOPPY.DELETE.FROM.PFILELIST 110Q \PFLOPPY.DEALLOCATE 103Q \PFLOPPY.DIR.REMOVE 53Q \PFLOPPY.STREAMS.USING 46Q \FLOPPY.ADDDEVICENAME 32Q \PFLOPPY.DIR.GET 23Q \FLOPPY.ASSUREFILENAME 16Q \PFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (72Q PFALLOC 60Q PFALLOC 41Q PFALLOC 27Q OLDEST 2 \FLOPPYLOCK) () \PFLOPPY.DELETEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 FDEV I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.DELETEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.GENERATEFILESA0001A0002 D1 (I 1 Y I 0 X) @A (16Q UALPHORDER) (11Q PFALLOC 3 PFALLOC) () \PFLOPPY.GENERATEFILESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 10Q PFALLOC P 3 FILEGENOBJ P 2 GENFILESTATE P 1 FILTER P 0 ALLOCS F 11Q PATTERN F 12Q OPTIONS F 13Q FDEV F 14Q RESETY) `hi @$W `(AL2MgW Hg HWhhggJci_lIO O_N Oh^L\O&(170Q DIRECTORY.MATCH 102Q SORT 72Q MEMB 32Q DIRECTORY.MATCH.SETUP 23Q \FLOPPY.CACHED.READ 16Q \FLOPPY.EXISTSP 7 OBTAIN.MONITORLOCK) (163Q PFALLOC 145Q PFALLOC 127Q \PFLOPPY.FILEINFOFN 124Q \PFLOPPY.NEXTFILEFN 111Q FDEV 77Q \PFLOPPY.GENERATEFILESA0001A0002 65Q SORT 46Q PFINFO 41Q FDEV 36Q \FLOPPYFDEV 2 \FLOPPYLOCK) () \PFLOPPY.GENERATEFILES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.GENERATEFILESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.NEXTFILEFN D1 (P 3 ANSWER P 2 DEVICENAME P 1 FILENAME P 0 ALLOCS I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) 5@@Xdh@H@HHY@ZAIo@oI (62Q CONCAT) (30Q PFALLOC) ( 56Q "}" 47Q "{") \PFLOPPY.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) @A (7 \PFLOPPY.GETFILEINFO1) NIL () \PFLOPPY.RENAMEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 13Q VALUE P 4 FULLFILENAME P 3 PLPAGE P 2 PFALLOC P 1 NEWFILENAME P 0 OLDFILENAME F 14Q OLDFILE F 15Q NEWFILE F 16Q RESETY F 17Q OLDRECOG F 20Q NEWRECOG) `hi  W W HW Zd J  I _KO ldMMldlKlоdNK_dOdjCdkkOkK lKl_dOK_ldOOld_dOdjCdk YW J JK I ci(336Q \FLOPPY.ADDDEVICENAME 331Q \PFLOPPY.WRITEPAGENO 316Q \PFLOPPY.DIR.PUT 307Q MKATOM 212Q RPLSTRING 207Q SUBSTRING 105Q NCHARS 71Q MKSTRING 52Q \PFLOPPY.DIR.REMOVE 41Q \PFLOPPY.DIR.GET 32Q \FLOPPY.ASSUREFILENAME 24Q \FLOPPY.ASSUREFILENAME 16Q \PFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (323Q PFALLOC 237Q PLPAGE 202Q PLPAGE 143Q PLPAGE 100Q PLPAGE 57Q PFALLOC 2 \FLOPPYLOCK) () \PFLOPPY.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 NEWRECOG I 3 OLDRECOG I 2 FDEV I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) 2CgbDgbS!Tog hgZ JI(55Q ERROR! 50Q RESETRESTORE 36Q \PFLOPPY.RENAMEFILEA0001) (44Q ERROR 33Q INTERNAL 14Q NEW 4 OLD) ( 30Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.STREAMS.AGAINST D1 (L (0 STREAM) F 5 \OPENFILES) ?UAHI\`L @ Ld@J KhZYHXK&ZNIL (40Q STREAM 32Q STREAM 23Q \FLOPPYFDEV 16Q STREAM) () \PFLOPPY.STREAMS.USING D1 (L (0 PFALLOC) F 5 \OPENFILES) 6UAHI\`Ld @J KhZYHXK&ZNIL (33Q STREAM 23Q \FLOPPYFDEV 16Q STREAM) () \PFLOPPY.READPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkع(33Q \PFLOPPY.READPAGE) NIL () \PFLOPPY.READPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 PAGENO P 1 PFALLOC P 0 STREAM F 4 FIRSTPAGE# F 5 FILE F 6 BUFFER F 7 RESETY) Z`hi @U X YTkغTH $JII[ȂKȁkI JV hci(121Q \PFLOPPY.READPAGENO 113Q \PFLOPPY.EXTEND 17Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (72Q PMPAGE 65Q PFALLOC 57Q PFALLOC 45Q STREAM 31Q PFALLOC 23Q STREAM 2 \FLOPPYLOCK) () \PFLOPPY.READPAGE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFER I 1 FIRSTPAGE# I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ J(43Q BLOCK 36Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.READPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.READPAGENO D1 (P 2 \FLOPPY.IBMD512.FLOPPYIOCB P 0 ANSWER I 2 NOERROR I 1 PAGE I 0 PAGENO)  `%`Yl IljdjlLo h2jjdjko jkdkl$o k Il k@@n o hJ@ AB JH(202Q \FLOPPY.READSECTOR 175Q \PFLOPPY.PAGENOTODISKADDRESS 165Q \FLOPPY.SEVERE.ERROR 141Q \FLOPPY.SETUP 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (207Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 56Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE) ( 162Q "Illegal Read Page Number" 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \PFLOPPY.WRITEPAGENO D1 (P 2 \FLOPPY.IBMD512.FLOPPYIOCB P 0 ANSWER I 2 NOERROR I 1 PAGE I 0 PAGENO)  `%`Yl IljdjlLo h2jjdjko jkdkl$o k Il k@@n o hJ@ AB JH(202Q \FLOPPY.WRITESECTOR 175Q \PFLOPPY.PAGENOTODISKADDRESS 165Q \FLOPPY.SEVERE.ERROR 141Q \FLOPPY.SETUP 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (207Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 56Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE) ( 162Q "Illegal Write Page Number" 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \PFLOPPY.PAGENOTODISKADDRESS D1 (P 4 DISKADDRESS P 3 SECTOR P 2 HEAD P 1 CYLINDER P 0 QUOTIENT I 0 PAGENO) cP@klk[@klXdlZHlY0jI_OdlLo jJ^Ndko kK]Mdl$o (136Q \FLOPPY.SEVERE.ERROR 111Q \FLOPPY.SEVERE.ERROR 64Q \FLOPPY.SEVERE.ERROR) NIL ( 133Q "Illegal Diskaddress" 106Q "Illegal Diskaddress" 61Q "Illegal Diskaddress") \PFLOPPY.DISKADDRESSTOPAGENO D1 (L (0 DISKADDRESS)) @l@n@llNIL NIL () \PFLOPPY.DIR.GET D1 (P 7 PFALLOC P 6 VERSION P 5 EXTENSION P 4 NAME P 3 VALIST P 2 EALIST P 1 NALIST P 0 UNAME I 1 RECOG I 0 FILENAME)  Ago@ bAgPd Xg Hg Hg `(LI MJ NAK ^K `(_h_@OiO(142Q ASSOC 135Q \PFLOPPY.DIR.VERSION 125Q ASSOC 116Q ASSOC 72Q U-CASE 67Q LISTGET 57Q U-CASE 54Q LISTGET 44Q U-CASE 41Q LISTGET 32Q UNPACKFILENAME 15Q \FLOPPY.ASSUREFILENAME) (176Q PFALLOC 157Q PFINFO 152Q FDEV 147Q \FLOPPYFDEV 106Q PFINFO 101Q FDEV 76Q \FLOPPYFDEV 64Q EXTENSION 51Q NAME 36Q VERSION 23Q EXACT 6 NEW) () \PFLOPPY.DIR.PUT D1 (P 6 VERSION P 5 EXTENSION P 4 NAME P 3 VALIST P 2 EALIST P 1 NALIST P 0 UNAME I 2 PFALLOC I 1 RECOG I 0 FILENAME) p@ bd Xdg ^Hg \Hg ]`(YLI ZMJ [NAK ^HgN Hg H bB@NBK [MKJ ZLJI Y`(IB(201Q \FLOPPY.LEXPUTASSOC 172Q \FLOPPY.LEXPUTASSOC 163Q \FLOPPY.LEXPUTASSOC 144Q PACKFILENAME 140Q LISTPUT 131Q LISTPUT 120Q \PFLOPPY.DIR.VERSION 110Q ASSOC 101Q ASSOC 55Q U-CASE 52Q LISTGET 42Q U-CASE 37Q LISTGET 27Q U-CASE 24Q LISTGET 14Q UNPACKFILENAME 6 \FLOPPY.ASSUREFILENAME) (215Q PFINFO 210Q FDEV 205Q \FLOPPYFDEV 152Q PFALLOC 135Q HOST 125Q VERSION 71Q PFINFO 64Q FDEV 61Q \FLOPPYFDEV 47Q EXTENSION 34Q NAME 21Q VERSION) () \PFLOPPY.DIR.REMOVE D1 (P 7 VERSION P 6 EXTENSION P 5 NAME P 4 VALIST P 3 EALIST P 2 NALIST P 1 UNAME P 0 FILENAME I 0 PFALLOC) @Xd Ydg _Ig ]Ig ^`(ZMJ [NK \OgL _dL \dNLK MKJ NK [MKJ MJ `(J@(201Q \FLOPPY.LEXREMOVEASSOC 173Q \FLOPPY.LEXPUTASSOC 163Q \FLOPPY.LEXREMOVEASSOC 154Q \FLOPPY.LEXPUTASSOC 145Q \FLOPPY.LEXPUTASSOC 134Q \FLOPPY.LEXREMOVEASSOC 125Q \PFLOPPY.DIR.VERSION 112Q ASSOC 103Q ASSOC 57Q U-CASE 54Q LISTGET 44Q U-CASE 41Q LISTGET 30Q U-CASE 25Q LISTGET 15Q UNPACKFILENAME) (215Q PFINFO 210Q FDEV 205Q \FLOPPYFDEV 121Q OLD 73Q PFINFO 66Q FDEV 63Q \FLOPPYFDEV 51Q EXTENSION 36Q NAME 22Q VERSION 6 PFALLOC) () \PFLOPPY.DIR.VERSION D1 (I 2 VALIST I 1 RECOG I 0 VERSION) B1HIbAg2d)g'dddJ KhZYHXK&Zgb@FAdgBk ddd&kgB AdgBg@(210Q SHOULDNT 161Q LAST 126Q LAST) (203Q EXACT 171Q OLDEST 153Q OLD 112Q NEW 77Q NEW 30Q OLD 17Q OLD/NEW) () \PFLOPPY.GETFILENAMEA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILE) P h(3 \FLOPPY.ASSUREFILENAME) NIL () \PFLOPPY.GETFILENAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 7 VALIST P 6 EALIST P 5 NALIST P 4 VERSION P 3 EXTENSION P 2 NAME P 1 UNAME P 0 FILENAME F 10Q FILE F 11Q RECOG F 12Q RESETY) `hi W`Wxshlo dbWgTH Yg Ig Ig `(JM KN _LWO IgL I XH ci(222Q \FLOPPY.ADDDEVICENAME 214Q PACKFILENAME 207Q LISTPUT 176Q \PFLOPPY.DIR.VERSION 162Q ASSOC 153Q ASSOC 127Q LISTGET 117Q LISTGET 107Q LISTGET 100Q UNPACKFILENAME 57Q \PFLOPPY.GETFILENAMEA0001A0002 44Q \FLOPPY.CACHED.READ 37Q \FLOPPY.EXISTSP 7 OBTAIN.MONITORLOCK) (203Q VERSION 143Q PFINFO 136Q FDEV 133Q \FLOPPYFDEV 124Q VERSION 114Q EXTENSION 104Q NAME 71Q EXACT 30Q STREAM 21Q STREAMTYPE# 2 \FLOPPYLOCK) ( 54Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.GETFILENAME D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 RECOG I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.GETFILENAMEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.CREATE.PFILELIST D1 (P 0 PFILELIST I 0 NPAGES) #@ XdnHkH@nllH(6 \FLOPPY.BUFFER) NIL () \PFLOPPY.ADD.TO.PFILELIST D1 (P 22Q \INTERRUPTABLE P 10Q NPMPAGE P 7 PMPAGE P 6 NEXT P 5 NEWPFILELIST P 4 NPAGES P 3 NENTRIES P 2 PFLE P 1 PFILELIST P 0 PSECTOR9 I 0 PFALLOC) 0`(X`(Y`H_O_dO @Ȇ_dO@_dO@_ȂOȁ_dOZHlH_Ok @J I[dIjIlln\k ]ILnĿM`(IIL b`(h_"_ h @@_N_`(@oOl̓On͆OlOnH@HL@kOi NkOi i i JjIKlll IKkh_"o O"3i/O (705Q EQUAL 656Q \MOVEWORDS 635Q \PFLOPPY.SAVE.PSECTOR9 630Q \PFLOPPY.SAVE.PFILELIST 623Q \PFLOPPY.WRITEPAGENO 604Q \PFLOPPY.WRITEPAGENO 401Q \PFLOPPY.DEALLOCATE 340Q \PFLOPPY.ALLOCATE 275Q \PFLOPPY.CREATE.PFILELIST 224Q \PUTSWAPPEDFIXP 73Q \PUTSWAPPEDFIXP) (674Q PFALLOC 611Q PFALLOC 572Q PFALLOC 562Q PSECTOR9 551Q PFALLOC 545Q PSECTOR9 533Q PMPAGE 521Q PMPAGE 506Q PMPAGE 474Q PMPAGE 460Q PFALLOC 446Q PFINFO 441Q FDEV 436Q \FLOPPYFDEV 426Q PFALLOC 415Q PFALLOC 406Q PFALLOC 356Q PFINFO 351Q FDEV 346Q \FLOPPYFDEV 333Q \PFLOPPYPFILELIST 323Q PFINFO 316Q FDEV 313Q \FLOPPYFDEV 230Q PFALLOC 206Q PSECTOR9 177Q PSECTOR9 150Q PMPAGE 143Q PFALLOC 124Q PFALLOC 105Q PMPAGE 100Q PFALLOC 51Q PSECTOR9 44Q PFLETYPE# 36Q PFINFO 31Q FDEV 26Q \FLOPPYFDEV 20Q PFINFO 13Q FDEV 10Q \FLOPPYFDEV) ( 702Q (PFILELIST) 464Q (PFILELIST)) \PFLOPPY.DELETE.FROM.PFILELIST D1 (P 7 \NewBaseAddr P 6 I P 3 NENTRIES P 2 FILEID P 1 PFLE P 0 PFILELIST I 0 PFALLOC) P`(X@ Yd\LZH[dkNM]HNllOO Jj8KkٻHKllHNlll HKllHKll HKNk^@h h(200Q \ZEROWORDS 152Q \MOVEWORDS 112Q \FLOPPY.MTL.FIXP) (221Q PFALLOC 33Q PFLE 24Q PFALLOC 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.SAVE.PFILELIST D1 (P 2 I P 0 PFILELIST I 0 NOERROR) Q0`(XdllnkjJI(`(JHJn@ JkZh(106Q \PFLOPPY.WRITEPAGENO) (67Q PSECTOR9 62Q PFINFO 55Q FDEV 52Q \FLOPPYFDEV 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.SAVE.PSECTOR9 D1 (P 1 \FLOPPY.IBMS128.FLOPPYIOCB I 0 NOERROR) `(`Hl HljdjlLo h2jjdjko jkdkl$o k Hj IjdjlLo jjdjko jkl l l$o l `(@ Ih(260Q \FLOPPY.WRITESECTOR 232Q \FLOPPY.SEVERE.ERROR 206Q \FLOPPY.SEVERE.ERROR 165Q \FLOPPY.SEVERE.ERROR 141Q \FLOPPY.SETUP 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (265Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 252Q PFINFO 245Q FDEV 242Q \FLOPPYFDEV 56Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE) ( 227Q "Illegal Diskaddress" 203Q "Illegal Diskaddress" 162Q "Illegal Diskaddress" 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \PFLOPPY.WRITEPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkع(33Q \PFLOPPY.WRITEPAGE) NIL () \PFLOPPY.WRITEPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 PAGENO P 1 PFALLOC P 0 STREAM F 4 FILE F 5 FIRSTPAGE# F 6 BUFFER F 7 RESETY) P`hi @T X YIUkZII[ȂKȁkI JV hci(110Q \PFLOPPY.WRITEPAGENO 101Q \PFLOPPY.EXTEND 17Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (61Q PMPAGE 54Q PFALLOC 46Q PFALLOC 33Q PFALLOC 23Q STREAM 2 \FLOPPYLOCK) () \PFLOPPY.WRITEPAGE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFER I 1 FIRSTPAGE# I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ J(43Q BLOCK 36Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.WRITEPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.TRUNCATEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 PLPAGE P 1 PFALLOC P 0 STREAM F 11Q LASTPAGE F 12Q LASTOFFSET F 13Q FILE F 14Q RESETY) `hi W WH cH cH Y WnW__lOnn Ol O[K dOO Ol O\ L O]MdNN WjIWkIWl hci(263Q \PFLOPPY.TRUNCATE 237Q \PUTSWAPPEDFIXP 164Q \PUTSWAPPEDFIXP 124Q \PUTSWAPPEDFIXP 20Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (216Q PLPAGE 202Q PLPAGE 172Q PLPAGE 142Q PLPAGE 132Q PLPAGE 104Q PLPAGE 61Q PFALLOC 53Q STREAM 42Q STREAM 31Q STREAM 2 \FLOPPYLOCK) () \PFLOPPY.TRUNCATEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 LASTOFFSET I 1 LASTPAGE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.TRUNCATEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.FORMAT D1 (P 20Q \FLOPPY.IBMD512.FLOPPYIOCB P 17Q \FLOPPY.IBMD256.FLOPPYIOCB P 16Q \FLOPPY.IBMS128.FLOPPYIOCB P 15Q VALUE P 5 PFLE P 4 PFILELIST P 3 PMPAGE2310 P 2 PMPAGE34 P 1 PMPAGE31 P 0 PSECTOR9 I 2 SLOWFLG I 1 AUTOCONFIRMFLG I 0 NAME) q oAi hl \nLkLkLle`dk dndl dl]jLll `djdlj djdlj dl̓dn͆dlk dll dkdn2`dldndlk dll dj̓dj͆dlj dln dkdn2`djdlj djdln dj̓dlj dj͆dlj dkdn2`dl dlk dldl j dll dldldlMdkdn  @ _HO ljNNljlHl_dOH_dOdjCdkkOkH BHi li d`'`_l OljdjlLo h2jjdjko jkdkl$o k Oj OjdjlLo jjdjko jkdkl$o kki O`'`_l OljdjlLo h3jjdjko jkdkl$o k Ol OjdjlLo jjkkdo nkdkl$o kki Oi i `'`_l OljdjlLo h3jjdjko jkdkl$o k Ol O jkklLo ojdjko jkdkl$o klLi O jkklLo ojkkdo nkdkl$o klLi O ibo wlIi l Li l!Lni l"Ji n Ki `'`_l OljdjlLo h2jjdjko jkdkl$o k Oj OjdjlLo jjdjko jkl l l$o l Hi Oibo i(2551Q \FLOPPY.MESSAGE 2526Q \FLOPPY.WRITESECTOR 2514Q \FLOPPY.SEVERE.ERROR 2470Q \FLOPPY.SEVERE.ERROR 2447Q \FLOPPY.SEVERE.ERROR 2422Q \FLOPPY.SETUP 2413Q \PUTFIXP 2404Q \FLOPPY.SEVERE.ERROR 2362Q \FLOPPY.SEVERE.ERROR 2332Q \FLOPPY.SEVERE.ERROR 2301Q \FLOPPY.SETUP 2255Q \PFLOPPY.WRITEPAGENO 2241Q \PFLOPPY.WRITEPAGENO 2226Q \PFLOPPY.WRITEPAGENO 2207Q \PFLOPPY.WRITEPAGENO 2174Q \PFLOPPY.WRITEPAGENO 2161Q \FLOPPY.MESSAGE 2136Q \FLOPPY.FORMATTRACKS 2124Q \FLOPPY.SEVERE.ERROR 2100Q \FLOPPY.SEVERE.ERROR 2054Q \FLOPPY.SEVERE.ERROR 2031Q \FLOPPY.FORMATTRACKS 2017Q \FLOPPY.SEVERE.ERROR 1775Q \FLOPPY.SEVERE.ERROR 1751Q \FLOPPY.SEVERE.ERROR 1724Q \FLOPPY.SETUP 1714Q \PUTFIXP 1705Q \FLOPPY.SEVERE.ERROR 1663Q \FLOPPY.SEVERE.ERROR 1633Q \FLOPPY.SEVERE.ERROR 1602Q \FLOPPY.SETUP 1556Q \FLOPPY.RECALIBRATE 1546Q \FLOPPY.INITIALIZE 1527Q \FLOPPY.FORMATTRACKS 1516Q \FLOPPY.SEVERE.ERROR 1472Q \FLOPPY.SEVERE.ERROR 1451Q \FLOPPY.SEVERE.ERROR 1424Q \FLOPPY.SETUP 1414Q \PUTFIXP 1405Q \FLOPPY.SEVERE.ERROR 1363Q \FLOPPY.SEVERE.ERROR 1333Q \FLOPPY.SEVERE.ERROR 1302Q \FLOPPY.SETUP 1247Q \FLOPPY.FORMATTRACKS 1236Q \FLOPPY.SEVERE.ERROR 1214Q \FLOPPY.SEVERE.ERROR 1173Q \FLOPPY.SEVERE.ERROR 1146Q \FLOPPY.SETUP 1137Q \PUTFIXP 1130Q \FLOPPY.SEVERE.ERROR 1106Q \FLOPPY.SEVERE.ERROR 1056Q \FLOPPY.SEVERE.ERROR 1025Q \FLOPPY.SETUP 1001Q \FLOPPY.RECALIBRATE 771Q \FLOPPY.INITIALIZE 754Q \FLOPPY.CAN.WRITEP 750Q RPLSTRING 745Q SUBSTRING 640Q NCHARS 624Q MKSTRING 555Q \PUTSWAPPEDFIXP 543Q \PUTSWAPPEDFIXP 524Q \PUTSWAPPEDFIXP 464Q \PUTSWAPPEDFIXP 446Q \PUTSWAPPEDFIXP 430Q \PUTSWAPPEDFIXP 410Q \PUTSWAPPEDFIXP 351Q \PUTSWAPPEDFIXP 336Q \PUTSWAPPEDFIXP 313Q \PUTSWAPPEDFIXP 301Q \PUTSWAPPEDFIXP 232Q \PUTSWAPPEDFIXP 220Q \PUTSWAPPEDFIXP 172Q \PUTSWAPPEDFIXP 154Q \PUTSWAPPEDFIXP 132Q \MOVEWORDS 73Q \PUTSWAPPEDFIXP 33Q \FLOPPY.BUFFER 25Q \FLOPPY.CLOSE 17Q \PFLOPPY.CONFIRM 5 \FLOPPY.UNCACHED.WRITE) (2533Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 2337Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 2307Q FLOPPYIOCB 2271Q FLOPPYIOCBTYPE# 2264Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 2143Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 1640Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 1610Q FLOPPYIOCB 1572Q FLOPPYIOCBTYPE# 1565Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 1534Q \\FLOPPY.IBMD256.FLOPPYIOCB.GLOBALRESOURCE 1340Q \\FLOPPY.IBMD256.FLOPPYIOCB.GLOBALRESOURCE 1310Q FLOPPYIOCB 1272Q FLOPPYIOCBTYPE# 1265Q \\FLOPPY.IBMD256.FLOPPYIOCB.GLOBALRESOURCE 1254Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 1063Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 1033Q FLOPPYIOCB 1015Q FLOPPYIOCBTYPE# 1010Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 740Q PSECTOR9 701Q PSECTOR9 633Q PSECTOR9 505Q PSECTOR9TYPE# 372Q PMPAGETYPE# 253Q PMPAGETYPE# 136Q PMPAGETYPE# 65Q PFLETYPE#) ( 2546Q "RETRYING FORMAT" 2511Q "Illegal Diskaddress" 2465Q "Illegal Diskaddress" 2444Q "Illegal Diskaddress" 2401Q "Illegal Diskaddress" 2357Q "Illegal Diskaddress" 2327Q "Illegal Diskaddress" 2156Q "RETRYING FORMAT" 2121Q "Illegal Diskaddress" 2075Q "Illegal Diskaddress" 2061Q 200000Q 2051Q "Illegal Diskaddress" 2014Q "Illegal Diskaddress" 1772Q "Illegal Diskaddress" 1756Q 200000Q 1746Q "Illegal Diskaddress" 1702Q "Illegal Diskaddress" 1660Q "Illegal Diskaddress" 1630Q "Illegal Diskaddress" 1513Q "Illegal Diskaddress" 1467Q "Illegal Diskaddress" 1446Q "Illegal Diskaddress" 1402Q "Illegal Diskaddress" 1360Q "Illegal Diskaddress" 1330Q "Illegal Diskaddress" 1233Q "Illegal Diskaddress" 1211Q "Illegal Diskaddress" 1170Q "Illegal Diskaddress" 1125Q "Illegal Diskaddress" 1103Q "Illegal Diskaddress" 1053Q "Illegal Diskaddress" 12Q "Destroy contents of floppy") \PFLOPPY.CONFIRM D1 (P 2 ANSWER P 1 STRING P 0 PSECTOR9 I 2 NOERROR I 1 AUTOCONFIRMFLG I 0 MESSAGE) `BABHo ApHA@olHlлdKHljLLljdMdjCdk o @o hdI dgiZghZ|iBJo jJ(227Q \FLOPPY.BREAK 205Q \FLOPPY.UNCACHED.WRITE 201Q SHOULDNT 154Q ASKUSER 145Q CONCAT 134Q CONCAT 125Q MKATOM 25Q \FLOPPY.BREAK 11Q \PFLOPPY.GET.PSECTOR9) (171Q N 160Q Y 64Q PSECTOR9) ( 224Q "User confirmation required." 142Q "? " 131Q "? " 43Q " " 22Q "Not a pilot floppy") \PFLOPPY.GET.NAME D1 NIL J`(1lHlйdIHljJJljdKdjCdk (107Q MKATOM 5 \PFLOPPY.OPEN.PSECTOR9 2 \FLOPPY.UNCACHED.READ) (46Q PSECTOR9 20Q PFINFO 13Q FDEV 10Q \FLOPPYFDEV) () \PFLOPPY.SET.NAME D1 (P 5 VALUE P 0 \INTERRUPTABLE I 0 NAME) @`(@ LM ljIIljlLlкdJLdKdjCdkkMkL `(1lIlкdJIljKKljdLdjCdk (255Q MKATOM 152Q \PFLOPPY.SAVE.PSECTOR9 146Q RPLSTRING 143Q SUBSTRING 45Q NCHARS 34Q MKSTRING 5 \PFLOPPY.OPEN.PSECTOR9 2 \FLOPPY.UNCACHED.WRITE) (214Q PSECTOR9 166Q PFINFO 161Q FDEV 156Q \FLOPPYFDEV 136Q PSECTOR9 103Q PSECTOR9 41Q PSECTOR9 23Q PFINFO 16Q FDEV 13Q \FLOPPYFDEV) () \PFLOPPY.ALLOCATE D1 (P 6 \INTERRUPTABLE P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PFLENGTH P 0 FREE I 0 LENGTH) `X @ ]ȂMȁ@lIl I@ I@lH@l7IHl2 HoHZȃkRH[Jk̓Jn͆LkLnHkJi KkLi H(303Q \PFLOPPY.ICHECK 277Q \PFLOPPY.ALLOCATE.WATCHDOG 273Q \PFLOPPY.WRITEPAGENO 255Q \PFLOPPY.WRITEPAGENO 120Q \PFLOPPY.TRUNCATE 67Q \PFLOPPY.GAINSPACE 55Q \PFLOPPY.GAINSPACE 14Q \PFLOPPY.GAINSPACE 5 \PFLOPPY.ALLOCATE.LARGEST) (262Q PFALLOC 244Q PFALLOC 232Q PMPAGE 222Q PMPAGE 210Q PMPAGE 200Q PMPAGE 166Q PFALLOC 160Q PFALLOC 146Q PMPAGE 140Q PFALLOC 125Q PFALLOC 27Q PMPAGE 22Q PFALLOC) ( 131Q (FILE)) \PFLOPPY.ALLOCATE.LARGEST D1 (P 5 PFALLOC P 1 ANSWER P 0 LENGTH) [@jX`(LI]o (MZȂJȁHMY[ȂKȁL\(54Q EQUAL 34Q \PFLOPPY.ICHECK) (114Q PMPAGE 107Q PFALLOC 67Q PMPAGE 62Q PFALLOC 43Q PFALLOC 17Q PFINFO 12Q FDEV 7 \FLOPPYFDEV) ( 51Q (FREE)) \PFLOPPY.TRUNCATE D1 (P 16Q \INTERRUPTABLE P 5 TAIL P 4 FPMPAGE P 3 FREE P 2 NPMPAGE P 1 NEXT P 0 PMPAGE I 1 LENGTH I 0 PFALLOC) l A@^ȂNȁO@X@YdZ`dlA Hȃ_dOHȆ_dOH_ȂOȁjAk_dlO dj̓dj͆dkdn2\`do@Ak_dOdL[@`( ]HlL_O JlL_ȂOȁ JLȃJLȆMKM@KK@KIIK@kHi KkLi IkJi h(550Q \PFLOPPY.ICHECK 544Q \PFLOPPY.WRITEPAGENO 526Q \PFLOPPY.WRITEPAGENO 510Q \PFLOPPY.WRITEPAGENO 371Q \PUTSWAPPEDFIXP 341Q \PUTSWAPPEDFIXP 306Q MEMB 170Q \PUTSWAPPEDFIXP 72Q \PUTSWAPPEDFIXP) (533Q PFALLOC 515Q PFALLOC 477Q PFALLOC 467Q PFALLOC 457Q PFALLOC 447Q PFALLOC 437Q PFALLOC 417Q PMPAGE 413Q PMPAGE 402Q PMPAGE 376Q PMPAGE 355Q PMPAGE 346Q PMPAGE 325Q PMPAGE 316Q PMPAGE 301Q PFINFO 274Q FDEV 271Q \FLOPPYFDEV 240Q PFALLOC 223Q PFALLOCTYPE# 135Q PMPAGE 116Q PMPAGE 77Q PMPAGE 61Q PMPAGETYPE# 53Q PFALLOC 44Q PFALLOC 35Q PFALLOC 14Q PMPAGE 7 PFALLOC) ( 231Q (FREE)) \PFLOPPY.DEALLOCATE D1 (P 3 \INTERRUPTABLE P 2 NPMPAGE P 1 NEXT P 0 PMPAGE I 0 PFALLOC) o0@h @X@YdZ@oHj͆Hj̓JjJj@kHi IkJi h(153Q \PFLOPPY.ICHECK 147Q \PFLOPPY.WRITEPAGENO 131Q \PFLOPPY.WRITEPAGENO) (136Q PFALLOC 120Q PFALLOC 110Q PMPAGE 100Q PMPAGE 70Q PMPAGE 60Q PMPAGE 45Q PFALLOC 33Q PFALLOC 24Q PFALLOC 15Q PFALLOC 6 PFALLOC) ( 51Q (FREE)) \PFLOPPY.EXTEND D1 (P 31Q J P 30Q I P 26Q \FLOPPY.SCRATCH.BUFFER P 25Q \INTERRUPTABLE P 21Q TAIL2 P 20Q TAIL1 P 17Q NEXT2 P 16Q NEXT1 P 15Q PREV2 P 14Q PREV1 P 13Q PMPAGE2 P 12Q PMPAGE1 P 11Q START2 P 10Q START1 P 7 NEW P 6 TAIL P 5 LENGTH P 4 OLDLENGTH P 3 NNPMPAGE P 2 NNEXT P 1 PMPAGE P 0 NEXT I 0 PFALLOC) `@Xdo H@HZ@_$ȂO$ȁJj@kؽ@`( IlM KlM KkKnNd@JJ@@kIi JkKi MLl7@Ll2 h@_&ȂO&ȁl2 _o `Wl @@_(ȂO(ȁk@OO0O.#O,o @ @_O_@_O_@_O_@_O_@`( _ O`( _"@OOO@OOOOiO\ONOA@OOO@OOOO OO"@@ O h@O@OhO2O0O, O0k_0O2k_2(1170Q \PFLOPPY.WRITEPAGENO 1165Q \PFLOPPY.READPAGENO 1074Q \PFLOPPY.ICHECK 1071Q \PFLOPPY.DEALLOCATE 1064Q \PFLOPPY.ADD.TO.PFILELIST 707Q MEMB 663Q MEMB 536Q \PFLOPPY.DELETE.FROM.PFILELIST 532Q \FLOPPY.MESSAGE 425Q \FLOPPY.BUFFER 407Q \FLOPPY.MESSAGE 376Q \PFLOPPY.ALLOCATE 344Q \PFLOPPY.ICHECK 340Q \PFLOPPY.TRUNCATE 320Q \PFLOPPY.WRITEPAGENO 302Q \PFLOPPY.WRITEPAGENO 214Q \PUTSWAPPEDFIXP 200Q \PUTSWAPPEDFIXP 161Q MEMB 31Q EQUAL) (1150Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 1135Q PFALLOC 1124Q PFALLOC 1112Q PFALLOC 1101Q PFALLOC 1040Q PFALLOC 1026Q PFALLOC 1015Q PFALLOC 1003Q PFALLOC 752Q PFALLOC 740Q PFALLOC 727Q PFALLOC 715Q PFALLOC 702Q PFINFO 675Q FDEV 672Q \FLOPPYFDEV 656Q PFINFO 651Q FDEV 646Q \FLOPPYFDEV 636Q PFALLOC 625Q PFALLOC 615Q PFALLOC 604Q PFALLOC 574Q PFALLOC 563Q PFALLOC 553Q PFALLOC 542Q PFALLOC 522Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 476Q PFALLOC 467Q PFALLOC 447Q PMPAGE 442Q PFALLOC 434Q PFALLOC 412Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 357Q PMPAGE 352Q PFALLOC 307Q PFALLOC 271Q PFALLOC 261Q PFALLOC 251Q PFALLOC 231Q PMPAGE 221Q PMPAGE 205Q PMPAGE 171Q PMPAGE 154Q PFINFO 147Q FDEV 144Q \FLOPPYFDEV 131Q PFALLOC 122Q PFALLOC 104Q PMPAGE 77Q PFALLOC 70Q PFALLOC 62Q PFALLOC 53Q PFALLOC 41Q PFALLOC 20Q PFALLOC 11Q PFALLOC) ( 527Q "Finished Reallocating" 404Q "Reallocating" 26Q (FREE)) \PFLOPPY.GAINSPACE D1 (P 3 PFALLOC P 0 PFALLOCS I 0 LENGTH) ] `(Jh3h[o KYȂIȁ@KiJZgli (130Q \LISPERROR 56Q EQUAL 5 \PFLOPPY.GAINSPACE.MERGE) (122Q {FLOPPY} 71Q PMPAGE 64Q PFALLOC 45Q PFALLOC 21Q PFINFO 14Q FDEV 11Q \FLOPPYFDEV) ( 53Q (FREE)) \PFLOPPY.GAINSPACE.MERGE D1 (P 17Q P P 16Q \INTERRUPTABLE P 7 LENGTH P 6 NPMPAGE P 5 PMPAGE P 4 NEXT P 3 LAST P 2 OTHERS P 1 FREE P 0 PFALLOCS) F `(XHh__hYdK_o 4O+Oo OOiO1 Oo Od:OZ [ILLjIk_J2_OOh__O_O&_dOH ILLIMlO NlO IkMi LkNi (500Q \PFLOPPY.ICHECK 474Q \PFLOPPY.WRITEPAGENO 456Q \PFLOPPY.WRITEPAGENO 440Q \PUTSWAPPEDFIXP 423Q \PUTSWAPPEDFIXP 362Q DREMOVE 224Q LAST 201Q EQUAL 120Q EQUAL 62Q EQUAL 23Q \PFLOPPY.ICHECK) (463Q PFALLOC 445Q PFALLOC 430Q PMPAGE 413Q PMPAGE 403Q PFALLOC 373Q PFALLOC 331Q PFALLOC 265Q PFALLOC 256Q PFALLOC 247Q PFALLOC 240Q PFALLOC 231Q PFALLOC 210Q PFALLOC 170Q PFALLOC 156Q PFALLOC 134Q PFALLOC 127Q PFALLOC 107Q PFALLOC 102Q PFALLOC 71Q PFALLOC 51Q PFALLOC 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 176Q (FREE) 115Q (FREE) 57Q (FREE)) \PFLOPPY.ALLOCATE.WATCHDOG D1 (P 0 FREEPAGES) &``hXlHd o (41Q \FLOPPY.MESSAGE 32Q CONCAT 17Q \PFLOPPY.FREE.PAGES) (10Q \PFLOPPYFDEV 5 \FLOPPYFDEV) ( 36Q " pages left.") \PFLOPPY.FREE.PAGES D1 (P 3 PFALLOC P 0 ANSWER) D@jX`(ZHk[o HKYȂIȁkظJ(47Q EQUAL) (63Q PMPAGE 56Q PFALLOC 36Q PFALLOC 17Q PFINFO 12Q FDEV 7 \FLOPPYFDEV) ( 44Q (FREE)) \PFLOPPY.LENGTHS D1 (P 4 P) 7P`(!d\[ȂKȁIHhZH&JNIL (34Q PMPAGE 27Q PFALLOC 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.STARTS D1 NIL ,0`(dIHhZH&JNIL (26Q PFALLOC 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.ICHECK D1 (P 16Q F P 14Q P2 P 13Q P1 P 4 PMPAGE2 P 3 PMPAGE1 P 2 PFALLOCS P 1 LENGTHS P 0 STARTS F 17Q \OPENFILES) XYHd o Ih]Rho Ij ONOI njo `(Zd O3JJ" OahjNNiM_OO_O__OJ OOJ o O__OJJ" O5<_OOOOo O_O_W_OWOJh_OO_ȂOȁklOjo O_O_o_`"O `( o O_(643Q \FLOPPY.SEVERE.ERROR 633Q MEMB 546Q \FLOPPY.SEVERE.ERROR 412Q \FLOPPY.SEVERE.ERROR 312Q \FLOPPY.SEVERE.ERROR 302Q MEMB 254Q MEMB 117Q \FLOPPY.SEVERE.ERROR 100Q LENGTH 56Q \FLOPPY.SEVERE.ERROR 35Q \FLOPPY.SEVERE.ERROR 25Q EQUAL 22Q SORT 17Q COPY 11Q \PFLOPPY.LENGTHS 5 \PFLOPPY.STARTS) (626Q PFINFO 621Q FDEV 616Q \FLOPPYFDEV 611Q STREAM 601Q \FLOPPYFDEV 574Q STREAM 531Q PFALLOC 505Q PMPAGE 500Q PFALLOC 471Q PFALLOC 375Q PFALLOC 362Q PFALLOC 274Q PFALLOC 263Q PFALLOC 246Q PFALLOC 236Q PFALLOC 133Q PFINFO 126Q FDEV 123Q \FLOPPYFDEV) ( 640Q "Streams Allocation Error" 543Q "Lengths3 Allocation Error" 407Q "Links2 Allocation Error" 307Q "Links Allocation Error" 114Q "Lengths2 Allocation Error" 53Q "Lengths1 Allocation Error" 32Q "Starts Allocation Error") \PFLOPPY.ALLOCATIONS D1 (P 5 I P 3 PFALLOC P 0 REGION)  `llM hdd`hdddggj `(J ` h[o DKKYȂIȁkKML`MklMklk Mk]JZ(215Q BITMAPBIT 121Q EQUAL 101Q EDITBM 46Q BKBITBLT 15Q BITMAPCREATE) (175Q \FLOPPY.ALLOCATIONS.BITMAP 160Q PFALLOC 142Q PMPAGE 135Q PFALLOC 127Q PFALLOC 110Q PFALLOC 76Q \FLOPPY.ALLOCATIONS.BITMAP 61Q PFINFO 54Q FDEV 51Q \FLOPPYFDEV 41Q REPLACE 36Q TEXTURE 27Q \FLOPPY.ALLOCATIONS.BITMAP 20Q \FLOPPY.ALLOCATIONS.BITMAP 5 \FLOPPY.ALLOCATIONS.BITMAP) ( 116Q (FREE)) FLOPPY.FREE.PAGESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETY) 8`hi dgdgdggci(62Q SHOULDNT 56Q \CFLOPPY.FREE.PAGES 45Q \PFLOPPY.FREE.PAGES 17Q FLOPPY.MODE 13Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (51Q CPM 37Q SYSOUT 31Q HUGEPILOT 23Q PILOT 2 \FLOPPYLOCK) () FLOPPY.FREE.PAGES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.FREE.PAGESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.FORMATA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 NAME F 1 AUTOCONFIRMFLG F 2 SLOWFLG F 3 RESETY) :`hi dgdgdgPQR gPQR ci(64Q SHOULDNT 60Q \CFLOPPY.FORMAT 44Q \PFLOPPY.FORMAT 13Q FLOPPY.MODE 7 OBTAIN.MONITORLOCK) (50Q CPM 33Q SYSOUT 25Q HUGEPILOT 17Q PILOT 2 \FLOPPYLOCK) () FLOPPY.FORMAT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 SLOWFLG I 1 AUTOCONFIRMFLG I 0 NAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.FORMATA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.NAME D1 (I 0 NAME) @ (11Q FLOPPY.SET.NAME 5 FLOPPY.GET.NAME) NIL () FLOPPY.GET.NAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETY) ,`hi dgdgdgci(46Q SHOULDNT 41Q \PFLOPPY.GET.NAME 13Q FLOPPY.MODE 7 OBTAIN.MONITORLOCK) (33Q SYSOUT 25Q HUGEPILOT 17Q PILOT 2 \FLOPPYLOCK) () FLOPPY.GET.NAME D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.GET.NAMEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.SET.NAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 NAME F 1 RESETY) -`hi dgdgdgP ci(47Q SHOULDNT 42Q \PFLOPPY.SET.NAME 13Q FLOPPY.MODE 7 OBTAIN.MONITORLOCK) (33Q SYSOUT 25Q HUGEPILOT 17Q PILOT 2 \FLOPPYLOCK) () FLOPPY.SET.NAME D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 NAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.SET.NAMEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.CAN.READPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 ANSWER F 1 RESETY) `hi i ci(23Q \FLOPPY.CAN.READP 16Q \FLOPPY.INITIALIZE 7 OBTAIN.MONITORLOCK) (2 \FLOPPYLOCK) () FLOPPY.CAN.READP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.CAN.READPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.CAN.WRITEPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 ANSWER F 1 RESETY) `hi i ci(23Q \FLOPPY.CAN.WRITEP 16Q \FLOPPY.INITIALIZE 7 OBTAIN.MONITORLOCK) (2 \FLOPPYLOCK) () FLOPPY.CAN.WRITEP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.CAN.WRITEPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.WAIT.FOR.FLOPPYA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 NEWFLG F 1 RESETY) =`hi Pi Pn hci(63Q DISMISS 50Q FLOPPY.CAN.READP 43Q \FLOPPY.CAN.READP 35Q BLOCK 27Q BLOCK 22Q FLOPPY.CAN.READP 13Q \FLOPPY.CLOSE 7 OBTAIN.MONITORLOCK) (2 \FLOPPYLOCK) () FLOPPY.WAIT.FOR.FLOPPY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 NEWFLG F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.WAIT.FOR.FLOPPYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SFLOPPY.INIT D1 NIL ``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dg8dg6dg4dg2dg0dg.dg*dg$d h(306Q \MAKE.PMAP.DEVICE) (302Q \SFLOPPYFDEV 274Q \GENERIC.READP 265Q NILL 256Q \IS.NOT.RANDACCESSP 247Q \ILLEGAL.DEVICEOP 240Q \IS.NOT.RANDACCESSP 231Q \ILLEGAL.DEVICEOP 222Q \GENERIC.BINS 213Q \GENERIC.BOUTS 204Q NILL 175Q \SFLOPPYINFO 166Q \SFLOPPY.WRITEPAGES 157Q NILL 150Q NILL 141Q \SFLOPPY.OPENHUGEFILE 132Q \SFLOPPY.READPAGES 123Q \SFLOPPY.OPENHUGEFILE 114Q \FLOPPY.HOSTNAMEP 105Q \PFLOPPY.GETFILENAME 76Q \SFLOPPY.GETFILEINFO 67Q \PFLOPPY.GENERATEFILES 60Q \FLOPPY.EVENTFN 51Q TRUE 42Q NILL 33Q \SFLOPPY.CLOSEHUGEFILE 16Q FLOPPY 11Q FDEVTYPE# 6 \SFLOPPYINFO 2 PFINFOTYPE#) () \SFLOPPY.GETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 ANSWER P 1 PLPAGE P 0 STREAM F 16Q FILE F 17Q ATTRIBUTE F 20Q RESETY) m`hi  W XWdgI[K 0dgI\L dgI]M dgI^N dgI_OdgHIFdkg_IjllgI_ljOOOhdgIjlkIcdgITdgI_O>dgI_ O )dgI_ O gI_O c i(204Q \FLOPPY.MTL.IDATE 153Q \FLOPPY.MTL.IDATE 122Q GDATE 117Q \FLOPPY.MTL.IDATE 66Q GDATE 63Q \FLOPPY.MTL.IDATE 24Q \PFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (535Q PLPAGE 526Q HUGELENGTH 511Q PLPAGE 502Q HUGEPAGELENGTH 464Q PLPAGE 455Q HUGEPAGESTART 437Q PLPAGE 430Q PAGELENGTH 420Q PLPAGE 411Q MESATYPE 401Q PLPAGE 364Q PLPAGE 354Q BYTESIZE 317Q PLPAGE 311Q BINARY 271Q PLPAGE 262Q TEXT 247Q PLPAGE 237Q TYPE 222Q PLPAGE 213Q LENGTH 172Q PLPAGE 162Q ICREATIONDATE 141Q PLPAGE 131Q IWRITEDATE 105Q PLPAGE 75Q CREATIONDATE 51Q PLPAGE 41Q WRITEDATE 30Q STREAM 2 \FLOPPYLOCK) () \SFLOPPY.GETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 ATTRIBUTE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFLOPPY.GETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SFLOPPY.OPENHUGEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 STREAM F 1 \SFLOPPY.OTHERINFO F 2 RECOG F 3 ACCESS F 4 OTHERINFO F 5 RESETY) `hi SdgRdgrT cRggQ nn`i oi i gQ ghQc`n``Q =l cugRdgxl cZSl cP``Q c i(311Q \SFLOPPY.INPUTFLOPPY 272Q \LISPERROR 256Q \LISPERROR 223Q \LISPERROR 214Q \SFLOPPY.OUTPUTFLOPPY 155Q ASSOC 145Q TERPRI 140Q PRIN1 127Q PRIN1 100Q ASSOC 65Q IDATE 46Q \FLOPPY.OTHERINFO 7 OBTAIN.MONITORLOCK) (305Q \SFLOPPY.FILENAME 302Q \SFLOPPY.FLOPPYNAME 244Q OLD 234Q INPUT 210Q \SFLOPPY.FILENAME 205Q \SFLOPPY.FLOPPYNAME 174Q \HFLOPPY.MAXPAGES 162Q LENGTH 151Q LENGTH 122Q \HFLOPPY.MAXPAGES 117Q \SFLOPPY.HUGEPAGELENGTH 104Q \SFLOPPY.HUGELENGTH 74Q LENGTH 70Q \SFLOPPY.IWRITEDATE 55Q NEW 41Q \SFLOPPY.RECOG 33Q NEW 20Q OUTPUT 2 \FLOPPYLOCK) ( 134Q " floppies. will be required") \SFLOPPY.OPENHUGEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFLOPPY.OPENHUGEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SFLOPPY.WRITEPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkع(33Q \SFLOPPY.WRITEPAGE) NIL () \SFLOPPY.WRITEPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 \FLOPPY.SCRATCH.BUFFER P 0 NEWSTREAM F 3 STREAM F 4 \SFLOPPY.OTHERINFO F 5 \SFLOPPY.PAGES F 6 RESETY F 7 BUFFER) `hi  U`KS gT ghTc`n```nٹdII``TS c`.l JWnĿS`J J`khc ih(170Q \PFLOPPY.WRITEPAGE 145Q \FLOPPY.BUFFER 130Q \SFLOPPY.OUTPUTFLOPPY 42Q ASSOC 32Q RINGBELLS 26Q \SFLOPPY.CLOSEFLOPPY 7 OBTAIN.MONITORLOCK) (220Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 206Q \SFLOPPY.PAGENO 201Q \SFLOPPY.PAGENO 175Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 164Q \SFLOPPY.PAGENO 136Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 123Q \SFLOPPY.FILENAME 120Q \SFLOPPY.FLOPPYNAME 76Q \HFLOPPY.MAXPAGES 73Q \SFLOPPY.FLOPPYNO 70Q \SFLOPPY.HUGELENGTH 61Q \HFLOPPY.MAXPAGES 47Q LENGTH 36Q LENGTH 17Q \SFLOPPY.PAGENO 2 \FLOPPYLOCK) () \SFLOPPY.WRITEPAGE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFER I 1 FIRSTPAGE# I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFLOPPY.WRITEPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SFLOPPY.READPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) /`gBddhjHh@AIJ HIkع(43Q \SFLOPPY.READPAGE) (5 NEW 2 \SFLOPPY.RECOG) () \SFLOPPY.READPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 NEWSTREAM F 1 STREAM F 2 \SFLOPPY.PAGES F 3 RESETY F 4 \SFLOPPY.OTHERINFO F 5 BUFFER) B`hi R`Q ``TQ cQ`U `khci(61Q \PFLOPPY.READPAGE 46Q \SFLOPPY.INPUTFLOPPY 32Q RINGBELLS 26Q \SFLOPPY.CLOSEFLOPPY 7 OBTAIN.MONITORLOCK) (72Q \SFLOPPY.PAGENO 65Q \SFLOPPY.PAGENO 55Q \SFLOPPY.PAGENO 41Q \SFLOPPY.FILENAME 36Q \SFLOPPY.FLOPPYNAME 17Q \SFLOPPY.PAGENO 2 \FLOPPYLOCK) () \SFLOPPY.READPAGE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFER I 1 FIRSTPAGE# I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFLOPPY.READPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SFLOPPY.CLOSEHUGEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 FULLFILENAME F 1 STREAM F 2 \SFLOPPY.HACK.STREAM F 3 \SFLOPPY.HACK.MODE F 4 RESETY) U`hi `gh:Q Q nQ nnQ QRS hcHci(110Q FLOPPY.MODE 77Q \SFLOPPY.CLOSEFLOPPY 32Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (72Q \SFLOPPY.HUGEPAGELENGTH 57Q \SFLOPPY.HUGELENGTH 51Q STREAM 37Q STREAM 21Q OLD 16Q \SFLOPPY.RECOG 2 \FLOPPYLOCK) () \SFLOPPY.CLOSEHUGEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFLOPPY.CLOSEHUGEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SFLOPPY.INPUTFLOPPY D1 (P 1 STREAM P 0 FLOPPYNAME#I I 3 OLDSTREAM I 2 OTHERINFO I 1 FILENAME I 0 FLOPPYNAME F 5 \SFLOPPY.PAGES) PCk`k@o` X`ki oi Hi i i AggB YjCGIZJ I[ K I`n I`n I  CICYI\Lc I(113Q \PFLOPPY.OPENFILE 77Q FLOPPY.WAIT.FOR.FLOPPY 72Q TERPRI 65Q PRIN1 57Q PRIN1 45Q \FLOPPY.UNCACHED.READ 32Q CONCAT) (275Q PLPAGE 270Q STREAM 254Q STREAM 250Q STREAM 237Q STREAM 233Q STREAM 220Q \SFLOPPY.HUGELENGTH 215Q STREAM 202Q \SFLOPPY.HUGELENGTH 177Q STREAM 172Q \SFLOPPY.HUGEPAGELENGTH 160Q PLPAGE 153Q STREAM 146Q \SFLOPPY.HUGELENGTH 134Q PLPAGE 127Q STREAM 120Q \SFLOPPY.PAGENO 107Q OLD 104Q INPUT 36Q \SFLOPPY.FLOPPYNO 27Q \SFLOPPY.FLOPPYNO 16Q \SFLOPPY.FLOPPYNO 11Q \SFLOPPY.FLOPPYNO) ( 53Q "Insert floppy " 24Q "#") \SFLOPPY.OUTPUTFLOPPY D1 (P 6 VALUE P 1 STREAM P 0 FLOPPYNAME#I I 3 OLDSTREAM I 2 OTHERINFO I 1 FILENAME I 0 FLOPPYNAME F 7 \SFLOPPY.PAGES) PCk`k@o` X`ki oi Hi i i Hh` AggB YjgB nncC/IgA IA MN ldJ"J!I  CICYldlMlлdKMdLdjCdkkNkM I AI(360Q RPLSTRING 355Q SUBSTRING 220Q NCHARS 207Q MKSTRING 170Q PACK* 137Q ASSOC 123Q \PFLOPPY.OPENFILE 110Q \PFLOPPY.FORMAT 77Q FLOPPY.WAIT.FOR.FLOPPY 72Q TERPRI 65Q PRIN1 57Q PRIN1 45Q \FLOPPY.UNCACHED.READ 32Q CONCAT) (372Q PFALLOC 365Q STREAM 350Q PLPAGE 315Q PLPAGE 256Q STREAM 252Q STREAM 241Q STREAM 235Q STREAM 214Q PLPAGE 176Q STREAM 164Q {FLOPPY} 161Q STREAM 133Q LENGTH 130Q \SFLOPPY.PAGENO 117Q NEW 114Q OUTPUT 105Q \SFLOPPY.SLOWFLG 36Q \SFLOPPY.FLOPPYNO 27Q \SFLOPPY.FLOPPYNO 16Q \SFLOPPY.FLOPPYNO 11Q \SFLOPPY.FLOPPYNO) ( 53Q "Insert floppy to become " 24Q "#") \SFLOPPY.CLOSEFLOPPY D1 (P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PLPAGE P 0 PFALLOC I 0 STREAM) P@ gz@`@ @ Xd Ydl` Il` Il ``k Il ` Il ` HI h(204Q \PFLOPPY.SAVE.PSECTOR9 201Q \PFLOPPY.SAVE.PFILELIST 176Q \PFLOPPY.WRITEPAGENO 164Q \PUTSWAPPEDFIXP 147Q \PUTSWAPPEDFIXP 132Q \PUTSWAPPEDFIXP 107Q \PUTSWAPPEDFIXP 104Q \FLOPPY.LTM.IDATE 67Q \PUTSWAPPEDFIXP 64Q \FLOPPY.LTM.IDATE 31Q \PFLOPPY.TRUNCATEFILE 6 \GETACCESS) (170Q PFALLOC 161Q \SFLOPPY.HUGELENGTH 153Q PLPAGE 144Q \SFLOPPY.HUGEPAGELENGTH 136Q PLPAGE 124Q \SFLOPPY.FLOPPYNO 121Q \HFLOPPY.MAXPAGES 113Q PLPAGE 101Q \SFLOPPY.IWRITEDATE 73Q PLPAGE 61Q \SFLOPPY.IWRITEDATE 53Q PLPAGE 44Q PFALLOC 35Q STREAM 24Q STREAM 20Q \SFLOPPY.PAGENO 11Q INPUT) () \SFLOPPY.HACK D1 (I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE F 0 \SFLOPPY.HACK.MODE F 1 \SFLOPPY.HACK.STREAM) (g g g c@ABC`E c(43Q \SFLOPPY.OPENHUGEFILE 25Q FLOPPY.MODE 15Q FLOPPY.MODE 5 STKPOS) (36Q \FLOPPYFDEV 22Q SYSOUT 12Q SYSOUT 2 \COPYSYS) () \HFLOPPY.INIT D1 NIL ``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dg8dg6dg4dg2dg0dg.dg*dg$d h(306Q \MAKE.PMAP.DEVICE) (302Q \HFLOPPYFDEV 274Q \GENERIC.READP 265Q NILL 256Q \IS.NOT.RANDACCESSP 247Q \ILLEGAL.DEVICEOP 240Q \IS.NOT.RANDACCESSP 231Q \ILLEGAL.DEVICEOP 222Q \GENERIC.BINS 213Q \GENERIC.BOUTS 204Q NILL 175Q \HFLOPPYINFO 166Q \HFLOPPY.WRITEPAGES 157Q NILL 150Q NILL 141Q \HFLOPPY.OPENHUGEFILE 132Q \HFLOPPY.READPAGES 123Q \HFLOPPY.OPENHUGEFILE 114Q \FLOPPY.HOSTNAMEP 105Q \PFLOPPY.GETFILENAME 76Q \HFLOPPY.GETFILEINFO 67Q \PFLOPPY.GENERATEFILES 60Q \FLOPPY.EVENTFN 51Q TRUE 42Q NILL 33Q \HFLOPPY.CLOSEHUGEFILE 16Q FLOPPY 11Q FDEVTYPE# 6 \HFLOPPYINFO 2 PFINFOTYPE#) () \HFLOPPY.GETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 ANSWER P 1 PLPAGE P 0 STREAM F 16Q FILE F 17Q ATTRIBUTE F 20Q RESETY) m`hi  W XWdgI[K 0dgI\L dgI]M dgI^N dgI_OdgHIFdkg_IjllgI_ljOOOhdgIjlkIcdgITdgI_O>dgI_ O )dgI_ O gI_O c i(204Q \FLOPPY.MTL.IDATE 153Q \FLOPPY.MTL.IDATE 122Q GDATE 117Q \FLOPPY.MTL.IDATE 66Q GDATE 63Q \FLOPPY.MTL.IDATE 24Q \PFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (535Q PLPAGE 526Q HUGELENGTH 511Q PLPAGE 502Q HUGEPAGELENGTH 464Q PLPAGE 455Q HUGEPAGESTART 437Q PLPAGE 430Q PAGELENGTH 420Q PLPAGE 411Q MESATYPE 401Q PLPAGE 364Q PLPAGE 354Q BYTESIZE 317Q PLPAGE 311Q BINARY 271Q PLPAGE 262Q TEXT 247Q PLPAGE 237Q TYPE 222Q PLPAGE 213Q LENGTH 172Q PLPAGE 162Q ICREATIONDATE 141Q PLPAGE 131Q IWRITEDATE 105Q PLPAGE 75Q CREATIONDATE 51Q PLPAGE 41Q WRITEDATE 30Q STREAM 2 \FLOPPYLOCK) () \HFLOPPY.GETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 ATTRIBUTE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \HFLOPPY.GETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \HFLOPPY.OPENHUGEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 STREAM F 1 \HFLOPPY.OTHERINFO F 2 RECOG F 3 ACCESS F 4 \HFLOPPY.FLOPPYNAME F 5 FILE F 6 OTHERINFO F 7 RESETY) `hi SdgRdg|U cRV cRggQ nn`i oi i gQ ghQc`nT`Q ;l ckgRdgnl cPSl cFT`Q ci(321Q \HFLOPPY.INPUTFLOPPY 304Q \LISPERROR 270Q \LISPERROR 235Q \LISPERROR 226Q \HFLOPPY.OUTPUTFLOPPY 171Q ASSOC 161Q TERPRI 154Q PRIN1 143Q PRIN1 114Q ASSOC 101Q IDATE 62Q \FLOPPY.OTHERINFO 43Q \FLOPPY.ASSUREFILENAME 7 OBTAIN.MONITORLOCK) (315Q \HFLOPPY.FILENAME 256Q OLD 246Q INPUT 222Q \HFLOPPY.FILENAME 210Q \HFLOPPY.MAXPAGES 176Q LENGTH 165Q LENGTH 136Q \HFLOPPY.MAXPAGES 133Q \HFLOPPY.HUGEPAGELENGTH 120Q \HFLOPPY.HUGELENGTH 110Q LENGTH 104Q \HFLOPPY.IWRITEDATE 71Q NEW 55Q \HFLOPPY.RECOG 46Q \HFLOPPY.FILENAME 33Q NEW 20Q OUTPUT 2 \FLOPPYLOCK) ( 150Q " floppies. will be required") \HFLOPPY.OPENHUGEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) .@ABCDE "S!Tog hgZ JI(51Q ERROR! 44Q RESETRESTORE 32Q \HFLOPPY.OPENHUGEFILEA0001 11Q \SFLOPPY.HACK) (40Q ERROR 27Q INTERNAL) ( 24Q (DUMMY.FOR.ERRORSET)) \HFLOPPY.WRITEPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkع(33Q \HFLOPPY.WRITEPAGE) NIL () \HFLOPPY.WRITEPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 \FLOPPY.SCRATCH.BUFFER P 0 NEWSTREAM F 3 STREAM F 4 \HFLOPPY.OTHERINFO F 5 \HFLOPPY.PAGES F 6 RESETY F 7 \HFLOPPY.FLOPPYNAME F 10Q BUFFER) `hi  U`JS gT ghTc`n```nٹdIIW`TS c`.l JWnĿS`J J`khc ih(167Q \PFLOPPY.WRITEPAGE 144Q \FLOPPY.BUFFER 127Q \HFLOPPY.OUTPUTFLOPPY 42Q ASSOC 32Q RINGBELLS 26Q \HFLOPPY.CLOSEFLOPPY 7 OBTAIN.MONITORLOCK) (217Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 205Q \HFLOPPY.PAGENO 200Q \HFLOPPY.PAGENO 174Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 163Q \HFLOPPY.PAGENO 135Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 122Q \HFLOPPY.FILENAME 76Q \HFLOPPY.MAXPAGES 73Q \HFLOPPY.FLOPPYNO 70Q \HFLOPPY.HUGELENGTH 61Q \HFLOPPY.MAXPAGES 47Q LENGTH 36Q LENGTH 17Q \HFLOPPY.PAGENO 2 \FLOPPYLOCK) () \HFLOPPY.WRITEPAGE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFER I 1 FIRSTPAGE# I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \HFLOPPY.WRITEPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \HFLOPPY.READPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) /`gBddhjHh@AIJ HIkع(43Q \HFLOPPY.READPAGE) (5 NEW 2 \HFLOPPY.RECOG) () \HFLOPPY.READPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 NEWSTREAM F 1 STREAM F 2 \HFLOPPY.PAGES F 3 \HFLOPPY.FLOPPYNAME F 4 RESETY F 5 \HFLOPPY.OTHERINFO F 6 BUFFER) @`hi R`Q S`UQ cQ`V `khci(57Q \PFLOPPY.READPAGE 44Q \HFLOPPY.INPUTFLOPPY 32Q RINGBELLS 26Q \HFLOPPY.CLOSEFLOPPY 7 OBTAIN.MONITORLOCK) (70Q \HFLOPPY.PAGENO 63Q \HFLOPPY.PAGENO 53Q \HFLOPPY.PAGENO 37Q \HFLOPPY.FILENAME 17Q \HFLOPPY.PAGENO 2 \FLOPPYLOCK) () \HFLOPPY.READPAGE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFER I 1 FIRSTPAGE# I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \HFLOPPY.READPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \HFLOPPY.CLOSEHUGEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 FULLFILENAME F 1 STREAM F 2 RESETY) F`hi `gh+Q Q nQ nnQ ci(77Q \HFLOPPY.CLOSEFLOPPY 32Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (72Q \HFLOPPY.HUGEPAGELENGTH 57Q \HFLOPPY.HUGELENGTH 51Q STREAM 37Q STREAM 21Q OLD 16Q \HFLOPPY.RECOG 2 \FLOPPYLOCK) () \HFLOPPY.CLOSEHUGEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \HFLOPPY.CLOSEHUGEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \HFLOPPY.INPUTFLOPPY D1 (P 1 STREAM P 0 FLOPPYNAME#I I 3 OLDSTREAM I 2 OTHERINFO I 1 FILENAME I 0 FLOPPYNAME F 5 \HFLOPPY.PAGES) PCk`k@o` X`ki oi Hi i i AggB YjCGIZJ I[ K I`n I`n I  CICYI\Lc I(113Q \PFLOPPY.OPENFILE 77Q FLOPPY.WAIT.FOR.FLOPPY 72Q TERPRI 65Q PRIN1 57Q PRIN1 45Q \FLOPPY.UNCACHED.READ 32Q CONCAT) (275Q PLPAGE 270Q STREAM 254Q STREAM 250Q STREAM 237Q STREAM 233Q STREAM 220Q \HFLOPPY.HUGELENGTH 215Q STREAM 202Q \HFLOPPY.HUGELENGTH 177Q STREAM 172Q \HFLOPPY.HUGEPAGELENGTH 160Q PLPAGE 153Q STREAM 146Q \HFLOPPY.HUGELENGTH 134Q PLPAGE 127Q STREAM 120Q \HFLOPPY.PAGENO 107Q OLD 104Q INPUT 36Q \HFLOPPY.FLOPPYNO 27Q \HFLOPPY.FLOPPYNO 16Q \HFLOPPY.FLOPPYNO 11Q \HFLOPPY.FLOPPYNO) ( 53Q "Insert floppy " 24Q "#") \HFLOPPY.OUTPUTFLOPPY D1 (P 1 STREAM P 0 FLOPPYNAME#I I 3 OLDSTREAM I 2 OTHERINFO I 1 FILENAME I 0 FLOPPYNAME F 2 \HFLOPPY.PAGES)  Ck`k@o` X`ki oi Hi i i Hh` AggB YjgB nncCII  CIC(137Q ASSOC 123Q \PFLOPPY.OPENFILE 110Q \PFLOPPY.FORMAT 77Q FLOPPY.WAIT.FOR.FLOPPY 72Q TERPRI 65Q PRIN1 57Q PRIN1 45Q \FLOPPY.UNCACHED.READ 32Q CONCAT) (203Q STREAM 177Q STREAM 166Q STREAM 162Q STREAM 133Q LENGTH 130Q \HFLOPPY.PAGENO 117Q NEW 114Q OUTPUT 105Q \HFLOPPY.SLOWFLG 36Q \HFLOPPY.FLOPPYNO 27Q \HFLOPPY.FLOPPYNO 16Q \HFLOPPY.FLOPPYNO 11Q \HFLOPPY.FLOPPYNO) ( 53Q "Insert floppy to become " 24Q "#") \HFLOPPY.CLOSEFLOPPY D1 (P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PLPAGE P 0 PFALLOC I 0 STREAM) P@ gz@`@ @ Xd Ydl` Il` Il ``k Il ` Il ` HI h(204Q \PFLOPPY.SAVE.PSECTOR9 201Q \PFLOPPY.SAVE.PFILELIST 176Q \PFLOPPY.WRITEPAGENO 164Q \PUTSWAPPEDFIXP 147Q \PUTSWAPPEDFIXP 132Q \PUTSWAPPEDFIXP 107Q \PUTSWAPPEDFIXP 104Q \FLOPPY.LTM.IDATE 67Q \PUTSWAPPEDFIXP 64Q \FLOPPY.LTM.IDATE 31Q \PFLOPPY.TRUNCATEFILE 6 \GETACCESS) (170Q PFALLOC 161Q \HFLOPPY.HUGELENGTH 153Q PLPAGE 144Q \HFLOPPY.HUGEPAGELENGTH 136Q PLPAGE 124Q \HFLOPPY.FLOPPYNO 121Q \HFLOPPY.MAXPAGES 113Q PLPAGE 101Q \HFLOPPY.IWRITEDATE 73Q PLPAGE 61Q \HFLOPPY.IWRITEDATE 53Q PLPAGE 44Q PFALLOC 35Q STREAM 24Q STREAM 20Q \HFLOPPY.PAGENO 11Q INPUT) () FLOPPY.SCAVENGE D1 NIL (10Q \PFLOPPY.SCAVENGE 2 IDATE) (5 \FLOPPY.SCAVENGE.IDATE) () \PFLOPPY.SCAVENGE D1 NIL "o hi(36Q \PFLOPPY.SCAVENGE.PFILELIST 33Q \PFLOPPY.SCAVENGE.PSECTOR9 30Q \FLOPPY.CACHED.WRITE 25Q \PFLOPPY.SCAVENGE.PLPAGES 22Q \PFLOPPY.SCAVENGE.PMPAGES 17Q \FLOPPY.CLOSE 11Q \PFLOPPY.CONFIRM 2 \FLOPPY.UNCACHED.WRITE) NIL ( 6 "Scavenge contents of floppy") \PFLOPPY.SCAVENGE.PMPAGES D1 (P 2 NPMPAGE P 1 PMPAGE P 0 LOCATION) G@lXYn H"IH HI HI[ȂKȁkظJHdn jHI h(103Q \PFLOPPY.WRITEPAGENO 75Q SHOULDNT 33Q \PFLOPPY.WRITEPAGENO 25Q \PFLOPPY.SCAVENGE.PMPAGE.AFTER 10Q \PFLOPPY.SCAVENGE.PMPAGE31) (41Q PMPAGE) () \PFLOPPY.SCAVENGE.PMPAGE31 D1 (P 1 LOCATION P 0 PMPAGE) 8`lYd` Xdn2jHkHlj HjHjHlj Hln IHZȂJȁdKKjLLj H]ȂMȁjHj̓HjHHȃljHȆnjHl̓Hn͆HlkHk̓Hn͆Hlj H`dn2dkdlj djdlj djdlj dk̓dlj dn͆(455Q \PUTSWAPPEDFIXP 437Q \PUTSWAPPEDFIXP 421Q \PUTSWAPPEDFIXP 403Q \PUTSWAPPEDFIXP 351Q \PUTSWAPPEDFIXP 167Q \PUTSWAPPEDFIXP 115Q \PUTSWAPPEDFIXP 61Q \PUTSWAPPEDFIXP 15Q \PFLOPPY.READPAGENO) (356Q PMPAGETYPE# 342Q PMPAGE 330Q PMPAGE 320Q PMPAGE 306Q PMPAGE 274Q PMPAGE 263Q PMPAGE 245Q PMPAGE 231Q PMPAGE 222Q PMPAGE 212Q PMPAGE 174Q PMPAGE 136Q PMPAGE 122Q PMPAGE 106Q PMPAGE 76Q PMPAGE 66Q PMPAGE 52Q PMPAGE 42Q PMPAGE 22Q PMPAGE 11Q PMPAGETYPE#) () \PFLOPPY.SCAVENGE.PMPAGE.AFTER D1 (P 4 LOCATION P 1 LOCATION P 0 PMPAGE I 1 PLOCATION I 0 PPMPAGE) c0`XA@ZȂJȁkYA@IH Hn2jHn AkLK&oi A@LH Hn2jLk\H(113Q \PFLOPPY.SCAVENGE.PMPAGE.AFTER1 103Q PRIN1 36Q \PFLOPPY.SCAVENGE.PMPAGE.AFTER1) (120Q PMPAGE 42Q PMPAGE 14Q PMPAGE 5 PMPAGETYPE#) ( 77Q ".") \PFLOPPY.SCAVENGE.PMPAGE.AFTER1 D1 (I 3 PMPAGE I 2 LOCATION I 1 PPMPAGE I 0 PLOCATION) l@n @@BBdn BC Cn2jBn jCn2CkClBj@k CAȃCAȆClAHȅHȄ Cln BCHȂHȁHdIIjHHj CHȂHȁjCj̓CjHCȃljCȆnjCl̓Cn͆ClkCk̓Cn͆Clj hAlCHH AC̓AlCHH AC͆h(575Q \PUTSWAPPEDFIXP 530Q \PUTSWAPPEDFIXP 475Q \PUTSWAPPEDFIXP 307Q \PUTSWAPPEDFIXP 222Q \PUTSWAPPEDFIXP 136Q \PUTSWAPPEDFIXP 43Q \PFLOPPY.READPAGENO 35Q SHOULDNT 15Q SHOULDNT) (605Q PMPAGE 601Q PMPAGE 557Q PMPAGE 550Q PMPAGE 540Q PMPAGE 534Q PMPAGE 512Q PMPAGE 503Q PMPAGE 466Q PMPAGE 454Q PMPAGE 444Q PMPAGE 432Q PMPAGE 420Q PMPAGE 407Q PMPAGE 371Q PMPAGE 355Q PMPAGE 346Q PMPAGE 336Q PMPAGE 314Q PMPAGE 243Q PMPAGE 227Q PMPAGE 204Q PMPAGE 175Q PMPAGE 164Q PMPAGE 160Q PMPAGE 147Q PMPAGE 143Q PMPAGE 121Q PMPAGE 111Q PMPAGE 77Q PMPAGE 47Q PMPAGE) () \PFLOPPY.SCAVENGE.PLPAGES D1 (P 24Q VALUE P 4 START P 3 LENGTH P 2 PLPAGE P 1 PMPAGE P 0 LOCATION) wPlX`Y`dkFdnEdlDdlCdlddndkdnZn H)HI In2jI]ȂMȁkٻIȃkjHk\J JnJkJnJldJlCJlDJnEJkFJnjJldJlJ^NdKK Jl J_OJ_ O _dOOJ_ O _dOOJ_O nn_dOO Jl J_ O nnJ_O _ dO O Jl` Jl` JlK Jl j Jl K JlKn g _(JO( _"ldO"O"ldlJl_$dO$J_&dO&djCdkkO(kJ LJ HKlظ(1151Q \PFLOPPY.WRITEPAGENO 1143Q RPLSTRING 1140Q SUBSTRING 1027Q NCHARS 1013Q MKSTRING 1010Q GENSYM 776Q \PUTSWAPPEDFIXP 756Q \PUTSWAPPEDFIXP 742Q \PUTSWAPPEDFIXP 726Q \PUTSWAPPEDFIXP 712Q \PUTSWAPPEDFIXP 674Q \PUTSWAPPEDFIXP 653Q \PUTSWAPPEDFIXP 563Q \PUTSWAPPEDFIXP 413Q \PUTSWAPPEDFIXP 211Q \PFLOPPY.READPAGENO 144Q SHOULDNT 123Q \PFLOPPY.READPAGENO) (1133Q PLPAGE 1074Q PLPAGE 1022Q PLPAGE 1005Q ? 763Q PLPAGE 747Q PLPAGE 733Q PLPAGE 717Q PLPAGE 707Q \FLOPPY.SCAVENGE.IDATE 701Q PLPAGE 671Q \FLOPPY.SCAVENGE.IDATE 663Q PLPAGE 624Q PLPAGE 577Q PLPAGE 570Q PLPAGE 524Q PLPAGE 474Q PLPAGE 444Q PLPAGE 427Q PLPAGE 420Q PLPAGE 373Q PLPAGE 364Q PLPAGE 347Q PLPAGE 327Q PLPAGE 317Q PLPAGE 305Q PLPAGE 274Q PLPAGE 263Q PLPAGE 252Q PLPAGE 240Q PLPAGE 230Q PLPAGE 216Q PLPAGE 167Q PMPAGE 151Q PMPAGE 130Q PMPAGE 20Q PLPAGETYPE# 13Q PMPAGETYPE#) () \PFLOPPY.SCAVENGE.PSECTOR9 D1 (P 1 PFALLOC P 0 PSECTOR9) P`(Xdn HkHlMHlHl`(ZhYdo HIHlk HI\ȂLȁHl j Hj Hj HjHjHjHjHkkjhHHdllh[o KYiUJG(360Q EQUAL 340Q \PFLOPPY.SAVE.PSECTOR9 221Q \PUTSWAPPEDFIXP 160Q \PUTSWAPPEDFIXP 130Q \FLOPPY.BREAK) (347Q PFALLOC 321Q PSECTOR9 315Q PSECTOR9 277Q PSECTOR9 270Q PSECTOR9 261Q PSECTOR9 252Q PSECTOR9 243Q PSECTOR9 234Q PSECTOR9 225Q PSECTOR9 212Q PSECTOR9 175Q PMPAGE 170Q PFALLOC 164Q PSECTOR9 151Q PSECTOR9 141Q PFALLOC 135Q PSECTOR9 103Q PFINFO 76Q FDEV 73Q \FLOPPYFDEV 64Q PSECTOR9 54Q PSECTOR9 44Q PSECTOR9 35Q PSECTOR9 24Q PSECTOR9 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 355Q (PFILELIST) 125Q "Can't find PFILELIST") \PFLOPPY.SCAVENGE.PFILELIST D1 (P 0 PFILELIST) $`(Xdl1dl1h(40Q \PFLOPPY.SAVE.PFILELIST) (15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () FLOPPY.TO.FILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 10Q \FLOPPY.IBMS128.FLOPPYIOCB P 7 \FLOPPY.SCRATCH.BUFFER P 6 I P 1 PSECTOR9 P 0 TOSTREAM F 11Q TOFILE F 12Q RESETY) ~ `hi PWgghgohh oH nlNMHj Nk^`7l `&`Zl JljdjlLo h8hjjdjko jkdkl$o k Jj OjdjlLo jjdjko jkl l l$o l O H8HOjnlKOO`)l n lNdMOH hcihO H8HOjnlLNk^(535Q \PFLOPPY.READPAGENO 513Q CLOSEF 457Q \FLOPPY.BUFFER 400Q \FLOPPY.READSECTOR 366Q \FLOPPY.SEVERE.ERROR 342Q \FLOPPY.SEVERE.ERROR 321Q \FLOPPY.SEVERE.ERROR 274Q \FLOPPY.SETUP 266Q \PUTFIXP 257Q \FLOPPY.SEVERE.ERROR 235Q \FLOPPY.SEVERE.ERROR 176Q \FLOPPY.SEVERE.ERROR 145Q \FLOPPY.SETUP 126Q \FLOPPY.BUFFER 104Q \BOUT 62Q PRIN1 51Q OPENSTREAM 16Q \FLOPPY.UNCACHED.READ 7 OBTAIN.MONITORLOCK) (547Q FDEV 542Q STREAM 525Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 506Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 450Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 444Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 436Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 412Q FDEV 405Q STREAM 212Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 203Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 152Q FLOPPYIOCB 136Q FLOPPYIOCBTYPE# 131Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 117Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 34Q LENGTH 30Q NEW 25Q OUTPUT 2 \FLOPPYLOCK) ( 363Q "Illegal Diskaddress" 337Q "Illegal Diskaddress" 316Q "Illegal Diskaddress" 254Q "Illegal Diskaddress" 232Q "Illegal Diskaddress" 173Q "Illegal Diskaddress" 56Q "PILOT" 40Q 4352000Q) FLOPPY.TO.FILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 TOFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.TO.FILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.FROM.FILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 10Q \FLOPPY.IBMS128.FLOPPYIOCB P 7 \FLOPPY.SCRATCH.BUFFER P 6 I P 1 PSECTOR9 P 0 FROMSTREAM F 11Q FROMFILE F 12Q RESETY)  `hi PWgg XHg ojo nkNMH Nk^`7l `&`Zl JljdjlLo h8hjjdjko jkdkl$o k Jj H6HOjnlKOjdjlLo jjdjko jkl l l$o l O OO`(l n lNMOH hcihH6HOjnlLNO Nk^(570Q \PFLOPPY.WRITEPAGENO 515Q CLOSEF 462Q \FLOPPY.BUFFER 433Q \FLOPPY.WRITESECTOR 421Q \FLOPPY.SEVERE.ERROR 375Q \FLOPPY.SEVERE.ERROR 354Q \FLOPPY.SEVERE.ERROR 277Q \FLOPPY.SETUP 271Q \PUTFIXP 262Q \FLOPPY.SEVERE.ERROR 240Q \FLOPPY.SEVERE.ERROR 201Q \FLOPPY.SEVERE.ERROR 150Q \FLOPPY.SETUP 131Q \FLOPPY.BUFFER 70Q \PFLOPPY.FORMAT 63Q \FLOPPY.UNCACHED.WRITE 56Q \FLOPPY.BREAK 37Q GETFILEINFO 26Q OPENSTREAM 7 OBTAIN.MONITORLOCK) (543Q FDEV 536Q STREAM 527Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 510Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 453Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 447Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 441Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 313Q FDEV 306Q STREAM 215Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 206Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 155Q FLOPPYIOCB 141Q FLOPPYIOCBTYPE# 134Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 122Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 34Q LENGTH 23Q OLD 20Q INPUT 2 \FLOPPYLOCK) ( 416Q "Illegal Diskaddress" 372Q "Illegal Diskaddress" 351Q "Illegal Diskaddress" 257Q "Illegal Diskaddress" 235Q "Illegal Diskaddress" 176Q "Illegal Diskaddress" 53Q "Wrong length form FROMFILE" 43Q 4352000Q) FLOPPY.FROM.FILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FROMFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.FROM.FILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FLOPPY.COMPACTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETY) 2`hi dgdgdgghci(54Q SHOULDNT 41Q \PFLOPPY.COMPACT 13Q FLOPPY.MODE 7 OBTAIN.MONITORLOCK) (45Q CPM 33Q SYSOUT 25Q HUGEPILOT 17Q PILOT 2 \FLOPPYLOCK) () FLOPPY.COMPACT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FLOPPY.COMPACTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.COMPACTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 PFALLOCS P 0 PFINFO F 4 RESETY) `hi @ohi r`(XYjZ KdkPo KkػJlI o o o hci(211Q \FLOPPY.MESSAGE 201Q \PFLOPPY.COMPACT.PFILELIST 175Q \PFLOPPY.COMPACT.PSECTOR9 171Q \PFLOPPY.COMPACT.PFALLOCS 165Q \FLOPPY.MESSAGE 154Q EQUAL 132Q LAST 110Q EQUAL 35Q \FLOPPY.CLOSE 30Q \PFLOPPY.CONFIRM 16Q \FLOPPY.CACHED.WRITE 7 OBTAIN.MONITORLOCK) (143Q PFALLOC 136Q PFALLOC 77Q PFALLOC 52Q PFINFO 44Q FDEV 41Q \FLOPPYFDEV 2 \FLOPPYLOCK) ( 206Q "Finished COMPACTing floppy" 162Q "COMPACTing floppy" 151Q (FREE) 105Q (FREE) 23Q "COMPACT contents of floppy") \PFLOPPY.COMPACT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.COMPACTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.COMPACT.PFALLOCS D1 (P 4 LAST P 3 NPMPAGE P 2 NEXT P 1 PREV P 0 PFINFO)  `(X HZo JJJJo JZJ%n II]ȂMȁk`dn2dkI^ȅNȄ_dlO n II_ȂOȁk_dlO dj̓dlj dj͆`doII_ȂOȁkl_dOdKdLLJNII_ȂOȁkn jLZ(II_ȂOȁkn jIJ JYZHL1O O h_"O O"h_ _O_O"&_ (635Q DREVERSE 577Q \PFLOPPY.COMPACT.PFALLOC 571Q SHOULDNT 337Q \PUTSWAPPEDFIXP 321Q \PUTSWAPPEDFIXP 245Q \PUTSWAPPEDFIXP 111Q EQUAL 51Q EQUAL 23Q LAST) (666Q PFALLOC 617Q PFINFO 605Q PFALLOC 542Q PMPAGE 535Q PFALLOC 527Q PFALLOC 474Q PMPAGE 467Q PFALLOC 461Q PFALLOC 450Q PFALLOC 401Q PMPAGE 374Q PFALLOC 366Q PFALLOC 351Q PFALLOCTYPE# 270Q PMPAGE 263Q PFALLOC 255Q PFALLOC 222Q PMPAGE 215Q PFALLOC 174Q PMPAGETYPE# 152Q PMPAGE 145Q PFALLOC 137Q PFALLOC 116Q PFALLOC 100Q PFALLOC 66Q PFALLOC 56Q PFALLOC 40Q PFALLOC 31Q PFINFO 16Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 357Q (FREE) 106Q (FREE) 46Q (FREE)) \PFLOPPY.COMPACT.PFALLOC D1 (P 10Q I P 2 PPMPAGE P 1 NSTART P 0 NPMPAGE I 1 NEXT I 0 PREV F 11Q \FLOPPY.SCRATCH.BUFFER) ? pAXAYA@@qAl Hlj Hlj HjHjAo A AAkH Ao {hAA@@[ȂKȁkl@HlJ\ȂLȁ HlJ]ȅMȄ HJȃHJȆKA^ȂNȁkjOOkAOIOW Ok_(464Q \PFLOPPY.WRITEPAGENO 461Q \PFLOPPY.READPAGENO 345Q \PUTSWAPPEDFIXP 317Q \PUTSWAPPEDFIXP 205Q EQUAL 170Q \PFLOPPY.WRITEPAGENO 130Q EQUAL 72Q \PUTSWAPPEDFIXP 56Q \PUTSWAPPEDFIXP) (443Q PFALLOC 411Q PMPAGE 404Q PFALLOC 373Q PMPAGE 367Q PMPAGE 356Q PMPAGE 352Q PMPAGE 333Q PMPAGE 324Q PMPAGE 305Q PMPAGE 276Q PMPAGE 267Q PFALLOC 243Q PMPAGE 236Q PFALLOC 230Q PFALLOC 224Q PFALLOC 214Q PFALLOC 174Q PFALLOC 160Q PFALLOC 147Q PFALLOC 143Q PFLE 136Q PFALLOC 117Q PFALLOC 107Q PMPAGE 77Q PMPAGE 63Q PMPAGE 47Q PMPAGE 36Q PFALLOC 24Q PFALLOC 15Q PFALLOC 6 PFALLOC) ( 202Q (FREE) 125Q (FREE)) \PFLOPPY.COMPACT.PSECTOR9 D1 (P 1 PSECTOR9 P 0 PFINFO) H@`(XdYdHZhh[o KiJ(73Q EQUAL 53Q \PFLOPPY.SAVE.PSECTOR9) (62Q PFALLOC 44Q PFALLOC 32Q PFINFO 26Q PSECTOR9 17Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 70Q (PFILELIST)) \PFLOPPY.COMPACT.PFILELIST D1 (P 3 PFALLOC P 1 PFILELIST P 0 PFINFO) D `(XdYdjHJh[o K JZ(74Q \PFLOPPY.ADD.TO.PFILELIST 67Q EQUAL 47Q \PFLOPPY.SAVE.PFILELIST) (56Q PFALLOC 32Q PFINFO 17Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 64Q (FREE)) FLOPPY.ARCHIVE D1 (P 4 I P 3 FILE P 2 SIZE P 1 FLOPPYFILE P 0 NAME#I I 1 NAME I 0 FILES) AgbPk@uAgL oi Hi i Lkjh Hhi @Lkذ[g Jl2K Ygg Ig I KI @b(173Q COPYFILE 165Q PACKFILENAME 160Q LISTPUT 150Q LISTPUT 136Q UNPACKFILENAME 122Q FLOPPY.FREE.PAGES 116Q GETFILEINFO 75Q FLOPPY.FORMAT 66Q FLOPPY.WAIT.FOR.FLOPPY 53Q TERPRI 46Q PRIN1 40Q PRIN1 27Q CONCAT) (155Q DIRECTORY 145Q FLOPPY 142Q HOST 113Q SIZE 23Q # 4 ARCHIVE) ( 34Q "Insert floppy ") FLOPPY.UNARCHIVE D1 (P 5 FLOPPYFILE P 4 FILE P 3 DIRECTORY P 2 HOST P 1 NAME P 0 FLOPPYFILES I 0 HOST/DIRECTORY) kP@ bdg Z@g [i Yoi Ii i g Xd)dM \gJ LgK L ML h(142Q COPYFILE 134Q PACKFILENAME 127Q LISTPUT 116Q LISTPUT 106Q UNPACKFILENAME 71Q DIRECTORY 63Q TERPRI 56Q PRIN1 50Q PRIN1 37Q FLOPPY.GET.NAME 34Q FLOPPY.WAIT.FOR.FLOPPY 27Q LISTGET 17Q LISTGET 6 UNPACKFILENAME) (123Q DIRECTORY 112Q HOST 66Q {FLOPPY}* 24Q DIRECTORY 14Q HOST) ( 44Q "Unarchiving floppy ") \CFLOPPY.GET.FCB.FILENAME D1 (P 3 FILENAME P 2 POS P 1 EXTENSION P 0 NAME I 0 FCB) @ld@dldkdjCdkXld@dldl djCdkYoH l kZHkJ oXoI lkZIkJ oYHoI (204Q PACK* 164Q SUBSTRING 147Q STRPOS 130Q SUBSTRING 113Q STRPOS) NIL ( 200Q "." 172Q "" 143Q " " 136Q "" 107Q " ") \CFLOPPY.SET.FCB.FILENAME D1 (P 0 UNAME I 1 FILENAME I 0 FCB) 0A Xdg old@dldkdjCdkko ld@dldkdjCdkkIkI dll o Hg old@dldl djCdkko ld@dldl djCdkkJkJ dll o h(352Q RPLSTRING 341Q SUBSTRING 326Q NCHARS 256Q RPLSTRING 177Q LISTGET 167Q RPLSTRING 156Q SUBSTRING 143Q NCHARS 74Q RPLSTRING 16Q LISTGET 6 UNPACKFILENAME) (174Q EXTENSION 13Q NAME) ( 347Q "" 253Q " " 205Q "" 164Q "" 71Q " " 24Q "") \CFLOPPY.INIT D1 NIL 5l lgjd lghj ojHk njIH``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dg8dg6dg4dg2dg0dg.dg*dg$d h`IJ*IkعHX `IlǿIkY(417Q \MAKE.PMAP.DEVICE 66Q \FLOPPY.BUFFER 36Q ARRAY 21Q ARRAY 4 \FLOPPY.BUFFER) (447Q \CFLOPPYBLANKSECTOR 426Q \CFLOPPYSECTORMAP 413Q \CFLOPPYFDEV 405Q \GENERIC.READP 376Q NILL 367Q \IS.NOT.RANDACCESSP 360Q \ILLEGAL.DEVICEOP 351Q \IS.NOT.RANDACCESSP 342Q \ILLEGAL.DEVICEOP 333Q \GENERIC.BINS 324Q \GENERIC.BOUTS 315Q \CFLOPPY.RENAMEFILE 306Q \CFLOPPYINFO 277Q \CFLOPPY.WRITEPAGES 270Q \CFLOPPY.TRUNCATEFILE 261Q NILL 252Q \CFLOPPY.OPENFILE 243Q \CFLOPPY.READPAGES 234Q \CFLOPPY.OPENFILE 225Q \FLOPPY.HOSTNAMEP 216Q \CFLOPPY.GETFILENAME 207Q \CFLOPPY.GETFILEINFO 200Q \CFLOPPY.GENERATEFILES 171Q \FLOPPY.EVENTFN 162Q TRUE 153Q \CFLOPPY.DELETEFILE 144Q \CFLOPPY.CLOSEFILE 127Q FLOPPY 122Q FDEVTYPE# 117Q \CFLOPPYINFO 113Q CINFOTYPE# 71Q \CFLOPPYBLANKSECTOR 41Q \CFLOPPYDISKMAP 31Q POINTER 24Q \CFLOPPYSECTORMAP 14Q BYTE 7 \CFLOPPYDIRECTORY) ( 45Q (1 7 15Q 23Q 31Q 5 13Q 21Q 27Q 3 11Q 17Q 25Q 2 10Q 16Q 24Q 32Q 6 14Q 22Q 30Q 4 12Q 20Q 26Q)) \CFLOPPY.OPEN D1 NIL I`(9`(hh`(hh`(ii(67Q \CFLOPPY.OPEN.DIRECTORY) (102Q CINFO 75Q FDEV 72Q \FLOPPYFDEV 64Q \CFLOPPYDIR 54Q CINFO 47Q FDEV 44Q \FLOPPYFDEV 41Q \CFLOPPYCALLOCS 31Q CINFO 24Q FDEV 21Q \FLOPPYFDEV 12Q CINFO 5 FDEV 2 \FLOPPYFDEV) () \CFLOPPY.OPEN.DIRECTORYA0002 D1 (L (1 FCB2 0 FCB1)) @AhNIL (12Q FCB 3 FCB) () \CFLOPPY.OPEN.DIRECTORYA0005 D1 (I 1 CALLOC2 I 0 CALLOC1) @A (16Q ALPHORDER) (11Q CALLOC 3 CALLOC) () \CFLOPPY.OPEN.DIRECTORY D1 (P 25Q CALLOC P 23Q BUCKET P 15Q I P 6 CALLOCS P 5 CALLOC P 4 ALIST P 3 FILENAME P 2 FREEGROUPS P 1 FREEFCBS P 0 FCB F 26Q FCBS)  `ji*`ki*ll__OO`Oh*Ok_lj OdO.l?j OO5I Yll2OOO ZL`Ol@ Ok_``Ol_dlO dOlĿXljHIOk_H [L KhL\HKL lj__OO`HlOi*Ok_`O(O_$O"O$h_"_ Ok_AO$&_"dO&O&c,g `dKdW,]N^Ng ^`N`I`JNO(h_*lO*gO* O(_((632Q \CFLOPPY.DIR.PUT 527Q SORT 467Q SORT 317Q ASSOC 300Q ASSOC 273Q \CFLOPPY.GET.FCB.FILENAME 226Q \PUTFIXP 164Q \CFLOPPY.READRECORDNO 117Q DREVERSE) (625Q OLD 620Q CALLOC 604Q CALLOC 560Q CINFO 555Q \CFLOPPYINFO 547Q CINFO 544Q \CFLOPPYINFO 536Q CINFO 533Q \CFLOPPYINFO 524Q \CFLOPPY.OPEN.DIRECTORYA0005 473Q CALLOCTYPE# 464Q \CFLOPPY.OPEN.DIRECTORYA0002 373Q \CFLOPPYDISKMAP 346Q \CFLOPPYDISKMAP 242Q FCB 204Q \CFLOPPYDIRECTORY 200Q FCBTYPE# 153Q \CFLOPPYDIRECTORY 41Q \CFLOPPYDISKMAP 13Q \CFLOPPYDISKMAP 5 \CFLOPPYDISKMAP) () \CFLOPPY.OPENFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ACCESS) Pgi(14Q \FLOPPY.CACHED.WRITE 10Q \FLOPPY.CACHED.READ) (3 INPUT) () \CFLOPPY.OPENFILE D1 (P 4 BUCKET P 3 FULLFILENAME P 2 CALLOC P 1 WAIT P 0 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) @ABCDE @C bo @l @d`BC Xdw AdgTgC YH JkC-JjH[l i bdHLL AgHj Hj H(224Q \CFLOPPY.SETFILEINFO 203Q \LISPERROR 134Q BLOCK 130Q \CFLOPPY.STREAMS.AGAINST 120Q ASSOC 66Q \CFLOPPY.OPENFILE1 47Q \LISPERROR 40Q \CFLOPPY.OPENFILEA0001 26Q \FLOPPY.OTHERINFO 11Q \SFLOPPY.HACK) (253Q STREAM 243Q STREAM 235Q OUTPUT 172Q STREAM 157Q CALLOC 143Q CALLOC 114Q WAIT 105Q INPUT 75Q STREAM 57Q STREAMTYPE#) ( 35Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.OPENFILE1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 STREAM P 4 IDATE P 3 FCB P 2 CALLOC P 1 EXTENSION P 0 FILENAME F 6 RECOG F 7 OTHERINFO F 10Q FILE F 11Q RESETY) `hi `W XV VdgdgJ HW 1 ,dgJHW hdgdgJ ]VdgdgHl i hci(167Q \LISPERROR 137Q SHOULDNT 132Q \CFLOPPY.OPENOLDFILE 104Q \CFLOPPY.OPENNEWFILE 63Q \CFLOPPY.OPENOLDFILE 56Q \CFLOPPY.OPENNEWFILE 25Q \CFLOPPY.DIR.GET 20Q \FLOPPY.ASSUREFILENAME 7 OBTAIN.MONITORLOCK) (155Q OLD/NEW 147Q NEW 123Q OLDEST 115Q OLD 71Q NEW 41Q OLD/NEW 33Q EXACT 2 \FLOPPYLOCK) () \CFLOPPY.OPENFILE1 D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 OTHERINFO I 1 RECOG I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.OPENFILE1A0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.OPENOLDFILE D1 (P 1 STREAM P 0 FCBS I 0 CALLOC) P@dX`d`@ dJ@"@ kl@ ؀jlnۻdK @"@ kl@ ؀jlnܼdL dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhYd@ IHI(175Q LAST 157Q LENGTH 107Q LAST 71Q LENGTH 42Q \FLOPPY.ADDDEVICENAME) (377Q STREAM 370Q STREAM 315Q \STREAM.DEFAULT.MAXBUFFERS 301Q FILELINELENGTH 264Q \FILEOUTCHARFN 255Q \EOSERROR 246Q \NOIMAGEOPS 237Q \STREAM.NOT.OPEN 230Q \STREAM.NOT.OPEN 201Q FCB 170Q CALLOC 152Q CALLOC 142Q CALLOC 113Q FCB 102Q CALLOC 64Q CALLOC 54Q CALLOC 35Q CALLOC 26Q \FLOPPYFDEV 21Q STREAMTYPE# 13Q CALLOC) () \CFLOPPY.OPENNEWFILE D1 (P 5 FCB P 3 STREAM P 2 FCBS P 1 CALLOC P 0 LENGTH I 1 OTHERINFO I 0 FILENAME) PgA Xd dllkX YdZ@gI JdM@ `d`I dLdj dj dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dh[dI KJK(120Q \FLOPPY.ADDDEVICENAME 67Q \CFLOPPY.SET.FCB.FILENAME 53Q \CFLOPPY.DIR.PUT 33Q \CFLOPPY.ALLOCATE 11Q ASSOC) (313Q STREAM 304Q STREAM 231Q \STREAM.DEFAULT.MAXBUFFERS 215Q FILELINELENGTH 200Q \FILEOUTCHARFN 171Q \EOSERROR 162Q \NOIMAGEOPS 153Q \STREAM.NOT.OPEN 144Q \STREAM.NOT.OPEN 113Q CALLOC 104Q \FLOPPYFDEV 77Q STREAMTYPE# 47Q NEW 40Q CALLOC 5 LENGTH) () \CFLOPPY.ASSURESTREAM D1 (P 0 STREAM I 0 FILE) !@d`@g X@l b(33Q \LISPERROR 22Q \CFLOPPY.OPENFILE1) (17Q OLD 10Q STREAMTYPE#) () \CFLOPPY.GETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 ANSWER P 1 LP P 0 STREAM F 3 FILE F 4 RESETY F 5 CALLOC F 6 ATTRIBUTE) +`hi 0S XJci c V (47Q \CFLOPPY.GETFILEINFO1 23Q \CFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (37Q STREAM 2 \FLOPPYLOCK) () \CFLOPPY.GETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 ATTRIBUTE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.GETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.GETFILEINFO1 D1 (P 0 ANSWER I 1 ATTRIBUTE I 0 CALLOC) pAdg0@"@ kl@ ؀jlg1@"@ kl@ ؀jll(135Q LAST 117Q LENGTH 52Q LAST 34Q LENGTH) (141Q FCB 130Q CALLOC 112Q CALLOC 102Q CALLOC 73Q SIZE 56Q FCB 45Q CALLOC 27Q CALLOC 17Q CALLOC 7 LENGTH) () \CFLOPPY.SETFILEINFO D1 NIL hNIL NIL () \CFLOPPY.CLOSEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 FULLFILENAME P 0 STREAM F 2 FILE F 3 RESETY) `hi  R X H ci(30Q \CFLOPPY.CLOSEFILE1 23Q \CLEARMAP 17Q \CFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (2 \FLOPPYLOCK) () \CFLOPPY.CLOSEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.CLOSEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.CLOSEFILE1 D1 (P 4 FULLFILENAME P 3 NMP P 2 NEXT P 1 MP P 0 CALLOC I 0 STREAM) >P@ X@\@ g"H HjjdhHj@ L(72Q \CFLOPPY.DELETEFILE 36Q \CFLOPPY.SAVE.CHANGES 24Q \GETACCESS) (60Q CALLOC 42Q CALLOC 27Q INPUT 15Q STREAM 6 STREAM) () \CFLOPPY.DELETEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 FULLFILENAME P 4 NMP P 3 NEXT P 2 MP P 1 CALLOC P 0 FILENAME F 6 FILE F 7 RECOG F 10Q RESETY) U`hi `V XW Yd3 I IkIjI I I Mci(114Q \CFLOPPY.SAVE.CHANGES 107Q \CFLOPPY.DEALLOCATE 102Q \CFLOPPY.DIR.REMOVE 52Q \CFLOPPY.STREAMS.USING 45Q \FLOPPY.ADDDEVICENAME 31Q \CFLOPPY.DIR.GET 23Q \FLOPPY.ASSUREFILENAME 16Q \CFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (71Q CALLOC 57Q CALLOC 40Q CALLOC 2 \FLOPPYLOCK) () \CFLOPPY.DELETEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 RECOG I 1 FDEV I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) *BgbS!Tog hgZ JI(45Q ERROR! 40Q RESETRESTORE 26Q \CFLOPPY.DELETEFILEA0001) (34Q ERROR 23Q INTERNAL 4 OLDEST) ( 20Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.GETFILENAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 CALLOC P 0 FILENAME F 2 FILE F 3 RECOG F 4 RESETY) ?`hi  R`R R XS Yd ci(70Q \FLOPPY.ADDDEVICENAME 55Q \CFLOPPY.DIR.GET 50Q \FLOPPY.ASSUREFILENAME 42Q \FLOPPY.CACHED.READ 35Q \FLOPPY.EXISTSP 7 OBTAIN.MONITORLOCK) (63Q CALLOC 26Q STREAM 20Q STREAMTYPE# 2 \FLOPPYLOCK) () \CFLOPPY.GETFILENAME D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 RECOG I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.GETFILENAMEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.GENERATEFILESA0001A0002 D1 (I 1 Y I 0 X) @A (16Q UALPHORDER) (11Q CALLOC 3 CALLOC) () \CFLOPPY.GENERATEFILESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 10Q CALLOC P 3 FILEGENOBJ P 2 GENFILESTATE P 1 FILTER P 0 ALLOCS F 11Q PATTERN F 12Q OPTIONS F 13Q FDEV F 14Q RESETY) `hi @$W `(AL2MgW Hg HWhhggJci_lIO O_N Oh^L\O&(170Q DIRECTORY.MATCH 102Q SORT 72Q MEMB 32Q DIRECTORY.MATCH.SETUP 23Q \FLOPPY.CACHED.READ 16Q \FLOPPY.EXISTSP 7 OBTAIN.MONITORLOCK) (163Q CALLOC 145Q CALLOC 127Q \CFLOPPY.FILEINFOFN 124Q \CFLOPPY.NEXTFILEFN 111Q FDEV 77Q \CFLOPPY.GENERATEFILESA0001A0002 65Q SORT 46Q CINFO 41Q FDEV 36Q \FLOPPYFDEV 2 \FLOPPYLOCK) () \CFLOPPY.GENERATEFILES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.GENERATEFILESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.NEXTFILEFN D1 (P 3 ANSWER P 2 DEVICENAME P 1 FILENAME P 0 ALLOCS I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) 5@@Xdh@H@HHY@ZAIo@oI (62Q CONCAT) (30Q CALLOC) ( 56Q "}" 47Q "{") \CFLOPPY.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) @A (7 \CFLOPPY.GETFILEINFO1) NIL () \CFLOPPY.RENAMEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 FCB P 4 FULLFILENAME P 3 FCBS P 2 CALLOC P 1 NEWFILENAME P 0 OLDFILENAME F 6 OLDFILE F 7 NEWFILE F 10Q RESETY F 11Q OLDRECOG F 12Q NEWRECOG) q`hi PV W HW ZdH IWJ JdMI JJJ J J ci(152Q \FLOPPY.ADDDEVICENAME 140Q \CFLOPPY.SAVE.CHANGES 131Q UNION 101Q \CFLOPPY.SET.FCB.FILENAME 57Q \CFLOPPY.DIR.PUT 47Q \CFLOPPY.DIR.REMOVE 40Q \CFLOPPY.DIR.GET 31Q \FLOPPY.ASSUREFILENAME 23Q \FLOPPY.ASSUREFILENAME 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (145Q CALLOC 124Q CALLOC 116Q CALLOC 112Q CALLOC 64Q CALLOC 2 \FLOPPYLOCK) () \CFLOPPY.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 NEWRECOG I 3 OLDRECOG I 2 FDEV I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) 2CgbDgbS!Tog hgZ JI(55Q ERROR! 50Q RESETRESTORE 36Q \CFLOPPY.RENAMEFILEA0001) (44Q ERROR 33Q INTERNAL 14Q NEW 4 OLD) ( 30Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.STREAMS.AGAINST D1 (L (0 STREAM) F 5 \OPENFILES) ?UAHI\`L @ Ld@J KhZYHXK&ZNIL (40Q STREAM 32Q STREAM 23Q \FLOPPYFDEV 16Q STREAM) () \CFLOPPY.STREAMS.USING D1 (L (0 CALLOC) F 5 \OPENFILES) 6UAHI\`Ld @J KhZYHXK&ZNIL (33Q STREAM 23Q \FLOPPYFDEV 16Q STREAM) () \CFLOPPY.READPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkع(33Q \CFLOPPY.READPAGE) NIL () \CFLOPPY.READPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 4 I P 2 RECORDNO P 1 CALLOC P 0 STREAM F 5 FIRSTPAGE# F 6 FILE F 7 BUFFER F 10Q RESETY) `hi 0V X UH