(FILECREATED "20-Mar-84 19:48:46" ("compiled on " {PHYLUM}SOURCES>FLOPPY.;3) "15-Mar-84 00:01:01" tcompl'd in WORK dated "15-Mar-84 00:13:18") (FILECREATED "20-Mar-84 19:45:55" {PHYLUM}SOURCES>FLOPPY.;3 200902 changes to: (VARS FLOPPYCOMS) (RECORDS DISKADDRESS IOCB RESULT SECTOR9 MP LP FILELIST FLE FLOPPYSTREAM FILEGENOBJ GENFILESTATE PALLOC PINFO PFLOPPYFDEV CFLOPPYFDEV CINFO FCB) (FNS \FLOPPY.TRANSLATERESULT \FLOPPY.SEVERE.ERROR \FLOPPY.TRANSLATEMPETYPE \FLOPPY.TRANSLATEFILETYPE \FLOPPY.MTL.FIXP \FLOPPY.LTM.FIXP \FLOPPY.MTL.IDATE \FLOPPY.LTM.IDATE \FLOPPY.TRANSLATESETUP \FLOPPY.SETUP \FLOPPY.CHECK.IOCB \FLOPPY.DENSITY \FLOPPY.SECTORLENGTH \FLOPPY.ENCODEDSECTORLENGTH \FLOPPY.GAP3 \FLOPPY.SECTORSPERTRACK \FLOPPY.RUN \FLOPPY.LOCK.BUFFER \FLOPPY.UNLOCK.BUFFER \FLOPPY.ERROR \FLOPPY.PREPAREFORCRASH \FLOPPY.COMMAND \FLOPPY.TRANSFER \FLOPPY.NOP \FLOPPY.RECALIBRATE \FLOPPY.INITIALIZE \FLOPPY.FORMATTRACKS \FLOPPY.READSECTOR \FLOPPY.WRITESECTOR \FLOPPY.RECOVER FLOPPY.RESTART FLOPPY.MODE \FLOPPY.EVENTFN \FLOPPY.CLOSE \FLOPPY.FLUSH \FLOPPY.HOSTNAMEP \FLOPPY.ADDDEVICENAME \FLOPPY.ASSUREFILENAME \FLOPPY.OTHERINFO \FLOPPY.LEXASSOC \FLOPPY.LEXPUTASSOC \FLOPPY.LEXREMOVEASSOC \FLOPPY.CATCH \FLOPPY.THROW \FLOPPY.BREAK \FLOPPY.MESSAGE \PFLOPPY.INIT \PFLOPPY.OPEN \PFLOPPY.DOORCHECK \PFLOPPY.START \PFLOPPY.OPEN.SECTOR9 \PFLOPPY.GET.SECTOR9 \PFLOPPY.OPEN.FILELIST \PFLOPPY.OPENFILE \PFLOPPY.OPENFILE1 \PFLOPPY.OPENOLDFILE \PFLOPPY.OPENNEWFILE \PFLOPPY.ASSURESTREAM \PFLOPPY.GETFILEINFO \PFLOPPY.SETFILEINFO \PFLOPPY.CLOSEFILE \PFLOPPY.CLOSEFILE1 \PFLOPPY.DELETEFILE \PFLOPPY.GETFILENAME \PFLOPPY.GENERATEFILES \PFLOPPY.GENERATEFILES1 \PFLOPPY.RENAMEFILE \PFLOPPY.STREAMS.AGAINST \PFLOPPY.STREAMS.USING \PFLOPPY.READPAGES \PFLOPPY.READPAGE \PFLOPPY.WRITEPAGENO \PFLOPPY.READPAGENO \PFLOPPY.PAGENOTODISKADDRESS \PFLOPPY.DISKADDRESSTOPAGENO \PFLOPPY.DIR.GET \PFLOPPY.DIR.PUT \PFLOPPY.DIR.REMOVE \PFLOPPY.DIR.VERSION \PFLOPPY.CREATE.FILELIST \PFLOPPY.ADD.TO.FILELIST \PFLOPPY.DELETE.FROM.FILELIST \PFLOPPY.SAVE.FILELIST \PFLOPPY.SAVE.SECTOR9 \PFLOPPY.WRITEPAGES \PFLOPPY.WRITEPAGE \PFLOPPY.TRUNCATEFILE FLOPPY.CROCK \PFLOPPY.ALLOCATE \PFLOPPY.ALLOCATE.LARGEST \PFLOPPY.TRUNCATE \PFLOPPY.DEALLOCATE \PFLOPPY.EXTEND \PFLOPPY.GAINSPACE \PFLOPPY.GAINSPACE.MERGE FLOPPY.BUG FRESH.FLOPPY FLOPPY.LENGTHS FLOPPY.STARTS FLOPPY.ICHECK FLOPPY.ALLOCATIONS FLOPPY.FREE.PAGES \PFLOPPY.FREE.PAGES FLOPPY.FORMAT \PFLOPPY.FORMAT \PFLOPPY.CONFIRM FLOPPY.NAME FLOPPY.GET.NAME \PFLOPPY.GET.NAME FLOPPY.SET.NAME \PFLOPPY.SET.NAME FLOPPY.DRIVE.EXISTSP FLOPPY.CAN.READP FLOPPY.CAN.WRITEP FLOPPY.WAIT.FOR.FLOPPY \SFLOPPY.INIT \SFLOPPY.GETFILEINFO \SFLOPPY.OPENHUGEFILE \SFLOPPY.READPAGES \SFLOPPY.READPAGE \SFLOPPY.WRITEPAGES \SFLOPPY.WRITEPAGE \SFLOPPY.CLOSEHUGEFILE \SFLOPPY.CLOSESMALLFILE \HFLOPPY.INIT \HFLOPPY.GETFILEINFO \HFLOPPY.OPENHUGEFILE \HFLOPPY.WRITEPAGES \HFLOPPY.WRITEPAGE \HFLOPPY.READPAGES \HFLOPPY.READPAGE \HFLOPPY.CLOSEHUGEFILE \HFLOPPY.CLOSESMALLFILE FLOPPY.SCAVENGE \PFLOPPY.SCAVENGE \PFLOPPY.SCAVENGE.MPS \PFLOPPY.SCAVENGE.MP31 \PFLOPPY.SCAVENGE.MP.AFTER \PFLOPPY.SCAVENGE.MP.AFTER1 \PFLOPPY.SCAVENGE.LPS \PFLOPPY.SCAVENGE.SECTOR9 \PFLOPPY.SCAVENGE.FILELIST FLOPPY.TO.FILE FLOPPY.FROM.FILE FLOPPY.COMPACT \PFLOPPY.COMPACT \PFLOPPY.COMPACT.PALLOCS \PFLOPPY.COMPACT.PALLOC \PFLOPPY.COMPACT.SECTOR9 \PFLOPPY.COMPACT.FILELIST \CFLOPPY.FCB.FILENAME \CFLOPPY.INIT \CFLOPPY.OPEN \CFLOPPY.OPEN.DIRECTORY \CFLOPPY.READPAGES \CFLOPPY.READPAGENO \CFLOPPY.WRITEPAGENO \CFLOPPY.PAGENOTODISKADDRESS \CFLOPPY.OPENFILE \CFLOPPY.GETFILEHANDLE \CFLOPPY.GETFILEFCB \CFLOPPY.FORMAT) previous date: "12-Mar-84 22:49:14" {PHYLUM}SOURCES>FLOPPY.;2) \FLOPPY.TRANSLATERESULT D1 (L (0 RESULT)) @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.TRANSLATEMPETYPE D1 (L (0 MPETYPE)) '@djgkg@dlglggNIL (44Q ? 40Q BADSECTORS 30Q FILELIST 16Q FILE 7 FREE) () \FLOPPY.TRANSLATEFILETYPE D1 (L (0 FILETYPE)) g@djgng@dngng@dngng@dngng@dngnggNIL (144Q ? 140Q BACKSTOPDEBUGGEE 127Q BACKSTOPDEBUGGER 114Q FILELIST 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 IOCB) _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 IOCB 116Q IOCB 105Q IOCB 72Q IOCB 61Q IOCB 50Q IOCB 37Q IOCB) () \FLOPPY.CHECK.IOCB D1 (P 0 SETUP I 0 IOCB)  `@ 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 IOCB 723Q IOCB 705Q IOCB 665Q IOCB 642Q IOCB 620Q IOCB 531Q IOCB 445Q IOCB 430Q IOCB 406Q IOCB 372Q IOCB 347Q IOCB 332Q IOCB 314Q IOCB 302Q IOCB 272Q IOCB 264Q IOCB 250Q IOCB 240Q IOCB 232Q IOCB 173Q IOCB 131Q IOCB 71Q IOCB 42Q IOCB 6 IOCB) ( 753Q "Illegal IOCB Setup 3" 610Q "Illegal IOCB Setup 2" 603Q "Illegal IOCB Setup 2" 516Q "Illegal IOCB Setup 2" 420Q "Illegal IOCB Setup 1" 362Q "Illegal IOCB Buffer" 221Q "Illegal Diskaddress" 162Q "Illegal Diskaddress" 120Q "Illegal Diskaddress" 55Q "Illegal IOCB 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 IOCB F 3 RESETVARSLST F 4 \FLOPPY.INSPECTW F 5 \FLOPPY.DEBUG F 6 RESETY F 7 \FLOPPYIOCB F 10Q \FLOPPYIOCBADDR) EgRhR hSc`jR UT$Rgjd cR HdjgZ kgLHdlg@lg7Hdlg+lg"HdlglgHlggi oi RHHi oi RHHni oi RHHli oi gi WRlĿ`W`jhc i(500Q BLOCK 435Q PRIN1 425Q PRIN1 414Q PRIN1 365Q PRIN1 354Q PRIN1 323Q PRIN1 312Q PRIN1 264Q PRIN1 253Q PRIN1 121Q CLOSEW 66Q INSPECT 43Q \FLOPPY.CHECK.IOCB 35Q BLOCK 12Q \FLOPPY.LOCK.BUFFER) (463Q \IOPAGE 453Q \IOPAGE 431Q % 372Q IOCB 330Q IOCB 271Q IOCB 246Q ? 242Q ESCAPE 231Q INITIALIZE 220Q RECALIBRATE 204Q FORMATTRACK 173Q READID 157Q WRITEDELETEDSECTOR 146Q WRITESECTOR 132Q READSECTOR 114Q NOP 75Q IOCB 60Q IOCB 25Q \IOPAGE 2 \FLOPPY.UNLOCK.BUFFER) ( 421Q ") " 361Q " S" 317Q " H" 260Q " (C") \FLOPPY.RUN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 RETRYFLG I 1 NOERROR I 0 IOCB F 4 \FLOPPYRESULT F 5 \FLOPPY.DEBUG F 6 LISPXHIST F 7 RESETVARSLST) *V!Wog hg[ KT@jTjiTj UTjjTn@djhjdnDo]dnEoPdnFoCdnGo6dnHo)dnIodnJonKooi hi HUQTjjTn@djhjdnDo]dnEoPdnFoCdnGo6dnHo)dnIodnJonKoo Tj9HAhH+@ jllh TjhTj$Ugi hi HAHUig `TjT`jIHF@ lljh 1UT i T hi A TjA A|i(1042Q \FLOPPY.ERROR 1031Q \FLOPPY.RECALIBRATE 1015Q \FLOPPY.INITIALIZE 1010Q BREAK1 1002Q \FLOPPY.MESSAGE 777Q \FLOPPY.TRANSLATERESULT 770Q PRIN1 764Q \FLOPPY.TRANSLATERESULT 751Q MEMB 702Q \FLOPPY.MESSAGE 661Q BREAK1 653Q PRIN1 630Q \FLOPPY.ERROR 622Q \FLOPPY.RECALIBRATE 604Q \FLOPPY.INITIALIZE 577Q MEMB 530Q \FLOPPY.MESSAGE 315Q BREAK1 307Q PRIN1 42Q ERROR! 34Q RESETRESTORE 22Q \FLOPPY.RUNA0001) (732Q IOCB 677Q CRCERROR 647Q CRCERROR 560Q IOCB 30Q ERROR 17Q INTERNAL) ( 525Q "Unknown Domino Error" 520Q "Domino NoDmaEndCount2 Error" 506Q "Domino NoDmaEndCount1 Error" 471Q "Domino BadDmaChannel Error" 454Q "Domino TrackToBig Error" 437Q "Domino CommandTrack Error" 422Q "Domino InvalidEscapeCmd Error" 405Q "Domino UnImplFloppyCmd Error" 370Q "Domino NoValidCommand Error" 303Q "Unknown Domino Error" 276Q "Domino NoDmaEndCount2 Error" 264Q "Domino NoDmaEndCount1 Error" 247Q "Domino BadDmaChannel Error" 232Q "Domino TrackToBig Error" 215Q "Domino CommandTrack Error" 200Q "Domino InvalidEscapeCmd Error" 163Q "Domino UnImplFloppyCmd Error" 146Q "Domino NoValidCommand Error" 14Q (DUMMY.FOR.ERRORSET)) \FLOPPY.LOCK.BUFFER D1 (P 1 COUNT P 0 BUFFER I 0 IOCB) W@@ klh B@@Ѹ@HI IkjKJHKnHKnKk[h(56Q \LOCKPAGES 22Q MEMB) (46Q IOCB 36Q IOCB 30Q IOCB 6 IOCB) () \FLOPPY.UNLOCK.BUFFER D1 (P 1 COUNT P 0 BUFFER I 0 IOCB) 2 @ klh @@Ѹ@HI h(56Q \UNLOCKPAGES 22Q MEMB) (46Q IOCB 36Q IOCB 30Q IOCB 6 IOCB) () \FLOPPY.ERROR D1 (P 0 $RESULT F 1 \FLOPPYRESULT F 2 \FLOPPY.DEBUG F 3 \FLOPPY.HISTORYW) =Q XRdS hi Ho H Qjh(71Q \FLOPPY.RECALIBRATE 56Q \FLOPPY.INITIALIZE 53Q \FLOPPY.BREAK 47Q \FLOPPY.INITIALIZE 43Q \FLOPPY.CLOSE 37Q MEMB 26Q BREAK1 20Q PRIN1 10Q \FLOPPY.TRANSLATERESULT) NIL ( 34Q (DOOROPENED DOORISOPEN)) \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 IOCB) FkX@A @B @lH @h@h@j@C (103Q \FLOPPY.RUN 43Q \PUTFIXP) (72Q IOCB 61Q IOCB 50Q IOCB 34Q IOCB 24Q IOCB 13Q IOCB) () \FLOPPY.TRANSFER D1 (P 0 \INTERRUPTABLE I 4 NOERROR I 3 PAGE I 2 DISKADDRESS I 1 COMMAND I 0 IOCB) D@A @j @lB @C@C@k@D C(76Q \FLOPPY.RUN 36Q \PUTFIXP) (65Q IOCB 54Q IOCB 43Q IOCB 27Q IOCB 17Q IOCB 6 IOCB) () \FLOPPY.NOP D1 (I 0 NOERROR) j `P`Yl IljdjlLo jjdjko jkdkl$o k IhXdjd@ H(142Q \FLOPPY.COMMAND 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (146Q \FLOPPY.SCRATCH.IOCB 131Q \FLOPPY.SCRATCH.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.SCRATCH.IOCB) ( 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.RECALIBRATE D1 (I 0 NOERROR) k `P`Yl IljdjlLo jjdjko jkdkl$o k IhXdlj@ H(143Q \FLOPPY.COMMAND 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (147Q \FLOPPY.SCRATCH.IOCB 131Q \FLOPPY.SCRATCH.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.SCRATCH.IOCB) ( 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.INITIALIZE D1 (I 0 NOERROR) k `P`Yl IljdjlLo jjdjko jkdkl$o k IhXdlj@ H(143Q \FLOPPY.COMMAND 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (147Q \FLOPPY.SCRATCH.IOCB 131Q \FLOPPY.SCRATCH.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.SCRATCH.IOCB) ( 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \FLOPPY.FORMATTRACKS D1 (P 0 \INTERRUPTABLE I 3 NOERROR I 2 COUNT I 1 DISKADDRESS I 0 IOCB) B@l @j @lA @h@h@B@C (77Q \FLOPPY.RUN 37Q \PUTFIXP) (66Q IOCB 55Q IOCB 44Q IOCB 30Q IOCB 20Q IOCB 6 IOCB) () \FLOPPY.READSECTOR D1 (I 3 NOERROR I 2 PAGE I 1 DISKADDRESS I 0 IOCB) @kABC (10Q \FLOPPY.TRANSFER) NIL () \FLOPPY.WRITESECTOR D1 (I 3 NOERROR I 2 PAGE I 1 DISKADDRESS I 0 IOCB) @lABC (11Q \FLOPPY.TRANSFER) NIL () \FLOPPY.RECOVER D1 (I 0 NOERROR) k `P`Yl IljdjlLo jjdjko jkdkl$o k IhXdlk@ H(143Q \FLOPPY.COMMAND 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (147Q \FLOPPY.SCRATCH.IOCB 131Q \FLOPPY.SCRATCH.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.SCRATCH.IOCB) ( 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") FLOPPY.RESTARTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 \FLOPPYLOCK F 2 \FLOPPYIOCBADDR F 3 \FLOPPYIOCB F 4 RESETY F 5 \FLOPPYRESULT F 6 \HFLOPPY.MAXPAGES F 7 \FLOPPYFDEV) Qhi nc`lclc nhn `Hl HljdjlLo jjdjko jkdkl$o k H`Hl HljdjlLo jjdjko jkdkl$o k Hj `Hl HljdjlLo jjdjko jkdkl$o k Hl `Hl HljdjlLo jjdjko jkdkl$o k Hl nc Wg hci(672Q \FLOPPY.INITIALIZE 665Q FLOPPY.DRIVE.EXISTSP 661Q FLOPPY.MODE 652Q \CFLOPPY.INIT 646Q \SFLOPPY.INIT 642Q \HFLOPPY.INIT 636Q \PFLOPPY.INIT 632Q \FLOPPY.FLUSH 612Q \FLOPPY.SETUP 602Q \PUTFIXP 573Q \FLOPPY.SEVERE.ERROR 551Q \FLOPPY.SEVERE.ERROR 530Q \FLOPPY.SEVERE.ERROR 500Q \FLOPPY.SETUP 457Q \FLOPPY.SETUP 447Q \PUTFIXP 440Q \FLOPPY.SEVERE.ERROR 416Q \FLOPPY.SEVERE.ERROR 375Q \FLOPPY.SEVERE.ERROR 345Q \FLOPPY.SETUP 324Q \FLOPPY.SETUP 315Q \PUTFIXP 306Q \FLOPPY.SEVERE.ERROR 264Q \FLOPPY.SEVERE.ERROR 243Q \FLOPPY.SEVERE.ERROR 213Q \FLOPPY.SETUP 167Q \PUTFIXP 160Q \FLOPPY.SEVERE.ERROR 136Q \FLOPPY.SEVERE.ERROR 115Q \FLOPPY.SEVERE.ERROR 65Q \FLOPPY.SETUP 44Q \ALLOCBLOCK 5 OBTAIN.MONITORLOCK) (656Q PILOT 615Q \FLOPPY.IBMD512.IOCB 505Q IOCB 466Q IOCBTYPE# 462Q \FLOPPY.IBMD256.IOCB 352Q IOCB 333Q IOCBTYPE# 327Q \FLOPPY.IBMS128.IOCB 220Q IOCB 201Q IOCBTYPE# 175Q \FLOPPY.SCRATCH.IOCB 72Q IOCB 53Q IOCBTYPE# 47Q \FLOPPY.SCRATCH.BUFFER 17Q \IOCBPAGE) ( 570Q "Illegal Diskaddress" 546Q "Illegal Diskaddress" 525Q "Illegal Diskaddress" 435Q "Illegal Diskaddress" 413Q "Illegal Diskaddress" 372Q "Illegal Diskaddress" 303Q "Illegal Diskaddress" 261Q "Illegal Diskaddress" 240Q "Illegal Diskaddress" 155Q "Illegal Diskaddress" 133Q "Illegal Diskaddress" 112Q "Illegal Diskaddress") FLOPPY.RESTART D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 \FLOPPYLOCK F 4 LISPXHIST F 5 RESETVARSLST) *g cT!Uog hgZ JI(45Q ERROR! 40Q RESETRESTORE 26Q FLOPPY.RESTARTA0001 5 CREATE.MONITORLOCK) (34Q ERROR 23Q INTERNAL 2 FLOPPY) ( 20Q (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 \FLOPPYFDEV F 4 MODE F 5 \PFLOPPYFDEV F 6 \HFLOPPYFDEV F 7 \SFLOPPYFDEV F 10Q \CFLOPPYFDEV F 11Q \FLOPPYLOCK F 12Q RESETY) Whi  USgVSgWSgWSgTdgU dgVdgWdg'WSISTgI IcHciSYTl c(205Q \LISPERROR 157Q \DEFINEDEVICE 142Q \FLOPPY.CLOSE 6 OBTAIN.MONITORLOCK) (153Q FLOPPY 122Q CPM 110Q SYSOUT 76Q HUGEPILOT 64Q PILOT 56Q CPM 44Q SYSOUT 32Q HUGEPILOT 21Q PILOT) () 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 \FLOPPY.MODE.BEFORE.EVENT F 1 \FLOPPYLOCK F 2 EVENT F 3 RESETY) TQhi ERdgdgdgdgP dgdgg g chci(112Q FLOPPY.MODE 103Q STKPOS 56Q \FLOPPY.INITIALIZE 52Q FLOPPY.MODE 11Q FLOPPY.DRIVE.EXISTSP 5 OBTAIN.MONITORLOCK) (107Q SYSOUT 100Q SAVEVM 72Q BEFORESYSOUT 64Q BEFOREMAKESYS 43Q RESTART 35Q AFTERMAKESYS 27Q AFTERSYSOUT 20Q AFTERLOGOUT) () \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.CLOSE D1 (F 0 \FLOPPYFDEV F 1 \PFLOPPYFDEV F 2 \PFLOPPYINFO F 3 \SFLOPPYINFO F 4 \HFLOPPYFDEV F 5 \CFLOPPYFDEV F 6 \HFLOPPYINFO F 7 \SFLOPPYFDEV F 10Q \CFLOPPYINFO) 1 QPRTPVWPSUPWhh(55Q \FLOPPY.FLUSH) (46Q CINFO 34Q PINFO 21Q PINFO 7 PINFO) () \FLOPPY.FLUSH D1 (P 0 STREAM F 1 \OPENFILES F 2 \FLOPPYFDEV) !QdHRHQ ch(25Q DREMOVE) (13Q STREAM) () \FLOPPY.HOSTNAMEPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FDEV F 1 \FLOPPYLOCK F 2 NAME F 3 RESETY) Qhi P` RPci(5 OBTAIN.MONITORLOCK) (23Q FDEV 13Q FDEVTYPE#) () \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 F 0 \FLOPPYFDEV) gPg@ (17Q PACK*) (13Q } 6 FDEV 2 {) () \FLOPPY.ASSUREFILENAME D1 (P 0 FILENAME I 0 FILE) %@d`o@ jkm (42Q SUBATOM 30Q STRPOS) (15Q STREAM 10Q STREAMTYPE#) ( 24Q "}") \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.CATCH D1 (P 1 FORM P 0 TAG I 0 $FEXPR$) @@b@bH XI (27Q EVAL 22Q EVAL) NIL () \FLOPPY.THROW D1 (P 1 POS P 0 CATCHTAG I 2 MESSAGE I 1 VALUE I 0 TAG) Im I oB h ggI X@@H HiIAi mId Y(104Q STKNTH 74Q RETFROM 61Q MEMB 50Q STKARG 33Q STKNAME 26Q \LISPERROR 7 STKNTH) (44Q TAG 36Q \FLOPPY.CATCH) ( 22Q "") \FLOPPY.BREAK D1 (I 0 MESSAGE) @ gli h(14Q \LISPERROR 3 \FLOPPY.MESSAGE) (6 {FLOPPY}) () \FLOPPY.MESSAGE D1 (I 0 MESSAGE) ` o` @` h(26Q PRIN1 17Q PRIN1 5 FRESHLINE) (23Q PROMPTWINDOW 14Q PROMPTWINDOW 2 PROMPTWINDOW) ( 11Q "Floppy: ") \PFLOPPY.INIT D1 (F 0 \PFLOPPYINFO F 1 \PFLOPPYFDEV) `c`dgdkdkdk dk0dgdgdgdgdg dg dgdgdgdgdgdgdgdgdgdg dg"dg$dg&dP(dg.dg0dg2dg4dg6dg8dg:dg*chNIL (347Q \PAGED.FLUSHOUTPUT 340Q \PFLOPPY.RENAMEFILE 331Q \PAGEDBOUTS 322Q \PAGEDBINS 313Q \PAGEDEOFP 304Q \PAGEDGETEOFPTR 275Q \PAGEDGETFILEPTR 266Q \PAGEDSETFILEPTR 252Q \PAGEDBACKFILEPTR 243Q \PAGEDREADP 234Q \PAGEDPEEKBIN 225Q \PAGEDBOUT 216Q \PAGEDBIN 207Q \PFLOPPY.WRITEPAGES 200Q \PFLOPPY.TRUNCATEFILE 171Q \PFLOPPY.SETFILEINFO 162Q \PFLOPPY.OPENFILE 153Q \PFLOPPY.READPAGES 144Q \PFLOPPY.OPENFILE 135Q \FLOPPY.HOSTNAMEP 126Q \PFLOPPY.GETFILENAME 117Q \PFLOPPY.GETFILEINFO 110Q \PFLOPPY.GENERATEFILES 101Q \FLOPPY.EVENTFN 72Q TRUE 63Q \PFLOPPY.DELETEFILE 54Q \PFLOPPY.CLOSEFILE 15Q FLOPPY 10Q FDEVTYPE# 2 PINFOTYPE#) () \PFLOPPY.OPEN D1 (F 0 \FLOPPYFDEV F 1 \PFLOPPYFILELIST F 2 \PFLOPPYSECTOR9) hhP(OP(hhcP(hP(hP(hhcP(ii(130Q \PFLOPPY.OPEN.FILELIST 125Q \PFLOPPY.OPEN.SECTOR9 122Q \PFLOPPY.START 7 FLOPPY.CAN.READP 2 FLOPPY.DRIVE.EXISTSP) (141Q PINFO 134Q FDEV 110Q PINFO 103Q FDEV 74Q PINFO 67Q FDEV 60Q PINFO 53Q FDEV 40Q PINFO 33Q FDEV 23Q PINFO 16Q FDEV) () \PFLOPPY.DOORCHECK D1 (F 0 \FLOPPYRESULT) Pjh(26Q \PFLOPPY.OPEN 20Q FLOPPY.CAN.READP 14Q \FLOPPY.CLOSE 2 \FLOPPY.NOP) NIL () \PFLOPPY.START D1 NIL h(5 \FLOPPY.RECALIBRATE 2 \FLOPPY.INITIALIZE) NIL () \PFLOPPY.OPEN.SECTOR9 D1 (P 0 SECTOR9 F 1 \FLOPPYFDEV F 2 \PFLOPPYSECTOR9) %Xo Q(HHch(16Q \FLOPPY.BREAK 5 \PFLOPPY.GET.SECTOR9) (32Q PINFO 25Q FDEV) ( 13Q "Not a pilot floppy") \PFLOPPY.GET.SECTOR9 D1 (P 0 SECTOR9) 0`T`Yl IljdjlLo jjdjko jkdkl$o k Ij hZjdjlLo jjdjko jkl l l$o l `i JHdn jHljHh(241Q \FLOPPY.READSECTOR 224Q \FLOPPY.SEVERE.ERROR 200Q \FLOPPY.SEVERE.ERROR 157Q \FLOPPY.SEVERE.ERROR 131Q \FLOPPY.SETUP 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (274Q SECTOR9 256Q SECTOR9 246Q \FLOPPY.IBMS128.IOCB 234Q SECTOR9TYPE# 135Q \FLOPPY.IBMS128.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.IBMS128.IOCB) ( 221Q "Illegal Diskaddress" 175Q "Illegal Diskaddress" 154Q "Illegal Diskaddress" 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \PFLOPPY.OPEN.FILELIST D1 (P 20Q PALLOC P 13Q START P 6 PALLOCS P 5 PALLOC P 4 LP P 3 MP P 2 FILENAME P 1 FILELIST P 0 SECTOR9 F 21Q \FLOPPYFDEV F 22Q \PFLOPPYFILELIST)  W"(l W"(IIc$Hlk l  `OkK Kn2jo h^KȆnp`OL LnjLldo h^hlLl_dOL_ldOOld_dOdjCdk KȆ h`dJdOdKdL KȆjM MNOdn jN ^N"O!K_ȂOȁk__OW"(NNQ_OOOOO_O_dO ȆnO gO h(655Q \PFLOPPY.DIR.PUT 443Q DREVERSE 416Q \PFLOPPY.ADD.TO.FILELIST 344Q \FLOPPY.TRANSLATEFILETYPE 331Q MKATOM 226Q \FLOPPY.BREAK 167Q \PFLOPPY.READPAGENO 132Q \FLOPPY.BREAK 105Q \PFLOPPY.READPAGENO 62Q \PUTSWAPPEDFIXP 24Q \PFLOPPY.CREATE.FILELIST) (650Q OLD 643Q PALLOC 627Q MP 622Q PALLOC 565Q PALLOC 553Q PALLOC 532Q PINFO 525Q FDEV 464Q MP 405Q MP 352Q PALLOCTYPE# 337Q MP 261Q LP 211Q LP 174Q LP 157Q LPTYPE# 144Q MP 112Q MP 73Q MPTYPE# 53Q SECTOR9 37Q PINFO 32Q FDEV 14Q PINFO 7 FDEV) ( 223Q "Damaged floppy. Needs scavenging." 127Q "Damaged floppy. Needs scavenging.") \PFLOPPY.OPENFILE D1 (P 4 BUCKET P 3 FULLFILENAME P 2 PALLOC P 1 WAIT P 0 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) @C b1Agg ol @d`BC XXHhH AdgUgC YH Jk C.J jH[l i b{dHLL AgHj Hj H(235Q \PFLOPPY.SETFILEINFO 213Q \LISPERROR 144Q BLOCK 140Q \PFLOPPY.STREAMS.AGAINST 130Q ASSOC 71Q \PFLOPPY.OPENFILE1 52Q \LISPERROR 40Q \FLOPPY.MESSAGE 30Q FLOPPY.CAN.WRITEP 14Q \PFLOPPY.DOORCHECK 6 \FLOPPY.OTHERINFO) (264Q STREAM 254Q STREAM 246Q OUTPUT 202Q STREAM 167Q PALLOC 153Q PALLOC 124Q WAIT 115Q INPUT 105Q STREAM 62Q STREAMTYPE# 35Q WRITEPROTECTED 22Q INPUT) ( 45Q "") \PFLOPPY.OPENFILE1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 STREAM P 4 IDATE P 3 LP P 2 PALLOC P 1 EXTENSION P 0 FILENAME F 6 RECOG F 7 OTHERINFO F 10Q \FLOPPYLOCK F 11Q FILE F 12Q RESETY) Whi `W XV VdgdgJ HW 1 ,dgJHW hdgdgJ ]VdgdgHl i hci(166Q \LISPERROR 136Q SHOULDNT 131Q \PFLOPPY.OPENOLDFILE 103Q \PFLOPPY.OPENNEWFILE 62Q \PFLOPPY.OPENOLDFILE 55Q \PFLOPPY.OPENNEWFILE 24Q \PFLOPPY.DIR.GET 17Q \FLOPPY.ASSUREFILENAME 6 OBTAIN.MONITORLOCK) (154Q OLD/NEW 146Q NEW 122Q OLDEST 114Q OLD 70Q NEW 40Q OLD/NEW 32Q EXACT) () \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 LP I 0 PALLOC F 21Q \FLOPPYFDEV) n @dc X`dW"@ 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`dkdjdldhdldjRdk@dk0dhYd@ IHI(44Q \FLOPPY.ADDDEVICENAME) (547Q STREAM 540Q STREAM 445Q FILELINELENGTH 430Q \FILEOUTCHARFN 421Q \EOSERROR 412Q \NOIMAGEOPS 403Q \STREAM.NOT.OPEN 374Q \STREAM.NOT.OPEN 335Q LP 320Q LP 275Q LP 254Q LP 236Q LP 221Q LP 162Q LP 145Q LP 124Q LP 105Q LP 71Q LP 56Q LP 37Q PALLOC 24Q STREAMTYPE# 16Q PALLOC) () \PFLOPPY.OPENNEWFILE D1 (P 12Q VALUE P 4 STREAM P 3 IDATE P 2 LP P 1 PALLOC P 0 LENGTH I 1 OTHERINFO I 0 FILENAME F 13Q \FLOPPYFDEV)   gA XddnnkX Y@gI [`dkFdnEdlDdlCdlddndkdn]dlK MlK Z I _JO ldNNldlJl_dOJ_dOdjCdkkOkJ IJ I `dWI _dOdj dj dg.dg,d`&dg"dg djd`dkdjdldhdldjRdk@dk0dh\dI LI L(401Q \FLOPPY.ADDDEVICENAME 356Q \PFLOPPY.ADD.TO.FILELIST 342Q RPLSTRING 337Q SUBSTRING 232Q NCHARS 216Q MKSTRING 213Q MKSTRING 175Q \PUTSWAPPEDFIXP 172Q \FLOPPY.LTM.IDATE 156Q \PUTSWAPPEDFIXP 153Q \FLOPPY.LTM.IDATE 51Q IDATE 46Q \PFLOPPY.DIR.PUT 35Q \PFLOPPY.ALLOCATE 11Q ASSOC) (607Q PALLOC 603Q STREAM 574Q STREAM 501Q FILELINELENGTH 464Q \FILEOUTCHARFN 455Q \EOSERROR 446Q \NOIMAGEOPS 437Q \STREAM.NOT.OPEN 430Q \STREAM.NOT.OPEN 374Q PALLOC 361Q STREAMTYPE# 347Q PALLOC 332Q LP 273Q LP 225Q LP 206Q PALLOC 163Q LP 144Q LP 55Q LPTYPE# 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 LP P 0 STREAM F 21Q \FLOPPYLOCK F 22Q FILE F 23Q RESETY F 24Q ATTRIBUTE) lW"hi  W$ X Jc&iW(dgI[K dgI\L dgI]M dgI^N dgeI_ O I_OI_ O I_OnڱGI_O I_ O nٱ%dgIdgI_OdgI_ O dgI_ O gI_ O (214Q \FLOPPY.MTL.IDATE 164Q \FLOPPY.MTL.IDATE 134Q GDATE 131Q \FLOPPY.MTL.IDATE 101Q GDATE 76Q \FLOPPY.MTL.IDATE 26Q \PFLOPPY.ASSURESTREAM 20Q \PFLOPPY.DOORCHECK 6 OBTAIN.MONITORLOCK) (536Q LP 523Q HUGELENGTH 504Q LP 474Q HUGEPAGELENGTH 454Q LP 444Q HUGEPAGESTART 424Q LP 414Q PAGELENGTH 403Q LP 374Q MESATYPE 347Q LP 332Q LP 306Q LP 265Q LP 247Q LP 232Q LP 222Q LENGTH 202Q LP 172Q ICREATIONDATE 152Q LP 142Q IWRITEDATE 117Q LP 107Q CREATIONDATE 64Q LP 54Q WRITEDATE 43Q STREAM) () \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.SETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 LP P 0 STREAM F 2 VALUE F 3 \FLOPPYLOCK F 4 FILE F 5 ATTRIBUTE F 6 RESETY) Shi  T XdUdgIlR dgIlR zdgIlR fdgIlR RdgNdgIR>dgIl*dgIl dgIl gIl R H H I hc i(337Q \PFLOPPY.WRITEPAGENO 317Q OPENP 312Q \PUTSWAPPEDFIXP 165Q \FLOPPY.LTM.IDATE 141Q \FLOPPY.LTM.IDATE 115Q \FLOPPY.LTM.IDATE 112Q IDATE 64Q \FLOPPY.LTM.IDATE 61Q IDATE 21Q \PFLOPPY.ASSURESTREAM 14Q \PFLOPPY.DOORCHECK 5 OBTAIN.MONITORLOCK) (331Q PALLOC 324Q STREAM 303Q LP 275Q HUGELENGTH 267Q LP 260Q HUGEPAGELENGTH 250Q LP 241Q HUGEPAGESTART 231Q LP 222Q PAGELENGTH 211Q LP 202Q MESATYPE 173Q LENGTH 156Q LP 147Q ICREATIONDATE 132Q LP 123Q IWRITEDATE 103Q LP 73Q CREATIONDATE 52Q LP 42Q WRITEDATE 32Q STREAM) () \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 \FLOPPYLOCK F 3 FILE F 4 RESETY) BRhi  S XjHd HkHhH H ci(73Q \PFLOPPY.CLOSEFILE1 66Q \CLEARMAP 41Q \SETIODIRTY 15Q \PFLOPPY.ASSURESTREAM 5 OBTAIN.MONITORLOCK) (56Q STREAM 46Q STREAM 34Q STREAM 21Q STREAM) () \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 NMP P 2 NEXT P 1 MP P 0 PALLOC I 0 STREAM) P@ X@\@ gHH hHYHZd[Ik̓In͆KkKnHkIi JkKi i i Hj jdhH j@ L(254Q \PFLOPPY.DELETEFILE 217Q \PFLOPPY.SAVE.SECTOR9 212Q \PFLOPPY.SAVE.FILELIST 205Q \PFLOPPY.WRITEPAGENO 167Q \PFLOPPY.WRITEPAGENO 53Q \PFLOPPY.WRITEPAGENO 24Q \GETACCESS) (242Q PALLOC 224Q PALLOC 174Q PALLOC 156Q PALLOC 144Q MP 134Q MP 122Q MP 112Q MP 100Q PALLOC 71Q PALLOC 62Q PALLOC 46Q PALLOC 40Q PALLOC 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 NMP P 3 NEXT P 2 MP P 1 PALLOC P 0 FILENAME F 6 \FLOPPYLOCK F 7 FILE F 10Q RESETY) YVhi `W Xg Yd7 I Ik Ij I I I Mci(120Q \PFLOPPY.SAVE.FILELIST 114Q \PFLOPPY.DELETE.FROM.FILELIST 107Q \PFLOPPY.DEALLOCATE 102Q \PFLOPPY.DIR.REMOVE 52Q \PFLOPPY.STREAMS.USING 45Q \FLOPPY.ADDDEVICENAME 31Q \PFLOPPY.DIR.GET 22Q \FLOPPY.ASSUREFILENAME 14Q \PFLOPPY.OPEN 5 OBTAIN.MONITORLOCK) (71Q PALLOC 57Q PALLOC 40Q PALLOC 26Q OLDEST) () \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.GETFILENAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 PALLOC P 0 FILENAME F 2 FILE F 3 \FLOPPYLOCK F 4 RECOG F 5 RESETY) =Shi  R`R R XT Yd c i(66Q \FLOPPY.ADDDEVICENAME 53Q \PFLOPPY.DIR.GET 46Q \FLOPPY.ASSUREFILENAME 40Q \PFLOPPY.DOORCHECK 33Q FLOPPY.DRIVE.EXISTSP 5 OBTAIN.MONITORLOCK) (61Q PALLOC 24Q STREAM 16Q STREAMTYPE#) () \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.GENERATEFILESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 FILEGENOBJ P 1 GENFILESTATE P 0 FILES F 7 \FLOPPYLOCK F 10Q \FLOPPYFDEV F 11Q FDEV F 12Q RESETY) oWhi @B=0W(#d[l Kh\M&L^]N HWhgIci ]L(150Q LAST 116Q SORT 22Q \PFLOPPY.DOORCHECK 15Q FLOPPY.DRIVE.EXISTSP 6 OBTAIN.MONITORLOCK) (136Q \PFLOPPY.GENERATEFILES1 125Q FDEV 67Q PALLOC 53Q PALLOC 41Q PINFO 34Q FDEV) () \PFLOPPY.GENERATEFILES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST 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.GENERATEFILES1 D1 (P 10Q L2 P 7 !SCRATCHTAIL P 6 !SCRATCHLIST P 3 ANSWER P 2 DEVICENAME P 1 FILE P 0 FILES I 3 HOST/DIR I 2 NOVERSION I 1 SCRATCHLIST I 0 GENFILESTATE) @XddHY@ZAhh^_CLO Odhh_l{J \O Odhh_LO Odhh_l}I ]O Odhh_MONhNNOOhN OO[@HK(250Q FLAST 160Q CHCON 73Q CHCON) NIL () \PFLOPPY.RENAMEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 10Q VALUE P 4 FULLFILENAME P 3 LP P 2 PALLOC P 1 NEWFILENAME P 0 OLDFILENAME F 11Q \FLOPPYLOCK F 12Q OLDFILE F 13Q NEWFILE F 14Q RESETY) Whi W W Hg Zd IgJ J J _KO ldMMldlKlоdNK_dOdjCdkkOkK JK J ci(255Q \FLOPPY.ADDDEVICENAME 243Q \PFLOPPY.WRITEPAGENO 230Q RPLSTRING 225Q SUBSTRING 123Q NCHARS 107Q MKSTRING 63Q \PFLOPPY.DIR.PUT 52Q \PFLOPPY.DIR.REMOVE 41Q \PFLOPPY.DIR.GET 31Q \FLOPPY.ASSUREFILENAME 23Q \FLOPPY.ASSUREFILENAME 15Q \PFLOPPY.OPEN 6 OBTAIN.MONITORLOCK) (250Q PALLOC 235Q PALLOC 220Q LP 161Q LP 116Q LP 102Q PALLOC 70Q PALLOC 57Q NEW 36Q OLD) () \PFLOPPY.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FDEV I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PFLOPPY.RENAMEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \PFLOPPY.STREAMS.AGAINST D1 (L (0 STREAM) F 4 \OPENFILES F 5 \FLOPPYFDEV) :@T0d[U#K @ K@dIHhZH&JNIL (33Q STREAM 25Q STREAM 13Q STREAM) () \PFLOPPY.STREAMS.USING D1 (L (0 PALLOC) F 4 \OPENFILES F 5 \FLOPPYFDEV) 0@T&d[UK @dIHhZH&JNIL (25Q STREAM 13Q 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 PALLOC P 0 STREAM F 4 FIRSTPAGE# F 5 \FLOPPYLOCK F 6 FILE F 7 RESETY F 10Q BUFFER) YUhi @V X YTkغTH $JII[ȂKȁkI JW hci(120Q \PFLOPPY.READPAGENO 111Q \PFLOPPY.EXTEND 15Q \PFLOPPY.ASSURESTREAM 5 OBTAIN.MONITORLOCK) (70Q MP 63Q PALLOC 55Q PALLOC 43Q STREAM 27Q PALLOC 21Q STREAM) () \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.WRITEPAGENO D1 (P 0 ANSWER I 2 NOERROR I 1 PAGE I 0 PAGENO) 0`U`Yl IljdjlLo jjdjko jkdkl$o k Il hk@@n o hJ@ AB JH(176Q \FLOPPY.WRITESECTOR 171Q \PFLOPPY.PAGENOTODISKADDRESS 161Q \FLOPPY.SEVERE.ERROR 132Q \FLOPPY.SETUP 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (203Q \FLOPPY.IBMD512.IOCB 136Q \FLOPPY.IBMD512.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.IBMD512.IOCB) ( 156Q "Illegal Write Page Number" 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \PFLOPPY.READPAGENO D1 (P 0 ANSWER I 2 NOERROR I 1 PAGE I 0 PAGENO) 0`U`Yl IljdjlLo jjdjko jkdkl$o k Il hk@@n o hJ@ AB JH(176Q \FLOPPY.READSECTOR 171Q \PFLOPPY.PAGENOTODISKADDRESS 161Q \FLOPPY.SEVERE.ERROR 132Q \FLOPPY.SETUP 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (203Q \FLOPPY.IBMD512.IOCB 136Q \FLOPPY.IBMD512.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.IBMD512.IOCB) ( 156Q "Illegal Read Page Number" 111Q "Illegal Diskaddress" 67Q "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 PALLOC 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 F 12Q \FLOPPYFDEV)  AgO@ Xg Hg Hg W(LI MJ NAK ^K W(_h_@OiO(124Q ASSOC 117Q \PFLOPPY.DIR.VERSION 107Q ASSOC 100Q ASSOC 55Q U-CASE 52Q LISTGET 42Q U-CASE 37Q LISTGET 27Q U-CASE 24Q LISTGET 15Q UNPACKFILENAME) (157Q PALLOC 140Q PINFO 133Q FDEV 70Q PINFO 63Q FDEV 47Q EXTENSION 34Q NAME 21Q VERSION 6 EXACT) () \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 PALLOC I 1 RECOG I 0 FILENAME F 7 \FLOPPYFDEV) p@ Xdg ^Hg \Hg ]W(YLI ZMJ [NAK ^HgN Hg H bB@NBK [MKJ ZLJI YW(IB(172Q \FLOPPY.LEXPUTASSOC 163Q \FLOPPY.LEXPUTASSOC 154Q \FLOPPY.LEXPUTASSOC 135Q PACKFILENAME 131Q LISTPUT 122Q LISTPUT 111Q \PFLOPPY.DIR.VERSION 101Q ASSOC 72Q ASSOC 47Q U-CASE 44Q LISTGET 34Q U-CASE 31Q LISTGET 21Q U-CASE 16Q LISTGET 6 UNPACKFILENAME) (205Q PINFO 200Q FDEV 143Q PALLOC 126Q HOST 116Q VERSION 62Q PINFO 55Q FDEV 41Q EXTENSION 26Q NAME 13Q 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 PALLOC F 10Q \FLOPPYFDEV) @Xd Ydg _Ig ]Ig ^W(ZMJ [NK \OgL _dL \dNLK MKJ NK [MKJ MJ W(J@(200Q \FLOPPY.LEXREMOVEASSOC 172Q \FLOPPY.LEXPUTASSOC 162Q \FLOPPY.LEXREMOVEASSOC 153Q \FLOPPY.LEXPUTASSOC 144Q \FLOPPY.LEXPUTASSOC 133Q \FLOPPY.LEXREMOVEASSOC 124Q \PFLOPPY.DIR.VERSION 111Q ASSOC 102Q ASSOC 57Q U-CASE 54Q LISTGET 44Q U-CASE 41Q LISTGET 30Q U-CASE 25Q LISTGET 15Q UNPACKFILENAME) (213Q PINFO 206Q FDEV 120Q OLD 72Q PINFO 65Q FDEV 51Q EXTENSION 36Q NAME 22Q VERSION 6 PALLOC) () \PFLOPPY.DIR.VERSION D1 (I 2 VALIST I 1 RECOG I 0 VERSION) [AgBggb@FAdgBk ddd&kgB AdgBg@(127Q SHOULDNT 100Q LAST 45Q LAST) (122Q EXACT 110Q OLDEST 72Q OLD 31Q NEW 16Q NEW 12Q OLD 3 OLD/NEW) () \PFLOPPY.CREATE.FILELIST D1 (P 0 FILELIST I 0 NPAGES) )@lhl XdnHkH@nllH(14Q \ALLOCBLOCK) NIL () \PFLOPPY.ADD.TO.FILELIST D1 (P 22Q \INTERRUPTABLE P 10Q NMP P 7 MP P 6 NEXT P 5 NEWFILELIST P 4 NPAGES P 3 NENTRIES P 2 FLE P 1 FILELIST P 0 SECTOR9 I 0 PALLOC F 23Q \FLOPPYFDEV F 24Q \PFLOPPYFILELIST) 0W&(XW&(Y`H_O_dO @Ȇ_dO@_dO@_ȂOȁ_dOZHlH_Ok @J I[dIjIlln\k ]ILnĿMW&(IIc(L bW&(h_"_ h @@_N_W&(@oOl̓On͆OlOnH@HL@kOi NkOi i i JjIKlll IKkh_"o O"4i0O  (677Q EQUAL 650Q \MOVEWORDS 627Q \PFLOPPY.SAVE.SECTOR9 622Q \PFLOPPY.SAVE.FILELIST 615Q \PFLOPPY.WRITEPAGENO 576Q \PFLOPPY.WRITEPAGENO 374Q \PFLOPPY.DEALLOCATE 334Q \PFLOPPY.ALLOCATE 273Q \PFLOPPY.CREATE.FILELIST 222Q \PUTSWAPPEDFIXP 71Q \PUTSWAPPEDFIXP) (666Q PALLOC 603Q PALLOC 564Q PALLOC 554Q SECTOR9 543Q PALLOC 537Q SECTOR9 525Q MP 513Q MP 500Q MP 466Q MP 452Q PALLOC 440Q PINFO 433Q FDEV 421Q PALLOC 410Q PALLOC 401Q PALLOC 351Q PINFO 344Q FDEV 320Q PINFO 313Q FDEV 226Q PALLOC 204Q SECTOR9 175Q SECTOR9 146Q MP 141Q PALLOC 122Q PALLOC 103Q MP 76Q PALLOC 47Q SECTOR9 42Q FLETYPE# 34Q PINFO 27Q FDEV 17Q PINFO 12Q FDEV) ( 674Q (FILELIST) 456Q (FILELIST)) \PFLOPPY.DELETE.FROM.FILELIST D1 (P 7 \NewBaseAddr P 6 I P 3 NENTRIES P 2 FILEID P 1 FLE P 0 FILELIST I 0 PALLOC F 10Q \FLOPPYFDEV) PW(X@ Yd\LZH[dkNM]HNllOO Jj8KkٻHKllHNlll HKllHKll HKNk^@h h(177Q \ZEROWORDS 151Q \MOVEWORDS 111Q \FLOPPY.MTL.FIXP) (220Q PALLOC 32Q FLE 23Q PALLOC 14Q PINFO 7 FDEV) () \PFLOPPY.SAVE.FILELIST D1 (P 2 I P 0 FILELIST I 0 NOERROR F 3 \FLOPPYFDEV) M0S(XdllnkjJI&S(JHJn@ JkZh(102Q \PFLOPPY.WRITEPAGENO) (63Q SECTOR9 56Q PINFO 51Q FDEV 13Q PINFO 6 FDEV) () \PFLOPPY.SAVE.SECTOR9 D1 (I 0 NOERROR F 2 \FLOPPYFDEV)  `T`Yl IljdjlLo jjdjko jkdkl$o k Ij hXjdjlLo jjdjko jkl l l$o l R(@ Hh(250Q \FLOPPY.WRITESECTOR 224Q \FLOPPY.SEVERE.ERROR 200Q \FLOPPY.SEVERE.ERROR 157Q \FLOPPY.SEVERE.ERROR 131Q \FLOPPY.SETUP 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (255Q \FLOPPY.IBMS128.IOCB 242Q PINFO 235Q FDEV 135Q \FLOPPY.IBMS128.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.IBMS128.IOCB) ( 221Q "Illegal Diskaddress" 175Q "Illegal Diskaddress" 154Q "Illegal Diskaddress" 111Q "Illegal Diskaddress" 67Q "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 PALLOC P 0 STREAM F 4 \FLOPPYLOCK F 5 FILE F 6 RESETY F 7 FIRSTPAGE# F 10Q BUFFER) PThi @U X YIWkZII[ȂKȁkI JW hc i(110Q \PFLOPPY.WRITEPAGENO 100Q \PFLOPPY.EXTEND 15Q \PFLOPPY.ASSURESTREAM 5 OBTAIN.MONITORLOCK) (60Q MP 53Q PALLOC 45Q PALLOC 31Q PALLOC 21Q STREAM) () \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 LP P 1 PALLOC P 0 STREAM F 11Q LASTPAGE F 12Q LASTOFFSET F 13Q \FLOPPYLOCK F 14Q FILE F 15Q RESETY) Whi W WH cH cH Y WnW__lOnn Ol O[K dOO Ol O\ L O]MdNN WjIWkIWl hci(262Q \PFLOPPY.TRUNCATE 236Q \PUTSWAPPEDFIXP 163Q \PUTSWAPPEDFIXP 123Q \PUTSWAPPEDFIXP 17Q \PFLOPPY.ASSURESTREAM 6 OBTAIN.MONITORLOCK) (215Q LP 201Q LP 171Q LP 141Q LP 131Q LP 103Q LP 60Q PALLOC 52Q STREAM 41Q STREAM 30Q STREAM) () \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)) FLOPPY.CROCK D1 NIL 'gg gg gg gg h(43Q COPYFILE 32Q COPYFILE 21Q COPYFILE 10Q COPYFILE) (40Q {FLOPPY}CROCK.PRESS 35Q {PHYLUM}CROCK.PRESS 27Q {FLOPPY}CROCK.DCOM 24Q {PHYLUM}CROCK.DCOM 16Q {FLOPPY}CROCK.BRAVO 13Q {PHYLUM}CROCK.BRAVO 5 {FLOPPY}CROCK 2 {PHYLUM}CROCK) () \PFLOPPY.ALLOCATE D1 (P 6 \INTERRUPTABLE P 4 NMP P 3 NEXT P 2 MP P 1 FLENGTH P 0 FREE I 0 LENGTH) `X @ ]ȂMȁ@lIl I@ I@lH@l7IHl2 HoHZȃkRH[Jk̓Jn͆LkLnHkJi KkLi H(277Q FLOPPY.ICHECK 273Q \PFLOPPY.WRITEPAGENO 255Q \PFLOPPY.WRITEPAGENO 120Q \PFLOPPY.TRUNCATE 67Q \PFLOPPY.GAINSPACE 55Q \PFLOPPY.GAINSPACE 14Q \PFLOPPY.GAINSPACE 5 \PFLOPPY.ALLOCATE.LARGEST) (262Q PALLOC 244Q PALLOC 232Q MP 222Q MP 210Q MP 200Q MP 166Q PALLOC 160Q PALLOC 146Q MP 140Q PALLOC 125Q PALLOC 27Q MP 22Q PALLOC) ( 131Q (FILE)) \PFLOPPY.ALLOCATE.LARGEST D1 (P 4 PALLOC P 1 ANSWER P 0 LENGTH F 5 \FLOPPYFDEV) W@jXU(>dLo (LZȂJȁHLY[ȂKȁI(123Q FLOPPY.ICHECK 43Q EQUAL) (103Q MP 76Q PALLOC 56Q MP 51Q PALLOC 32Q PALLOC 15Q PINFO 10Q FDEV) ( 40Q (FREE)) \PFLOPPY.TRUNCATE D1 (P 16Q \INTERRUPTABLE P 5 TAIL P 4 FMP P 3 FREE P 2 NMP P 1 NEXT P 0 MP I 1 LENGTH I 0 PALLOC F 17Q \FLOPPYFDEV) k A@^ȂNȁN@X@YdZ`dlA Hȃ_dOHȆ_dOH_ȂOȁjAk_dlO dj̓dj͆dkdn2\`do@Ak_dOdL[@W( ]HlL_O JlL_ȂOȁ JLȃJLȆMKM@KK@KIIK@kHi KkLi IkJi h(547Q FLOPPY.ICHECK 543Q \PFLOPPY.WRITEPAGENO 525Q \PFLOPPY.WRITEPAGENO 507Q \PFLOPPY.WRITEPAGENO 370Q \PUTSWAPPEDFIXP 340Q \PUTSWAPPEDFIXP 305Q MEMB 170Q \PUTSWAPPEDFIXP 72Q \PUTSWAPPEDFIXP) (532Q PALLOC 514Q PALLOC 476Q PALLOC 466Q PALLOC 456Q PALLOC 446Q PALLOC 436Q PALLOC 416Q MP 412Q MP 401Q MP 375Q MP 354Q MP 345Q MP 324Q MP 315Q MP 300Q PINFO 273Q FDEV 240Q PALLOC 223Q PALLOCTYPE# 135Q MP 116Q MP 77Q MP 61Q MPTYPE# 53Q PALLOC 44Q PALLOC 35Q PALLOC 14Q MP 7 PALLOC) ( 231Q (FREE)) \PFLOPPY.DEALLOCATE D1 (P 3 \INTERRUPTABLE P 2 NMP P 1 NEXT P 0 MP I 0 PALLOC) o0@h @X@YdZ@oHj͆Hj̓JjJj@kHi IkJi h(153Q FLOPPY.ICHECK 147Q \PFLOPPY.WRITEPAGENO 131Q \PFLOPPY.WRITEPAGENO) (136Q PALLOC 120Q PALLOC 110Q MP 100Q MP 70Q MP 60Q MP 45Q PALLOC 33Q PALLOC 24Q PALLOC 15Q PALLOC 6 PALLOC) ( 51Q (FREE)) \PFLOPPY.EXTEND D1 (P 31Q J P 30Q I P 26Q \INTERRUPTABLE P 21Q TAIL2 P 20Q TAIL1 P 17Q NEXT2 P 16Q NEXT1 P 15Q PREV2 P 14Q PREV1 P 13Q MP2 P 12Q MP1 P 11Q START2 P 10Q START1 P 7 NEW P 6 TAIL P 5 LENGTH P 4 OLDLENGTH P 3 NNMP P 2 NNEXT P 1 MP P 0 NEXT I 0 PALLOC F 32Q \FLOPPYFDEV) p@Xdo H@HZ@_$ȂO$ȁJj@kؽ@W4( IlM KlM KkKnNd@JJ@@kIi JkKi MLl7@Ll2 h@_&ȂO&ȁl2 _o ` nhn h_*@@_(ȂO(ȁk@OO0O.O2O0O* O0k_0O2k_2O*o @ @_O_@_O_@_O_@_O_@W4( _ OW4( _"@OOO@OOOOiO\ONOA@OOO@OOOO OO"@@ O h@O@O(1132Q FLOPPY.ICHECK 1127Q \PFLOPPY.DEALLOCATE 1122Q \PFLOPPY.ADD.TO.FILELIST 745Q MEMB 722Q MEMB 576Q \PFLOPPY.DELETE.FROM.FILELIST 572Q \FLOPPY.MESSAGE 533Q \PFLOPPY.WRITEPAGENO 530Q \PFLOPPY.READPAGENO 425Q \ALLOCBLOCK 406Q \FLOPPY.MESSAGE 375Q \PFLOPPY.ALLOCATE 343Q FLOPPY.ICHECK 337Q \PFLOPPY.TRUNCATE 317Q \PFLOPPY.WRITEPAGENO 301Q \PFLOPPY.WRITEPAGENO 213Q \PUTSWAPPEDFIXP 177Q \PUTSWAPPEDFIXP 160Q MEMB 31Q EQUAL) (1173Q PALLOC 1162Q PALLOC 1150Q PALLOC 1137Q PALLOC 1076Q PALLOC 1064Q PALLOC 1053Q PALLOC 1041Q PALLOC 1010Q PALLOC 776Q PALLOC 765Q PALLOC 753Q PALLOC 740Q PINFO 733Q FDEV 715Q PINFO 710Q FDEV 676Q PALLOC 665Q PALLOC 655Q PALLOC 644Q PALLOC 634Q PALLOC 623Q PALLOC 613Q PALLOC 602Q PALLOC 562Q \FLOPPY.SCRATCH.BUFFER 503Q PALLOC 474Q PALLOC 454Q MP 447Q PALLOC 441Q PALLOC 431Q \FLOPPY.SCRATCH.BUFFER 411Q \FLOPPY.SCRATCH.BUFFER 356Q MP 351Q PALLOC 306Q PALLOC 270Q PALLOC 260Q PALLOC 250Q PALLOC 230Q MP 220Q MP 204Q MP 170Q MP 153Q PINFO 146Q FDEV 131Q PALLOC 122Q PALLOC 104Q MP 77Q PALLOC 70Q PALLOC 62Q PALLOC 53Q PALLOC 41Q PALLOC 20Q PALLOC 11Q PALLOC) ( 567Q "Finished Reallocating" 403Q "Reallocating" 26Q (FREE)) \PFLOPPY.GAINSPACE D1 (P 3 PALLOC P 0 PALLOCS I 0 LENGTH F 4 \FLOPPYFDEV) [ T(Jh3h[o KYȂIȁ@KiJZgli (126Q \LISPERROR 54Q EQUAL 5 \PFLOPPY.GAINSPACE.MERGE) (120Q {FLOPPY} 67Q MP 62Q PALLOC 43Q PALLOC 17Q PINFO 12Q FDEV) ( 51Q (FREE)) \PFLOPPY.GAINSPACE.MERGE D1 (P 17Q P P 16Q \INTERRUPTABLE P 7 LENGTH P 6 NMP P 5 MP P 4 NEXT P 3 LAST P 2 OTHERS P 1 FREE P 0 PALLOCS F 20Q \FLOPPYFDEV) E W (XHh__hYdK_o 4O+Oo OOiO1 Oo Od:OZ [ILLjIk_J2_OOh__O_O&_dOH ILLIMlO NlO IkMi LkNi (477Q FLOPPY.ICHECK 473Q \PFLOPPY.WRITEPAGENO 455Q \PFLOPPY.WRITEPAGENO 437Q \PUTSWAPPEDFIXP 422Q \PUTSWAPPEDFIXP 361Q DREMOVE 223Q LAST 200Q EQUAL 117Q EQUAL 61Q EQUAL 22Q FLOPPY.ICHECK) (462Q PALLOC 444Q PALLOC 427Q MP 412Q MP 402Q PALLOC 372Q PALLOC 330Q PALLOC 264Q PALLOC 255Q PALLOC 246Q PALLOC 237Q PALLOC 230Q PALLOC 207Q PALLOC 167Q PALLOC 155Q PALLOC 133Q PALLOC 126Q PALLOC 106Q PALLOC 101Q PALLOC 70Q PALLOC 50Q PALLOC 14Q PINFO 7 FDEV) ( 175Q (FREE) 114Q (FREE) 56Q (FREE)) FLOPPY.BUG D1 (F 0 S1 F 1 S2) 4ggg cggg ch(60Q S2 55Q S2 52Q S2 47Q S1 44Q S1 41Q S1 34Q OPENSTREAM 16Q OPENSTREAM 2 FRESH.FLOPPY) (31Q NEW 26Q OUTPUT 23Q {FLOPPY}BAR 13Q NEW 10Q OUTPUT 5 {FLOPPY}FOO) () FRESH.FLOPPY D1 NIL hi h(4 FLOPPY.FORMAT) NIL () FLOPPY.LENGTHS D1 (P 4 P F 5 \FLOPPYFDEV) 5PU(!d\[ȂKȁIHhZH&JNIL (32Q MP 25Q PALLOC 13Q PINFO 6 FDEV) () FLOPPY.STARTS D1 (F 3 \FLOPPYFDEV) *0S(dIHhZH&JNIL (24Q PALLOC 13Q PINFO 6 FDEV) () FLOPPY.ICHECK D1 (P 15Q F P 14Q P2 P 13Q P1 P 4 MP2 P 3 MP1 P 2 PALLOCS P 1 LENGTHS P 0 STARTS F 16Q \FLOPPYFDEV F 17Q \OPENFILES) XYHd o Ih]=ho Ij O9OI njo W(Zd^jNNiM_OO_O_d OOJ OOJ o JJ" O_OJJ" O4;_OOOOo O_O__OWz_OO_ȂOȁklOjo O_O_xd OW!O W( o h(625Q \FLOPPY.SEVERE.ERROR 615Q MEMB 526Q \FLOPPY.SEVERE.ERROR 403Q \FLOPPY.SEVERE.ERROR 271Q \FLOPPY.SEVERE.ERROR 261Q MEMB 233Q MEMB 117Q \FLOPPY.SEVERE.ERROR 100Q LENGTH 56Q \FLOPPY.SEVERE.ERROR 35Q \FLOPPY.SEVERE.ERROR 25Q EQUAL 22Q SORT 17Q COPY 11Q FLOPPY.LENGTHS 5 FLOPPY.STARTS) (610Q PINFO 603Q FDEV 574Q STREAM 560Q STREAM 511Q PALLOC 465Q MP 460Q PALLOC 451Q PALLOC 366Q PALLOC 353Q PALLOC 253Q PALLOC 242Q PALLOC 225Q PALLOC 215Q PALLOC 132Q PINFO 125Q FDEV) ( 622Q "Streams Allocation Error" 523Q "Lengths3 Allocation Error" 400Q "Links2 Allocation Error" 266Q "Links Allocation Error" 114Q "Lengths2 Allocation Error" 53Q "Lengths1 Allocation Error" 32Q "Starts Allocation Error") FLOPPY.ALLOCATIONS D1 (P 4 I P 2 PALLOC P 0 REGION F 5 \FLOPPY.ALLOCATIONS.BITMAP F 6 \FLOPPYFDEV)  UllM c hddUhdddggj V(XdJo BJJYȂIȁkJLKULklLklk Lk\U h(213Q EDITBM 172Q BITMAPBIT 100Q EQUAL 41Q BKBITBLT 13Q BITMAPCREATE) (137Q PALLOC 121Q MP 114Q PALLOC 106Q PALLOC 67Q PALLOC 52Q PINFO 45Q FDEV 34Q REPLACE 31Q TEXTURE) ( 75Q (FREE)) FLOPPY.FREE.PAGES D1 NIL (2 \PFLOPPY.FREE.PAGES) NIL () \PFLOPPY.FREE.PAGESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 PALLOC P 0 ANSWER F 3 \FLOPPYLOCK F 4 \FLOPPYFDEV F 5 RESETY) TShi  jT(-dJo HJYȂIȁkظHkc i(56Q EQUAL 14Q \PFLOPPY.DOORCHECK 5 OBTAIN.MONITORLOCK) (72Q MP 65Q PALLOC 45Q PALLOC 30Q PINFO 23Q FDEV) ( 53Q (FREE)) \PFLOPPY.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 \PFLOPPY.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 \FLOPPYLOCK F 4 RESETY) 8Shi dgdgdgPQR gPQR ci(62Q SHOULDNT 56Q \CFLOPPY.FORMAT 42Q \PFLOPPY.FORMAT 11Q FLOPPY.MODE 5 OBTAIN.MONITORLOCK) (46Q CPM 31Q SYSOUT 23Q HUGEPILOT 15Q PILOT) () 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)) \PFLOPPY.FORMAT D1 (P 21Q VALUE P 5 FLE P 4 FILELIST P 3 MP2310 P 2 MP34 P 1 MP31 P 0 SECTOR9 I 2 SLOWFLG I 1 AUTOCONFIRMFLG I 0 NAME)  oAi hnhl \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_dOdjCdkkO"kH g g BH}i fi ^h_`W`_l OljdjlLo jjdjko jkdkl$o k Oj h_jdjlLo jjdjko jkdkl$o kki Oh_`X`_l OljdjlLo jjdjko jkdkl$o k Ol h_jdjlLo jjkkdo nkdkl$o kki Oi i h_`X`_l OljdjlLo jjdjko jkdkl$o k Ol h_jkklLo ojdjko jkdkl$o klLi OjkklLo ojkkdo nkdkl$o klLi Oibo hlIi l Li l!Lni l"Ji n Ki h_ `W`_l OljdjlLo jjdjko jkdkl$o k Oj h_ jdjlLo jjdjko jkl l l$o l Hi O ibo ri(2575Q \FLOPPY.MESSAGE 2553Q \FLOPPY.WRITESECTOR 2541Q \FLOPPY.SEVERE.ERROR 2515Q \FLOPPY.SEVERE.ERROR 2474Q \FLOPPY.SEVERE.ERROR 2445Q \FLOPPY.SETUP 2436Q \PUTFIXP 2427Q \FLOPPY.SEVERE.ERROR 2405Q \FLOPPY.SEVERE.ERROR 2364Q \FLOPPY.SEVERE.ERROR 2333Q \FLOPPY.SETUP 2303Q \PFLOPPY.WRITEPAGENO 2267Q \PFLOPPY.WRITEPAGENO 2254Q \PFLOPPY.WRITEPAGENO 2235Q \PFLOPPY.WRITEPAGENO 2222Q \PFLOPPY.WRITEPAGENO 2207Q \FLOPPY.MESSAGE 2165Q \FLOPPY.FORMATTRACKS 2153Q \FLOPPY.SEVERE.ERROR 2127Q \FLOPPY.SEVERE.ERROR 2103Q \FLOPPY.SEVERE.ERROR 2060Q \FLOPPY.FORMATTRACKS 2046Q \FLOPPY.SEVERE.ERROR 2024Q \FLOPPY.SEVERE.ERROR 2000Q \FLOPPY.SEVERE.ERROR 1751Q \FLOPPY.SETUP 1741Q \PUTFIXP 1732Q \FLOPPY.SEVERE.ERROR 1710Q \FLOPPY.SEVERE.ERROR 1667Q \FLOPPY.SEVERE.ERROR 1636Q \FLOPPY.SETUP 1606Q \FLOPPY.RECALIBRATE 1576Q \FLOPPY.INITIALIZE 1560Q \FLOPPY.FORMATTRACKS 1547Q \FLOPPY.SEVERE.ERROR 1523Q \FLOPPY.SEVERE.ERROR 1502Q \FLOPPY.SEVERE.ERROR 1453Q \FLOPPY.SETUP 1443Q \PUTFIXP 1434Q \FLOPPY.SEVERE.ERROR 1412Q \FLOPPY.SEVERE.ERROR 1371Q \FLOPPY.SEVERE.ERROR 1340Q \FLOPPY.SETUP 1302Q \FLOPPY.FORMATTRACKS 1271Q \FLOPPY.SEVERE.ERROR 1247Q \FLOPPY.SEVERE.ERROR 1226Q \FLOPPY.SEVERE.ERROR 1177Q \FLOPPY.SETUP 1170Q \PUTFIXP 1161Q \FLOPPY.SEVERE.ERROR 1137Q \FLOPPY.SEVERE.ERROR 1116Q \FLOPPY.SEVERE.ERROR 1065Q \FLOPPY.SETUP 1035Q \FLOPPY.RECALIBRATE 1025Q \FLOPPY.INITIALIZE 1007Q \FLOPPY.BREAK 1000Q FLOPPY.CAN.WRITEP 772Q \FLOPPY.BREAK 763Q FLOPPY.CAN.READP 757Q RPLSTRING 754Q SUBSTRING 647Q NCHARS 633Q MKSTRING 564Q \PUTSWAPPEDFIXP 552Q \PUTSWAPPEDFIXP 533Q \PUTSWAPPEDFIXP 473Q \PUTSWAPPEDFIXP 455Q \PUTSWAPPEDFIXP 437Q \PUTSWAPPEDFIXP 417Q \PUTSWAPPEDFIXP 360Q \PUTSWAPPEDFIXP 345Q \PUTSWAPPEDFIXP 322Q \PUTSWAPPEDFIXP 310Q \PUTSWAPPEDFIXP 241Q \PUTSWAPPEDFIXP 227Q \PUTSWAPPEDFIXP 201Q \PUTSWAPPEDFIXP 163Q \PUTSWAPPEDFIXP 141Q \MOVEWORDS 102Q \PUTSWAPPEDFIXP 42Q \ALLOCBLOCK 30Q \FLOPPY.CLOSE 22Q \PFLOPPY.CONFIRM 10Q \PFLOPPY.START) (2560Q \FLOPPY.IBMS128.IOCB 2451Q \FLOPPY.IBMS128.IOCB 2341Q IOCB 2323Q IOCBTYPE# 2316Q \FLOPPY.IBMS128.IOCB 2172Q \FLOPPY.IBMD512.IOCB 1755Q \FLOPPY.IBMD512.IOCB 1644Q IOCB 1626Q IOCBTYPE# 1621Q \FLOPPY.IBMD512.IOCB 1565Q \FLOPPY.IBMD256.IOCB 1457Q \FLOPPY.IBMD256.IOCB 1346Q IOCB 1330Q IOCBTYPE# 1323Q \FLOPPY.IBMD256.IOCB 1307Q \FLOPPY.IBMS128.IOCB 1203Q \FLOPPY.IBMS128.IOCB 1073Q IOCB 1055Q IOCBTYPE# 1050Q \FLOPPY.IBMS128.IOCB 1004Q WRITEPROTECTED 767Q DOORISOPEN 747Q SECTOR9 710Q SECTOR9 642Q SECTOR9 514Q SECTOR9TYPE# 401Q MPTYPE# 262Q MPTYPE# 145Q MPTYPE# 74Q FLETYPE#) ( 2572Q "RETRYING FORMAT" 2536Q "Illegal Diskaddress" 2512Q "Illegal Diskaddress" 2471Q "Illegal Diskaddress" 2424Q "Illegal Diskaddress" 2402Q "Illegal Diskaddress" 2361Q "Illegal Diskaddress" 2204Q "RETRYING FORMAT" 2150Q "Illegal Diskaddress" 2124Q "Illegal Diskaddress" 2110Q 200000Q 2100Q "Illegal Diskaddress" 2043Q "Illegal Diskaddress" 2021Q "Illegal Diskaddress" 2005Q 200000Q 1775Q "Illegal Diskaddress" 1727Q "Illegal Diskaddress" 1705Q "Illegal Diskaddress" 1664Q "Illegal Diskaddress" 1544Q "Illegal Diskaddress" 1520Q "Illegal Diskaddress" 1477Q "Illegal Diskaddress" 1431Q "Illegal Diskaddress" 1407Q "Illegal Diskaddress" 1366Q "Illegal Diskaddress" 1266Q "Illegal Diskaddress" 1244Q "Illegal Diskaddress" 1223Q "Illegal Diskaddress" 1156Q "Illegal Diskaddress" 1134Q "Illegal Diskaddress" 1113Q "Illegal Diskaddress" 15Q "Destroy contents of floppy") \PFLOPPY.CONFIRM D1 (P 0 SECTOR9 I 2 NOERROR I 1 AUTOCONFIRMFLG I 0 MESSAGE) e@X[AXhd@olHlйdIHljJJljdKdjCdk o dgighhi(116Q ASKUSER 113Q CONCAT 104Q MKATOM 5 \PFLOPPY.GET.SECTOR9) (132Q N 122Q Y 43Q SECTOR9) ( 110Q "? " 22Q " ") 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 \FLOPPYLOCK F 1 RESETY) *Phi dgdgdgci(44Q SHOULDNT 37Q \PFLOPPY.GET.NAME 11Q FLOPPY.MODE 5 OBTAIN.MONITORLOCK) (31Q SYSOUT 23Q HUGEPILOT 15Q PILOT) () 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)) \PFLOPPY.GET.NAME D1 (F 4 \FLOPPYFDEV) ET(1lHlйdIHljJJljdKdjCdk (102Q MKATOM 2 \PFLOPPY.DOORCHECK) (41Q SECTOR9 13Q PINFO 6 FDEV) () FLOPPY.SET.NAMEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 \FLOPPYLOCK F 1 NAME F 2 RESETY) +Phi dgdgdgQ ci(45Q SHOULDNT 40Q \PFLOPPY.SET.NAME 11Q FLOPPY.MODE 5 OBTAIN.MONITORLOCK) (31Q SYSOUT 23Q HUGEPILOT 15Q PILOT) () 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)) \PFLOPPY.SET.NAME D1 (P 5 VALUE P 0 \INTERRUPTABLE I 0 NAME F 6 \FLOPPYFDEV) @V(@ LM ljIIljlLlкdJLdKdjCdkkMkL V(1lIlкdJIljKKljdLdjCdk (246Q MKATOM 145Q \PFLOPPY.SAVE.SECTOR9 141Q RPLSTRING 136Q SUBSTRING 40Q NCHARS 27Q MKSTRING 2 \PFLOPPY.DOORCHECK) (205Q SECTOR9 157Q PINFO 152Q FDEV 131Q SECTOR9 76Q SECTOR9 34Q SECTOR9 16Q PINFO 11Q FDEV) () FLOPPY.DRIVE.EXISTSP D1 NIL `lNIL (2 \MACHINETYPE) () FLOPPY.CAN.READPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 \INTERRUPTABLE P 0 ANSWER F 2 \FLOPPYLOCK F 3 \FLOPPYRESULT F 4 RESETY) )Rhi i SjhhXHci(24Q \FLOPPY.NOP 14Q \FLOPPY.INITIALIZE 5 OBTAIN.MONITORLOCK) NIL () 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 1 \INTERRUPTABLE P 0 ANSWER F 2 \FLOPPYRESULT F 3 \FLOPPYLOCK F 4 RESETY) 5Shi i Rjhh RjhhXHci(24Q \FLOPPY.NOP 14Q \FLOPPY.INITIALIZE 5 OBTAIN.MONITORLOCK) NIL () 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 \FLOPPYLOCK F 2 RESETY) =Qhi PPn hci(63Q DISMISS 50Q FLOPPY.CAN.READP 43Q FLOPPY.CAN.READP 36Q BLOCK 30Q BLOCK 24Q FLOPPY.CAN.READP 15Q \FLOPPY.INITIALIZE 11Q \FLOPPY.CLOSE 5 OBTAIN.MONITORLOCK) NIL () 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 (F 0 \SFLOPPYINFO F 1 \SFLOPPYFDEV) `c`dgdjdjdk dj0dgdgdgdgdg dg dgdgdgdgdgdgdgdgdgdg dg"dg$dg&dP(dg.dg0dg2dg4dg6dg8dg:dg*chNIL (347Q \PAGED.FLUSHOUTPUT 340Q NILL 331Q \PAGEDBOUTS 322Q \PAGEDBINS 313Q \PAGEDEOFP 304Q \PAGEDGETEOFPTR 275Q \PAGEDGETFILEPTR 266Q \IS.NOT.RANDACCESSP 252Q \PAGEDBACKFILEPTR 243Q \PAGEDREADP 234Q \PAGEDPEEKBIN 225Q \PAGEDBOUT 216Q \PAGEDBIN 207Q \SFLOPPY.WRITEPAGES 200Q NILL 171Q NILL 162Q \SFLOPPY.OPENHUGEFILE 153Q \SFLOPPY.READPAGES 144Q \SFLOPPY.OPENHUGEFILE 135Q \FLOPPY.HOSTNAMEP 126Q \PFLOPPY.GETFILENAME 117Q \SFLOPPY.GETFILEINFO 110Q \PFLOPPY.GENERATEFILES 101Q \FLOPPY.EVENTFN 72Q TRUE 63Q NILL 54Q \SFLOPPY.CLOSEHUGEFILE 15Q FLOPPY 10Q FDEVTYPE# 2 PINFOTYPE#) () \SFLOPPY.GETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 ANSWER P 1 LP P 0 STREAM F 14Q \FLOPPYLOCK F 15Q FILE F 16Q ATTRIBUTE F 17Q RESETY)  Whi  W XWdgI[K dgI\L dgI]M dgI^N vdgI_O`dgITdgI_O>dgI_ O )dgI_ O gI_O ci(203Q \FLOPPY.MTL.IDATE 152Q \FLOPPY.MTL.IDATE 121Q GDATE 116Q \FLOPPY.MTL.IDATE 65Q GDATE 62Q \FLOPPY.MTL.IDATE 23Q \PFLOPPY.ASSURESTREAM 15Q \PFLOPPY.DOORCHECK 6 OBTAIN.MONITORLOCK) (360Q LP 351Q HUGELENGTH 334Q LP 325Q HUGEPAGELENGTH 307Q LP 300Q HUGEPAGESTART 262Q LP 253Q PAGELENGTH 243Q LP 234Q MESATYPE 220Q LP 211Q LENGTH 171Q LP 161Q ICREATIONDATE 140Q LP 130Q IWRITEDATE 104Q LP 74Q CREATIONDATE 50Q LP 40Q WRITEDATE 27Q STREAM) () \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 7 VALUE P 0 STREAM F 10Q RECOG F 11Q ACCESS F 12Q OTHERINFO F 13Q \SFLOPPY.HUGELENGTH F 14Q \SFLOPPY.HUGEPAGELENGTH F 15Q \FLOPPYLOCK F 16Q \SFLOPPY.FLOPPYNO F 17Q \SFLOPPY.RECOG F 20Q \SFLOPPY.PAGENO F 21Q RESETY F 22Q \SFLOPPY.IWRITEDATE)  Whi `WdgWdgcjcc WgW cgW cnnco gWWgohh XgHo _NO ldI8I7l cbgWdghl cFWl cdgI_ O )dgI_ O gI_O ci(203Q \FLOPPY.MTL.IDATE 152Q \FLOPPY.MTL.IDATE 121Q GDATE 116Q \FLOPPY.MTL.IDATE 65Q GDATE 62Q \FLOPPY.MTL.IDATE 23Q \PFLOPPY.ASSURESTREAM 15Q \PFLOPPY.DOORCHECK 6 OBTAIN.MONITORLOCK) (360Q LP 351Q HUGELENGTH 334Q LP 325Q HUGEPAGELENGTH 307Q LP 300Q HUGEPAGESTART 262Q LP 253Q PAGELENGTH 243Q LP 234Q MESATYPE 220Q LP 211Q LENGTH 171Q LP 161Q ICREATIONDATE 140Q LP 130Q IWRITEDATE 104Q LP 74Q CREATIONDATE 50Q LP 40Q WRITEDATE 27Q STREAM) () \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 7 VALUE P 0 STREAM F 10Q RECOG F 11Q \HFLOPPY.FILENAME F 12Q ACCESS F 13Q OTHERINFO F 14Q \HFLOPPY.HUGELENGTH F 15Q \HFLOPPY.HUGEPAGELENGTH F 16Q \FLOPPYLOCK F 17Q \HFLOPPY.RECOG F 20Q FILE F 21Q \HFLOPPY.FLOPPYNO F 22Q \HFLOPPY.PAGENO F 23Q RESETY F 24Q \HFLOPPY.IWRITEDATE)  Whi `WdgWdgcW cjc"c$WgW cgW cnncWo WWWgohh XW HW _NO ldI8I7l cVgWdg\l c:Wl c0ldlNlкdJNdKdjCdkkOkN H WLWWWW X\L cH] M cHWn HWn H gc(Hc&i(600Q IDATE 570Q \GETACCESS 464Q \PFLOPPY.OPENFILE 431Q RPLSTRING 426Q SUBSTRING 332Q \LISPERROR 315Q \LISPERROR 261Q \LISPERROR 242Q NCHARS 226Q MKSTRING 205Q \FLOPPY.ADDDEVICENAME 174Q \PFLOPPY.OPENFILE 146Q \PFLOPPY.FORMAT 143Q CONCAT 114Q ASSOC 101Q \FLOPPY.OTHERINFO 51Q \FLOPPY.ASSUREFILENAME 6 OBTAIN.MONITORLOCK) (573Q INPUT 553Q STREAM 536Q STREAM 520Q LP 513Q STREAM 475Q LP 470Q STREAM 443Q PALLOC 436Q STREAM 421Q LP 365Q LP 303Q OLD 272Q INPUT 235Q LP 214Q STREAM 200Q STREAM 160Q LENGTH 107Q LENGTH 67Q NEW 34Q NEW 20Q OUTPUT) ( 164Q 4342000Q 140Q "#1") \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) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \HFLOPPY.OPENHUGEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (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 6 VALUE P 0 NEWSTREAM F 7 STREAM F 10Q \HFLOPPY.PAGENO F 11Q \HFLOPPY.FILENAME F 12Q \HFLOPPY.FLOPPYNO F 13Q \HFLOPPY.RECOG F 14Q \FLOPPYLOCK F 15Q BUFFER F 16Q \HFLOPPY.MAXPAGES F 17Q RESETY) 0 Whi P` nhn hYWnĿWWI IWkcWWW Wkcjci oi i i WgWoWk WW Wgohh WH  WHWW MN ldJJldlMlлdKMdLdjCdkkNkM W Whci(430Q RPLSTRING 425Q SUBSTRING 327Q NCHARS 316Q MKSTRING 242Q \PFLOPPY.OPENFILE 221Q \GETACCESS 211Q \PFLOPPY.FORMAT 206Q CONCAT 160Q FLOPPY.WAIT.FOR.FLOPPY 153Q RINGBELLS 147Q TERPRI 142Q PRIN1 131Q FRESHLINE 111Q \HFLOPPY.CLOSESMALLFILE 56Q \PFLOPPY.WRITEPAGE 31Q \ALLOCBLOCK 6 OBTAIN.MONITORLOCK) (443Q PALLOC 436Q STREAM 420Q LP 365Q LP 323Q LP 304Q STREAM 272Q STREAM 266Q STREAM 254Q STREAM 250Q STREAM 226Q LENGTH 166Q NEW 63Q \FLOPPY.SCRATCH.BUFFER 35Q \FLOPPY.SCRATCH.BUFFER 15Q \FLOPPY.SCRATCH.BUFFER) ( 232Q 4342000Q 177Q "#" 136Q "INSERT NEXT FLOPPY") \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) 1@ gBddhjHh@AIJ HIkع(45Q \HFLOPPY.READPAGE 3 \GETACCESS) (6 INPUT) () \HFLOPPY.READPAGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 NEWSTREAM F 1 STREAM F 2 \HFLOPPY.PAGENO F 3 \HFLOPPY.FLOPPYNO F 4 \FLOPPYLOCK F 5 \HFLOPPY.RECOG F 6 BUFFER F 7 \HFLOPPY.MAXPAGES F 10Q RESETY F 11Q \HFLOPPY.FILENAME) t Thi QRV RkcWRRQ Skcjci oi i i WQ U QH  QHhci(121Q \PFLOPPY.OPENFILE 115Q \GETACCESS 106Q FLOPPY.WAIT.FOR.FLOPPY 101Q RINGBELLS 75Q TERPRI 70Q PRIN1 57Q FRESHLINE 40Q \HFLOPPY.CLOSESMALLFILE 17Q \PFLOPPY.READPAGE 5 OBTAIN.MONITORLOCK) (147Q STREAM 143Q STREAM 132Q STREAM 126Q STREAM) ( 64Q "INSERT NEXT FLOPPY") \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) F 0 STREAM F 1 \FLOPPYLOCK F 2 RESETY F 3 \HFLOPPY.HUGELENGTH F 4 \HFLOPPY.HUGEPAGELENGTH) dQhi P gOPjPd PkPhP P nP cnncP hci(134Q \HFLOPPY.CLOSESMALLFILE 71Q \CLEARMAP 44Q \SETIODIRTY 12Q \GETACCESS 5 OBTAIN.MONITORLOCK) (110Q STREAM 76Q STREAM 61Q STREAM 51Q STREAM 37Q STREAM 24Q STREAM 15Q INPUT) () \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.CLOSESMALLFILE D1 (P 4 NMP P 3 NEXT P 2 MP P 1 LP P 0 PALLOC I 0 STREAM F 5 \HFLOPPY.PAGENO F 6 \HFLOPPY.IWRITEDATE F 7 \HFLOPPY.RECOG F 10Q \HFLOPPY.HUGELENGTH F 11Q \HFLOPPY.MAXPAGES F 12Q \HFLOPPY.FLOPPYNO F 13Q \HFLOPPY.HUGEPAGELENGTH) P@ g@U@ @ Xd YdlV WgGIlV IlU Il WW Il W Il W HH h(227Q \PFLOPPY.SAVE.SECTOR9 224Q \PFLOPPY.SAVE.FILELIST 221Q \PFLOPPY.WRITEPAGENO 201Q \PUTSWAPPEDFIXP 164Q \PUTSWAPPEDFIXP 147Q \PUTSWAPPEDFIXP 127Q \PUTSWAPPEDFIXP 113Q \PUTSWAPPEDFIXP 110Q \FLOPPY.LTM.IDATE 65Q \PUTSWAPPEDFIXP 62Q \FLOPPY.LTM.IDATE 31Q \PFLOPPY.TRUNCATEFILE 6 \GETACCESS) (214Q PALLOC 206Q PALLOC 171Q LP 154Q LP 134Q LP 120Q LP 101Q LP 72Q NEW 53Q LP 44Q PALLOC 35Q STREAM 24Q STREAM 11Q INPUT) () FLOPPY.SCAVENGE D1 (F 0 \FLOPPY.SCAVENGE.IDATE) c(7 \PFLOPPY.SCAVENGE 2 IDATE) NIL () \PFLOPPY.SCAVENGE D1 NIL "o hi(36Q \PFLOPPY.SCAVENGE.FILELIST 33Q \PFLOPPY.SCAVENGE.SECTOR9 30Q \PFLOPPY.OPEN 25Q \PFLOPPY.SCAVENGE.LPS 22Q \PFLOPPY.SCAVENGE.MPS 17Q \FLOPPY.CLOSE 11Q \PFLOPPY.CONFIRM 2 \PFLOPPY.START) NIL ( 6 "Scavenge contents of floppy") \PFLOPPY.SCAVENGE.MPS D1 (P 2 NMP P 1 MP 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.MP.AFTER 10Q \PFLOPPY.SCAVENGE.MP31) (41Q MP) () \PFLOPPY.SCAVENGE.MP31 D1 (P 1 LOCATION P 0 MP) 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 MPTYPE# 342Q MP 330Q MP 320Q MP 306Q MP 274Q MP 263Q MP 245Q MP 231Q MP 222Q MP 212Q MP 174Q MP 136Q MP 122Q MP 106Q MP 76Q MP 66Q MP 52Q MP 42Q MP 22Q MP 11Q MPTYPE#) () \PFLOPPY.SCAVENGE.MP.AFTER D1 (P 4 LOCATION P 1 LOCATION P 0 MP I 1 PLOCATION I 0 PMP) c0`XA@ZȂJȁkYA@IH Hn2jHn AkLK&oi A@LH Hn2jLk\H(113Q \PFLOPPY.SCAVENGE.MP.AFTER1 103Q PRIN1 36Q \PFLOPPY.SCAVENGE.MP.AFTER1) (120Q MP 42Q MP 14Q MP 5 MPTYPE#) ( 77Q ".") \PFLOPPY.SCAVENGE.MP.AFTER1 D1 (I 3 MP I 2 LOCATION I 1 PMP 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 MP 601Q MP 557Q MP 550Q MP 540Q MP 534Q MP 512Q MP 503Q MP 466Q MP 454Q MP 444Q MP 432Q MP 420Q MP 407Q MP 371Q MP 355Q MP 346Q MP 336Q MP 314Q MP 243Q MP 227Q MP 204Q MP 175Q MP 164Q MP 160Q MP 147Q MP 143Q MP 121Q MP 111Q MP 77Q MP 47Q MP) () \PFLOPPY.SCAVENGE.LPS D1 (P 24Q VALUE P 4 START P 3 LENGTH P 2 LP P 1 MP P 0 LOCATION F 25Q \FLOPPY.SCAVENGE.IDATE) tPlX`Y`dkFdnEdlDdlCdlddndkdnZn H&HI In2jI]ȂMȁkٻIȃkjHk\J JnJkJnJldJlCJlDJlEJkFJnjJldJlJ^NdKK Jl J_OJ_ O _dOOJ_ O _dOOJ_O nn_dOO Jl J_ O nnJ_O _ dO O JlW* JlW* JlK Jl j Jl K JlKn g _(JO( _"ldO"O"ldlJl_$dO$J_&dO&djCdkkO(kJ LJ HKlظ(1146Q \PFLOPPY.WRITEPAGENO 1140Q RPLSTRING 1135Q SUBSTRING 1024Q NCHARS 1010Q MKSTRING 1005Q GENSYM 773Q \PUTSWAPPEDFIXP 753Q \PUTSWAPPEDFIXP 737Q \PUTSWAPPEDFIXP 723Q \PUTSWAPPEDFIXP 707Q \PUTSWAPPEDFIXP 672Q \PUTSWAPPEDFIXP 652Q \PUTSWAPPEDFIXP 562Q \PUTSWAPPEDFIXP 412Q \PUTSWAPPEDFIXP 211Q \PFLOPPY.READPAGENO 144Q SHOULDNT 123Q \PFLOPPY.READPAGENO) (1130Q LP 1071Q LP 1017Q LP 1002Q ? 760Q LP 744Q LP 730Q LP 714Q LP 677Q LP 662Q LP 623Q LP 576Q LP 567Q LP 523Q LP 473Q LP 443Q LP 426Q LP 417Q LP 372Q LP 363Q LP 346Q LP 326Q LP 316Q LP 305Q LP 274Q LP 263Q LP 252Q LP 240Q LP 230Q LP 216Q LP 167Q MP 151Q MP 130Q MP 20Q LPTYPE# 13Q MPTYPE#) () \PFLOPPY.SCAVENGE.SECTOR9 D1 (P 1 PALLOC P 0 SECTOR9 F 5 \FLOPPYFDEV) PU(Xdn HkHlMHlHlU(ZhYdo HIHlk HI\ȂLȁHl j Hj Hj HjHjHjHjHkkjhHHdllh[o KYiUJG(354Q EQUAL 334Q \PFLOPPY.SAVE.SECTOR9 215Q \PUTSWAPPEDFIXP 154Q \PUTSWAPPEDFIXP 124Q \FLOPPY.BREAK) (343Q PALLOC 315Q SECTOR9 311Q SECTOR9 273Q SECTOR9 264Q SECTOR9 255Q SECTOR9 246Q SECTOR9 237Q SECTOR9 230Q SECTOR9 221Q SECTOR9 206Q SECTOR9 171Q MP 164Q PALLOC 160Q SECTOR9 145Q SECTOR9 135Q PALLOC 131Q SECTOR9 77Q PINFO 72Q FDEV 62Q SECTOR9 52Q SECTOR9 42Q SECTOR9 33Q SECTOR9 22Q SECTOR9 13Q PINFO 6 FDEV) ( 351Q (FILELIST) 121Q "Can't find filelist") \PFLOPPY.SCAVENGE.FILELIST D1 (P 0 FILELIST F 1 \FLOPPYFDEV) "Q(Xdl1dl1h(36Q \PFLOPPY.SAVE.FILELIST) (13Q PINFO 6 FDEV) () FLOPPY.TO.FILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 11Q I P 1 SECTOR9 P 0 TOSTREAM F 12Q \FLOPPYLOCK F 13Q TOFILE F 14Q RESETY)  Whi Wgghgohh Xg oH nl OOHj Ok_h` nhn h`T`Zl JljdjlLo jjdjko jkdkl$o k Jj h]jdjlLo jjdjko jkl l l$o l L H8HLjnlKLM` nhn h_n l OdOOH hciO H8HOjnlNOk_(554Q \PFLOPPY.READPAGENO 541Q CLOSEF 476Q \ALLOCBLOCK 415Q \FLOPPY.READSECTOR 404Q \FLOPPY.SEVERE.ERROR 360Q \FLOPPY.SEVERE.ERROR 337Q \FLOPPY.SEVERE.ERROR 311Q \FLOPPY.SETUP 303Q \PUTFIXP 274Q \FLOPPY.SEVERE.ERROR 252Q \FLOPPY.SEVERE.ERROR 231Q \FLOPPY.SEVERE.ERROR 201Q \FLOPPY.SETUP 154Q \ALLOCBLOCK 121Q \BOUT 75Q PRIN1 64Q \PFLOPPY.START 57Q \FLOPPY.BREAK 50Q FLOPPY.CAN.READP 43Q OPENSTREAM 6 OBTAIN.MONITORLOCK) (566Q FDEV 561Q STREAM 534Q \FLOPPY.SCRATCH.BUFFER 502Q \FLOPPY.SCRATCH.BUFFER 462Q \FLOPPY.SCRATCH.BUFFER 456Q \FLOPPY.IBMS128.IOCB 451Q \FLOPPY.SCRATCH.BUFFER 427Q FDEV 422Q STREAM 315Q \FLOPPY.IBMS128.IOCB 206Q IOCB 172Q IOCBTYPE# 165Q \FLOPPY.IBMS128.IOCB 160Q \FLOPPY.SCRATCH.BUFFER 140Q \FLOPPY.SCRATCH.BUFFER 54Q DOORISOPEN 26Q LENGTH 22Q NEW 17Q OUTPUT) ( 401Q "Illegal Diskaddress" 355Q "Illegal Diskaddress" 334Q "Illegal Diskaddress" 271Q "Illegal Diskaddress" 247Q "Illegal Diskaddress" 226Q "Illegal Diskaddress" 71Q "PILOT" 32Q 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 11Q I P 1 SECTOR9 P 0 FROMSTREAM F 12Q \FLOPPYLOCK F 13Q FROMFILE F 14Q RESETY)  Whi Wgg XHg ojo g g nk OOH Ok_h` nhn h`T`Zl JljdjlLo jjdjko jkdkl$o k Jj hH6HLjnlKMjdjlLo jjdjko jkl l l$o l L LM` nhn h_n l OO*H6HOjnlNOO Ok_OH hci(623Q CLOSEF 577Q \PFLOPPY.WRITEPAGENO 511Q \ALLOCBLOCK 457Q \FLOPPY.WRITESECTOR 446Q \FLOPPY.SEVERE.ERROR 422Q \FLOPPY.SEVERE.ERROR 401Q \FLOPPY.SEVERE.ERROR 323Q \FLOPPY.SETUP 315Q \PUTFIXP 306Q \FLOPPY.SEVERE.ERROR 264Q \FLOPPY.SEVERE.ERROR 243Q \FLOPPY.SEVERE.ERROR 213Q \FLOPPY.SETUP 166Q \ALLOCBLOCK 112Q \PFLOPPY.FORMAT 105Q \FLOPPY.BREAK 76Q FLOPPY.CAN.WRITEP 71Q \FLOPPY.BREAK 62Q FLOPPY.CAN.READP 55Q \FLOPPY.BREAK 36Q GETFILEINFO 25Q OPENSTREAM 6 OBTAIN.MONITORLOCK) (616Q \FLOPPY.SCRATCH.BUFFER 551Q FDEV 544Q STREAM 515Q \FLOPPY.SCRATCH.BUFFER 475Q \FLOPPY.SCRATCH.BUFFER 471Q \FLOPPY.IBMS128.IOCB 464Q \FLOPPY.SCRATCH.BUFFER 342Q FDEV 335Q STREAM 327Q \FLOPPY.IBMS128.IOCB 220Q IOCB 204Q IOCBTYPE# 177Q \FLOPPY.IBMS128.IOCB 172Q \FLOPPY.SCRATCH.BUFFER 152Q \FLOPPY.SCRATCH.BUFFER 102Q WRITEPROTECTED 66Q DOORISOPEN 33Q LENGTH 22Q OLD 17Q INPUT) ( 443Q "Illegal Diskaddress" 417Q "Illegal Diskaddress" 376Q "Illegal Diskaddress" 303Q "Illegal Diskaddress" 261Q "Illegal Diskaddress" 240Q "Illegal Diskaddress" 52Q "Wrong length form FROMFILE" 42Q 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.COMPACT D1 NIL (2 \PFLOPPY.COMPACT) NIL () \PFLOPPY.COMPACTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 PALLOCS P 0 PINFO F 4 \FLOPPYLOCK F 5 \FLOPPYFDEV F 6 RESETY) Thi @o U(XYjZ KdkPo KkػJlI o o o hc i(176Q \FLOPPY.MESSAGE 166Q \PFLOPPY.COMPACT.FILELIST 162Q \PFLOPPY.COMPACT.SECTOR9 156Q \PFLOPPY.COMPACT.PALLOCS 152Q \FLOPPY.MESSAGE 141Q EQUAL 117Q LAST 75Q EQUAL 24Q \FLOPPY.CLOSE 20Q \PFLOPPY.CONFIRM 5 OBTAIN.MONITORLOCK) (130Q PALLOC 123Q PALLOC 64Q PALLOC 37Q PINFO 31Q FDEV) ( 173Q "Finished compacting floppy" 147Q "Compacting floppy" 136Q (FREE) 72Q (FREE) 15Q "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.PALLOCS D1 (P 4 LAST P 3 NMP P 2 NEXT P 1 PREV P 0 PINFO F 22Q \FLOPPYFDEV)  W$(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"&_ (634Q DREVERSE 576Q \PFLOPPY.COMPACT.PALLOC 570Q SHOULDNT 336Q \PUTSWAPPEDFIXP 320Q \PUTSWAPPEDFIXP 244Q \PUTSWAPPEDFIXP 110Q EQUAL 50Q EQUAL 22Q LAST) (665Q PALLOC 616Q PINFO 604Q PALLOC 541Q MP 534Q PALLOC 526Q PALLOC 473Q MP 466Q PALLOC 460Q PALLOC 447Q PALLOC 400Q MP 373Q PALLOC 365Q PALLOC 350Q PALLOCTYPE# 267Q MP 262Q PALLOC 254Q PALLOC 221Q MP 214Q PALLOC 173Q MPTYPE# 151Q MP 144Q PALLOC 136Q PALLOC 115Q PALLOC 77Q PALLOC 65Q PALLOC 55Q PALLOC 37Q PALLOC 30Q PINFO 15Q PINFO 7 FDEV) ( 356Q (FREE) 105Q (FREE) 45Q (FREE)) \PFLOPPY.COMPACT.PALLOC D1 (P 10Q I P 2 PMP P 1 NSTART P 0 NMP I 1 NEXT I 0 PREV) @ pAXAYA@@qAl Hlj Hlj HjHjAo A AAkH Ao {hAA@@[ȂKȁkl@HlJ\ȂLȁ HlJ]ȅMȄ HJȃHJȆKA^ȂNȁkjOOkAOIO` Ok_(465Q \PFLOPPY.WRITEPAGENO 462Q \PFLOPPY.READPAGENO 345Q \PUTSWAPPEDFIXP 317Q \PUTSWAPPEDFIXP 205Q EQUAL 170Q \PFLOPPY.WRITEPAGENO 130Q EQUAL 72Q \PUTSWAPPEDFIXP 56Q \PUTSWAPPEDFIXP) (457Q \FLOPPY.SCRATCH.BUFFER 443Q PALLOC 411Q MP 404Q PALLOC 373Q MP 367Q MP 356Q MP 352Q MP 333Q MP 324Q MP 305Q MP 276Q MP 267Q PALLOC 243Q MP 236Q PALLOC 230Q PALLOC 224Q PALLOC 214Q PALLOC 174Q PALLOC 160Q PALLOC 147Q PALLOC 143Q FLE 136Q PALLOC 117Q PALLOC 107Q MP 77Q MP 63Q MP 47Q MP 36Q PALLOC 24Q PALLOC 15Q PALLOC 6 PALLOC) ( 202Q (FREE) 125Q (FREE)) \PFLOPPY.COMPACT.SECTOR9 D1 (P 1 SECTOR9 P 0 PINFO F 4 \FLOPPYFDEV) F@T(XdYdHZhh[o KiJ(71Q EQUAL 51Q \PFLOPPY.SAVE.SECTOR9) (60Q PALLOC 42Q PALLOC 30Q PINFO 24Q SECTOR9 15Q PINFO 6 FDEV) ( 66Q (FILELIST)) \PFLOPPY.COMPACT.FILELIST D1 (P 2 PALLOC P 1 FILELIST P 0 PINFO F 3 \FLOPPYFDEV) @ S(XdYdjHdJo J h(74Q \PFLOPPY.SAVE.FILELIST 63Q \PFLOPPY.ADD.TO.FILELIST 56Q EQUAL) (45Q PALLOC 30Q PINFO 15Q PINFO 6 FDEV) ( 53Q (FREE)) \CFLOPPY.FCB.FILENAME D1 (P 3 FILENAME P 2 POS P 1 EXTENSION P 0 NAME I 0 FCB) @ld@dldkdjCdkXld@dldl djCdkYoH l kZdjoHkJ oI lkZdjoIkJ HoI (212Q PACK* 200Q SUBSTRING 152Q STRPOS 141Q SUBSTRING 113Q STRPOS) NIL ( 206Q "." 171Q "" 146Q " " 132Q "" 107Q " ") \CFLOPPY.INIT D1 (F 3 \CFLOPPYSECTORMAP F 4 \CFLOPPYBLANKSECTOR F 5 \CFLOPPYINFO F 6 \CFLOPPYFDEV) Hlgjd cojH nhn cljIH`c `dgdkdkdk dk0dgdgdgdgdg dg dgdgdgdgdgdgdgdgdgdg dg"dg$dg&dU(dg.dg0dg2dg4dg6dg8dg:dg*c hSIJ*IkعHXTInIkY(46Q \ALLOCBLOCK 11Q ARRAY) (436Q \PAGED.FLUSHOUTPUT 427Q NILL 420Q \PAGEDBOUTS 411Q \PAGEDBINS 402Q \PAGEDEOFP 373Q \PAGEDGETEOFPTR 364Q \PAGEDGETFILEPTR 355Q \PAGEDSETFILEPTR 341Q \PAGEDBACKFILEPTR 332Q \PAGEDREADP 323Q \PAGEDPEEKBIN 314Q \PAGEDBOUT 305Q \PAGEDBIN 276Q NILL 267Q NILL 260Q NILL 251Q \CFLOPPY.OPENFILE 242Q \CFLOPPY.READPAGES 233Q \CFLOPPY.OPENFILE 224Q \FLOPPY.HOSTNAMEP 215Q NILL 206Q NILL 177Q NILL 170Q \FLOPPY.EVENTFN 161Q NILL 152Q NILL 143Q NILL 104Q FLOPPY 77Q FDEVTYPE# 71Q CINFOTYPE# 4 BYTE) ( 17Q (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 (F 0 \CFLOPPYINFO) (o PhPih(35Q \CFLOPPY.OPEN.DIRECTORY 32Q \FLOPPY.RECALIBRATE 27Q \FLOPPY.INITIALIZE 12Q \FLOPPY.BREAK 2 FLOPPY.DRIVE.EXISTSP) (41Q CINFO 17Q CINFO) ( 7 "No floppy drive on this machine") \CFLOPPY.OPEN.DIRECTORY D1 (P 6 J P 4 I P 2 FCBS P 1 FCB P 0 BUFFER F 7 \CFLOPPYINFO) b0l ljLdKJ WJhH ljNM(`dHNllĿYnjIJNk^Lk\(47Q \CFLOPPY.READPAGENO 30Q DREVERSE) (66Q FCBTYPE# 36Q CINFO) () \CFLOPPY.READPAGESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 I P 1 PAGENO P 0 FCB F 4 FIRSTPAGE# F 5 \FLOPPYLOCK F 6 STREAM F 7 RESETY F 10Q BUFFERS) ZUhi  VTlo HlTllTllعljKJIKWKl@ Kk[hci(112Q \CFLOPPY.READPAGENO 34Q ERROR 5 OBTAIN.MONITORLOCK) (15Q STREAM) ( 31Q "EXTENTS NOT IMPLEMENTED YET") \CFLOPPY.READPAGES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.READPAGESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.READPAGENO D1 (I 2 NOERROR I 1 PAGE I 0 PAGENO) q `T`Yl IljdjlLo jjdjko jkdkl$o k Ij hXd@ AB H(151Q \FLOPPY.READSECTOR 144Q \CFLOPPY.PAGENOTODISKADDRESS 131Q \FLOPPY.SETUP 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (155Q \FLOPPY.IBMS128.IOCB 135Q \FLOPPY.IBMS128.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.IBMS128.IOCB) ( 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \CFLOPPY.WRITEPAGENO D1 (I 2 NOERROR I 1 PAGE I 0 PAGENO) q `T`Yl IljdjlLo jjdjko jkdkl$o k Ij hXd@ AB H(151Q \FLOPPY.WRITESECTOR 144Q \CFLOPPY.PAGENOTODISKADDRESS 131Q \FLOPPY.SETUP 123Q \PUTFIXP 114Q \FLOPPY.SEVERE.ERROR 72Q \FLOPPY.SEVERE.ERROR 51Q \FLOPPY.SEVERE.ERROR 21Q \FLOPPY.SETUP) (155Q \FLOPPY.IBMS128.IOCB 135Q \FLOPPY.IBMS128.IOCB 26Q IOCB 12Q IOCBTYPE# 5 \FLOPPY.IBMS128.IOCB) ( 111Q "Illegal Diskaddress" 67Q "Illegal Diskaddress" 46Q "Illegal Diskaddress") \CFLOPPY.PAGENOTODISKADDRESS D1 (P 6 DISKADDRESS P 5 SECTOR P 4 HEAD P 3 CYLINDER P 2 QUOTIENT P 1 CPMTRACKSPERCYLINDER P 0 CPMSECTORSPERTRACK I 0 PAGENO F 12Q \CFLOPPYSECTORMAP) h plXkYW@H(]@HZdIl[JI\0 jK_OdlLo jL_Odko kM_Odl$o (143Q \FLOPPY.SEVERE.ERROR 114Q \FLOPPY.SEVERE.ERROR 65Q \FLOPPY.SEVERE.ERROR) NIL ( 140Q "Illegal Diskaddress" 111Q "Illegal Diskaddress" 62Q "Illegal Diskaddress") \CFLOPPY.OPENFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 STREAM F 1 \FLOPPYLOCK F 2 FILE F 3 RESETY F 4 RECOG F 5 ACCESS) 'Qhi Rd`TUgh ci(40Q \CFLOPPY.GETFILEHANDLE 14Q \CFLOPPY.OPEN 5 OBTAIN.MONITORLOCK) (32Q INPUT 23Q STREAMTYPE#) () \CFLOPPY.OPENFILE 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 \CFLOPPY.OPENFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \CFLOPPY.GETFILEHANDLE D1 (P 2 STREAM P 1 FCB P 0 NAME I 2 CREATEFLG I 1 RECOG I 0 FILE F 4 \FLOPPYFDEV) @BAo @ Xd Yd@l* `dTHT dKdn dj dg.dg,d`&dg"dg djd`dkdjdldhdldjRdk@dk0dhZdIJ(56Q \FLOPPY.ADDDEVICENAME 37Q \LISPERROR 26Q \CFLOPPY.GETFILEFCB 21Q \FLOPPY.ASSUREFILENAME 14Q ERROR) (250Q STREAM 155Q FILELINELENGTH 140Q \FILEOUTCHARFN 131Q \EOSERROR 122Q \NOIMAGEOPS 113Q \STREAM.NOT.OPEN 104Q \STREAM.NOT.OPEN 43Q STREAMTYPE#) ( 11Q "NOT IMPLEMENTED") \CFLOPPY.GETFILEFCB D1 (P 2 FCB P 0 FCB I 0 FILE F 3 \CFLOPPYINFO) %SIhZ @JiIY(26Q \CFLOPPY.FCB.FILENAME) (6 CINFO) () \CFLOPPY.FORMATA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 I F 3 \FLOPPYLOCK F 4 RESETY F 5 \CFLOPPYBLANKSECTOR) =Shi  `T`Yl IljdjlLo jjdjko jkdkl$o k Ij hi i HjdjlLo jjdjko jkdkl$o klMi Oi Ii CHjdjlLo jjkkdo nkdkl$o klMi o HljJdIhciUi o JkZ(461Q \FLOPPY.MESSAGE 451Q \CFLOPPY.WRITEPAGENO 412Q \FLOPPY.MESSAGE 402Q \FLOPPY.FORMATTRACKS 370Q \FLOPPY.SEVERE.ERROR 344Q \FLOPPY.SEVERE.ERROR 323Q \FLOPPY.SEVERE.ERROR 300Q \FLOPPY.RECALIBRATE 272Q \FLOPPY.INITIALIZE 264Q \FLOPPY.FORMATTRACKS 252Q \FLOPPY.SEVERE.ERROR 230Q \FLOPPY.SEVERE.ERROR 207Q \FLOPPY.SEVERE.ERROR 162Q \FLOPPY.RECALIBRATE 152Q \FLOPPY.INITIALIZE 140Q \FLOPPY.SETUP 132Q \PUTFIXP 123Q \FLOPPY.SEVERE.ERROR 101Q \FLOPPY.SEVERE.ERROR 60Q \FLOPPY.SEVERE.ERROR 30Q \FLOPPY.SETUP 5 OBTAIN.MONITORLOCK) (422Q \FLOPPY.IBMS128.IOCB 144Q \FLOPPY.IBMS128.IOCB 35Q IOCB 21Q IOCBTYPE# 14Q \FLOPPY.IBMS128.IOCB) ( 456Q "RETRYING FORMAT" 407Q "RETRYING FORMAT" 365Q "Illegal Diskaddress" 341Q "Illegal Diskaddress" 320Q "Illegal Diskaddress" 247Q "Illegal Diskaddress" 225Q "Illegal Diskaddress" 204Q "Illegal Diskaddress" 120Q "Illegal Diskaddress" 76Q "Illegal Diskaddress" 55Q "Illegal Diskaddress") \CFLOPPY.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 \CFLOPPY.FORMATA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT FLOPPYCOMS) (RPAQQ FLOPPYCOMS ((* FLOPPY -- By Kelly Roach. *) (COMS (* SA800FACE *) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (C.NOP 0) (C.READSECTOR 1) (C.WRITESECTOR 2) (C.WRITEDELETEDSECTOR 3) (C.READID 4) (C.FORMATTRACK 5) (C.RECALIBRATE 6) (C.INITIALIZE 7) (C.ESCAPE 8) (SC.NOP 0) (SC.DISKCHANGECLEAR 1) ( S.DOOROPENED 32768) (S.TWOSIDED 8192) (S.DISKID 4096) (S.ERROR 2048) (S.RECALIBRATEERROR 512) ( S.DATALOST 256) (S.NOTREADY 128) (S.WRITEPROTECT 64) (S.DELETEDDATA 32) (S.RECORDNOTFOUND 16) ( S.CRCERROR 8) (S.TRACK0 4) (S.INDEX 2) (S.BUSY 1) (R.OK 0) (R.BUSY S.BUSY) (R.CRCERROR (LOGOR S.ERROR S.CRCERROR)) (R.DATALOST (LOGOR S.ERROR S.DATALOST)) (R.DOOROPENED (LOGOR S.ERROR S.DOOROPENED)) ( R.DOORISOPEN (LOGOR S.ERROR S.DOOROPENED S.NOTREADY)) (R.DOORISOPEN2 (LOGOR S.DOOROPENED S.NOTREADY)) (R.NOTREADY (LOGOR S.ERROR S.NOTREADY)) (R.RECALIBRATEERROR (LOGOR S.ERROR S.RECALIBRATEERROR)) ( R.RECORDNOTFOUND (LOGOR S.ERROR S.RECORDNOTFOUND)) (R.WRITEPROTECT (LOGOR S.ERROR S.WRITEPROTECT)) ( R.READERRORMASK (LOGOR S.DOOROPENED S.ERROR S.RECALIBRATEERROR S.DATALOST S.NOTREADY S.RECORDNOTFOUND S.CRCERROR)) (R.WRITEERRORMASK (LOGOR R.READERRORMASK S.WRITEPROTECT)) (R.INFOMASK (LOGOR S.TWOSIDED S.WRITEPROTECT S.TRACK0)) (IOCB.SIZE 16) (B128 0) (B256 1) (B512 2) (B1024 3) (IBM 0) (TROY 1) (SINGLE 0) (DOUBLE 8) (NoBits 0) (IDLENGTH 3) (SEAL.SECTOR9 49932) (VERSION.SECTOR9 1) (BADSPOTSECTORS 2) ( BADSPOTSECTOR 10) (SEAL.MP 13003) (VERSION.MP 1) (SEAL.FILELIST 45771) (VERSION.FILELIST 1) (CYLINDERS 77) (TRACKSPERCYLINDER 2) (SECTORSPERTRACK 15) (MPETYPE.FREE 0) (MPETYPE.FILE 1) (MPETYPE.FILELIST 2) (MPETYPE.BADSECTORS 3) (SEAL.LP 43690) (VERSION.LP 1) (NAMEMAXLENGTH.LP 100) (FILETYPE.FREE 0) ( FILETYPE.FILE 2052) (FILETYPE.FILELIST 2054))) (INITRECORDS DISKADDRESS IOCB RESULT SECTOR9 MP LP FILELIST FLE) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS DISKADDRESS IOCB RESULT SECTOR9 MP LP FILELIST FLE)) (FNS \FLOPPY.TRANSLATERESULT \FLOPPY.SEVERE.ERROR \FLOPPY.TRANSLATEMPETYPE \FLOPPY.TRANSLATEFILETYPE \FLOPPY.MTL.FIXP \FLOPPY.LTM.FIXP \FLOPPY.MTL.IDATE \FLOPPY.LTM.IDATE)) ( COMS (* SA800HEAD *) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (IBMS128 0) (IBMS256 1) (IBMS512 2) ( IBMS1024 3) (IBMD128 4) (IBMD256 5) (IBMD512 6) (IBMD1024 7))) (INITVARS (\FLOPPY.INSPECTW NIL) ( \FLOPPY.DEBUG NIL)) (FNS \FLOPPY.TRANSLATESETUP \FLOPPY.SETUP \FLOPPY.CHECK.IOCB \FLOPPY.DENSITY \FLOPPY.SECTORLENGTH \FLOPPY.ENCODEDSECTORLENGTH \FLOPPY.GAP3 \FLOPPY.SECTORSPERTRACK \FLOPPY.RUN \FLOPPY.LOCK.BUFFER \FLOPPY.UNLOCK.BUFFER \FLOPPY.ERROR \FLOPPY.PREPAREFORCRASH \FLOPPY.COMMAND \FLOPPY.TRANSFER \FLOPPY.NOP \FLOPPY.RECALIBRATE \FLOPPY.INITIALIZE \FLOPPY.FORMATTRACKS \FLOPPY.READSECTOR \FLOPPY.WRITESECTOR \FLOPPY.RECOVER)) (COMS (* COMMON *) (INITVARS (\FLOPPYFDEV NIL ) (\FLOPPYLOCK NIL) (\FLOPPY.SCRATCH.BUFFER NIL) (\FLOPPY.SCRATCH.IOCB NIL) (\FLOPPY.IBMS128.IOCB NIL) (\FLOPPY.IBMD256.IOCB NIL) (\FLOPPY.IBMD512.IOCB NIL) (\FLOPPY.MODE.BEFORE.EVENT NIL) ( \FLOPPYIOCBADDR NIL) (\FLOPPYIOCB NIL) (\FLOPPYRESULT NIL)) (INITRECORDS FLOPPYSTREAM FILEGENOBJ GENFILESTATE) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALRESOURCES (\FLOPPY.SCRATCH.IOCB (CREATE IOCB)) ( \FLOPPY.IBMS128.IOCB (\FLOPPY.SETUP (CREATE IOCB) IBMS128)) (\FLOPPY.IBMD256.IOCB (\FLOPPY.SETUP ( CREATE IOCB) IBMD256)) (\FLOPPY.IBMD512.IOCB (\FLOPPY.SETUP (CREATE IOCB) IBMD512)) ( \FLOPPY.SCRATCH.BUFFER (\ALLOCBLOCK 512 NIL 256))) (RECORDS FLOPPYSTREAM FILEGENOBJ GENFILESTATE)) ( FNS FLOPPY.RESTART FLOPPY.MODE \FLOPPY.EVENTFN \FLOPPY.CLOSE \FLOPPY.FLUSH \FLOPPY.HOSTNAMEP \FLOPPY.ADDDEVICENAME \FLOPPY.ASSUREFILENAME \FLOPPY.OTHERINFO \FLOPPY.LEXASSOC \FLOPPY.LEXPUTASSOC \FLOPPY.LEXREMOVEASSOC \FLOPPY.CATCH \FLOPPY.THROW \FLOPPY.BREAK \FLOPPY.MESSAGE)) (COMS (* PILOT *) ( INITVARS (\PFLOPPYSECTOR9 NIL) (\PFLOPPYFILELIST NIL) (\PFLOPPYINFO NIL) (\PFLOPPYFDEV NIL)) ( INITRECORDS PALLOC PINFO PFLOPPYFDEV) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS PALLOC PINFO PFLOPPYFDEV)) (FNS \PFLOPPY.INIT \PFLOPPY.OPEN \PFLOPPY.DOORCHECK \PFLOPPY.START \PFLOPPY.OPEN.SECTOR9 \PFLOPPY.GET.SECTOR9 \PFLOPPY.OPEN.FILELIST \PFLOPPY.OPENFILE \PFLOPPY.OPENFILE1 \PFLOPPY.OPENOLDFILE \PFLOPPY.OPENNEWFILE \PFLOPPY.ASSURESTREAM \PFLOPPY.GETFILEINFO \PFLOPPY.SETFILEINFO \PFLOPPY.CLOSEFILE \PFLOPPY.CLOSEFILE1 \PFLOPPY.DELETEFILE \PFLOPPY.GETFILENAME \PFLOPPY.GENERATEFILES \PFLOPPY.GENERATEFILES1 \PFLOPPY.RENAMEFILE \PFLOPPY.STREAMS.AGAINST \PFLOPPY.STREAMS.USING \PFLOPPY.READPAGES \PFLOPPY.READPAGE \PFLOPPY.WRITEPAGENO \PFLOPPY.READPAGENO \PFLOPPY.PAGENOTODISKADDRESS \PFLOPPY.DISKADDRESSTOPAGENO \PFLOPPY.DIR.GET \PFLOPPY.DIR.PUT \PFLOPPY.DIR.REMOVE \PFLOPPY.DIR.VERSION \PFLOPPY.CREATE.FILELIST \PFLOPPY.ADD.TO.FILELIST \PFLOPPY.DELETE.FROM.FILELIST \PFLOPPY.SAVE.FILELIST \PFLOPPY.SAVE.SECTOR9 \PFLOPPY.WRITEPAGES \PFLOPPY.WRITEPAGE \PFLOPPY.TRUNCATEFILE FLOPPY.CROCK)) (COMS (* ALLOCATE *) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (MINIMUM.ALLOCATION 5) (DEFAULT.ALLOCATION 50))) (INITVARS ( \FLOPPY.ALLOCATIONS.BITMAP NIL)) (FNS \PFLOPPY.ALLOCATE \PFLOPPY.ALLOCATE.LARGEST \PFLOPPY.TRUNCATE \PFLOPPY.DEALLOCATE \PFLOPPY.EXTEND \PFLOPPY.GAINSPACE \PFLOPPY.GAINSPACE.MERGE FLOPPY.BUG FRESH.FLOPPY FLOPPY.LENGTHS FLOPPY.STARTS FLOPPY.ICHECK FLOPPY.ALLOCATIONS)) (COMS (* SERVICES *) (FNS FLOPPY.FREE.PAGES \PFLOPPY.FREE.PAGES FLOPPY.FORMAT \PFLOPPY.FORMAT \PFLOPPY.CONFIRM FLOPPY.NAME FLOPPY.GET.NAME \PFLOPPY.GET.NAME FLOPPY.SET.NAME \PFLOPPY.SET.NAME FLOPPY.DRIVE.EXISTSP FLOPPY.CAN.READP FLOPPY.CAN.WRITEP FLOPPY.WAIT.FOR.FLOPPY)) (COMS (* SYSOUT *) (INITVARS (\SFLOPPYFDEV NIL) (\SFLOPPYINFO NIL) (\SFLOPPY.RECOG NIL) (\SFLOPPY.PAGENO NIL) (\SFLOPPY.FLOPPYNO NIL) ( \SFLOPPY.HUGELENGTH NIL) (\SFLOPPY.HUGEPAGELENGTH NIL) (\SFLOPPY.IWRITEDATE NIL)) (FNS \SFLOPPY.INIT \SFLOPPY.GETFILEINFO \SFLOPPY.OPENHUGEFILE \SFLOPPY.READPAGES \SFLOPPY.READPAGE \SFLOPPY.WRITEPAGES \SFLOPPY.WRITEPAGE \SFLOPPY.CLOSEHUGEFILE \SFLOPPY.CLOSESMALLFILE)) (COMS (* HUGE *) (INITVARS ( \HFLOPPYINFO NIL) (\HFLOPPYFDEV NIL) (\HFLOPPY.MAXPAGES 2250) (\HFLOPPY.PAGENO NIL) (\HFLOPPY.FLOPPYNO NIL) (\HFLOPPY.HUGELENGTH NIL) (\HFLOPPY.HUGEPAGELENGTH NIL) (\HFLOPPY.IWRITEDATE NIL) ( \HFLOPPY.RECOG NIL) (\HFLOPPY.FILENAME NIL)) (FNS \HFLOPPY.INIT \HFLOPPY.GETFILEINFO \HFLOPPY.OPENHUGEFILE \HFLOPPY.WRITEPAGES \HFLOPPY.WRITEPAGE \HFLOPPY.READPAGES \HFLOPPY.READPAGE \HFLOPPY.CLOSEHUGEFILE \HFLOPPY.CLOSESMALLFILE)) (COMS (* SCAVENGE *) (INITVARS \FLOPPY.SCAVENGE.IDATE ) (FNS FLOPPY.SCAVENGE \PFLOPPY.SCAVENGE \PFLOPPY.SCAVENGE.MPS \PFLOPPY.SCAVENGE.MP31 \PFLOPPY.SCAVENGE.MP.AFTER \PFLOPPY.SCAVENGE.MP.AFTER1 \PFLOPPY.SCAVENGE.LPS \PFLOPPY.SCAVENGE.SECTOR9 \PFLOPPY.SCAVENGE.FILELIST)) (COMS (* COPY *) (FNS FLOPPY.TO.FILE FLOPPY.FROM.FILE)) (COMS (* COMPACT *) (FNS FLOPPY.COMPACT \PFLOPPY.COMPACT \PFLOPPY.COMPACT.PALLOCS \PFLOPPY.COMPACT.PALLOC \PFLOPPY.COMPACT.SECTOR9 \PFLOPPY.COMPACT.FILELIST)) (COMS (* CPM *) (INITVARS (\CFLOPPYSECTORMAP NIL) (\CFLOPPYFDEV NIL) (\CFLOPPYINFO NIL) (\CFLOPPYBLANKSECTOR NIL)) (INITRECORDS CINFO FCB) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS CFLOPPYFDEV CINFO FCB)) (FNS \CFLOPPY.FCB.FILENAME \CFLOPPY.INIT \CFLOPPY.OPEN \CFLOPPY.OPEN.DIRECTORY \CFLOPPY.READPAGES \CFLOPPY.READPAGENO \CFLOPPY.WRITEPAGENO \CFLOPPY.PAGENOTODISKADDRESS \CFLOPPY.OPENFILE \CFLOPPY.GETFILEHANDLE \CFLOPPY.GETFILEFCB \CFLOPPY.FORMAT)) (P (FLOPPY.RESTART)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA \FLOPPY.CATCH) (NLAML) (LAMA))))) (/DECLAREDATATYPE (QUOTE IOCB) (QUOTE (WORD WORD WORD WORD (BITS 12) (BITS 4) FIXP WORD WORD FLAG ( BITS 15) WORD (BITS 8) (BITS 8) (BITS 8) (BITS 8) WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE SECTOR9) (QUOTE (WORD WORD WORD WORD WORD WORD SWAPPEDFIXP WORD SWAPPEDFIXP WORD WORD WORD WORD WORD WORD WORD SWAPPEDFIXP FLAG (BITS 15) WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE MP) (QUOTE (WORD WORD SWAPPEDFIXP WORD SWAPPEDFIXP WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD SWAPPEDFIXP WORD SWAPPEDFIXP WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE LP) (QUOTE (WORD WORD WORD SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE FLE) (QUOTE (SWAPPEDFIXP WORD WORD WORD))) (RPAQ? \FLOPPY.INSPECTW NIL) (RPAQ? \FLOPPY.DEBUG NIL) (RPAQ? \FLOPPYFDEV NIL) (RPAQ? \FLOPPYLOCK NIL) (RPAQ? \FLOPPY.SCRATCH.BUFFER NIL) (RPAQ? \FLOPPY.SCRATCH.IOCB NIL) (RPAQ? \FLOPPY.IBMS128.IOCB NIL) (RPAQ? \FLOPPY.IBMD256.IOCB NIL) (RPAQ? \FLOPPY.IBMD512.IOCB NIL) (RPAQ? \FLOPPY.MODE.BEFORE.EVENT NIL) (RPAQ? \FLOPPYIOCBADDR NIL) (RPAQ? \FLOPPYIOCB NIL) (RPAQ? \FLOPPYRESULT NIL) (RPAQ? \PFLOPPYSECTOR9 NIL) (RPAQ? \PFLOPPYFILELIST NIL) (RPAQ? \PFLOPPYINFO NIL) (RPAQ? \PFLOPPYFDEV NIL) (/DECLAREDATATYPE (QUOTE PALLOC) (QUOTE (POINTER FULLXPOINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG))) (/DECLAREDATATYPE (QUOTE PINFO) (QUOTE (POINTER POINTER POINTER POINTER POINTER))) (RPAQ? \FLOPPY.ALLOCATIONS.BITMAP NIL) (RPAQ? \SFLOPPYFDEV NIL) (RPAQ? \SFLOPPYINFO NIL) (RPAQ? \SFLOPPY.RECOG NIL) (RPAQ? \SFLOPPY.PAGENO NIL) (RPAQ? \SFLOPPY.FLOPPYNO NIL) (RPAQ? \SFLOPPY.HUGELENGTH NIL) (RPAQ? \SFLOPPY.HUGEPAGELENGTH NIL) (RPAQ? \SFLOPPY.IWRITEDATE NIL) (RPAQ? \HFLOPPYINFO NIL) (RPAQ? \HFLOPPYFDEV NIL) (RPAQ? \HFLOPPY.MAXPAGES 2250) (RPAQ? \HFLOPPY.PAGENO NIL) (RPAQ? \HFLOPPY.FLOPPYNO NIL) (RPAQ? \HFLOPPY.HUGELENGTH NIL) (RPAQ? \HFLOPPY.HUGEPAGELENGTH NIL) (RPAQ? \HFLOPPY.IWRITEDATE NIL) (RPAQ? \HFLOPPY.RECOG NIL) (RPAQ? \HFLOPPY.FILENAME NIL) (RPAQ? \FLOPPY.SCAVENGE.IDATE NIL) (RPAQ? \CFLOPPYSECTORMAP NIL) (RPAQ? \CFLOPPYFDEV NIL) (RPAQ? \CFLOPPYINFO NIL) (RPAQ? \CFLOPPYBLANKSECTOR NIL) (/DECLAREDATATYPE (QUOTE CINFO) (QUOTE (POINTER POINTER))) (/DECLAREDATATYPE (QUOTE FCB) (QUOTE (BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE))) (FLOPPY.RESTART) NIL