(FILECREATED "23-Jun-86 17:29:10" ("compiled on " {ERIS}SOURCES>FLOPPY.;99) "11-Jun-86 13:27:02" recompiled changes: \PFLOPPY.DELETEFILE \PFLOPPY.RENAMEFILE \CFLOPPY.DELETEFILE \CFLOPPY.RENAMEFILE in "" dated "11-Jun-86 13:41:17") (FILECREATED "23-Jun-86 17:13:32" {ERIS}SOURCES>FLOPPY.;99 408334 changes to: (FNS \PFLOPPY.RENAMEFILE \CFLOPPY.RENAMEFILE \PFLOPPY.DELETEFILE \CFLOPPY.DELETEFILE) previous date: "19-Jun-86 00:04:02" {ERIS}SOURCES>FLOPPY.;97) \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 F 0 \DOVEFLOPPY.TRACEFLG) o@ Ph(15Q STOPTEST 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 (L (0 X)) @l no@nl(5 RSH) NIL ( 15Q -37777600001Q) \FLOPPY.LTM.FIXP D1 (L (0 X)) @l no@nl(5 RSH) NIL ( 15Q -37777600001Q) \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.IOCB D1 (P 5 \INTERRUPTABLE P 4 GAP3 P 3 SECTORSPERTRACK P 2 ENCODEDSECTORLENGTH P 1 DENSITY P 0 SECTORLENGTH I 1 SETUP I 0 FLOPPYIOCB) bPA 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) (132Q FLOPPYIOCB 121Q FLOPPYIOCB 110Q FLOPPYIOCB 75Q FLOPPYIOCB 64Q FLOPPYIOCB 53Q FLOPPYIOCB 42Q FLOPPYIOCB) () \FLOPPY.CHECK.FLOPPYIOCB D1 (P 0 SETUP I 0 FLOPPYIOCB F 2 \FLOPPY.CYLINDERS)  @ jllkllh @ jjo @@@@@ћ@kjN@@ѳ@Yj4II *@ lj@@Ro @ kj@ jo @dj2@ djj]dkkUdllKllCo:l1@ djl(dkldlllloo X@H ljF@ H lj3@ H j#@l@ @ H jo h(634Q \FLOPPY.SEVERE.ERROR 621Q \FLOPPY.GAP3 557Q \FLOPPY.SECTORSPERTRACK 534Q \FLOPPY.SECTORLENGTH 511Q \FLOPPY.SECTORLENGTH 476Q \FLOPPY.SEVERE.ERROR 306Q \FLOPPY.SEVERE.ERROR 250Q \FLOPPY.SEVERE.ERROR 177Q \FZEROP 60Q \FLOPPY.SEVERE.ERROR 35Q MEMB) (612Q FLOPPYIOCB 601Q FLOPPYIOCB 570Q FLOPPYIOCB 550Q FLOPPYIOCB 525Q FLOPPYIOCB 503Q FLOPPYIOCB 414Q FLOPPYIOCB 330Q FLOPPYIOCB 313Q FLOPPYIOCB 271Q FLOPPYIOCB 255Q FLOPPYIOCB 233Q FLOPPYIOCB 223Q FLOPPYIOCB 205Q FLOPPYIOCB 160Q FLOPPYIOCB 147Q FLOPPYIOCB 141Q FLOPPYIOCB 125Q FLOPPYIOCB 115Q FLOPPYIOCB 107Q FLOPPYIOCB 103Q FLOPPYIOCB 74Q FLOPPYIOCB 65Q FLOPPYIOCB 42Q FLOPPYIOCB 6 FLOPPYIOCB) ( 631Q "Illegal FLOPPYIOCB Setup 3" 473Q "Illegal FLOPPYIOCB Setup 2" 466Q "Illegal FLOPPYIOCB Setup 2" 401Q "Illegal FLOPPYIOCB Setup 2" 303Q "Illegal FLOPPYIOCB Setup 1" 245Q "Illegal FLOPPYIOCB Buffer" 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 (0 NIL) P 1 \INTERRUPTABLE F 2 FLOPPYIOCB F 3 RESETVARSLST F 4 RESETY) hgRhR hSc`Hj HH `RlĿ```Hj HH hci(143Q BLOCK 131Q \FZEROP 55Q BLOCK 50Q \FZEROP 12Q \FLOPPY.LOCK.BUFFER) (106Q \IOPAGE 100Q \FLOPPYIOCBADDR 75Q \IOPAGE 65Q \FLOPPYIOCB 25Q \IOPAGE 2 \FLOPPY.UNLOCK.BUFFER) () \FLOPPY.RUN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 RETRYFLG I 1 NOERROR I 0 FLOPPYIOCB F 4 \FLOPPYMPERRORS F 5 LISPXHIST F 6 RESETVARSLST F 7 \FLOPPYMPERRORSFLG) tU!Vog hg[ K`@j`ji`jh`j``j2H/@ lljh A `jA `jTkcW`jj`n@djhdnDodnEodnFovdnGoidnHo\dnIoOdnJoBdnKo5dnUo(nVoo`jj`n@ HA`jj`n@djhdnDodnEodnFovdnGoidnHo\dnIoOdnJoBdnKo5dnUo(nVoo`jj`n@ G`jhdnUdnVih+n "`jHAg Ai(1154Q \FLOPPY.ERROR 1143Q \FLOPPY.BREAK 1112Q BLOCK 1045Q \FLOPPY.BREAK 1042Q CONCAT 535Q \FLOPPY.BREAK 532Q CONCAT 205Q \FLOPPY.RECALIBRATE 164Q \FLOPPY.INITIALIZE 156Q MEMB 103Q \FLOPPY.ERROR 41Q ERROR! 33Q RESETRESTORE 21Q \FLOPPY.RUNA0001) (1140Q CRCERROR 1117Q \FLOPPYRESULT 1052Q \FLOPPYRESULT 1031Q \FLOPPYRESULT 1016Q \FLOPPYRESULT 566Q \FLOPPYRESULT 553Q \FLOPPYRESULT 521Q \FLOPPYRESULT 506Q \FLOPPYRESULT 256Q \FLOPPYRESULT 243Q \FLOPPYRESULT 213Q \FLOPPYRESULT 170Q \FLOPPYRESULT 137Q FLOPPYIOCB 121Q \FLOPPYRESULT 110Q \FLOPPYRESULT 72Q \FLOPPYRESULT 57Q \FLOPPYRESULT 46Q \FLOPPYRESULT 27Q ERROR 16Q INTERNAL) ( 1013Q "Domino Error " 1005Q "Domino Error in Reset Patch" 772Q "Domino Error In NOOP Patch" 755Q "Domino NoDmaEndCount2 Error" 740Q "Domino NoDmaEndCount1 Error" 723Q "Domino BadDmaChannel Error" 706Q "Domino TrackToBig Error" 671Q "Domino CommandTrack Error" 654Q "Domino InvalidEscapeCmd Error" 636Q "Domino UnImplFloppyCmd Error" 620Q "Domino NoValidCommand Error" 503Q "Domino Error " 475Q "Domino Error in Reset Patch" 462Q "Domino Error In NOOP Patch" 445Q "Domino NoDmaEndCount2 Error" 430Q "Domino NoDmaEndCount1 Error" 413Q "Domino BadDmaChannel Error" 376Q "Domino TrackToBig Error" 361Q "Domino CommandTrack Error" 344Q "Domino InvalidEscapeCmd Error" 326Q "Domino UnImplFloppyCmd Error" 310Q "Domino NoValidCommand Error" 13Q (\FLOPPY.RUNA0001)) \FLOPPY.ERROR D1 (P 0 $FLOPPYRESULT) O` Xdg`jH Ho `jh(113Q \FLOPPY.RECALIBRATE 76Q \FLOPPY.INITIALIZE 72Q \FLOPPY.CLOSE 66Q MEMB 56Q \FLOPPY.BREAK 52Q \FLOPPY.INITIALIZE 46Q \FLOPPY.RECALIBRATE 31Q \FLOPPY.INITIALIZE 25Q \FLOPPY.CLOSE 12Q \FLOPPY.TRANSLATEFLOPPYRESULT) (101Q \FLOPPYRESULT 35Q \FLOPPYRESULT 17Q DOOROPENED 5 \FLOPPYRESULT) ( 63Q (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) BkX@A @B @H@h@h@j@C (77Q \FLOPPY.RUN) (66Q FLOPPYIOCB 55Q FLOPPYIOCB 44Q FLOPPYIOCB 34Q FLOPPYIOCB 24Q FLOPPYIOCB 13Q FLOPPYIOCB) () \FLOPPY.INITIALIZE D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) TdgA`4`Hl HkHIlj@ Ilk@ Ihg(121Q \DOVEFLOPPY.RESET 73Q \FLOPPY.COMMAND 62Q \FLOPPY.COMMAND 34Q \FLOPPY.SETUP.IOCB 2 MACHINETYPE) (113Q DOVE 105Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 77Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 41Q FLOPPYIOCB 22Q FLOPPYIOCBTYPE# 15Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 6 DANDELION) () \FLOPPY.NOP D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) 5`*`Hl HkHIjd@ Ih(46Q \FLOPPY.COMMAND 21Q \FLOPPY.SETUP.IOCB) (60Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 52Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) () \FLOPPY.RECALIBRATE D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) Idg8`+`Hl HkHIlj@ Ihgi(62Q \FLOPPY.COMMAND 34Q \FLOPPY.SETUP.IOCB 2 MACHINETYPE) (102Q DOVE 74Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 66Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 41Q FLOPPYIOCB 22Q FLOPPYIOCBTYPE# 15Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 6 DANDELION) () \FLOPPY.RECOVER D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) 6`+`Hl HkHIlk@ Ih(47Q \FLOPPY.COMMAND 21Q \FLOPPY.SETUP.IOCB) (61Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 53Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) () \FLOPPY.TRANSFER D1 (P 4 \FLOPPY.SCRATCH.BUFFER2 P 3 \INTERRUPTABLE P 1 ANSWER P 0 MESSAGE I 4 NOERROR I 3 PAGE I 2 DISKADDRESS I 1 COMMAND I 0 FLOPPYIOCB) =0dg^Adgkglb@A @j @B@C@C@k@D CgAdggggb@djglgg@ Zdjl knJdlnlng Ag0`Fl BBnBlLg Ll( BBnBlCA XgChDH h(470Q \FLOPPY.BREAK 443Q \DOVEFLOPPY.XFERDISK 417Q DISMISS 404Q \DOVEFLOPPY.XFERDISK 354Q \FLOPPY.BUFFER 332Q \DOVEFLOPPY.SETCONTEXT 212Q SHOULDNT 140Q \FLOPPY.RUN 42Q SHOULDNT 5 MACHINETYPE) (457Q \\FLOPPY.SCRATCH.BUFFER2.GLOBALRESOURCE 447Q OK 411Q \\FLOPPY.SCRATCH.BUFFER2.GLOBALRESOURCE 400Q READDATA 345Q \\FLOPPY.SCRATCH.BUFFER2.GLOBALRESOURCE 337Q WRITEDATA 327Q ? 254Q FLOPPYIOCB 250Q ? 244Q DOUBLE 234Q SINGLE 221Q FLOPPYIOCB 206Q WRITEDATA 201Q WRITE 175Q READDATA 167Q READ 153Q DOVE 127Q FLOPPYIOCB 116Q FLOPPYIOCB 105Q FLOPPYIOCB 75Q FLOPPYIOCB 65Q FLOPPYIOCB 54Q FLOPPYIOCB 32Q WRITE 22Q READ 11Q DANDELION) () \FLOPPY.READSECTOR D1 (I 3 NOERROR I 2 PAGE I 1 DISKADDRESS I 0 FLOPPYIOCB) @gABC (12Q \FLOPPY.TRANSFER) (3 READ) () \FLOPPY.WRITESECTOR D1 (I 3 NOERROR I 2 PAGE I 1 DISKADDRESS I 0 FLOPPYIOCB) @gABC (12Q \FLOPPY.TRANSFER) (3 WRITE) () \FLOPPY.FORMATTRACKS D1 (P 5 I P 3 \INTERRUPTABLE P 1 MESSAGE P 0 ANSWER I 3 NOERROR I 2 KOUNT I 1 DISKADDRESS I 0 FLOPPYIOCB F 6 \FLOPPY.SCRATCH.BUFFER) 0dg@@l @j @A@h@h@B@C dgdg@djglgg@ Zdjl knJdlnlng BkjML.AMAnAlVg YgCI Mk]hi(325Q \FLOPPY.BREAK 311Q \DOVEFLOPPY.XFERDISK 245Q \DOVEFLOPPY.SETCONTEXT 111Q \FLOPPY.RUN 5 MACHINETYPE) (315Q OK 305Q FORMATTRACK 242Q ? 167Q FLOPPYIOCB 163Q ? 157Q DOUBLE 147Q SINGLE 134Q FLOPPYIOCB 124Q DAYBREAK 116Q DOVE 100Q FLOPPYIOCB 67Q FLOPPYIOCB 56Q FLOPPYIOCB 46Q FLOPPYIOCB 36Q FLOPPYIOCB 24Q FLOPPYIOCB 11Q DANDELION) () \FLOPPY.DISKCHANGECLEAR D1 (P 1 \FLOPPY.SCRATCH.FLOPPYIOCB I 0 NOERROR) 6`+`Hl HkHIlk@ Ih(47Q \FLOPPY.COMMAND 21Q \FLOPPY.SETUP.IOCB) (61Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 53Q \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE) () \FLOPPY.MOUNTEDPA0002 D1 (NAME ERRORSET F 0 \FLOPPY.SCRATCH.BUFFER F 1 RESETY) `hi ljkPg ci(24Q \DOVEFLOPPY.TRANSFER 7 OBTAIN.MONITORLOCK) (20Q READDATA 2 \FLOPPYLOCK) () \FLOPPY.MOUNTEDP D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 \INTERRUPTABLE P 0 ANSWER I 0 NOERROR F 6 LISPXHIST F 7 RESETVARSLST)  dgi `jhhOgI`Nhd`lI4g ,V!Wog hg] MLghiX@dHo h(177Q \FLOPPY.BREAK 146Q ERROR! 140Q RESETRESTORE 126Q \FLOPPY.MOUNTEDPA0002 104Q STKPOS 24Q \FLOPPY.NOP 5 MACHINETYPE) (154Q TIMEOUT 134Q ERROR 123Q INTERNAL 101Q FLOPPY.FORMAT 70Q \FLOPPYFDEV 60Q FDEV 55Q \FLOPPYFDEV 47Q DOVE 30Q \FLOPPYRESULT 11Q DANDELION) ( 174Q "Door open(ed) or disk missing" 120Q (\FLOPPY.MOUNTEDPA0002)) \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.WRITEABLEP D1 (P 1 \INTERRUPTABLE P 0 ANSWER I 0 NOERROR) Wdg&i `jh `jhhdgdghhX@dHo h(123Q \FLOPPY.BREAK 100Q \DOVEFLOPPY.WRITEPROTECTED 24Q \FLOPPY.NOP 5 MACHINETYPE) (72Q DAYBREAK 64Q DOVE 44Q \FLOPPYRESULT 30Q \FLOPPYRESULT 11Q DANDELION) ( 120Q "Write protected") \FLOPPY.TWOSIDEDP D1 (P 1 \INTERRUPTABLE P 0 ANSWER I 0 NOERROR) Gdgi ` jhhdgdgihX@dHo h(103Q \FLOPPY.BREAK 24Q \FLOPPY.NOP 5 MACHINETYPE) (56Q DAYBREAK 50Q DOVE 30Q \FLOPPYRESULT 11Q DANDELION) ( 100Q "Not a two sided floppy") \FLOPPY.DUMP D1 (P 1 PAGE P 0 STRING I 1 MODE I 0 DISKADDRESS F 5 \FLOPPY.SCRATCH.FLOPPYIOCB) zPU@l  YlI` Zdjl knJdlnlngdKdjCdjdkdLXAdgd gH H(165Q EBCDICTOASCII 153Q ASCIITOASCII 12Q \FLOPPY.READSECTOR) (157Q EBCDIC 144Q ASCII 101Q ? 26Q FLOPPYIOCB 23Q \FLOPPYIOCB) () \FLOPPY.DEBUG D1 NIL Odg4`gllF gg `gn"lF gg dgdgh(75Q PUTWINDOWPROP 64Q INSPECT 44Q PUTWINDOWPROP 33Q INSPECT 5 MACHINETYPE 2 CLOSEINSPECT) (110Q DAYBREAK 102Q DOVE 72Q \FLOPPYRESULT 67Q TITLE 53Q FLOPPYRESULT 50Q \FLOPPYRESULT 41Q \FLOPPYIOCB 36Q TITLE 23Q FLOPPYIOCB 20Q \FLOPPYIOCB 11Q DANDELION) () FLOPPY.RESTARTA0001 D1 (NAME ERRORSET F 0 \FLOPPY.SCRATCH.BUFFER F 1 \FLOPPY.SCRATCH.BUFFER2 F 2 RESETY) G`hi l cl c`hg i hci(77Q \FLOPPY.SETUP.HARDWARE 72Q \FLOPPY.EXISTSP 65Q FLOPPY.MODE 40Q \FLOPPY.FLUSH 25Q \FLOPPY.BUFFER 15Q \FLOPPY.BUFFER 7 OBTAIN.MONITORLOCK) (62Q PILOT 56Q \CFLOPPYFDEV 53Q \HFLOPPYFDEV 50Q \SFLOPPYFDEV 45Q \PFLOPPYFDEV 33Q \FLOPPYFDEV 2 \FLOPPYLOCK) () 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 (FLOPPY.RESTARTA0001)) FLOPPY.MODEA0001 D1 (NAME ERRORSET 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 (FLOPPY.MODEA0001)) \FLOPPY.SETUP.HARDWARE D1 (F 1 \FLOPPY.TRACKSPERCYLINDER F 2 \FLOPPY.SECTORSPERTRACK F 3 \FLOPPY.CYLINDERS F 4 \FLOPPY.SCRATCH.FLOPPYIOCB F 5 \FLOPPY.IBMS128.FLOPPYIOCB F 6 \FLOPPY.IBMD256.FLOPPYIOCB F 7 \FLOPPY.IBMD512.FLOPPYIOCB F 10Q \PFLOPPYLASTDATAPAGE F 11Q \PFLOPPYFIRSTDATAPAGE)  dgn`ll`Hl HkHc`Hl HkHj c `Hl HkHl c `Hl HkHl clMclclcn!gl(clcl cnQRkcSQRch(323Q SHOULDNT 232Q \FLOPPY.SETUP.IOCB 212Q \FLOPPY.SETUP.IOCB 172Q \FLOPPY.SETUP.IOCB 152Q \FLOPPY.SETUP.IOCB 132Q \FLOPPY.SETUP.IOCB 113Q \FLOPPY.SETUP.IOCB 60Q \FLOPPY.SETUP.IOCB 2 MACHINETYPE) (317Q \HFLOPPY.MAXPAGES 267Q DOVE 262Q \HFLOPPY.MAXPAGES 217Q FLOPPYIOCB 200Q FLOPPYIOCBTYPE# 157Q FLOPPYIOCB 140Q FLOPPYIOCBTYPE# 120Q FLOPPYIOCB 101Q FLOPPYIOCBTYPE# 65Q FLOPPYIOCB 46Q FLOPPYIOCBTYPE# 42Q \FLOPPYRESULT 34Q \FLOPPYIOCB 26Q \IOCBPAGE 22Q \FLOPPYIOCBADDR 6 DANDELION) () \FLOPPY.EVENTFN D1 (I 1 EVENT I 0 FDEV) :i 4AgAgAdg@ g@ h(66Q \PAGED.REVALIDATEFILELST 52Q \PAGED.REVALIDATEFILELST 45Q \FLOPPY.INITIALIZE 41Q \FLOPPY.SETUP.HARDWARE 35Q \FLOPPY.CLOSE 3 \FLOPPY.EXISTSP) (57Q AFTERSAVEVM 26Q AFTERMAKESYS 17Q AFTERSYSOUT 11Q AFTERLOGOUT) () \FLOPPY.HOSTNAMEP D1 (I 1 FDEV I 0 NAME) A` @ANIL (14Q FDEV 4 FDEVTYPE#) () \FLOPPY.ADDDEVICENAME D1 (I 0 FILENAME) g`g@ (21Q PACK*) (15Q } 10Q FDEV 5 \FLOPPYFDEV 2 {) () \FLOPPY.ASSUREFILENAMEA0001 D1 (NAME ERRORSET F 0 FILENAME) P h(3 UNPACKFILENAME) NIL () \FLOPPY.ASSUREFILENAMEA0002 D1 (NAME ERRORSET F 0 UNAME) P h(3 PACKFILENAME) NIL () \FLOPPY.ASSUREFILENAME D1 (P 1 FILENAME P 0 UNAME I 1 NOERROR I 0 FILE) [ @d`@o XHdAh@l* bXg o YIdoA@l* b(123Q \LISPERROR 76Q \FLOPPY.ASSUREFILENAMEA0002 66Q LISTPUT 52Q \LISPERROR 31Q \FLOPPY.ASSUREFILENAMEA0001) (63Q HOST 17Q STREAM 10Q STREAMTYPE#) ( 107Q (MKATOM "") 73Q (\FLOPPY.ASSUREFILENAMEA0002) 26Q (\FLOPPY.ASSUREFILENAMEA0001)) \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 ]```E```h`*```h````hh(131Q \FLOPPY.FLUSH) (122Q CINFO 117Q \CFLOPPYINFO 112Q \FLOPPYFDEV 107Q \CFLOPPYFDEV 103Q PFINFO 100Q \PFLOPPYINFO 71Q PFINFO 66Q \SFLOPPYINFO 60Q \FLOPPYFDEV 55Q \SFLOPPYFDEV 50Q PFINFO 45Q \PFLOPPYINFO 36Q PFINFO 33Q \HFLOPPYINFO 25Q \FLOPPYFDEV 22Q \HFLOPPYFDEV 15Q PFINFO 12Q \PFLOPPYINFO 5 \FLOPPYFDEV 2 \PFLOPPYFDEV) () \FLOPPY.FLUSH D1 (P 1 STREAM F 2 \DOVEFLOPPY.TRACEFLG) ndgdgihW`Nhd`lH=dRg hi I` Ig,Ig.I h(145Q \SETACCESS 114Q \DELETE-OPEN-STREAM 104Q BREAK1 76Q STOPTEST 72Q STKPOS 2 FLOPPY.MODE) (136Q \STREAM.NOT.OPEN 133Q STREAM 124Q \STREAM.NOT.OPEN 121Q STREAM 111Q \FLOPPYFDEV 67Q FLOPPY.FORMAT 45Q \FLOPPYFDEV 33Q FDEV 30Q \FLOPPYFDEV 14Q HUGEPILOT 6 SYSOUT) () \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(32Q \FLOPPY.RECALIBRATE 24Q \FLOPPY.CAN.WRITEP 17Q \FLOPPY.INITIALIZE 12Q \FLOPPY.CAN.WRITEP 3 \FLOPPY.EXISTSP) NIL () \FLOPPY.EXISTSP D1 (I 0 NOERROR) #dgdgihi@o h(37Q \FLOPPY.BREAK 2 MACHINETYPE) (14Q DOVE 6 DANDELION) ( 34Q "No floppy drive on this machine") \FLOPPY.BREAK D1 (I 0 MESSAGE F 0 \DOVEFLOPPY.TRACEFLG) @i Pgli h(23Q \LISPERROR 11Q STOPTEST 4 \FLOPPY.MESSAGE) (15Q {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:dgNdgRdg8dg6dg4dg2dg0dg.dg*dg$d h(324Q \MAKE.PMAP.DEVICE) (320Q \PFLOPPYFDEV 312Q \GENERIC.READP 303Q NILL 274Q \IS.NOT.RANDACCESSP 265Q \ILLEGAL.DEVICEOP 256Q \IS.NOT.RANDACCESSP 247Q \ILLEGAL.DEVICEOP 240Q \GENERIC.BINS 231Q \GENERIC.BOUTS 222Q \ADD-OPEN-STREAM 213Q \GENERIC.OPENP 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) [ `K`Yl IkIj Jl `i JHd#n jHljHhh(55Q \FLOPPY.READSECTOR 37Q \FLOPPY.SETUP.IOCB 21Q \FLOPPY.SETUP.IOCB) (124Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 110Q PSECTOR9 72Q PSECTOR9 62Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 50Q PSECTOR9TYPE# 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE) () \PFLOPPY.OPEN.PFILELIST D1 (P 21Q PFALLOC P 17Q NEXT P 16Q PREV P 13Q START P 6 PFALLOCS P 5 PFALLOC P 4 PLPAGE P 3 PMPAGE P 2 FILENAME P 1 PFILELIST P 0 PSECTOR9 F 22Q \PFLOPPYFIRSTDATAPAGE F 23Q \PFLOPPYLASTDATAPAGE)  `(X `(IIHlk W$k `OkK Kn2jh^KȆnr`OL LnjLldh^hlLl_L_ldOOld_dOdjCdjdkdO KȆ h`dJdOdKdL KȆjM MNOdW&kjN ^N"O!K_ȂOȁk__O`(NNO +h_OOOOO_O__"ȆnO"gO" O _ (671Q \PFLOPPY.DIR.PUT 452Q DREVERSE 424Q \PFLOPPY.ADD.TO.PFILELIST 352Q \FLOPPY.TRANSLATEFILETYPE 337Q MKATOM 226Q \PFLOPPY.DAMAGED 173Q \PFLOPPY.READPAGENO 136Q \PFLOPPY.DAMAGED 115Q \PFLOPPY.READPAGENO 70Q \PUTSWAPPEDFIXP 30Q \PFLOPPY.CREATE.PFILELIST) (664Q OLD 657Q PFALLOC 643Q PMPAGE 636Q PFALLOC 605Q PFALLOC 573Q PFALLOC 542Q PFINFO 535Q FDEV 532Q \FLOPPYFDEV 473Q PMPAGE 413Q PMPAGE 360Q PFALLOCTYPE# 345Q PMPAGE 253Q PLPAGE 215Q PLPAGE 200Q PLPAGE 163Q PLPAGETYPE# 150Q PMPAGE 122Q PMPAGE 103Q PMPAGETYPE# 61Q PSECTOR9 54Q \PFLOPPYPFILELIST 44Q PFINFO 37Q FDEV 34Q \FLOPPYFDEV 23Q PSECTOR9 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.DAMAGED D1 NIL o h(6 \FLOPPY.BREAK) NIL ( 3 "Damaged floppy. Needs scavenging.") \PFLOPPY.OPENFILEA0003 D1 (NAME ERRORSET F 0 ACCESS) Pgi(14Q \FLOPPY.CACHED.WRITE 10Q \FLOPPY.CACHED.READ) (3 INPUT) () \PFLOPPY.OPENFILE D1 (P 6 BUCKET P 4 FULLFILENAME P 3 PFALLOC P 2 WAIT P 1 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) @`@D@BDlHAD 9@ABCDE PC b@`@D@BDlMAD ho @l @d`BC Yd AdgSgCZI Kk C.K jI\l i bxdINN AgIj Ij I(324Q \PFLOPPY.SETFILEINFO 302Q \LISPERROR 233Q BLOCK 227Q \PFLOPPY.STREAMS.AGAINST 167Q \PFLOPPY.OPENFILE1 150Q \LISPERROR 141Q \PFLOPPY.OPENFILEA0003 127Q \FILE-CONFLICT 70Q \FLOPPY.OTHERINFO 53Q \SFLOPPY.HACK 37Q \FILE-CONFLICT) (353Q STREAM 343Q STREAM 335Q OUTPUT 271Q STREAM 256Q PFALLOC 242Q PFALLOC 215Q WAIT 206Q INPUT 176Q STREAM 160Q STREAMTYPE# 110Q FDEV 100Q STREAMTYPE# 15Q FDEV 4 STREAMTYPE#) ( 136Q (\PFLOPPY.OPENFILEA0003)) \PFLOPPY.OPENFILE1A0001 D1 (NAME ERRORSET 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 HVW 2 -dgJHVW hdgdgJ ]VdgdgHl i hci(171Q \LISPERROR 141Q SHOULDNT 134Q \PFLOPPY.OPENOLDFILE 106Q \PFLOPPY.OPENNEWFILE 64Q \PFLOPPY.OPENOLDFILE 57Q \PFLOPPY.OPENNEWFILE 25Q \PFLOPPY.DIR.GET 20Q \FLOPPY.ASSUREFILENAME 7 OBTAIN.MONITORLOCK) (157Q OLD/NEW 151Q NEW 125Q OLDEST 117Q OLD 72Q 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 (\PFLOPPY.OPENFILE1A0001)) \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 13Q VALUE P 4 STREAM P 3 IDATE P 2 PLPAGE P 1 PFALLOC P 0 LENGTH I 2 OTHERINFO I 1 RECOG I 0 FILENAME)   gBXddnnkX Y@AI [gB`dkFdnEdlDdlCdlddndkdn^dlK NlK MdgNkNlFZ I _JO _ldOOldlJl_J_dOdjCdjdkdOkOkJ IJ I `d`I _dOdj dj dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dh\dI LI L(445Q \FLOPPY.ADDDEVICENAME 421Q \PFLOPPY.ADD.TO.PFILELIST 405Q RPLSTRING 402Q SUBSTRING 263Q NCHARS 247Q MKSTRING 200Q \PUTSWAPPEDFIXP 175Q \FLOPPY.LTM.IDATE 161Q \PUTSWAPPEDFIXP 156Q \FLOPPY.LTM.IDATE 45Q IDATE 42Q \PFLOPPY.DIR.PUT 33Q \PFLOPPY.ALLOCATE) (647Q PFALLOC 643Q STREAM 634Q STREAM 561Q \STREAM.DEFAULT.MAXBUFFERS 545Q FILELINELENGTH 530Q \FILEOUTCHARFN 521Q \EOSERROR 512Q \NOIMAGEOPS 503Q \STREAM.NOT.OPEN 474Q \STREAM.NOT.OPEN 440Q PFALLOC 431Q \FLOPPYFDEV 424Q STREAMTYPE# 412Q PFALLOC 375Q PLPAGE 322Q PLPAGE 256Q PLPAGE 242Q PFALLOC 225Q PLPAGE 217Q PLPAGE 211Q TEXT 166Q PLPAGE 147Q PLPAGE 60Q PLPAGETYPE# 51Q TYPE 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 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 (\PFLOPPY.GETFILEINFOA0001)) \PFLOPPY.GETFILEINFO1 D1 (P 1 ANSWER P 0 PLPAGE I 1 ATTRIBUTE I 0 PFALLOC) W@ XAdgdZJ gH[K AdgH\L gH]M Adg_H^ N H_OH_ O H_OnH_O H_ O ngHFdkglgAdglgHAdgH_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) (513Q PLPAGE 504Q HUGELENGTH 467Q PLPAGE 460Q HUGEPAGELENGTH 441Q PLPAGE 433Q HUGEPAGESTART 416Q PLPAGE 407Q SIZE 377Q PLPAGE 371Q MESATYPE 361Q BYTESIZE 353Q BINARY 342Q 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 P 2 SUCCESSFUL P 1 PLPAGE P 0 STREAM F 3 VALUE F 4 FILE F 5 RESETY F 6 ATTRIBUTE) i`hi 0T XJc iiVdgIlS  dgIlS dgIlS dgIlS dgdg"SdgIkFIlFdg(HSdgjdglgkadgISQdgIlS =dgIl S )dgIl S gIl S ZH H I (543Q \PFLOPPY.WRITEPAGENO 520Q OPENP 511Q \PUTSWAPPEDFIXP 466Q \PUTSWAPPEDFIXP 442Q \PUTSWAPPEDFIXP 416Q \PUTSWAPPEDFIXP 214Q \PUTSWAPPEDFIXP 211Q \FLOPPY.LTM.IDATE 163Q \PUTSWAPPEDFIXP 160Q \FLOPPY.LTM.IDATE 132Q \PUTSWAPPEDFIXP 127Q \FLOPPY.LTM.IDATE 124Q IDATE 76Q \PUTSWAPPEDFIXP 73Q \FLOPPY.LTM.IDATE 70Q IDATE 23Q \PFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.WRITE 7 OBTAIN.MONITORLOCK) (535Q PFALLOC 530Q STREAM 502Q PLPAGE 473Q HUGELENGTH 457Q PLPAGE 450Q HUGEPAGELENGTH 433Q PLPAGE 424Q HUGEPAGESTART 407Q PLPAGE 400Q PAGELENGTH 367Q PLPAGE 360Q MESATYPE 343Q LF 332Q CRLF 320Q CR 313Q STREAM 303Q EOL 270Q PLPAGE 256Q PLPAGE 250Q TEXT 234Q TYPE 223Q LENGTH 202Q PLPAGE 172Q ICREATIONDATE 151Q PLPAGE 141Q IWRITEDATE 115Q PLPAGE 105Q CREATIONDATE 61Q PLPAGE 51Q WRITEDATE 37Q 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 (\PFLOPPY.SETFILEINFOA0001)) \PFLOPPY.CLOSEFILEA0001 D1 (NAME ERRORSET P 1 FULLFILENAME P 0 STREAM F 2 FILE F 3 RESETY) ,`hi  R X H Hd Ici(43Q \DELETE-OPEN-STREAM 30Q \PFLOPPY.CLOSEFILE1 23Q \CLEARMAP 17Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (36Q STREAM 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 (\PFLOPPY.CLOSEFILEA0001)) \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 jdhL(217Q \PFLOPPY.SAVE.PSECTOR9 212Q \PFLOPPY.SAVE.PFILELIST 205Q \PFLOPPY.WRITEPAGENO 167Q \PFLOPPY.WRITEPAGENO 53Q \PFLOPPY.WRITEPAGENO 24Q \GETACCESS) (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 P 5 FULLFILENAME P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PFALLOC P 0 FILENAME F 7 FILE F 10Q FDEV F 11Q RESETY) \`hi pWi Xd>g Yd4 WNWhWlNhI I I Mci(123Q \PFLOPPY.SAVE.PFILELIST 117Q \PFLOPPY.DELETE.FROM.PFILELIST 112Q \PFLOPPY.DEALLOCATE 105Q \PFLOPPY.DIR.REMOVE 53Q \FLOPPY.ADDDEVICENAME 37Q \PFLOPPY.DIR.GET 25Q \FLOPPY.ASSUREFILENAME 16Q \PFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (61Q FDEV 46Q PFALLOC 34Q 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 (\PFLOPPY.DELETEFILEA0001)) \PFLOPPY.GENERATEFILESA0001A0003 D1 (I 1 Y I 0 X) @A (16Q UALPHORDER) (11Q PFALLOC 3 PFALLOC) () \PFLOPPY.GENERATEFILESA0001 D1 (NAME ERRORSET P 20Q EBUCKET P 14Q NBUCKET P 7 FILEGENOBJ P 6 VERSION P 5 VALIST P 4 PFALLOC P 3 GENFILESTATE P 2 DESIREDVERSION P 1 FILTER P 0 ALLOCS F 24Q PATTERN F 25Q OPTIONS F 26Q FDEV F 27Q RESETY) ]`hi g`N_hd`lOi i W( W(g 0 `(d 0OdJ3 0IOoO  [J3O hgM ^M\dDh@O \8IL ,Lh'0O d_"O$ O"h_&O"&_$O&_OgO__uO_OBO__MOgW* Hg HW,hhggKc.i _O _O(524Q LAST 512Q LAST 452Q SORT 442Q MEMB 267Q DIRECTORY.MATCH 231Q \PFLOPPY.DIR.VERSION 210Q DIRECTORY.MATCH 205Q CONCAT 114Q FILENAMEFIELD 103Q DIRECTORY.MATCH.SETUP 72Q \FLOPPY.CACHED.READ 62Q \FLOPPY.EXISTSP 55Q \FLOPPY.CLOSE 16Q MACHINETYPE 7 OBTAIN.MONITORLOCK) (477Q \PFLOPPY.FILEINFOFN 474Q \PFLOPPY.NEXTFILEFN 461Q FDEV 447Q \PFLOPPY.GENERATEFILESA0001A0003 435Q SORT 262Q PFALLOC 225Q OLD 133Q PFINFO 126Q FDEV 123Q \FLOPPYFDEV 111Q VERSION 44Q \FLOPPYFDEV 32Q FDEV 27Q \FLOPPYFDEV 21Q DOVE 2 \FLOPPYLOCK) ( 177Q ".") \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 (\PFLOPPY.GENERATEFILESA0001)) \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 P 12Q VALUE P 4 FULLFILENAME P 3 PLPAGE P 2 PFALLOC P 1 NEWFILENAME P 0 OLDFILENAME F 13Q OLDDEVICE F 14Q OLDFILE F 15Q NEWFILE F 16Q RESETY F 17Q OLDRECOG F 20Q NEWRECOG) `hi  W W WNHhWlMhHW ZWNHgWlNhJ IW J J  J _KO _ldOOldlKl_K_dOdjCdjdkdOkOkK JK J ci(347Q \FLOPPY.ADDDEVICENAME 335Q \PFLOPPY.WRITEPAGENO 322Q RPLSTRING 317Q SUBSTRING 200Q NCHARS 164Q MKSTRING 140Q \PFLOPPY.DIR.PUT 130Q \PFLOPPY.DIR.REMOVE 66Q \PFLOPPY.DIR.GET 32Q \FLOPPY.ASSUREFILENAME 24Q \FLOPPY.ASSUREFILENAME 16Q \PFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (342Q PFALLOC 327Q PFALLOC 312Q PLPAGE 237Q PLPAGE 173Q PLPAGE 157Q PFALLOC 145Q PFALLOC 111Q OLD 102Q FDEV 40Q FDEV 2 \FLOPPYLOCK) () \PFLOPPY.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 NEWRECOG I 4 OLDRECOG I 3 NEWFILE I 2 NEWDEVICE I 1 OLDFILE I 0 OLDDEVICE F 3 LISPXHIST F 4 RESETVARSLST) >@B@ABC DgbEgb S!Tog hgZ JI(71Q ERROR! 64Q RESETRESTORE 52Q \PFLOPPY.RENAMEFILEA0001 12Q \GENERIC.RENAMEFILE) (60Q ERROR 47Q INTERNAL 30Q NEW 20Q OLD) ( 44Q (\PFLOPPY.RENAMEFILEA0001)) \PFLOPPY.STREAMS.AGAINST D1 (P 4 F I 0 STREAM) G`Nhd`lHAHI\ @ Ld@J KhZYHXK&ZNIL (50Q STREAM 42Q STREAM 17Q \FLOPPYFDEV 5 FDEV 2 \FLOPPYFDEV) () \PFLOPPY.STREAMS.USING D1 (P 4 F I 0 PFALLOC) =`Nhd`lHAHI\ @LJ KhZHXK&NIL (42Q STREAM 17Q \FLOPPYFDEV 5 FDEV 2 \FLOPPYFDEV) () \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 P 2 PAGENO P 1 PFALLOC P 0 STREAM F 4 FIRSTPAGE# F 5 FILE F 6 BUFFER F 7 RESETY) \`hi @U X YTkغTH k$JII[ȂKȁkI JV hci(123Q \PFLOPPY.READPAGENO 115Q \PFLOPPY.EXTEND 45Q \GETEOFPTR 17Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (74Q PMPAGE 67Q PFALLOC 61Q PFALLOC 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 (\PFLOPPY.READPAGEA0001)) \PFLOPPY.READPAGENO D1 (P 2 \FLOPPY.IBMD512.FLOPPYIOCB P 0 ANSWER I 2 NOERROR I 1 PAGE I 0 PAGENO F 3 \PFLOPPYLASTDATAPAGE) Q `2`Yl IkIl k@@So hhJ@ AB JH(110Q \FLOPPY.READSECTOR 103Q \PFLOPPY.PAGENOTODISKADDRESS 63Q \FLOPPY.SEVERE.ERROR 40Q \FLOPPY.SETUP.IOCB 21Q \FLOPPY.SETUP.IOCB) (115Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 73Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE) ( 60Q "Illegal Read Page Number") \PFLOPPY.WRITEPAGENO D1 (P 2 \FLOPPY.IBMD512.FLOPPYIOCB P 0 ANSWER I 2 NOERROR I 1 PAGE I 0 PAGENO F 3 \PFLOPPYLASTDATAPAGE) Q `2`Yl IkIl k@@So hhJ@ AB JH(110Q \FLOPPY.WRITESECTOR 103Q \PFLOPPY.PAGENOTODISKADDRESS 63Q \FLOPPY.SEVERE.ERROR 40Q \FLOPPY.SETUP.IOCB 21Q \FLOPPY.SETUP.IOCB) (115Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 73Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE) ( 60Q "Illegal Write Page Number") \PFLOPPY.PAGENOTODISKADDRESS D1 (L (0 PAGENO) F 3 \FLOPPY.SECTORSPERTRACK F 4 \FLOPPY.TRACKSPERCYLINDER) "0@kSkZ@kSXdTYHTdIJNIL NIL () \PFLOPPY.DISKADDRESSTOPAGENO D1 (L (0 DISKADDRESS) F 0 \FLOPPY.SECTORSPERTRACK F 1 \FLOPPY.TRACKSPERCYLINDER) @lP@nQ@NIL NIL () \PFLOPPY.DIR.GET D1 (P 11Q PFALLOC 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) @ bAgad gHg'gHg'h Hg' Hg' `(LIMJNAK@ AgNK`( Oh_@OiO_(141Q \PFLOPPY.DIR.VERSION 101Q U-CASE 70Q U-CASE 57Q U-CASE 54Q PACKFILENAME 23Q UNPACKFILENAME 6 \FLOPPY.ASSUREFILENAME) (213Q PFALLOC 171Q PFINFO 164Q FDEV 161Q \FLOPPYFDEV 146Q NEW 115Q PFINFO 110Q FDEV 105Q \FLOPPYFDEV 75Q VERSION 64Q EXTENSION 43Q NAME 37Q NAME 33Q DIRECTORY 27Q DIRECTORY 14Q 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 PFALLOC I 1 RECOG I 0 FILENAME) p@i g bd XgHg'gHg'h \Hg' ]Hg' ^`(YLIZMJ[NAK ^HgN Hg Ag@ H bB@NBK [MKJ ZLJI Y`(IB(236Q \FLOPPY.LEXPUTASSOC 227Q \FLOPPY.LEXPUTASSOC 220Q \FLOPPY.LEXPUTASSOC 201Q PACKFILENAME 174Q U-CASE 162Q LISTPUT 153Q LISTPUT 142Q \PFLOPPY.DIR.VERSION 103Q U-CASE 72Q U-CASE 61Q U-CASE 56Q PACKFILENAME 25Q UNPACKFILENAME 17Q GENSYM 7 \FLOPPY.ASSUREFILENAME) (252Q PFINFO 245Q FDEV 242Q \FLOPPYFDEV 207Q PFALLOC 166Q EXACT 157Q HOST 147Q VERSION 117Q PFINFO 112Q FDEV 107Q \FLOPPYFDEV 77Q VERSION 66Q EXTENSION 45Q NAME 41Q NAME 35Q DIRECTORY 31Q DIRECTORY 14Q BADFILENAME) () \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 YgIg'gIg'h ]Ig' ^Ig' _`(ZMJ[NK\OgL _dL \dNLK MKJ NK [MKJ MJ `(J@(212Q \FLOPPY.LEXREMOVEASSOC 204Q \FLOPPY.LEXPUTASSOC 174Q \FLOPPY.LEXREMOVEASSOC 165Q \FLOPPY.LEXPUTASSOC 156Q \FLOPPY.LEXPUTASSOC 145Q \FLOPPY.LEXREMOVEASSOC 136Q \PFLOPPY.DIR.VERSION 73Q U-CASE 62Q U-CASE 51Q U-CASE 46Q PACKFILENAME 15Q UNPACKFILENAME) (226Q PFINFO 221Q FDEV 216Q \FLOPPYFDEV 132Q OLD 110Q PFINFO 103Q FDEV 100Q \FLOPPYFDEV 67Q VERSION 56Q EXTENSION 35Q NAME 31Q NAME 25Q DIRECTORY 21Q DIRECTORY 6 PFALLOC) () \PFLOPPY.DIR.VERSION D1 (P 0 PFALLOC I 3 FILENAME I 2 VALIST I 1 RECOG I 0 VERSION) B1IJbAg*d!gd3K Lh[ZIYL&[gb@?AdgBk d31kgB AdgBgAgC@g XH H H (243Q \PFLOPPY.SAVE.PFILELIST 237Q \PFLOPPY.DELETE.FROM.PFILELIST 232Q \PFLOPPY.DEALLOCATE 225Q \PFLOPPY.DIR.REMOVE 216Q \PFLOPPY.DIR.GET 173Q SHOULDNT 144Q LAST 121Q LAST) (213Q OLD 201Q NEW 166Q EXACT 154Q OLDEST 136Q OLD 105Q NEW 72Q NEW 33Q OLD 22Q OLD/NEW) () \PFLOPPY.GETFILENAMEA0001A0002 D1 (NAME ERRORSET F 0 FILE) P h(3 \FLOPPY.ASSUREFILENAME) NIL () \PFLOPPY.GETFILENAMEA0001 D1 (NAME ERRORSET P 10Q PFALLOC 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 11Q RECOG F 12Q FILE F 13Q RESETY) `hi W`Wi i ho dWgH gIg'gIg'h Ig' Ig' `(JMKN_LWO WgIgL I XLO_dXH ci(311Q \FLOPPY.ADDDEVICENAME 262Q PACKFILENAME 255Q LISTPUT 235Q \PFLOPPY.DIR.VERSION 172Q U-CASE 161Q U-CASE 150Q U-CASE 145Q PACKFILENAME 114Q UNPACKFILENAME 67Q \PFLOPPY.GETFILENAMEA0001A0002 53Q \FLOPPY.CACHED.READ 41Q \FLOPPY.EXISTSP 7 OBTAIN.MONITORLOCK) (301Q PFALLOC 251Q VERSION 243Q NEW 206Q PFINFO 201Q FDEV 176Q \FLOPPYFDEV 166Q VERSION 155Q EXTENSION 134Q NAME 130Q NAME 124Q DIRECTORY 120Q DIRECTORY 103Q EXACT 30Q STREAM 21Q STREAMTYPE# 2 \FLOPPYLOCK) ( 64Q (\PFLOPPY.GETFILENAMEA0001A0002)) \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 (\PFLOPPY.GETFILENAMEA0001)) \PFLOPPY.CREATE.PFILELIST D1 (P 0 PFILELIST I 0 NPAGES) #@ XdnHkH@nllH(6 \FLOPPY.BUFFER) NIL () \PFLOPPY.ADD.TO.PFILELIST D1 (P 24Q \INTERRUPTABLE P 23Q PFALLOC P 12Q NEWNPAGES P 11Q NEWMAXENTRIES 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ȁ_ dO ZHlH_"O"k @J I[dIjIln\k ]_Mln_MILnĿMOMO`(IIL b`(O$h @@_N_`(@oOl̓On͆OlOnH@HL@kOi NkOi i i JIKllO,O.O*lIKkh_&oO&-i)O$_$(670Q \PFLOPPY.SAVE.PSECTOR9 663Q \PFLOPPY.SAVE.PFILELIST 656Q \PFLOPPY.WRITEPAGENO 637Q \PFLOPPY.WRITEPAGENO 434Q \PFLOPPY.DEALLOCATE 373Q \PFLOPPY.ALLOCATE 273Q \PFLOPPY.CREATE.PFILELIST 224Q \PUTSWAPPEDFIXP 73Q \PUTSWAPPEDFIXP) (736Q PFALLOC 644Q PFALLOC 625Q PFALLOC 615Q PSECTOR9 604Q PFALLOC 600Q PSECTOR9 566Q PMPAGE 554Q PMPAGE 541Q PMPAGE 527Q PMPAGE 513Q PFALLOC 501Q PFINFO 474Q FDEV 471Q \FLOPPYFDEV 461Q PFALLOC 450Q PFALLOC 441Q PFALLOC 411Q PFINFO 404Q FDEV 401Q \FLOPPYFDEV 366Q \PFLOPPYPFILELIST 356Q PFINFO 351Q FDEV 346Q \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) ( 744Q (PFILELIST) 517Q (PFILELIST)) \PFLOPPY.DELETE.FROM.PFILELIST D1 (P 6 I P 3 NENTRIES P 2 FILEID P 1 PFLE P 0 PFILELIST I 0 PFALLOC) P`(X@ Yd\LZH[dkNM\HNll JjBKkٻHKllHNll OOOOlHKllHKll HKNk^@h h(177Q \ZEROWORDS 77Q \FLOPPY.MTL.FIXP) (220Q PFALLOC 33Q PFLE 24Q PFALLOC 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.SAVE.PFILELIST D1 (P 2 I P 0 PFILELIST I 0 NOERROR) P`(XdlnkjJI(`(JHJn@ JkZh(105Q \PFLOPPY.WRITEPAGENO) (66Q PSECTOR9 61Q PFINFO 54Q FDEV 51Q \FLOPPYFDEV 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) () \PFLOPPY.SAVE.PSECTOR9 D1 (P 1 \FLOPPY.IBMS128.FLOPPYIOCB I 0 NOERROR) G`<`Hl HkHj Il `(@ Ihh(67Q \FLOPPY.WRITESECTOR 40Q \FLOPPY.SETUP.IOCB 21Q \FLOPPY.SETUP.IOCB) (102Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 74Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 61Q PFINFO 54Q FDEV 51Q \FLOPPYFDEV 26Q FLOPPYIOCB 7 FLOPPYIOCBTYPE# 2 \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE) () \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 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 (\PFLOPPY.WRITEPAGEA0001)) \PFLOPPY.TRUNCATEFILEA0001 D1 (NAME ERRORSET P 4 PLPAGE P 3 PFALLOC P 2 EOFFSET P 1 EPAGE P 0 STREAM F 10Q LASTPAGE F 11Q LASTOFFSET F 12Q FILE F 13Q RESETY) `hi W X H WIcJcH [ WnW_^lOnn Nl O Nl N]M WjWKWl hci KWk(227Q \FZEROP 216Q \PFLOPPY.TRUNCATE 170Q \PUTSWAPPEDFIXP 142Q \PUTSWAPPEDFIXP 125Q \PUTSWAPPEDFIXP 20Q \PFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (156Q PLPAGE 147Q PLPAGE 132Q PLPAGE 105Q PLPAGE 63Q PFALLOC 55Q STREAM 33Q STREAM 24Q 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 (\PFLOPPY.TRUNCATEFILEA0001)) \PFLOPPY.FORMAT D1 (P 32Q I P 30Q \FLOPPY.IBMD512.FLOPPYIOCB P 27Q \FLOPPY.IBMD256.FLOPPYIOCB P 26Q \FLOPPY.IBMS128.FLOPPYIOCB P 25Q VALUE P 10Q NTIMES P 7 NATTEMPTS P 6 PFLE P 5 PFILELIST P 4 PMPAGEC P 3 PMPAGEB P 2 PMPAGEA P 1 PSECTOR9 P 0 CONFIRM I 2 SLOWFLG I 1 AUTOCONFIRMFLG I 0 NAME F 34Q \PFLOPPYFIRSTDATAPAGE F 35Q \PFLOPPYLASTDATAPAGE F 36Q \FLOPPY.CYLINDERS F 37Q \FLOPPY.SECTORSPERTRACK F 40Q \FLOPPY.TRACKSPERCYLINDER F 41Q \FLOPPY.SCRATCH.BUFFER) `k_oAi Xhl ]nMkMkMle`dk dnW8k_dOdl^jMll `djdlj djdlj dl̓dn͆dlk dll dkdn2`dldndlk dll dj̓dj͆dlj W:W8l_dlO dkdn2`djdlj djW:W8l_dlO dj̓dlj dj͆dlj dkdn2`W8k_dOdlk dldl j dll dW>dW@dW<dkdn @ _*IO* _ljOOljlIl_I_dOdjCdjdkdOkO*kI j_Ok_lo hi BIi i ``_ l O kO j O,kdi O,``_"l O"kO"l O.nki O.i {`J`_$l O$kO$l O0oWdgI_ O )dgI_ O gI_O ci(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) (440Q PLPAGE 431Q HUGELENGTH 414Q PLPAGE 405Q HUGEPAGELENGTH 367Q PLPAGE 360Q HUGEPAGESTART 342Q PLPAGE 333Q PAGELENGTH 323Q PLPAGE 314Q MESATYPE 301Q BYTESIZE 273Q BINARY 261Q 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 (\SFLOPPY.GETFILEINFOA0001)) \SFLOPPY.OPENHUGEFILEA0001 D1 (NAME ERRORSET P 0 STREAM F 1 \SFLOPPY.OTHERINFO F 2 RECOG F 3 ACCESS F 4 OTHERINFO F 5 RESETY) `hi SdgRdgT cRggQoi ol `nn`k`i oi i gQ ghQc`n``Q =l cYgRdg^l c>Sl c4``Q c i(345Q \SFLOPPY.INPUTFLOPPY 326Q \LISPERROR 312Q \LISPERROR 257Q \LISPERROR 250Q \SFLOPPY.OUTPUTFLOPPY 203Q TERPRI 176Q PRIN1 165Q PRIN1 130Q \LISPERROR 116Q \FLOPPY.MESSAGE 67Q IDATE 50Q \FLOPPY.OTHERINFO 7 OBTAIN.MONITORLOCK) (341Q \SFLOPPY.FILENAME 336Q \SFLOPPY.FLOPPYNAME 300Q OLD 270Q INPUT 244Q \SFLOPPY.FILENAME 241Q \SFLOPPY.FLOPPYNAME 230Q \HFLOPPY.MAXPAGES 216Q LENGTH 207Q LENGTH 160Q \HFLOPPY.MAXPAGES 152Q \HFLOPPY.MAXPAGES 147Q \SFLOPPY.HUGEPAGELENGTH 134Q \SFLOPPY.HUGELENGTH 104Q \SFLOPPY.HUGELENGTH 76Q LENGTH 72Q \SFLOPPY.IWRITEDATE 57Q NEW 43Q \SFLOPPY.RECOG 33Q NEW 20Q OUTPUT 2 \FLOPPYLOCK) ( 172Q " floppies will be required." 123Q "" 112Q "Can't open file without LENGTH parameter in SYSOUT mode.") \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) ,@AD #S!Tog hgZ JIh(45Q ERROR! 40Q RESETRESTORE 26Q \SFLOPPY.OPENHUGEFILEA0001 5 \FILE-CONFLICT) (34Q ERROR 23Q INTERNAL) ( 20Q (\SFLOPPY.OPENHUGEFILEA0001)) \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 P 2 \FLOPPY.SCRATCH.BUFFER P 0 NEWSTREAM F 3 STREAM F 4 \SFLOPPY.OTHERINFO F 5 BUFFER F 6 RESETY) `hi  ``IS gT ghTc`n```nٹdII``TS c`-l JUnĿS`J J`khc ih(167Q \PFLOPPY.WRITEPAGE 145Q \FLOPPY.BUFFER 130Q \SFLOPPY.OUTPUTFLOPPY 34Q RINGBELLS 30Q \SFLOPPY.CLOSEFLOPPY 7 OBTAIN.MONITORLOCK) (217Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 205Q \SFLOPPY.PAGENO 200Q \SFLOPPY.PAGENO 174Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 163Q \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 40Q LENGTH 21Q \SFLOPPY.PAGENO 16Q \HFLOPPY.MAXPAGES 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 (\SFLOPPY.WRITEPAGEA0001)) \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 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 (\SFLOPPY.READPAGEA0001)) \SFLOPPY.CLOSEHUGEFILEA0001 D1 (NAME ERRORSET P 0 FULLFILENAME F 1 STREAM F 2 \SFLOPPY.HACK.STREAM F 3 \SFLOPPY.HACK.MODE F 4 RESETY) `hi `ghpQ Q nQ `jo o Q nQ nnQi QdRS hcQd Hci(202Q \DELETE-OPEN-STREAM 163Q FLOPPY.MODE 150Q \SFLOPPY.CLOSEFLOPPY 102Q \FLOPPY.MESSAGE 72Q \FLOPPY.MESSAGE 32Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (175Q STREAM 142Q \SFLOPPY.HUGEPAGELENGTH 127Q \SFLOPPY.HUGELENGTH 121Q STREAM 107Q STREAM 57Q \SFLOPPY.HUGELENGTH 51Q STREAM 37Q STREAM 21Q OLD 16Q \SFLOPPY.RECOG 2 \FLOPPYLOCK) ( 77Q "Proceeding anyway." 67Q "Warning. Predicted file length disagrees with actual length.") \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 (\SFLOPPY.CLOSEHUGEFILEA0001)) \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` `kji oi Hi i i i oi i Hh` AggB jgBnncC0IgA IA MN ldJ"J!I  CICYldlMlмMdKdjCdjdkdLkNkM I AI(420Q RPLSTRING 415Q SUBSTRING 252Q NCHARS 241Q MKSTRING 221Q PACK* 154Q \PFLOPPY.OPENFILE 137Q \PFLOPPY.FORMAT 124Q TERPRI 117Q PRIN1 106Q \FLOPPY.UNCACHED.WRITE 101Q FLOPPY.WAIT.FOR.FLOPPY 74Q TERPRI 67Q PRIN1 61Q PRIN1 47Q \FLOPPY.UNCACHED.READ 32Q CONCAT) (432Q PFALLOC 425Q STREAM 410Q PLPAGE 342Q PLPAGE 310Q STREAM 304Q STREAM 273Q STREAM 267Q STREAM 246Q PLPAGE 230Q STREAM 215Q {FLOPPY} 212Q STREAM 165Q LENGTH 161Q \SFLOPPY.PAGENO 150Q NEW 145Q OUTPUT 134Q \SFLOPPY.SLOWFLG 36Q \SFLOPPY.FLOPPYNO 27Q \SFLOPPY.FLOPPYNO 16Q \SFLOPPY.FLOPPYNO 11Q \SFLOPPY.FLOPPYNO) ( 113Q "Can't proceed. This floppy is writeprotected." 55Q "Insert floppy to become " 24Q "#") \SFLOPPY.CLOSEFLOPPY D1 (P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PLPAGE P 0 PFALLOC I 1 LASTFLOPPYFLG I 0 STREAM) P@ g@A`@ ``kAj@ @ Xd Ydl` Il` Il ``k Il ` Il ` HI h(235Q \PFLOPPY.SAVE.PSECTOR9 232Q \PFLOPPY.SAVE.PFILELIST 227Q \PFLOPPY.WRITEPAGENO 215Q \PUTSWAPPEDFIXP 200Q \PUTSWAPPEDFIXP 163Q \PUTSWAPPEDFIXP 140Q \PUTSWAPPEDFIXP 135Q \FLOPPY.LTM.IDATE 120Q \PUTSWAPPEDFIXP 115Q \FLOPPY.LTM.IDATE 62Q \PFLOPPY.TRUNCATEFILE 6 \GETACCESS) (221Q PFALLOC 212Q \SFLOPPY.HUGELENGTH 204Q PLPAGE 175Q \SFLOPPY.HUGEPAGELENGTH 167Q PLPAGE 155Q \SFLOPPY.FLOPPYNO 152Q \HFLOPPY.MAXPAGES 144Q PLPAGE 132Q \SFLOPPY.IWRITEDATE 124Q PLPAGE 112Q \SFLOPPY.IWRITEDATE 104Q PLPAGE 75Q PFALLOC 66Q STREAM 55Q STREAM 41Q \SFLOPPY.FLOPPYNO 36Q \HFLOPPY.MAXPAGES 31Q STREAM 24Q \HFLOPPY.MAXPAGES 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 #gg c@ABC`E ch(44Q \SFLOPPY.OPENHUGEFILE 26Q FLOPPY.MODE 12Q FLOPPY.MODE 5 STKPOS) (37Q \FLOPPYFDEV 23Q SYSOUT 15Q SYSOUT 2 \COPYSYS) () \HFLOPPY.INIT D1 NIL ``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dgRdgNdg8dg6dg4dg2dg0dg.dg*dg$d h(324Q \MAKE.PMAP.DEVICE) (320Q \HFLOPPYFDEV 312Q \GENERIC.READP 303Q NILL 274Q \IS.NOT.RANDACCESSP 265Q \ILLEGAL.DEVICEOP 256Q \IS.NOT.RANDACCESSP 247Q \ILLEGAL.DEVICEOP 240Q \GENERIC.BINS 231Q \GENERIC.BOUTS 222Q NILL 213Q \ADD-OPEN-STREAM 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 P 2 ANSWER P 1 PLPAGE P 0 STREAM F 14Q FILE F 15Q ATTRIBUTE F 16Q RESETY) 0 `hi  W XWdgI[K dgI\L dgI]M dgI^N dgI_OdgIFdkgxlgndglcdgITdgI_O>dgI_ O )dgI_ O gI_O ci(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) (440Q PLPAGE 431Q HUGELENGTH 414Q PLPAGE 405Q HUGEPAGELENGTH 367Q PLPAGE 360Q HUGEPAGESTART 342Q PLPAGE 333Q PAGELENGTH 323Q PLPAGE 314Q MESATYPE 301Q BYTESIZE 273Q BINARY 261Q 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 (\HFLOPPY.GETFILEINFOA0001)) \HFLOPPY.OPENHUGEFILEA0001 D1 (NAME ERRORSET 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 SdgRdgU cRV cRggQoi ol `nn`k`i oi i gQ ghQc`nT`Q ;l cOgRdgTl c4Sl c*T`Q ci(355Q \HFLOPPY.INPUTFLOPPY 340Q \LISPERROR 324Q \LISPERROR 271Q \LISPERROR 262Q \HFLOPPY.OUTPUTFLOPPY 217Q TERPRI 212Q PRIN1 201Q PRIN1 144Q \LISPERROR 132Q \FLOPPY.MESSAGE 103Q IDATE 64Q \FLOPPY.OTHERINFO 45Q \FLOPPY.ASSUREFILENAME 7 OBTAIN.MONITORLOCK) (351Q \HFLOPPY.FILENAME 312Q OLD 302Q INPUT 256Q \HFLOPPY.FILENAME 244Q \HFLOPPY.MAXPAGES 232Q LENGTH 223Q LENGTH 174Q \HFLOPPY.MAXPAGES 166Q \HFLOPPY.MAXPAGES 163Q \HFLOPPY.HUGEPAGELENGTH 150Q \HFLOPPY.HUGELENGTH 120Q \HFLOPPY.HUGELENGTH 112Q LENGTH 106Q \HFLOPPY.IWRITEDATE 73Q NEW 57Q \HFLOPPY.RECOG 50Q \HFLOPPY.FILENAME 33Q NEW 20Q OUTPUT 2 \FLOPPYLOCK) ( 206Q " floppies will be required." 137Q "" 126Q "Can't open file without LENGTH parameter in HUGE mode.") \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) 8@AD /@ABCDE "S!Tog hgZ JIh(61Q ERROR! 54Q RESETRESTORE 42Q \HFLOPPY.OPENHUGEFILEA0001 21Q \SFLOPPY.HACK 5 \FILE-CONFLICT) (50Q ERROR 37Q INTERNAL) ( 34Q (\HFLOPPY.OPENHUGEFILEA0001)) \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 P 2 \FLOPPY.SCRATCH.BUFFER P 0 NEWSTREAM F 3 STREAM F 4 \HFLOPPY.OTHERINFO F 5 RESETY F 6 \HFLOPPY.FLOPPYNAME F 7 BUFFER) `hi  ``GS gT ghTc`n```nٹdIIV`TS c`.l JWnĿS`J J`khc ih(166Q \PFLOPPY.WRITEPAGE 143Q \FLOPPY.BUFFER 126Q \HFLOPPY.OUTPUTFLOPPY 34Q RINGBELLS 30Q \HFLOPPY.CLOSEFLOPPY 7 OBTAIN.MONITORLOCK) (216Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 204Q \HFLOPPY.PAGENO 177Q \HFLOPPY.PAGENO 173Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 162Q \HFLOPPY.PAGENO 134Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 121Q \HFLOPPY.FILENAME 76Q \HFLOPPY.MAXPAGES 73Q \HFLOPPY.FLOPPYNO 70Q \HFLOPPY.HUGELENGTH 61Q \HFLOPPY.MAXPAGES 47Q LENGTH 40Q LENGTH 21Q \HFLOPPY.PAGENO 16Q \HFLOPPY.MAXPAGES 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 (\HFLOPPY.WRITEPAGEA0001)) \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 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 (\HFLOPPY.READPAGEA0001)) \HFLOPPY.CLOSEHUGEFILEA0001 D1 (NAME ERRORSET P 0 FULLFILENAME F 1 STREAM F 2 RESETY) T`hi `gh9Q Q nQ nnQi Qd Hci(113Q \DELETE-OPEN-STREAM 100Q \HFLOPPY.CLOSEFLOPPY 32Q \CLEARMAP 7 OBTAIN.MONITORLOCK) (106Q STREAM 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 (\HFLOPPY.CLOSEHUGEFILEA0001)) \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` `kji oi Hi i i i oi i Hh` AggB jgBnncCII  CIC(154Q \PFLOPPY.OPENFILE 137Q \PFLOPPY.FORMAT 124Q TERPRI 117Q PRIN1 106Q \FLOPPY.UNCACHED.WRITE 101Q FLOPPY.WAIT.FOR.FLOPPY 74Q TERPRI 67Q PRIN1 61Q PRIN1 47Q \FLOPPY.UNCACHED.READ 32Q CONCAT) (234Q STREAM 230Q STREAM 217Q STREAM 213Q STREAM 165Q LENGTH 161Q \HFLOPPY.PAGENO 150Q NEW 145Q OUTPUT 134Q \HFLOPPY.SLOWFLG 36Q \HFLOPPY.FLOPPYNO 27Q \HFLOPPY.FLOPPYNO 16Q \HFLOPPY.FLOPPYNO 11Q \HFLOPPY.FLOPPYNO) ( 113Q "Can't proceed. This floppy is writeprotected." 55Q "Insert floppy to become " 24Q "#") \HFLOPPY.CLOSEFLOPPY D1 (P 4 NPMPAGE P 3 NEXT P 2 PMPAGE P 1 PLPAGE P 0 PFALLOC I 1 LASTFLOPPYFLG I 0 STREAM) P@ g@A`@ ``kAj@ @ Xd Ydl` Il` Il ``k Il ` Il ` HI h(235Q \PFLOPPY.SAVE.PSECTOR9 232Q \PFLOPPY.SAVE.PFILELIST 227Q \PFLOPPY.WRITEPAGENO 215Q \PUTSWAPPEDFIXP 200Q \PUTSWAPPEDFIXP 163Q \PUTSWAPPEDFIXP 140Q \PUTSWAPPEDFIXP 135Q \FLOPPY.LTM.IDATE 120Q \PUTSWAPPEDFIXP 115Q \FLOPPY.LTM.IDATE 62Q \PFLOPPY.TRUNCATEFILE 6 \GETACCESS) (221Q PFALLOC 212Q \HFLOPPY.HUGELENGTH 204Q PLPAGE 175Q \HFLOPPY.HUGEPAGELENGTH 167Q PLPAGE 155Q \HFLOPPY.FLOPPYNO 152Q \HFLOPPY.MAXPAGES 144Q PLPAGE 132Q \HFLOPPY.IWRITEDATE 124Q PLPAGE 112Q \HFLOPPY.IWRITEDATE 104Q PLPAGE 75Q PFALLOC 66Q STREAM 55Q STREAM 41Q \HFLOPPY.FLOPPYNO 36Q \HFLOPPY.MAXPAGES 31Q STREAM 24Q \HFLOPPY.MAXPAGES 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 F 4 \PFLOPPYFIRSTDATAPAGE F 5 \PFLOPPYLASTDATAPAGE) 1@TXYUdHIH HI[ȂKȁkظJI h(55Q \PFLOPPY.WRITEPAGENO 24Q \PFLOPPY.SCAVENGE.PMPAGE.AFTER 7 \PFLOPPY.SCAVENGE.PMPAGEA) (32Q PMPAGE) () \PFLOPPY.SCAVENGE.PMPAGEA D1 (P 2 \FLOPPY.IBMD512.FLOPPYIOCB P 0 PMPAGE F 3 \PFLOPPYFIRSTDATAPAGE F 4 LOCATION)  `SHi <`0`Yl IkIl JT ki JhHn2HkHlj HjHjHlj H(202Q \PUTSWAPPEDFIXP 146Q \PUTSWAPPEDFIXP 72Q \FLOPPY.FORMATTRACKS 65Q \PFLOPPY.PAGENOTODISKADDRESS 55Q \FLOPPY.SETUP.IOCB 36Q \FLOPPY.SETUP.IOCB 15Q \PFLOPPY.READPAGENO) (173Q PMPAGE 163Q PMPAGE 153Q PMPAGE 137Q PMPAGE 127Q PMPAGE 115Q PMPAGE 106Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 77Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 43Q FLOPPYIOCB 27Q FLOPPYIOCBTYPE# 22Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 5 PMPAGETYPE#) () \PFLOPPY.SCAVENGE.PMPAGE.AFTER D1 (P 3 LOCATION P 1 LOCATION P 0 PMPAGE I 1 PLOCATION I 0 PPMPAGE F 4 \PFLOPPYLASTDATAPAGE) J `XTAkKJ5oi Kl jKi A@KH Hn2jKk[H(62Q \PFLOPPY.SCAVENGE.PMPAGE.AFTER1 52Q PRIN1 42Q IMOD 33Q PRIN1) (67Q PMPAGE 5 PMPAGETYPE#) ( 27Q ".") \PFLOPPY.SCAVENGE.PMPAGE.AFTER1 D1 (P 24Q OLDPAGE P 23Q OLDPAGE P 22Q SECTOR P 14Q SECTOR P 12Q \FLOPPY.IBMD512.FLOPPYIOCB P 11Q I P 6 FILEID P 5 FILETYPE P 4 TYPE P 3 LENGTH P 2 OLDPAGES P 1 TRIEDFORMATTING P 0 TRIEDWRITING I 3 PMPAGE I 2 LOCATION I 1 PPMPAGE I 0 PLOCATION F 25Q DISKADDRESS F 26Q \FLOPPY.SECTORSPERTRACK F 27Q \PFLOPPYLASTDATAPAGE) BCi 3H*nj OOCOl ǿOk_BCi iI`e`_l OkOl  B c*W,k2OO9OOW*ki OW*ki JW,kO \Oiahl _(OW*W*nOO(i O(_OOh__Ok_O&__&O$O"OW*W*nO$O&i O$k_$O _ qoB o CCn2jBW.jCn2CkBj@k[j!KAȃAȆLlk j\]jClK CLCMClN AlK AL̓AM͆AlN @A h(755Q \PFLOPPY.WRITEPAGENO 747Q \PUTSWAPPEDFIXP 713Q \PUTSWAPPEDFIXP 677Q \PUTSWAPPEDFIXP 643Q \PUTSWAPPEDFIXP 620Q \FZEROP 472Q \FLOPPY.MESSAGE 462Q \FLOPPY.MESSAGE 457Q CONCAT 427Q \FLOPPY.WRITESECTOR 316Q \FLOPPY.READSECTOR 213Q \FLOPPY.FORMATTRACKS 201Q \FLOPPY.FORMATTRACKS 144Q \PFLOPPY.PAGENOTODISKADDRESS 135Q \FLOPPY.SETUP.IOCB 114Q \FLOPPY.SETUP.IOCB 62Q \PFLOPPY.WRITEPAGENO 10Q \PFLOPPY.READPAGENO) (740Q PMPAGE 730Q PMPAGE 720Q PMPAGE 704Q PMPAGE 670Q PMPAGE 660Q PMPAGE 650Q PMPAGE 634Q PMPAGE 603Q PMPAGE 574Q PMPAGE 543Q PMPAGE 531Q PMPAGE 500Q PMPAGE 250Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 236Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE 122Q FLOPPYIOCB 104Q FLOPPYIOCBTYPE# 77Q \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE) ( 467Q "User should not trust this floppy." 453Q "Couldn't read or reformat page ") \PFLOPPY.SCAVENGE.PLPAGES D1 (P 17Q VALUE P 16Q I P 6 START P 5 LENGTH P 4 PLPAGE P 3 NPMPAGE P 2 PMPAGE P 1 NLOCATION P 0 LOCATION F 20Q \PFLOPPYFIRSTDATAPAGE F 21Q \PFLOPPYLASTDATAPAGE)  W X`Z`[`dkFdnEdlDdlCdlddndkdn\W K W"HoKJZ_ȂOȁkٽHMlYK jMDJȃkjJȃjj+Hk^L njOO'LOdgl@glhOk_i0JȃkjJj̓Jj͆KjKjLnjhLld]Ll L_O nML_O Mn LlM Ll j Ll M Ll` Ll` Ll Mn LlM Ll j Ll M g _LO _ldOOldlLl_L_dOdjCdjdkdOkOkL LnLkLnLldLlCLlDLnELkFJȃjj2Jk̓Jn͆KkKnHJ IK NL I(1273Q \PFLOPPY.WRITEPAGENO 1265Q \PFLOPPY.WRITEPAGENO 1257Q \PFLOPPY.WRITEPAGENO 1060Q RPLSTRING 1055Q SUBSTRING 736Q NCHARS 722Q MKSTRING 717Q GENSYM 705Q \PUTSWAPPEDFIXP 671Q \PUTSWAPPEDFIXP 655Q \PUTSWAPPEDFIXP 641Q \PUTSWAPPEDFIXP 621Q \PUTSWAPPEDFIXP 603Q \PUTSWAPPEDFIXP 562Q \PUTSWAPPEDFIXP 546Q \PUTSWAPPEDFIXP 532Q \PUTSWAPPEDFIXP 516Q \PUTSWAPPEDFIXP 262Q MACHINETYPE 234Q \PFLOPPY.READPAGENO 163Q \PFLOPPY.READPAGENO 113Q \PFLOPPY.READPAGENO) (1244Q PMPAGE 1234Q PMPAGE 1222Q PMPAGE 1212Q PMPAGE 1176Q PMPAGE 1166Q PLPAGE 1154Q PLPAGE 1143Q PLPAGE 1132Q PLPAGE 1121Q PLPAGE 1107Q PLPAGE 1077Q PLPAGE 1065Q PLPAGE 1050Q PLPAGE 775Q PLPAGE 731Q PLPAGE 714Q OLDFILE 676Q PLPAGE 662Q PLPAGE 646Q PLPAGE 626Q PLPAGE 616Q \FLOPPY.SCAVENGE.IDATE 610Q PLPAGE 600Q \FLOPPY.SCAVENGE.IDATE 572Q PLPAGE 553Q PLPAGE 537Q PLPAGE 523Q PLPAGE 474Q PLPAGE 446Q PLPAGE 437Q PLPAGE 424Q PLPAGE 406Q PLPAGE 376Q PMPAGE 366Q PMPAGE 356Q PMPAGE 346Q PMPAGE 330Q PMPAGE 277Q DOVE 266Q DANDELION 212Q PMPAGE 177Q PMPAGE 134Q PMPAGE 22Q PLPAGETYPE# 15Q PMPAGETYPE# 10Q PMPAGETYPE#) () \PFLOPPY.SCAVENGE.PSECTOR9 D1 (P 4 P P 1 PFALLOC P 0 PSECTOR9 F 5 \FLOPPY.CYLINDERS F 6 \FLOPPY.TRACKSPERCYLINDER F 7 \FLOPPY.SECTORSPERTRACK) 0`(Xdn HkHUHVHW`(KhYdo HIHlk HIZȂJȁHl j Hj Hj HjHjHjHjHkkjhHHdllh\oLZiVK[H(342Q \PFLOPPY.SAVE.PSECTOR9 223Q \PUTSWAPPEDFIXP 162Q \PUTSWAPPEDFIXP 132Q \FLOPPY.BREAK) (351Q PFALLOC 323Q PSECTOR9 317Q PSECTOR9 301Q PSECTOR9 272Q PSECTOR9 263Q PSECTOR9 254Q PSECTOR9 245Q PSECTOR9 236Q PSECTOR9 227Q PSECTOR9 214Q PSECTOR9 177Q PMPAGE 172Q PFALLOC 166Q PSECTOR9 153Q PSECTOR9 143Q PFALLOC 137Q PSECTOR9 101Q PFINFO 74Q FDEV 71Q \FLOPPYFDEV 62Q PSECTOR9 53Q PSECTOR9 44Q PSECTOR9 35Q PSECTOR9 24Q PSECTOR9 15Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 357Q (PFILELIST) 127Q "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 P 10Q \FLOPPY.IBMS128.FLOPPYIOCB P 7 \FLOPPY.SCRATCH.BUFFER P 6 I P 1 PSECTOR9 P 0 TOSTREAM F 11Q TOFILE F 12Q \FLOPPY.TRACKSPERCYLINDER F 13Q \FLOPPY.SECTORSPERTRACK F 14Q RESETY F 15Q \FLOPPY.CYLINDERS F 16Q \PFLOPPYLASTDATAPAGE F 17Q \PFLOPPYFIRSTDATAPAGE)  `hi PWgghgWWWklnhh oH nlNMHj!Nk^`l `}`Zl JkJj Ol O H8HOjnlKOO`(l WWNdM)OH hcihhhtO H8HOjnlLNk^(371Q \PFLOPPY.READPAGENO 330Q CLOSEF 275Q \FLOPPY.BUFFER 216Q \FLOPPY.READSECTOR 202Q \FLOPPY.SETUP.IOCB 164Q \FLOPPY.SETUP.IOCB 145Q \FLOPPY.BUFFER 77Q PRIN1 66Q OPENSTREAM 16Q \FLOPPY.UNCACHED.READ 7 OBTAIN.MONITORLOCK) (403Q FDEV 376Q STREAM 360Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 351Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 342Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 323Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 266Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 262Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 254Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 230Q FDEV 223Q STREAM 171Q FLOPPYIOCB 155Q FLOPPYIOCBTYPE# 150Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 132Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 34Q LENGTH 30Q NEW 25Q OUTPUT 2 \FLOPPYLOCK) ( 73Q "PILOT") 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 (FLOPPY.TO.FILEA0001)) FLOPPY.FROM.FILEA0001 D1 (NAME ERRORSET P 10Q \FLOPPY.IBMS128.FLOPPYIOCB P 7 \FLOPPY.SCRATCH.BUFFER P 6 I P 1 PSECTOR9 P 0 FROMSTREAM F 11Q FROMFILE F 12Q \FLOPPY.TRACKSPERCYLINDER F 13Q \FLOPPY.SECTORSPERTRACK F 14Q RESETY F 15Q \FLOPPY.CYLINDERS F 16Q \PFLOPPYLASTDATAPAGE F 17Q \PFLOPPYFIRSTDATAPAGE) # `hi PWgg Xj Hg WWWklnjo nkNMH Nk^`l `|`Zl JkJj H6HOjnlKOl O OO`'l WWNM)OH hcihhhuH6HOjnlLNO Nk^(432Q \PFLOPPY.WRITEPAGENO 340Q CLOSEF 306Q \FLOPPY.BUFFER 257Q \FLOPPY.WRITESECTOR 213Q \FLOPPY.SETUP.IOCB 175Q \FLOPPY.SETUP.IOCB 156Q \FLOPPY.BUFFER 111Q \PFLOPPY.FORMAT 104Q \FLOPPY.UNCACHED.WRITE 77Q \FLOPPY.BREAK 43Q GETFILEINFO 33Q SETFILEPTR 26Q OPENSTREAM 7 OBTAIN.MONITORLOCK) (405Q FDEV 400Q STREAM 370Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 361Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 352Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 333Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 277Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 273Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 265Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 227Q FDEV 222Q STREAM 202Q FLOPPYIOCB 166Q FLOPPYIOCBTYPE# 161Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 143Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 40Q LENGTH 23Q OLD 20Q INPUT 2 \FLOPPYLOCK) ( 74Q "Wrong length form FROMFILE") 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 (FLOPPY.FROM.FILEA0001)) FLOPPY.COMPACTA0001 D1 (NAME ERRORSET 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 (FLOPPY.COMPACTA0001)) \PFLOPPY.COMPACTA0001 D1 (NAME ERRORSET P 4 PFALLOC P 1 PFALLOCS P 0 PFINFO F 5 RESETY) `hi  ohi hp`(XYjJ KdkN\oKkػJZlI oo o ic i(210Q \FLOPPY.MESSAGE 200Q \PFLOPPY.COMPACT.PFILELIST 174Q \PFLOPPY.COMPACT.PSECTOR9 170Q \PFLOPPY.COMPACT.PFALLOCS 164Q \FLOPPY.MESSAGE 133Q LAST 30Q \PFLOPPY.CONFIRM 16Q \FLOPPY.CACHED.WRITE 7 OBTAIN.MONITORLOCK) (144Q PFALLOC 137Q PFALLOC 101Q PFALLOC 50Q PFINFO 42Q FDEV 37Q \FLOPPYFDEV 2 \FLOPPYLOCK) ( 205Q "Finished COMPACTing floppy" 161Q "COMPACTing floppy" 152Q (FREE) 107Q (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 (\PFLOPPY.COMPACTA0001)) \PFLOPPY.COMPACT.PFALLOCS D1 (P 16Q PFALLOC P 4 LAST P 3 NPMPAGE P 2 NEXT P 1 PREV P 0 PFINFO F 22Q \PFLOPPYLASTDATAPAGE)  `(X HZoJJJJoJZJ)II]ȂMȁkW$k`dn2dkI^ȅNȄ_dlO W$II_ȂOȁkl_dlO dj̓dlj dj͆`doII_ȂOȁkl_dOdKdLLJNII_ȂOȁkW$kjLZ'II_ȂOȁkW$jIJ JYZHL1O O h_"O O"h_ _O_O"&_ (635Q DREVERSE 577Q \PFLOPPY.COMPACT.PFALLOC 571Q SHOULDNT 337Q \PUTSWAPPEDFIXP 321Q \PUTSWAPPEDFIXP 243Q \PUTSWAPPEDFIXP 23Q LAST) (666Q PFALLOC 617Q PFINFO 605Q PFALLOC 543Q PMPAGE 536Q PFALLOC 530Q PFALLOC 474Q PMPAGE 467Q PFALLOC 461Q PFALLOC 450Q PFALLOC 401Q PMPAGE 374Q PFALLOC 366Q PFALLOC 351Q PFALLOCTYPE# 265Q PMPAGE 260Q PFALLOC 252Q PFALLOC 220Q PMPAGE 213Q PFALLOC 172Q PMPAGETYPE# 143Q PMPAGE 136Q PFALLOC 130Q PFALLOC 112Q PFALLOC 76Q PFALLOC 64Q PFALLOC 54Q PFALLOC 40Q PFALLOC 31Q PFINFO 16Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 357Q (FREE) 104Q (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 \PFLOPPYFIRSTDATAPAGE F 12Q \FLOPPY.SCRATCH.BUFFER) < pAXAYA@@nAWkHlj Hlj HjHjAlA AAkH Ao{hAA@@[ȂKȁkl@HlJ\ȂLȁ HlJ]ȅMȄ HJȃHJȆPA^ȂNȁkjOOkAOIOW Ok_(461Q \PFLOPPY.WRITEPAGENO 456Q \PFLOPPY.READPAGENO 342Q \PUTSWAPPEDFIXP 314Q \PUTSWAPPEDFIXP 167Q \PFLOPPY.WRITEPAGENO 74Q \PUTSWAPPEDFIXP 60Q \PUTSWAPPEDFIXP) (440Q PFALLOC 406Q PMPAGE 401Q PFALLOC 370Q PMPAGE 364Q PMPAGE 353Q PMPAGE 347Q PMPAGE 330Q PMPAGE 321Q PMPAGE 302Q PMPAGE 273Q PMPAGE 264Q PFALLOC 240Q PMPAGE 233Q PFALLOC 225Q PFALLOC 221Q PFALLOC 211Q PFALLOC 173Q PFALLOC 157Q PFALLOC 146Q PFALLOC 142Q PFLE 135Q PFALLOC 121Q PFALLOC 111Q PMPAGE 101Q PMPAGE 65Q PMPAGE 51Q PMPAGE 36Q PFALLOC 24Q PFALLOC 15Q PFALLOC 6 PFALLOC) ( 201Q (FREE)) \PFLOPPY.COMPACT.PSECTOR9 D1 (P 3 PFALLOC P 1 PSECTOR9 P 0 PFINFO) K `(XdYdHJhh[oKiJZ(57Q \PFLOPPY.SAVE.PSECTOR9) (66Q PFALLOC 50Q PFALLOC 32Q PFINFO 26Q PSECTOR9 17Q PFINFO 10Q FDEV 5 \FLOPPYFDEV) ( 74Q (PFILELIST)) \PFLOPPY.COMPACT.PFILELIST D1 (P 3 PFALLOC P 1 PFILELIST P 0 PFINFO) B `(XdYdjHJh[oK JZ(72Q \PFLOPPY.ADD.TO.PFILELIST 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) @l@ bAgbPk@mAgL oi Hi i Lkjh Hhi @Lk԰[g Jl2K Ygg I KI @b(200Q COPYFILE 172Q PACKFILENAME 165Q LISTPUT 153Q UNPACKFILENAME 137Q FLOPPY.FREE.PAGES 133Q GETFILEINFO 112Q FLOPPY.FORMAT 103Q FLOPPY.WAIT.FOR.FLOPPY 70Q TERPRI 63Q PRIN1 55Q PRIN1 44Q CONCAT 11Q DIRECTORY) (162Q FLOPPY 157Q HOST 130Q SIZE 40Q # 21Q ARCHIVE) ( 51Q "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) hP@ bdg'Z@g'[Yoi Ii i g Xd+dM \gJ KLgK L ML h(137Q COPYFILE 131Q PACKFILENAME 124Q LISTPUT 111Q LISTPUT 101Q UNPACKFILENAME 64Q DIRECTORY 56Q TERPRI 51Q PRIN1 43Q PRIN1 32Q FLOPPY.GET.NAME 27Q FLOPPY.WAIT.FOR.FLOPPY 6 UNPACKFILENAME) (120Q DIRECTORY 105Q HOST 61Q {FLOPPY}* 22Q DIRECTORY 14Q HOST) ( 37Q "Unarchiving floppy ") \CFLOPPY.GET.FCB.FILENAME D1 (P 3 FILENAME P 2 POS P 1 EXTENSION P 0 NAME I 0 FCB) @ldldkdjCdjdkd@Xldldl djCdjdkd@YoH l kZHkJ oXoI lkZIkJ oYHoI (220Q PACK* 200Q SUBSTRING 163Q STRPOS 144Q SUBSTRING 127Q STRPOS) NIL ( 214Q "." 206Q "" 157Q " " 152Q "" 123Q " ") \CFLOPPY.SET.FCB.FILENAME D1 (P 0 UNAME I 1 FILENAME I 0 FCB) 0A Xdg'oldldkdjCdjdkd@ko ldldkdjCdjdkd@kIkI dll o Hg'oldldl djCdjdkd@ko ldldl djCdjdkd@kJkJ dll o h(376Q RPLSTRING 365Q SUBSTRING 352Q NCHARS 274Q RPLSTRING 201Q RPLSTRING 170Q SUBSTRING 155Q NCHARS 100Q RPLSTRING 6 UNPACKFILENAME) (206Q EXTENSION 13Q NAME) ( 373Q "" 271Q " " 215Q "" 176Q "" 75Q " " 22Q "") \CFLOPPY.INIT D1 (P 3 I) Cl lgjd lghj ojHk njKJ``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dgRdgNdg8dg6dg4dg2dg0dg.dg*dg$d h`IJ*IkԹHX`KlǿKk[(435Q \MAKE.PMAP.DEVICE 66Q \FLOPPY.BUFFER 36Q ARRAY 21Q ARRAY 4 \FLOPPY.BUFFER) (465Q \CFLOPPYBLANKSECTOR 444Q \CFLOPPYSECTORMAP 431Q \CFLOPPYFDEV 423Q \GENERIC.READP 414Q NILL 405Q \IS.NOT.RANDACCESSP 376Q \ILLEGAL.DEVICEOP 367Q \IS.NOT.RANDACCESSP 360Q \ILLEGAL.DEVICEOP 351Q \GENERIC.BINS 342Q \GENERIC.BOUTS 333Q NILL 324Q \ADD-OPEN-STREAM 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 (I 1 FCB2 I 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 24Q CALLOC P 22Q BUCKET P 21Q J P 13Q I P 6 CALLOCS P 5 CALLOC P 4 ALIST P 3 FILENAME P 2 FREEGROUPS P 1 FREEFCBS P 0 FCB F 25Q FCBS)  `ji*`ki*ll__OO`Oh*Ok_lj OdO.l?j OO5I Yll2OOOZL`Ol@ Ok_``Ol_dOdOlĿXljHI@H [L KhL\HKLljO"O `HlO"i*O"k_"Ok_T`O(O_ OO h__Ok_EO &_dO$O$c*g `dKdW*]N^Ng ^`N`I`JNO&h_(lO(gO( O&_&(626Q \CFLOPPY.DIR.PUT 523Q SORT 463Q SORT 261Q \CFLOPPY.GET.FCB.FILENAME 164Q \CFLOPPY.READRECORDNO 117Q DREVERSE) (621Q OLD 614Q CALLOC 600Q CALLOC 554Q CINFO 551Q \CFLOPPYINFO 543Q CINFO 540Q \CFLOPPYINFO 532Q CINFO 527Q \CFLOPPYINFO 520Q \CFLOPPY.OPEN.DIRECTORYA0005 467Q CALLOCTYPE# 460Q \CFLOPPY.OPEN.DIRECTORYA0002 367Q \CFLOPPYDISKMAP 331Q FCB 325Q \CFLOPPYDISKMAP 236Q FCB 204Q \CFLOPPYDIRECTORY 200Q FCBTYPE# 153Q \CFLOPPYDIRECTORY 41Q \CFLOPPYDISKMAP 13Q \CFLOPPYDISKMAP 5 \CFLOPPYDISKMAP) () \CFLOPPY.OPENFILEA0003 D1 (NAME ERRORSET F 0 ACCESS) Pgi(14Q \FLOPPY.CACHED.WRITE 10Q \FLOPPY.CACHED.READ) (3 INPUT) () \CFLOPPY.OPENFILE D1 (P 6 BUCKET P 4 FULLFILENAME P 3 CALLOC P 2 WAIT P 1 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) @`@D@BDlHAD 9@ABCDE PC b@`@D@BDlMAD ho @l @d`BC Yd AdgSgCZI KkC.KjI\l i bxdINN AgIj Ij I(324Q \CFLOPPY.SETFILEINFO 302Q \LISPERROR 233Q BLOCK 227Q \CFLOPPY.STREAMS.AGAINST 167Q \CFLOPPY.OPENFILE1 150Q \LISPERROR 141Q \CFLOPPY.OPENFILEA0003 127Q \FILE-CONFLICT 70Q \FLOPPY.OTHERINFO 53Q \SFLOPPY.HACK 37Q \FILE-CONFLICT) (353Q STREAM 343Q STREAM 335Q OUTPUT 271Q STREAM 256Q CALLOC 242Q CALLOC 215Q WAIT 206Q INPUT 176Q STREAM 160Q STREAMTYPE# 110Q FDEV 100Q STREAMTYPE# 15Q FDEV 4 STREAMTYPE#) ( 136Q (\CFLOPPY.OPENFILEA0003)) \CFLOPPY.OPENFILE1A0001 D1 (NAME ERRORSET P 5 STREAM P 4 IDATE P 3 FCB P 2 CALLOC P 1 EXTENSION P 0 FILENAME F 6 OTHERINFO F 7 RECOG F 10Q FILE F 11Q RESETY) `hi `W XW WdgdgJ HV 2V ,dgJHV hdgdgJV ]WdgdgHl i hci(172Q \LISPERROR 141Q SHOULDNT 134Q \CFLOPPY.OPENOLDFILE 105Q \CFLOPPY.OPENNEWFILE 65Q \CFLOPPY.OPENOLDFILE 57Q \CFLOPPY.OPENNEWFILE 26Q \CFLOPPY.DIR.GET 20Q \FLOPPY.ASSUREFILENAME 7 OBTAIN.MONITORLOCK) (160Q OLD/NEW 152Q NEW 124Q OLDEST 116Q OLD 73Q NEW 43Q OLD/NEW 35Q 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 (\CFLOPPY.OPENFILE1A0001)) \CFLOPPY.OPENOLDFILE D1 (P 11Q I P 6 STREAM P 5 FCBS P 4 EOFFSET P 3 EPAGE P 2 LASTRECORDNO P 1 RECORDCOUNT P 0 LENGTH I 1 OTHERINFO I 0 CALLOC F 12Q \FLOPPY.SCRATCH.BUFFER) V @hgAg0@"@ kl@ ؀jlڰk@"@ kl@ ؀jYjj;@Ik ZW Ikllj OOWOlOOk_lXn[Hn\@]`d`@ _dOdldK dL dg.dg,d`&dg"dg d`djd`dhdldjRdk@dk0dh^d@ NMN(320Q \FLOPPY.ADDDEVICENAME 175Q \CFLOPPY.READRECORDNO 167Q \CFLOPPY.PHYSICAL.RECORDNO 137Q LAST 121Q LENGTH 61Q LAST 43Q LENGTH) (517Q STREAM 510Q STREAM 435Q \STREAM.DEFAULT.MAXBUFFERS 421Q FILELINELENGTH 412Q \FILEOUTCHARFN 403Q \EOSERROR 374Q \NOIMAGEOPS 365Q \STREAM.NOT.OPEN 356Q \STREAM.NOT.OPEN 313Q CALLOC 304Q \FLOPPYFDEV 277Q STREAMTYPE# 271Q CALLOC 143Q FCB 132Q CALLOC 114Q CALLOC 104Q CALLOC 65Q FCB 54Q CALLOC 36Q CALLOC 26Q CALLOC 17Q BINARY 11Q TYPE) () \CFLOPPY.OPENNEWFILE D1 (P 5 FCB P 3 STREAM P 2 FCBS P 1 CALLOC P 0 LENGTH I 1 OTHERINFO I 0 FILENAME) PgAXd dllkX YdZ@gI JdM@ `d`I dLdldj dj dg.dg,d`&dg"dg d`djd`dhdldjRdk@dk0dh[dI KJK(116Q \FLOPPY.ADDDEVICENAME 65Q \CFLOPPY.SET.FCB.FILENAME 51Q \CFLOPPY.DIR.PUT 31Q \CFLOPPY.ALLOCATE) (312Q STREAM 303Q STREAM 230Q \STREAM.DEFAULT.MAXBUFFERS 214Q FILELINELENGTH 205Q \FILEOUTCHARFN 176Q \EOSERROR 167Q \NOIMAGEOPS 160Q \STREAM.NOT.OPEN 151Q \STREAM.NOT.OPEN 111Q CALLOC 102Q \FLOPPYFDEV 75Q STREAMTYPE# 45Q NEW 36Q 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 P 2 ANSWER P 1 LP P 0 STREAM F 3 FILE F 4 ATTRIBUTE F 5 RESETY F 6 CALLOC) =`hi 0TgS`S S XJc i c T (71Q \CFLOPPY.GETFILEINFO1 45Q \CFLOPPY.ASSURESTREAM 40Q \FLOPPY.CACHED.READ 34Q \GETEOFPTR 7 OBTAIN.MONITORLOCK) (61Q STREAM 26Q STREAMTYPE# 17Q LENGTH 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 (\CFLOPPY.GETFILEINFOA0001)) \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.SETFILEINFOA0001 D1 (NAME ERRORSET P 1 SUCCESSFUL P 0 STREAM F 2 FILE F 3 ATTRIBUTE F 4 VALUE F 5 RESETY) K`hi  R X/iSg'HTdgjdglgkIc i(23Q \CFLOPPY.ASSURESTREAM 16Q \FLOPPY.CACHED.WRITE 7 OBTAIN.MONITORLOCK) (73Q LF 62Q CRLF 50Q CR 43Q STREAM 34Q EOL 2 \FLOPPYLOCK) () \CFLOPPY.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 \CFLOPPY.SETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CFLOPPY.SETFILEINFOA0001)) \CFLOPPY.CLOSEFILEA0001 D1 (NAME ERRORSET P 1 FULLFILENAME P 0 STREAM F 2 FILE F 3 RESETY) ,`hi  R X H Hd Ici(43Q \DELETE-OPEN-STREAM 30Q \CFLOPPY.CLOSEFILE1 23Q \CLEARMAP 17Q \CFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (36Q STREAM 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 (\CFLOPPY.CLOSEFILEA0001)) \CFLOPPY.CLOSEFILE1 D1 (P 4 FULLFILENAME P 3 NMP P 2 NEXT P 1 MP P 0 CALLOC I 0 STREAM) 0P@ X@\@ gH HjjdhL(36Q \CFLOPPY.SAVE.CHANGES 24Q \GETACCESS) (42Q CALLOC 27Q INPUT 15Q STREAM 6 STREAM) () \CFLOPPY.DELETEFILEA0001 D1 (NAME ERRORSET P 5 FULLFILENAME P 4 NMP P 3 NEXT P 2 MP P 1 CALLOC P 0 FILENAME F 10Q FDEV F 11Q FILE F 12Q RECOG F 13Q RESETY) k`hi W XW YIWNHgWlNh3I WN_WhWlOhI I I Mci(142Q \CFLOPPY.SAVE.CHANGES 135Q \CFLOPPY.DEALLOCATE 130Q \CFLOPPY.DIR.REMOVE 74Q \FLOPPY.ADDDEVICENAME 32Q \CFLOPPY.DIR.GET 24Q \FLOPPY.ASSUREFILENAME 16Q \CFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (102Q FDEV 67Q CALLOC 51Q OLDEST 42Q FDEV 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 (\CFLOPPY.DELETEFILEA0001)) \CFLOPPY.GETFILENAMEA0001 D1 (NAME ERRORSET 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 (\CFLOPPY.GETFILENAMEA0001)) \CFLOPPY.GENERATEFILESA0001A0002 D1 (I 1 Y I 0 X) @A (16Q UALPHORDER) (11Q CALLOC 3 CALLOC) () \CFLOPPY.GENERATEFILESA0001 D1 (NAME ERRORSET 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 (\CFLOPPY.GENERATEFILESA0001)) \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 P 7 FCB P 4 FULLFILENAME P 3 FCBS P 2 CALLOC P 1 NEWFILENAME P 0 OLDFILENAME F 10Q OLDDEVICE F 11Q OLDFILE F 12Q NEWFILE F 13Q RESETY F 14Q OLDRECOG F 15Q NEWRECOG) `hi pW W WNHhWlMhiHW Z`WNHgWlNhJJ IWJ JdOI JJJ J J ci(226Q \FLOPPY.ADDDEVICENAME 214Q \CFLOPPY.SAVE.CHANGES 205Q UNION 155Q \CFLOPPY.SET.FCB.FILENAME 132Q \CFLOPPY.DIR.PUT 122Q \CFLOPPY.DIR.REMOVE 65Q \CFLOPPY.DIR.GET 32Q \FLOPPY.ASSUREFILENAME 24Q \FLOPPY.ASSUREFILENAME 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (221Q CALLOC 200Q CALLOC 172Q CALLOC 166Q CALLOC 137Q CALLOC 104Q OLD 75Q FDEV 40Q FDEV 2 \FLOPPYLOCK) () \CFLOPPY.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 NEWRECOG I 4 OLDRECOG I 3 NEWFILE I 2 NEWDEVICE I 1 OLDFILE I 0 OLDDEVICE F 3 LISPXHIST F 4 RESETVARSLST) 2DgbEgb S!Tog hgZ JI(55Q ERROR! 50Q RESETRESTORE 36Q \CFLOPPY.RENAMEFILEA0001) (44Q ERROR 33Q INTERNAL 14Q NEW 4 OLD) ( 30Q (\CFLOPPY.RENAMEFILEA0001)) \CFLOPPY.STREAMS.AGAINST D1 (P 4 F I 0 STREAM) G`Nhd`lHAHI\ @ Ld@J KhZYHXK&ZNIL (50Q STREAM 42Q STREAM 17Q \FLOPPYFDEV 5 FDEV 2 \FLOPPYFDEV) () \CFLOPPY.STREAMS.USING D1 (P 4 F I 0 CALLOC) =`Nhd`lHAHI\ @LJ KhZHXK&NIL (42Q STREAM 17Q \FLOPPYFDEV 5 FDEV 2 \FLOPPYFDEV) () \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 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 k=UI"I klI ؀jll2I +IUl ljLKJLWLl@ Lk\hci(176Q \CFLOPPY.READRECORDNO 145Q \CFLOPPY.PHYSICAL.RECORDNO 132Q \CFLOPPY.EXTEND 102Q LAST 64Q LENGTH 33Q \GETEOFPTR 17Q \CFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (106Q FCB 75Q CALLOC 57Q CALLOC 47Q CALLOC 23Q STREAM 2 \FLOPPYLOCK) () \CFLOPPY.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 \CFLOPPY.READPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CFLOPPY.READPAGEA0001)) \CFLOPPY.PHYSICAL.RECORDNO D1 (P 3 RECORDNO P 2 GROUP P 1 FCB P 0 FCBS I 1 N I 0 CALLOC) >@@XdAlk YAlbIlAlZddjJlAl(61Q SHOULDNT 23Q NTH) (37Q FCB 6 CALLOC) () \CFLOPPY.READRECORDNO D1 (P 2 \FLOPPY.IBMS128.FLOPPYIOCB P 0 ANSWER I 2 NOERROR I 1 RECORD I 0 RECORDNO) R `3`Yl IkIj j@@no hhJ@ AB JH(111Q \FLOPPY.READSECTOR 104Q \CFLOPPY.RECORDNOTODISKADDRESS 64Q \FLOPPY.SEVERE.ERROR 37Q \FLOPPY.SETUP.IOCB 21Q \FLOPPY.SETUP.IOCB) (116Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 74Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE) ( 61Q "Illegal Read RECORD Number") \CFLOPPY.WRITERECORDNO D1 (P 2 \FLOPPY.IBMS128.FLOPPYIOCB P 0 ANSWER I 2 NOERROR I 1 RECORD I 0 RECORDNO) R `3`Yl IkIj j@@no hhJ@ AB JH(111Q \FLOPPY.WRITESECTOR 104Q \CFLOPPY.RECORDNOTODISKADDRESS 64Q \FLOPPY.SEVERE.ERROR 37Q \FLOPPY.SETUP.IOCB 21Q \FLOPPY.SETUP.IOCB) (116Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 74Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 26Q FLOPPYIOCB 12Q FLOPPYIOCBTYPE# 5 \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE) ( 61Q "Illegal Write RECORD Number") \CFLOPPY.RECORDNOTODISKADDRESS D1 (L (0 RECORDNO)) )`lXkY`@H(]@HZdIl[JI\KLMNIL (12Q \CFLOPPYSECTORMAP) () \CFLOPPY.DIR.GET D1 (P 11Q CALLOC P 5 CALLOC P 4 EXTENSION P 3 NAME P 2 EALIST P 1 NALIST P 0 UNAME I 1 RECOG I 0 FILENAME) Ag`@ Xg'Hg'KkK lNNl LkL _lOOl K L `(KILJ`( Oh_@OiO_(116Q U-CASE 111Q U-CASE 104Q SUBATOM 63Q NCHARS 54Q SUBATOM 37Q NCHARS 15Q UNPACKFILENAME) (204Q CALLOC 162Q CINFO 155Q FDEV 152Q \FLOPPYFDEV 132Q CINFO 125Q FDEV 122Q \FLOPPYFDEV 27Q EXTENSION 21Q NAME 6 EXACT) () \CFLOPPY.DIR.PUT D1 (P 4 EXTENSION P 3 NAME P 2 EALIST P 1 NALIST P 0 UNAME I 2 CALLOC I 1 RECOG I 0 FILENAME) p@ Xdg'[Hg'\KkK lMMl [LkL lNNl \HgK HgL Hg Hg H bK [L \B@`(YKIZLBJ ZKJI Y`(IIB(220Q \FLOPPY.LEXPUTASSOC 211Q \FLOPPY.LEXPUTASSOC 150Q U-CASE 143Q U-CASE 135Q PACKFILENAME 131Q LISTPUT 122Q LISTPUT 113Q LISTPUT 103Q LISTPUT 72Q SUBATOM 55Q NCHARS 46Q SUBATOM 31Q NCHARS 6 UNPACKFILENAME) (244Q \CFLOPPYDIR 234Q CINFO 227Q FDEV 224Q \FLOPPYFDEV 173Q CINFO 166Q FDEV 163Q \FLOPPYFDEV 155Q CALLOC 126Q HOST 117Q VERSION 107Q EXTENSION 77Q NAME 21Q EXTENSION 13Q NAME) () \CFLOPPY.DIR.REMOVE D1 (P 5 EXTENSION P 4 NAME P 3 EALIST P 2 NALIST P 1 UNAME P 0 FILENAME I 0 CALLOC) @Xd Ydg'\Ig']LkL lNNl \MkM _lOOl ]L \M ]`(ZLJ[MK [dLKJ LJ `(JJ@(167Q \FLOPPY.LEXREMOVEASSOC 161Q \FLOPPY.LEXPUTASSOC 150Q \FLOPPY.LEXREMOVEASSOC 117Q U-CASE 112Q U-CASE 105Q SUBATOM 64Q NCHARS 55Q SUBATOM 40Q NCHARS 15Q UNPACKFILENAME) (213Q \CFLOPPYDIR 203Q CINFO 176Q FDEV 173Q \FLOPPYFDEV 133Q CINFO 126Q FDEV 123Q \FLOPPYFDEV 30Q EXTENSION 22Q NAME 6 CALLOC) () \CFLOPPY.WRITEPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkԹ(33Q \CFLOPPY.WRITEPAGE) NIL () \CFLOPPY.WRITEPAGEA0001 D1 (NAME ERRORSET 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 YUI"I klI ؀jllI IUl ljLKJLWLl@ Lk\hci(160Q \CFLOPPY.WRITERECORDNO 127Q \CFLOPPY.PHYSICAL.RECORDNO 115Q \CFLOPPY.EXTEND 67Q LAST 51Q LENGTH 17Q \CFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (73Q FCB 62Q CALLOC 44Q CALLOC 34Q CALLOC 23Q STREAM 2 \FLOPPYLOCK) () \CFLOPPY.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 \CFLOPPY.WRITEPAGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CFLOPPY.WRITEPAGEA0001)) \CFLOPPY.TRUNCATEFILEA0001 D1 (NAME ERRORSET P 7 I P 5 \FLOPPY.SCRATCH.BUFFER P 4 LASTROFFSET P 3 LASTRECORD P 2 NRECORDS P 1 CALLOC P 0 STREAM F 10Q LASTPAGE F 11Q LASTPOFFSET F 12Q FILE F 13Q RESETY) `hi PW WH cH cH Wl\j_LUWlWlkغIJk `3l KM lLON3KM MIJ hcih WlWlغMOlǿOk_(223Q \FZEROP 203Q \CFLOPPY.TRUNCATE 170Q \CFLOPPY.WRITERECORDNO 145Q \CFLOPPY.READRECORDNO 135Q \FLOPPY.BUFFER 122Q \CFLOPPY.PHYSICAL.RECORDNO 20Q \CFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (215Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 175Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 126Q \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE 53Q STREAM 42Q STREAM 31Q STREAM 2 \FLOPPYLOCK) () \CFLOPPY.TRUNCATEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 LASTPOFFSET I 1 LASTPAGE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.TRUNCATEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CFLOPPY.TRUNCATEFILEA0001)) \CFLOPPY.ALLOCATE.FCB D1 (P 3 I P 1 FCB P 0 FREEFCBS) \ `Xdl `HIjl kKJIKl ǿKk[l l KJIKjǿKk[I(22Q \LISPERROR) (46Q FCB 35Q CINFO 32Q \CFLOPPYINFO 10Q CINFO 5 \CFLOPPYINFO) () \CFLOPPY.ALLOCATE.GROUP D1 (P 1 GROUP P 0 FREEGROUPS) % `Xdl `HI(22Q \LISPERROR) (35Q CINFO 32Q \CFLOPPYINFO 10Q CINFO 5 \CFLOPPYINFO) () \CFLOPPY.ALLOCATE D1 (P 25Q DMINDEX P 23Q FCB P 22Q EXTENT P 15Q I P 10Q I P 6 \INTERRUPTABLE P 4 CALLOC P 3 GROUPS P 2 FCBS P 1 NGROUPS P 0 NFCBS I 0 NRECORDS) L@lb`@llYll۽kMMkX` H` Ihl Hk2 OO%_OOh__Ok_O&_OIk2OO%_ OO h__Ok_O &_OJjO"*`dJdJ`L`L_&O$O$HkjO&lO&@HklljO*O(KO&lO*KKǿO*k_*O"_"O$k_$n(340Q \CFLOPPY.ICHECK 214Q \CFLOPPY.ALLOCATE.GROUP 131Q \CFLOPPY.ALLOCATE.FCB 105Q \LISPERROR 73Q LENGTH 54Q LENGTH) (445Q FCB 404Q FCB 374Q FCB 350Q FCB 327Q CINFO 324Q \CFLOPPYINFO 320Q CINFO 315Q \CFLOPPYINFO 276Q CALLOCTYPE# 66Q CINFO 63Q \CFLOPPYINFO 47Q CINFO 44Q \CFLOPPYINFO) () \CFLOPPY.TRUNCATE D1 (P 14Q DMINDEX P 12Q FCB P 11Q I P 7 \INTERRUPTABLE P 6 CHANGEDGROUPS P 5 CHANGEDFCBS P 4 FREEGROUPS P 3 FREEFCBS P 2 NFCBS P 1 NGROUPS P 0 OLDNGROUPS I 1 NRECORDS I 0 CALLOC) i p@"@ kl@ ؀jAh@"@ kl@ ؀jlAlYl``@k O@kJJ_JO8OdJjOAJklkOlOK[OMlj OO6OklOIOklOHkOlONOk_O_Ok_Zk h@M@ @N@ @ h(545Q \CFLOPPY.SAVE.CHANGES 536Q UNION 515Q UNION 474Q NTH 122Q LAST 104Q LENGTH 41Q LAST 23Q LENGTH) (531Q CALLOC 524Q CALLOC 510Q CALLOC 503Q CALLOC 426Q FCB 325Q FCB 277Q FCB 231Q CALLOC 211Q CALLOC 202Q CINFO 177Q \CFLOPPYINFO 171Q CINFO 166Q \CFLOPPYINFO 126Q FCB 115Q CALLOC 77Q CALLOC 67Q CALLOC 45Q FCB 34Q CALLOC 16Q CALLOC 6 CALLOC) () \CFLOPPY.DEALLOCATE D1 (P 5 I P 3 FCB P 2 ANSWER P 1 \INTERRUPTABLE P 0 FCBS I 0 CALLOC) @X@H@@ZdJKljKlkj2ML'KlM_OOh_Mk]O&_N ZJ@h`@` h(243Q \CFLOPPY.ICHECK 235Q DREMOVE 170Q \NCONC2) (230Q CINFO 225Q \CFLOPPYINFO 221Q CINFO 216Q \CFLOPPYINFO 207Q CALLOC 122Q FCB 72Q FCB 55Q FCB 37Q CALLOC 30Q CALLOC 20Q CALLOC 6 CALLOC) () \CFLOPPY.EXTEND D1 (P 3 DMINDEX P 2 RECORDCOUNT P 1 GROUP P 0 FCB I 0 CALLOC) @@ XdZddljAX@ H@ Hjj@@Hh Jllk[JljHKkHlKkIǿHKllH@ @H@h(237Q MEMB 170Q \CFLOPPY.ALLOCATE.GROUP 131Q \NCONC2 72Q LENGTH 54Q \CFLOPPY.SET.FCB.FILENAME 42Q \CFLOPPY.ALLOCATE.FCB 13Q LAST) (251Q CALLOC 244Q CALLOC 232Q CALLOC 212Q FCB 175Q FCB 161Q FCB 121Q CALLOC 115Q CALLOC 102Q FCB 65Q CALLOC 61Q FCB 47Q CALLOC 21Q FCB 6 CALLOC) () \CFLOPPY.SAVE.CHANGES D1 (P 15Q RECORDNO P 14Q I P 7 I P 5 FCB P 4 \INTERRUPTABLE P 3 RECORDNOS P 2 RECORDNO P 1 FREEGROUPS P 0 FREEFCBS I 0 CALLOC) 2@``@d@j`MHX`MljMlkj2 ON,MlO_OOh__Ok_O&_OI Ylj OOMOlǿOk_`MlMlĿMlZKJK;Kd O`Ol@i @h@h`H`Ih(456Q \CFLOPPY.ICHECK 402Q \CFLOPPY.WRITERECORDNO 237Q \NCONC2 5 \FLOPPY.CACHED.WRITE) (447Q CINFO 444Q \CFLOPPYINFO 435Q CINFO 432Q \CFLOPPYINFO 423Q CALLOC 413Q CALLOC 370Q \CFLOPPYDIRECTORY 325Q FCB 306Q FCB 302Q \CFLOPPYDIRECTORY 162Q FCB 131Q FCB 114Q FCB 110Q CINFO 105Q \CFLOPPYINFO 73Q CINFO 70Q \CFLOPPYINFO 54Q CALLOC 36Q CALLOC 27Q CINFO 24Q \CFLOPPYINFO 16Q CINFO 13Q \CFLOPPYINFO) () \CFLOPPY.ICHECK D1 (P 17Q F P 13Q I P 11Q FCB P 10Q ANSWER P 7 CALLOC P 5 GROUPS P 4 FCBS P 3 FREEGROUPS P 2 FREEFCBS P 1 USEDGROUPS P 0 USEDFCBS) ]poY`(dO OH Ogd OOljOlkj2OO-OlO_OOh__Ok_O&_O _OI Yg`(Z`([HJ o IK o JH \KI ]L l@o M lo `Nhd`lNOh_ `( o O_(523Q \FLOPPY.SEVERE.ERROR 513Q MEMB 426Q \FLOPPY.SEVERE.ERROR 413Q LENGTH 406Q \FLOPPY.SEVERE.ERROR 373Q LENGTH 366Q \APPEND2 360Q \APPEND2 352Q \FLOPPY.SEVERE.ERROR 342Q INTERSECTION 334Q \FLOPPY.SEVERE.ERROR 324Q INTERSECTION 251Q \APPEND2 233Q \NCONC2 55Q \APPEND2 41Q \CFLOPPY.ICHECK.CALLOC) (506Q CINFO 501Q FDEV 476Q \FLOPPYFDEV 471Q STREAM 445Q \FLOPPYFDEV 435Q FDEV 432Q \FLOPPYFDEV 314Q CINFO 307Q FDEV 304Q \FLOPPYFDEV 276Q CINFO 271Q FDEV 266Q \FLOPPYFDEV 157Q FCB 124Q FCB 106Q FCB 66Q CALLOC 47Q CALLOC 22Q CINFO 15Q FDEV 12Q \FLOPPYFDEV) ( 520Q "Streams Allocation Error" 423Q "Wrong number of GROUPS" 403Q "Wrong number of FCBS" 347Q "USEDGROUPS & FREEGROUPS intersect" 331Q "USEDFCBS & FREEFCBS intersect" 6 (0 1)) \CFLOPPY.ICHECK.CALLOC D1 (P 5 I P 3 ANSWER P 2 FCB P 1 I I 0 CALLOC) @kHo@{IJkjo IkԹHXdKJljJlkj2ML'JlM_OOh_Mk]O&_N [K o@ o h(265Q \FLOPPY.SEVERE.ERROR 254Q INTERSECTION 236Q INTERSECTION 223Q \NCONC2 64Q \FLOPPY.SEVERE.ERROR) (247Q CALLOC 155Q FCB 125Q FCB 110Q FCB 44Q FCB 31Q CALLOC 3 CALLOC) ( 262Q "Unexpected group number" 243Q (0 1) 61Q "Unexpected FCB extent number" 22Q (0 1)) \CFLOPPY.FREE.PAGESA0001 D1 (NAME ERRORSET P 0 ANSWER F 1 RESETY) $`hi ` lci(32Q LENGTH 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (25Q CINFO 22Q \CFLOPPYINFO 2 \FLOPPYLOCK) () \CFLOPPY.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 \CFLOPPY.FREE.PAGESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CFLOPPY.FREE.PAGESA0001)) \CFLOPPY.FORMATA0001 D1 (NAME ERRORSET L (0 NIL) P 3 I P 1 \FLOPPY.IBMS128.FLOPPYIOCB F 4 \FLOPPY.CYLINDERS F 5 SLOWFLG F 6 \FLOPPY.SCRATCH.BUFFER F 7 RESETY) `hi U`N`Hl HkHj i &i IkTi i i InTi hTkjKJIKkVi K iKk[hwIljKdJhci`i ic RKk[(265Q \CFLOPPY.WRITERECORDNO 205Q \FLOPPY.READSECTOR 143Q \FLOPPY.FORMATTRACKS 131Q \FLOPPY.RECALIBRATE 123Q \FLOPPY.TWOSIDEDP 115Q \FLOPPY.FORMATTRACKS 104Q \FLOPPY.RECALIBRATE 76Q \FLOPPY.INITIALIZE 67Q \FLOPPY.SETUP.IOCB 50Q \FLOPPY.SETUP.IOCB 17Q \FLOPPY.UNCACHED.WRITE 13Q \FLOPPY.CLOSE 7 OBTAIN.MONITORLOCK) (261Q \CFLOPPYBLANKSECTOR 234Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 153Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 55Q FLOPPYIOCB 36Q FLOPPYIOCBTYPE# 31Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 2 \FLOPPYLOCK) () \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 (\CFLOPPY.FORMATA0001)) CPM.DIRECTORY D1 (P 5 I P 3 @FCB P 2 FONT P 1 W P 0 H) @`Lgl Zl@i oJ lX YH o J` `go ` l?jML`MlлoM` lj` K ljoK ` lj` Kdlojoo` oK` oK` oK` oK` oK ` oK ` oK ` oK ` oK ` oK ` oK ` oK ` oK ` oK ` oK` oK` oK` oK` Mk]h(735Q PRINTNUM 716Q PRINTNUM 677Q PRINTNUM 660Q PRINTNUM 641Q PRINTNUM 622Q PRINTNUM 603Q PRINTNUM 564Q PRINTNUM 545Q PRINTNUM 526Q PRINTNUM 507Q PRINTNUM 470Q PRINTNUM 451Q PRINTNUM 432Q PRINTNUM 413Q PRINTNUM 374Q PRINTNUM 355Q PRINTNUM 336Q PRINTNUM 317Q PRIN1 255Q TAB 243Q PRIN1 235Q \CFLOPPY.GET.FCB.FILENAME 216Q CHCON1 213Q \CFLOPPY.GET.FCB.FILENAME 206Q TAB 174Q PRINTNUM 133Q CLEARW 124Q OPENW 120Q PUTWINDOWPROP 102Q DSPFONT 67Q CREATEW 60Q GETBOXREGION 53Q WIDTHIFWINDOW 45Q STRINGWIDTH 34Q HEIGHTIFWINDOW 17Q FONTCREATE) (732Q CPM.DIRECTORY.WINDOW 713Q CPM.DIRECTORY.WINDOW 674Q CPM.DIRECTORY.WINDOW 655Q CPM.DIRECTORY.WINDOW 636Q CPM.DIRECTORY.WINDOW 617Q CPM.DIRECTORY.WINDOW 600Q CPM.DIRECTORY.WINDOW 561Q CPM.DIRECTORY.WINDOW 542Q CPM.DIRECTORY.WINDOW 523Q CPM.DIRECTORY.WINDOW 504Q CPM.DIRECTORY.WINDOW 465Q CPM.DIRECTORY.WINDOW 446Q CPM.DIRECTORY.WINDOW 427Q CPM.DIRECTORY.WINDOW 410Q CPM.DIRECTORY.WINDOW 371Q CPM.DIRECTORY.WINDOW 352Q CPM.DIRECTORY.WINDOW 333Q CPM.DIRECTORY.WINDOW 314Q CPM.DIRECTORY.WINDOW 252Q CPM.DIRECTORY.WINDOW 240Q CPM.DIRECTORY.WINDOW 203Q CPM.DIRECTORY.WINDOW 171Q CPM.DIRECTORY.WINDOW 153Q \CFLOPPYDIRECTORY 130Q CPM.DIRECTORY.WINDOW 111Q REPAINTFN 106Q CPM.DIRECTORY.WINDOW 77Q CPM.DIRECTORY.WINDOW 72Q CPM.DIRECTORY.WINDOW 23Q FONTDESCRIPTOR 12Q GACHA 5 CPM.DIRECTORY.WINDOW) ( 723Q (FIX 4) 704Q (FIX 4) 665Q (FIX 4) 646Q (FIX 4) 627Q (FIX 4) 610Q (FIX 4) 571Q (FIX 4) 552Q (FIX 4) 533Q (FIX 4) 514Q (FIX 4) 475Q (FIX 4) 456Q (FIX 4) 437Q (FIX 4) 420Q (FIX 4) 401Q (FIX 4) 362Q (FIX 4) 343Q (FIX 4) 324Q (FIX 3) 311Q "?" 304Q "F" 274Q " " 230Q "********.***" 165Q (FIX 2) 115Q (CPM.DIRECTORY) 64Q "CPM DIRECTORY WINDOW" 41Q "A") (PRETTYCOMPRINT FLOPPYCOMS) (RPAQQ FLOPPYCOMS ((* FLOPPY "-- By Kelly Roach." *) (COMS (* "FACE" *) (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)) (FLOPPYIOCB.SIZE 16) (B128 0) (B256 1) (B512 2) (B1024 3) (IBM 0) (TROY 1) ( SINGLE 0) (DOUBLE 8) (NoBits 0) (IDLENGTH 3) (SEAL.PSECTOR9 49932) (VERSION.PSECTOR9 1) (SEAL.PMPAGE 13003) (VERSION.PMPAGE 1) (SEAL.PFILELIST 45771) (VERSION.PFILELIST 1) (PMPAGEETYPE.FREE 0) ( PMPAGEETYPE.FILE 1) (PMPAGEETYPE.PFILELIST 2) (PMPAGEETYPE.BADSECTORS 3) (SEAL.PLPAGE 43690) ( VERSION.PLPAGE 1) (VERSION.DATA 2222) (NAMEMAXLENGTH.PLPAGE 100) (FILETYPE.FREE 0) (FILETYPE.FILE 2052 ) (FILETYPE.PFILELIST 2054))) (INITRECORDS DISKADDRESS FLOPPYIOCB FLOPPYRESULT PSECTOR9 PMPAGE PLPAGE PFILELIST PFLE) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS DISKADDRESS FLOPPYIOCB FLOPPYRESULT PSECTOR9 PMPAGE PLPAGE PFILELIST PFLE)) (FNS \FLOPPY.TRANSLATEFLOPPYRESULT \FLOPPY.SEVERE.ERROR \FLOPPY.TRANSLATEPMPAGEETYPE \FLOPPY.TRANSLATEFILETYPE \FLOPPY.MTL.FIXP \FLOPPY.LTM.FIXP \FLOPPY.MTL.IDATE \FLOPPY.LTM.IDATE)) (COMS (* "HEAD" *) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS ( IBMS128 0) (IBMS256 1) (IBMS512 2) (IBMS1024 3) (IBMD128 4) (IBMD256 5) (IBMD512 6) (IBMD1024 7))) ( INITVARS (\FLOPPY.DEBUG NIL) (\FLOPPY.CYLINDERS 77) (\FLOPPY.TRACKSPERCYLINDER 2) ( \FLOPPY.SECTORSPERTRACK 15) (\FLOPPYMPERRORS 0) (\FLOPPYMPERRORSFLG NIL) (\FLOPPY.MOUNTEDP.DOVETIME NIL) (\FLOPPY.MOUNTEDP.DOVEANSWER NIL)) (FNS \FLOPPY.TRANSLATESETUP \FLOPPY.SETUP.IOCB \FLOPPY.CHECK.FLOPPYIOCB \FLOPPY.DENSITY \FLOPPY.SECTORLENGTH \FLOPPY.ENCODEDSECTORLENGTH \FLOPPY.GAP3 \FLOPPY.SECTORSPERTRACK \FLOPPY.RUN \FLOPPY.ERROR \FLOPPY.LOCK.BUFFER \FLOPPY.UNLOCK.BUFFER \FLOPPY.PREPAREFORCRASH \FLOPPY.COMMAND \FLOPPY.INITIALIZE \FLOPPY.NOP \FLOPPY.RECALIBRATE \FLOPPY.RECOVER \FLOPPY.TRANSFER \FLOPPY.READSECTOR \FLOPPY.WRITESECTOR \FLOPPY.FORMATTRACKS \FLOPPY.DISKCHANGECLEAR \FLOPPY.MOUNTEDP \FLOPPY.CAN.READP \FLOPPY.CAN.WRITEP \FLOPPY.WRITEABLEP \FLOPPY.TWOSIDEDP \FLOPPY.DUMP \FLOPPY.DEBUG)) (COMS (* "COMMON" *) (INITVARS (\FLOPPYFDEV NIL) ( \FLOPPYLOCK NIL) (\FLOPPY.SCRATCH.BUFFER NIL) (\FLOPPY.SCRATCH.BUFFER2 NIL) ( \FLOPPY.SCRATCH.FLOPPYIOCB NIL) (\FLOPPY.IBMS128.FLOPPYIOCB NIL) (\FLOPPY.IBMD256.FLOPPYIOCB NIL) ( \FLOPPY.IBMD512.FLOPPYIOCB NIL) (\FLOPPYIOCBADDR NIL) (\FLOPPYIOCB NIL) (\FLOPPYRESULT NIL)) ( GLOBALRESOURCES \FLOPPY.SCRATCH.FLOPPYIOCB \FLOPPY.IBMS128.FLOPPYIOCB \FLOPPY.IBMD256.FLOPPYIOCB \FLOPPY.IBMD512.FLOPPYIOCB \FLOPPY.SCRATCH.BUFFER \FLOPPY.SCRATCH.BUFFER2) (INITRECORDS FLOPPYSTREAM FILEGENOBJ GENFILESTATE) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS FLOPPYSTREAM FILEGENOBJ GENFILESTATE )) (FNS FLOPPY.RESTART FLOPPY.MODE \FLOPPY.SETUP.HARDWARE \FLOPPY.EVENTFN \FLOPPY.HOSTNAMEP \FLOPPY.ADDDEVICENAME \FLOPPY.ASSUREFILENAME \FLOPPY.OTHERINFO \FLOPPY.LEXASSOC \FLOPPY.LEXPUTASSOC \FLOPPY.LEXREMOVEASSOC \FLOPPY.CACHED.READ \FLOPPY.CACHED.WRITE \FLOPPY.OPEN \FLOPPY.CLOSE \FLOPPY.FLUSH \FLOPPY.UNCACHED.READ \FLOPPY.UNCACHED.WRITE \FLOPPY.EXISTSP \FLOPPY.BREAK \FLOPPY.MESSAGE \FLOPPY.BUFFER)) (COMS (* "PILOT" *) (INITVARS (\PFLOPPYPSECTOR9 NIL) ( \PFLOPPYPFILELIST NIL) (\PFLOPPYINFO NIL) (\PFLOPPYFDEV NIL)) (INITRECORDS PFALLOC PFINFO PFLOPPYFDEV) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS PFALLOC PFINFO PFLOPPYFDEV)) (FNS \PFLOPPY.INIT \PFLOPPY.OPEN \PFLOPPY.OPEN.PSECTOR9 \PFLOPPY.GET.PSECTOR9 \PFLOPPY.OPEN.PFILELIST \PFLOPPY.DAMAGED \PFLOPPY.OPENFILE \PFLOPPY.OPENFILE1 \PFLOPPY.OPENOLDFILE \PFLOPPY.OPENNEWFILE \PFLOPPY.ASSURESTREAM \PFLOPPY.GETFILEINFO \PFLOPPY.GETFILEINFO1 \PFLOPPY.SETFILEINFO \PFLOPPY.CLOSEFILE \PFLOPPY.CLOSEFILE1 \PFLOPPY.DELETEFILE \PFLOPPY.GENERATEFILES \PFLOPPY.NEXTFILEFN \PFLOPPY.FILEINFOFN \PFLOPPY.RENAMEFILE \PFLOPPY.STREAMS.AGAINST \PFLOPPY.STREAMS.USING \PFLOPPY.READPAGES \PFLOPPY.READPAGE \PFLOPPY.READPAGENO \PFLOPPY.WRITEPAGENO \PFLOPPY.PAGENOTODISKADDRESS \PFLOPPY.DISKADDRESSTOPAGENO \PFLOPPY.DIR.GET \PFLOPPY.DIR.PUT \PFLOPPY.DIR.REMOVE \PFLOPPY.DIR.VERSION \PFLOPPY.GETFILENAME \PFLOPPY.CREATE.PFILELIST \PFLOPPY.ADD.TO.PFILELIST \PFLOPPY.DELETE.FROM.PFILELIST \PFLOPPY.SAVE.PFILELIST \PFLOPPY.SAVE.PSECTOR9 \PFLOPPY.WRITEPAGES \PFLOPPY.WRITEPAGE \PFLOPPY.TRUNCATEFILE \PFLOPPY.FORMAT \PFLOPPY.CONFIRM \PFLOPPY.GET.NAME \PFLOPPY.SET.NAME)) (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 \PFLOPPY.ALLOCATE.WATCHDOG \PFLOPPY.FREE.PAGES \PFLOPPY.LENGTHS \PFLOPPY.STARTS \PFLOPPY.ICHECK \PFLOPPY.ALLOCATIONS)) (COMS (* "SERVICES" *) (FNS FLOPPY.FREE.PAGES FLOPPY.FORMAT FLOPPY.NAME FLOPPY.GET.NAME FLOPPY.SET.NAME FLOPPY.CAN.READP FLOPPY.CAN.WRITEP FLOPPY.WAIT.FOR.FLOPPY)) (COMS (* "SYSOUT" *) (INITVARS (\SFLOPPYINFO NIL) ( \SFLOPPYFDEV NIL) (\HFLOPPY.MAXPAGES NIL) (\SFLOPPY.PAGENO NIL) (\SFLOPPY.FLOPPYNO NIL) ( \SFLOPPY.PAGES NIL) (\SFLOPPY.HUGELENGTH NIL) (\SFLOPPY.HUGEPAGELENGTH NIL) (\SFLOPPY.IWRITEDATE NIL) (\SFLOPPY.FLOPPYNAME "Lisp Sysout ") (\SFLOPPY.FILENAME (QUOTE lisp.sysout)) (\SFLOPPY.RECOG NIL) ( \SFLOPPY.OTHERINFO NIL) (\SFLOPPY.SLOWFLG T) (\SFLOPPY.HACK.MODE NIL) (\SFLOPPY.HACK.STREAM NIL)) (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)) (COMS (* "HUGE" *) (INITVARS (\HFLOPPYINFO NIL) (\HFLOPPYFDEV NIL) (\HFLOPPY.MAXPAGES NIL) (\HFLOPPY.PAGENO NIL) (\HFLOPPY.FLOPPYNO NIL) (\HFLOPPY.HUGELENGTH NIL) ( \HFLOPPY.HUGEPAGELENGTH NIL) (\HFLOPPY.IWRITEDATE NIL) (\HFLOPPY.FLOPPYNAME NIL) (\HFLOPPY.FILENAME NIL) (\HFLOPPY.RECOG NIL) (\HFLOPPY.OTHERINFO NIL) (\HFLOPPY.SLOWFLG T)) (FNS \HFLOPPY.INIT \HFLOPPY.GETFILEINFO \HFLOPPY.OPENHUGEFILE \HFLOPPY.WRITEPAGES \HFLOPPY.WRITEPAGE \HFLOPPY.READPAGES \HFLOPPY.READPAGE \HFLOPPY.CLOSEHUGEFILE \HFLOPPY.INPUTFLOPPY \HFLOPPY.OUTPUTFLOPPY \HFLOPPY.CLOSEFLOPPY)) (COMS (* "SCAVENGE" *) (INITVARS (\FLOPPY.SCAVENGE.IDATE NIL)) (FNS FLOPPY.SCAVENGE \PFLOPPY.SCAVENGE \PFLOPPY.SCAVENGE.PMPAGES \PFLOPPY.SCAVENGE.PMPAGEA \PFLOPPY.SCAVENGE.PMPAGE.AFTER \PFLOPPY.SCAVENGE.PMPAGE.AFTER1 \PFLOPPY.SCAVENGE.PLPAGES \PFLOPPY.SCAVENGE.PSECTOR9 \PFLOPPY.SCAVENGE.PFILELIST)) (COMS (* "COPY" *) (FNS FLOPPY.TO.FILE FLOPPY.FROM.FILE)) (COMS (* "COMPACT" *) (FNS FLOPPY.COMPACT \PFLOPPY.COMPACT \PFLOPPY.COMPACT.PFALLOCS \PFLOPPY.COMPACT.PFALLOC \PFLOPPY.COMPACT.PSECTOR9 \PFLOPPY.COMPACT.PFILELIST)) (COMS (* "ARCHIVE" *) (FNS FLOPPY.ARCHIVE FLOPPY.UNARCHIVE)) (COMS (* "CPM" *) (CONSTANTS (CPMDELETEMARK 229) (CPMFILEMARK 0)) (INITVARS (\CFLOPPYINFO NIL) (\CFLOPPYCALLOCS NIL) (\CFLOPPYDIR NIL) (\CFLOPPYFDEV NIL) (\CFLOPPYDIRECTORY NIL) (\CFLOPPYBLANKSECTOR NIL) ( \CFLOPPYSECTORMAP NIL) (\CFLOPPYDISKMAP NIL) (CPM.DIRECTORY.WINDOW NIL)) (INITRECORDS CFLOPPYFDEV CINFO CALLOC FCB @FCB) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS CFLOPPYFDEV CINFO CALLOC FCB @FCB)) ( FNS \CFLOPPY.GET.FCB.FILENAME \CFLOPPY.SET.FCB.FILENAME \CFLOPPY.INIT \CFLOPPY.OPEN \CFLOPPY.OPEN.DIRECTORY \CFLOPPY.OPENFILE \CFLOPPY.OPENFILE1 \CFLOPPY.OPENOLDFILE \CFLOPPY.OPENNEWFILE \CFLOPPY.ASSURESTREAM \CFLOPPY.GETFILEINFO \CFLOPPY.GETFILEINFO1 \CFLOPPY.SETFILEINFO \CFLOPPY.CLOSEFILE \CFLOPPY.CLOSEFILE1 \CFLOPPY.DELETEFILE \CFLOPPY.GETFILENAME \CFLOPPY.GENERATEFILES \CFLOPPY.NEXTFILEFN \CFLOPPY.FILEINFOFN \CFLOPPY.RENAMEFILE \CFLOPPY.STREAMS.AGAINST \CFLOPPY.STREAMS.USING \CFLOPPY.READPAGES \CFLOPPY.READPAGE \CFLOPPY.PHYSICAL.RECORDNO \CFLOPPY.READRECORDNO \CFLOPPY.WRITERECORDNO \CFLOPPY.RECORDNOTODISKADDRESS \CFLOPPY.DIR.GET \CFLOPPY.DIR.PUT \CFLOPPY.DIR.REMOVE \CFLOPPY.WRITEPAGES \CFLOPPY.WRITEPAGE \CFLOPPY.TRUNCATEFILE \CFLOPPY.ALLOCATE.FCB \CFLOPPY.ALLOCATE.GROUP \CFLOPPY.ALLOCATE \CFLOPPY.TRUNCATE \CFLOPPY.DEALLOCATE \CFLOPPY.EXTEND \CFLOPPY.SAVE.CHANGES \CFLOPPY.ICHECK \CFLOPPY.ICHECK.CALLOC \CFLOPPY.FREE.PAGES \CFLOPPY.FORMAT CPM.DIRECTORY)) (GLOBALVARS \FLOPPY.DEBUG \FLOPPY.INSPECTW \FLOPPYFDEV \FLOPPYLOCK \FLOPPYIOCBADDR \FLOPPYIOCB \FLOPPYRESULT \FLOPPY.MODE.BEFORE.EVENT \PFLOPPYPSECTOR9 \PFLOPPYPFILELIST \PFLOPPYINFO \PFLOPPYFDEV \FLOPPY.ALLOCATIONS.BITMAP \SFLOPPYINFO \SFLOPPYFDEV \HFLOPPY.MAXPAGES \SFLOPPY.PAGENO \SFLOPPY.FLOPPYNO \SFLOPPY.HUGELENGTH \SFLOPPY.HUGEPAGELENGTH \SFLOPPY.IWRITEDATE \SFLOPPY.FILENAME \SFLOPPY.RECOG \SFLOPPY.FLOPPYNAME \SFLOPPY.SLOWFLG \HFLOPPYINFO \HFLOPPYFDEV \HFLOPPY.MAXPAGES \HFLOPPY.PAGENO \HFLOPPY.FLOPPYNO \HFLOPPY.HUGELENGTH \HFLOPPY.HUGEPAGELENGTH \HFLOPPY.IWRITEDATE \HFLOPPY.RECOG \HFLOPPY.FILENAME \HFLOPPY.SLOWFLG \FLOPPY.SCAVENGE.IDATE \CFLOPPYINFO \CFLOPPYCALLOCS \CFLOPPYDIR \CFLOPPYFDEV \CFLOPPYDIRECTORY \CFLOPPYBLANKSECTOR \CFLOPPYSECTORMAP \CFLOPPYDISKMAP CPM.DIRECTORY.WINDOW) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( FLOPPY.RESTART))))) (/DECLAREDATATYPE (QUOTE FLOPPYIOCB) (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)) (QUOTE ((FLOPPYIOCB 0 (BITS . 15)) (FLOPPYIOCB 1 (BITS . 15)) (FLOPPYIOCB 2 (BITS . 15)) (FLOPPYIOCB 3 (BITS . 15)) (FLOPPYIOCB 4 (BITS . 11)) (FLOPPYIOCB 4 (BITS . 195)) (FLOPPYIOCB 5 FIXP) (FLOPPYIOCB 7 (BITS . 15)) (FLOPPYIOCB 8 (BITS . 15)) (FLOPPYIOCB 9 (FLAGBITS . 0)) (FLOPPYIOCB 9 (BITS . 30)) (FLOPPYIOCB 10 (BITS . 15)) ( FLOPPYIOCB 11 (BITS . 7)) (FLOPPYIOCB 11 (BITS . 135)) (FLOPPYIOCB 12 (BITS . 7)) (FLOPPYIOCB 12 (BITS . 135)) (FLOPPYIOCB 13 (BITS . 15)) (FLOPPYIOCB 14 (BITS . 15)) (FLOPPYIOCB 15 (BITS . 15)))) (QUOTE 16)) (/DECLAREDATATYPE (QUOTE PSECTOR9) (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)) ( QUOTE ((PSECTOR9 0 (BITS . 15)) (PSECTOR9 1 (BITS . 15)) (PSECTOR9 2 (BITS . 15)) (PSECTOR9 3 (BITS . 15)) (PSECTOR9 4 (BITS . 15)) (PSECTOR9 5 (BITS . 15)) (PSECTOR9 6 SWAPPEDFIXP) (PSECTOR9 8 (BITS . 15 )) (PSECTOR9 9 SWAPPEDFIXP) (PSECTOR9 11 (BITS . 15)) (PSECTOR9 12 (BITS . 15)) (PSECTOR9 13 (BITS . 15)) (PSECTOR9 14 (BITS . 15)) (PSECTOR9 15 (BITS . 15)) (PSECTOR9 16 (BITS . 15)) (PSECTOR9 17 (BITS . 15)) (PSECTOR9 18 SWAPPEDFIXP) (PSECTOR9 20 (FLAGBITS . 0)) (PSECTOR9 20 (BITS . 30)) (PSECTOR9 21 (BITS . 15)) (PSECTOR9 22 (BITS . 15)) (PSECTOR9 23 (BITS . 15)) (PSECTOR9 24 (BITS . 15)) (PSECTOR9 25 (BITS . 15)) (PSECTOR9 26 (BITS . 15)) (PSECTOR9 27 (BITS . 15)) (PSECTOR9 28 (BITS . 15)) ( PSECTOR9 29 (BITS . 15)) (PSECTOR9 30 (BITS . 15)) (PSECTOR9 31 (BITS . 15)) (PSECTOR9 32 (BITS . 15)) (PSECTOR9 33 (BITS . 15)) (PSECTOR9 34 (BITS . 15)) (PSECTOR9 35 (BITS . 15)) (PSECTOR9 36 (BITS . 15 )) (PSECTOR9 37 (BITS . 15)) (PSECTOR9 38 (BITS . 15)) (PSECTOR9 39 (BITS . 15)) (PSECTOR9 40 (BITS . 15)) (PSECTOR9 41 (BITS . 15)) (PSECTOR9 42 (BITS . 15)) (PSECTOR9 43 (BITS . 15)) (PSECTOR9 44 (BITS . 15)) (PSECTOR9 45 (BITS . 15)) (PSECTOR9 46 (BITS . 15)) (PSECTOR9 47 (BITS . 15)) (PSECTOR9 48 ( BITS . 15)) (PSECTOR9 49 (BITS . 15)) (PSECTOR9 50 (BITS . 15)) (PSECTOR9 51 (BITS . 15)) (PSECTOR9 52 (BITS . 15)) (PSECTOR9 53 (BITS . 15)) (PSECTOR9 54 (BITS . 15)) (PSECTOR9 55 (BITS . 15)) (PSECTOR9 56 (BITS . 15)) (PSECTOR9 57 (BITS . 15)) (PSECTOR9 58 (BITS . 15)) (PSECTOR9 59 (BITS . 15)) ( PSECTOR9 60 (BITS . 15)) (PSECTOR9 61 (BITS . 15)) (PSECTOR9 62 (BITS . 15)) (PSECTOR9 63 (BITS . 15)) (PSECTOR9 64 (BITS . 15)) (PSECTOR9 65 (BITS . 15)) (PSECTOR9 66 (BITS . 15)) (PSECTOR9 67 (BITS . 15 )) (PSECTOR9 68 (BITS . 15)) (PSECTOR9 69 (BITS . 15)) (PSECTOR9 70 (BITS . 15)) (PSECTOR9 71 (BITS . 15)) (PSECTOR9 72 (BITS . 15)) (PSECTOR9 73 (BITS . 15)) (PSECTOR9 74 (BITS . 15)) (PSECTOR9 75 (BITS . 15)) (PSECTOR9 76 (BITS . 15)) (PSECTOR9 77 (BITS . 15)) (PSECTOR9 78 (BITS . 15)) (PSECTOR9 79 ( BITS . 15)) (PSECTOR9 80 (BITS . 15)) (PSECTOR9 81 (BITS . 15)) (PSECTOR9 82 (BITS . 15)) (PSECTOR9 83 (BITS . 15)) (PSECTOR9 84 (BITS . 15)) (PSECTOR9 85 (BITS . 15)) (PSECTOR9 86 (BITS . 15)) (PSECTOR9 87 (BITS . 15)) (PSECTOR9 88 (BITS . 15)) (PSECTOR9 89 (BITS . 15)) (PSECTOR9 90 (BITS . 15)) ( PSECTOR9 91 (BITS . 15)) (PSECTOR9 92 (BITS . 15)) (PSECTOR9 93 (BITS . 15)) (PSECTOR9 94 (BITS . 15)) (PSECTOR9 95 (BITS . 15)) (PSECTOR9 96 (BITS . 15)) (PSECTOR9 97 (BITS . 15)) (PSECTOR9 98 (BITS . 15 )) (PSECTOR9 99 (BITS . 15)) (PSECTOR9 100 (BITS . 15)) (PSECTOR9 101 (BITS . 15)) (PSECTOR9 102 (BITS . 15)) (PSECTOR9 103 (BITS . 15)) (PSECTOR9 104 (BITS . 15)) (PSECTOR9 105 (BITS . 15)) (PSECTOR9 106 (BITS . 15)) (PSECTOR9 107 (BITS . 15)) (PSECTOR9 108 (BITS . 15)) (PSECTOR9 109 (BITS . 15)) ( PSECTOR9 110 (BITS . 15)) (PSECTOR9 111 (BITS . 15)) (PSECTOR9 112 (BITS . 15)) (PSECTOR9 113 (BITS . 15)) (PSECTOR9 114 (BITS . 15)) (PSECTOR9 115 (BITS . 15)) (PSECTOR9 116 (BITS . 15)) (PSECTOR9 117 ( BITS . 15)) (PSECTOR9 118 (BITS . 15)) (PSECTOR9 119 (BITS . 15)) (PSECTOR9 120 (BITS . 15)) (PSECTOR9 121 (BITS . 15)) (PSECTOR9 122 (BITS . 15)) (PSECTOR9 123 (BITS . 15)) (PSECTOR9 124 (BITS . 15)) ( PSECTOR9 125 (BITS . 15)) (PSECTOR9 126 (BITS . 15)) (PSECTOR9 127 (BITS . 15)))) (QUOTE 128)) (/DECLAREDATATYPE (QUOTE PMPAGE) (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)) (QUOTE ((PMPAGE 0 (BITS . 15)) (PMPAGE 1 (BITS . 15)) (PMPAGE 2 SWAPPEDFIXP ) (PMPAGE 4 (BITS . 15)) (PMPAGE 5 SWAPPEDFIXP) (PMPAGE 7 (BITS . 15)) (PMPAGE 8 (BITS . 15)) (PMPAGE 9 (BITS . 15)) (PMPAGE 10 (BITS . 15)) (PMPAGE 11 (BITS . 15)) (PMPAGE 12 (BITS . 15)) (PMPAGE 13 ( BITS . 15)) (PMPAGE 14 (BITS . 15)) (PMPAGE 15 (BITS . 15)) (PMPAGE 16 (BITS . 15)) (PMPAGE 17 (BITS . 15)) (PMPAGE 18 (BITS . 15)) (PMPAGE 19 (BITS . 15)) (PMPAGE 20 (BITS . 15)) (PMPAGE 21 (BITS . 15) ) (PMPAGE 22 (BITS . 15)) (PMPAGE 23 (BITS . 15)) (PMPAGE 24 (BITS . 15)) (PMPAGE 25 (BITS . 15)) ( PMPAGE 26 (BITS . 15)) (PMPAGE 27 (BITS . 15)) (PMPAGE 28 (BITS . 15)) (PMPAGE 29 (BITS . 15)) (PMPAGE 30 (BITS . 15)) (PMPAGE 31 (BITS . 15)) (PMPAGE 32 (BITS . 15)) (PMPAGE 33 (BITS . 15)) (PMPAGE 34 ( BITS . 15)) (PMPAGE 35 (BITS . 15)) (PMPAGE 36 (BITS . 15)) (PMPAGE 37 (BITS . 15)) (PMPAGE 38 (BITS . 15)) (PMPAGE 39 (BITS . 15)) (PMPAGE 40 (BITS . 15)) (PMPAGE 41 (BITS . 15)) (PMPAGE 42 (BITS . 15) ) (PMPAGE 43 (BITS . 15)) (PMPAGE 44 (BITS . 15)) (PMPAGE 45 (BITS . 15)) (PMPAGE 46 (BITS . 15)) ( PMPAGE 47 (BITS . 15)) (PMPAGE 48 (BITS . 15)) (PMPAGE 49 (BITS . 15)) (PMPAGE 50 (BITS . 15)) (PMPAGE 51 (BITS . 15)) (PMPAGE 52 (BITS . 15)) (PMPAGE 53 (BITS . 15)) (PMPAGE 54 (BITS . 15)) (PMPAGE 55 ( BITS . 15)) (PMPAGE 56 (BITS . 15)) (PMPAGE 57 (BITS . 15)) (PMPAGE 58 (BITS . 15)) (PMPAGE 59 (BITS . 15)) (PMPAGE 60 (BITS . 15)) (PMPAGE 61 (BITS . 15)) (PMPAGE 62 (BITS . 15)) (PMPAGE 63 (BITS . 15) ) (PMPAGE 64 (BITS . 15)) (PMPAGE 65 (BITS . 15)) (PMPAGE 66 (BITS . 15)) (PMPAGE 67 (BITS . 15)) ( PMPAGE 68 (BITS . 15)) (PMPAGE 69 (BITS . 15)) (PMPAGE 70 (BITS . 15)) (PMPAGE 71 (BITS . 15)) (PMPAGE 72 (BITS . 15)) (PMPAGE 73 (BITS . 15)) (PMPAGE 74 (BITS . 15)) (PMPAGE 75 (BITS . 15)) (PMPAGE 76 ( BITS . 15)) (PMPAGE 77 (BITS . 15)) (PMPAGE 78 (BITS . 15)) (PMPAGE 79 (BITS . 15)) (PMPAGE 80 (BITS . 15)) (PMPAGE 81 (BITS . 15)) (PMPAGE 82 (BITS . 15)) (PMPAGE 83 (BITS . 15)) (PMPAGE 84 (BITS . 15) ) (PMPAGE 85 (BITS . 15)) (PMPAGE 86 (BITS . 15)) (PMPAGE 87 (BITS . 15)) (PMPAGE 88 (BITS . 15)) ( PMPAGE 89 (BITS . 15)) (PMPAGE 90 (BITS . 15)) (PMPAGE 91 (BITS . 15)) (PMPAGE 92 (BITS . 15)) (PMPAGE 93 (BITS . 15)) (PMPAGE 94 (BITS . 15)) (PMPAGE 95 (BITS . 15)) (PMPAGE 96 (BITS . 15)) (PMPAGE 97 ( BITS . 15)) (PMPAGE 98 (BITS . 15)) (PMPAGE 99 (BITS . 15)) (PMPAGE 100 (BITS . 15)) (PMPAGE 101 (BITS . 15)) (PMPAGE 102 (BITS . 15)) (PMPAGE 103 (BITS . 15)) (PMPAGE 104 (BITS . 15)) (PMPAGE 105 (BITS . 15)) (PMPAGE 106 (BITS . 15)) (PMPAGE 107 (BITS . 15)) (PMPAGE 108 (BITS . 15)) (PMPAGE 109 (BITS . 15)) (PMPAGE 110 (BITS . 15)) (PMPAGE 111 (BITS . 15)) (PMPAGE 112 (BITS . 15)) (PMPAGE 113 (BITS . 15)) (PMPAGE 114 (BITS . 15)) (PMPAGE 115 (BITS . 15)) (PMPAGE 116 (BITS . 15)) (PMPAGE 117 (BITS . 15)) (PMPAGE 118 (BITS . 15)) (PMPAGE 119 (BITS . 15)) (PMPAGE 120 (BITS . 15)) (PMPAGE 121 (BITS . 15)) (PMPAGE 122 (BITS . 15)) (PMPAGE 123 (BITS . 15)) (PMPAGE 124 (BITS . 15)) (PMPAGE 125 (BITS . 15)) (PMPAGE 126 (BITS . 15)) (PMPAGE 127 (BITS . 15)) (PMPAGE 128 (BITS . 15)) (PMPAGE 129 SWAPPEDFIXP) (PMPAGE 131 (BITS . 15)) (PMPAGE 132 SWAPPEDFIXP) (PMPAGE 134 (BITS . 15)) (PMPAGE 135 ( BITS . 15)) (PMPAGE 136 (BITS . 15)) (PMPAGE 137 (BITS . 15)) (PMPAGE 138 (BITS . 15)) (PMPAGE 139 ( BITS . 15)) (PMPAGE 140 (BITS . 15)) (PMPAGE 141 (BITS . 15)) (PMPAGE 142 (BITS . 15)) (PMPAGE 143 ( BITS . 15)) (PMPAGE 144 (BITS . 15)) (PMPAGE 145 (BITS . 15)) (PMPAGE 146 (BITS . 15)) (PMPAGE 147 ( BITS . 15)) (PMPAGE 148 (BITS . 15)) (PMPAGE 149 (BITS . 15)) (PMPAGE 150 (BITS . 15)) (PMPAGE 151 ( BITS . 15)) (PMPAGE 152 (BITS . 15)) (PMPAGE 153 (BITS . 15)) (PMPAGE 154 (BITS . 15)) (PMPAGE 155 ( BITS . 15)) (PMPAGE 156 (BITS . 15)) (PMPAGE 157 (BITS . 15)) (PMPAGE 158 (BITS . 15)) (PMPAGE 159 ( BITS . 15)) (PMPAGE 160 (BITS . 15)) (PMPAGE 161 (BITS . 15)) (PMPAGE 162 (BITS . 15)) (PMPAGE 163 ( BITS . 15)) (PMPAGE 164 (BITS . 15)) (PMPAGE 165 (BITS . 15)) (PMPAGE 166 (BITS . 15)) (PMPAGE 167 ( BITS . 15)) (PMPAGE 168 (BITS . 15)) (PMPAGE 169 (BITS . 15)) (PMPAGE 170 (BITS . 15)) (PMPAGE 171 ( BITS . 15)) (PMPAGE 172 (BITS . 15)) (PMPAGE 173 (BITS . 15)) (PMPAGE 174 (BITS . 15)) (PMPAGE 175 ( BITS . 15)) (PMPAGE 176 (BITS . 15)) (PMPAGE 177 (BITS . 15)) (PMPAGE 178 (BITS . 15)) (PMPAGE 179 ( BITS . 15)) (PMPAGE 180 (BITS . 15)) (PMPAGE 181 (BITS . 15)) (PMPAGE 182 (BITS . 15)) (PMPAGE 183 ( BITS . 15)) (PMPAGE 184 (BITS . 15)) (PMPAGE 185 (BITS . 15)) (PMPAGE 186 (BITS . 15)) (PMPAGE 187 ( BITS . 15)) (PMPAGE 188 (BITS . 15)) (PMPAGE 189 (BITS . 15)) (PMPAGE 190 (BITS . 15)) (PMPAGE 191 ( BITS . 15)) (PMPAGE 192 (BITS . 15)) (PMPAGE 193 (BITS . 15)) (PMPAGE 194 (BITS . 15)) (PMPAGE 195 ( BITS . 15)) (PMPAGE 196 (BITS . 15)) (PMPAGE 197 (BITS . 15)) (PMPAGE 198 (BITS . 15)) (PMPAGE 199 ( BITS . 15)) (PMPAGE 200 (BITS . 15)) (PMPAGE 201 (BITS . 15)) (PMPAGE 202 (BITS . 15)) (PMPAGE 203 ( BITS . 15)) (PMPAGE 204 (BITS . 15)) (PMPAGE 205 (BITS . 15)) (PMPAGE 206 (BITS . 15)) (PMPAGE 207 ( BITS . 15)) (PMPAGE 208 (BITS . 15)) (PMPAGE 209 (BITS . 15)) (PMPAGE 210 (BITS . 15)) (PMPAGE 211 ( BITS . 15)) (PMPAGE 212 (BITS . 15)) (PMPAGE 213 (BITS . 15)) (PMPAGE 214 (BITS . 15)) (PMPAGE 215 ( BITS . 15)) (PMPAGE 216 (BITS . 15)) (PMPAGE 217 (BITS . 15)) (PMPAGE 218 (BITS . 15)) (PMPAGE 219 ( BITS . 15)) (PMPAGE 220 (BITS . 15)) (PMPAGE 221 (BITS . 15)) (PMPAGE 222 (BITS . 15)) (PMPAGE 223 ( BITS . 15)) (PMPAGE 224 (BITS . 15)) (PMPAGE 225 (BITS . 15)) (PMPAGE 226 (BITS . 15)) (PMPAGE 227 ( BITS . 15)) (PMPAGE 228 (BITS . 15)) (PMPAGE 229 (BITS . 15)) (PMPAGE 230 (BITS . 15)) (PMPAGE 231 ( BITS . 15)) (PMPAGE 232 (BITS . 15)) (PMPAGE 233 (BITS . 15)) (PMPAGE 234 (BITS . 15)) (PMPAGE 235 ( BITS . 15)) (PMPAGE 236 (BITS . 15)) (PMPAGE 237 (BITS . 15)) (PMPAGE 238 (BITS . 15)) (PMPAGE 239 ( BITS . 15)) (PMPAGE 240 (BITS . 15)) (PMPAGE 241 (BITS . 15)) (PMPAGE 242 (BITS . 15)) (PMPAGE 243 ( BITS . 15)) (PMPAGE 244 (BITS . 15)) (PMPAGE 245 (BITS . 15)) (PMPAGE 246 (BITS . 15)) (PMPAGE 247 ( BITS . 15)) (PMPAGE 248 (BITS . 15)) (PMPAGE 249 (BITS . 15)) (PMPAGE 250 (BITS . 15)) (PMPAGE 251 ( BITS . 15)) (PMPAGE 252 (BITS . 15)) (PMPAGE 253 (BITS . 15)) (PMPAGE 254 (BITS . 15)) (PMPAGE 255 ( BITS . 15)))) (QUOTE 256)) (/DECLAREDATATYPE (QUOTE PLPAGE) (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)) (QUOTE ((PLPAGE 0 (BITS . 15)) (PLPAGE 1 (BITS . 15)) (PLPAGE 2 ( BITS . 15)) (PLPAGE 3 SWAPPEDFIXP) (PLPAGE 5 SWAPPEDFIXP) (PLPAGE 7 SWAPPEDFIXP) (PLPAGE 9 SWAPPEDFIXP ) (PLPAGE 11 SWAPPEDFIXP) (PLPAGE 13 SWAPPEDFIXP) (PLPAGE 15 (BITS . 15)) (PLPAGE 16 (BITS . 15)) ( PLPAGE 17 (BITS . 15)) (PLPAGE 18 (BITS . 15)) (PLPAGE 19 (BITS . 15)) (PLPAGE 20 (BITS . 15)) (PLPAGE 21 (BITS . 15)) (PLPAGE 22 (BITS . 15)) (PLPAGE 23 (BITS . 15)) (PLPAGE 24 (BITS . 15)) (PLPAGE 25 ( BITS . 15)) (PLPAGE 26 (BITS . 15)) (PLPAGE 27 (BITS . 15)) (PLPAGE 28 (BITS . 15)) (PLPAGE 29 (BITS . 15)) (PLPAGE 30 (BITS . 15)) (PLPAGE 31 (BITS . 15)) (PLPAGE 32 (BITS . 15)) (PLPAGE 33 (BITS . 15) ) (PLPAGE 34 (BITS . 15)) (PLPAGE 35 (BITS . 15)) (PLPAGE 36 (BITS . 15)) (PLPAGE 37 (BITS . 15)) ( PLPAGE 38 (BITS . 15)) (PLPAGE 39 (BITS . 15)) (PLPAGE 40 (BITS . 15)) (PLPAGE 41 (BITS . 15)) (PLPAGE 42 (BITS . 15)) (PLPAGE 43 (BITS . 15)) (PLPAGE 44 (BITS . 15)) (PLPAGE 45 (BITS . 15)) (PLPAGE 46 ( BITS . 15)) (PLPAGE 47 (BITS . 15)) (PLPAGE 48 (BITS . 15)) (PLPAGE 49 (BITS . 15)) (PLPAGE 50 (BITS . 15)) (PLPAGE 51 (BITS . 15)) (PLPAGE 52 (BITS . 15)) (PLPAGE 53 (BITS . 15)) (PLPAGE 54 (BITS . 15) ) (PLPAGE 55 (BITS . 15)) (PLPAGE 56 (BITS . 15)) (PLPAGE 57 (BITS . 15)) (PLPAGE 58 (BITS . 15)) ( PLPAGE 59 (BITS . 15)) (PLPAGE 60 (BITS . 15)) (PLPAGE 61 (BITS . 15)) (PLPAGE 62 (BITS . 15)) (PLPAGE 63 (BITS . 15)) (PLPAGE 64 (BITS . 15)) (PLPAGE 65 (BITS . 15)) (PLPAGE 66 (BITS . 15)) (PLPAGE 67 ( BITS . 15)) (PLPAGE 68 (BITS . 15)) (PLPAGE 69 (BITS . 15)) (PLPAGE 70 (BITS . 15)) (PLPAGE 71 (BITS . 15)) (PLPAGE 72 (BITS . 15)) (PLPAGE 73 (BITS . 15)) (PLPAGE 74 (BITS . 15)) (PLPAGE 75 (BITS . 15) ) (PLPAGE 76 (BITS . 15)) (PLPAGE 77 (BITS . 15)) (PLPAGE 78 (BITS . 15)) (PLPAGE 79 (BITS . 15)) ( PLPAGE 80 (BITS . 15)) (PLPAGE 81 (BITS . 15)) (PLPAGE 82 (BITS . 15)) (PLPAGE 83 (BITS . 15)) (PLPAGE 84 (BITS . 15)) (PLPAGE 85 (BITS . 15)) (PLPAGE 86 (BITS . 15)) (PLPAGE 87 (BITS . 15)) (PLPAGE 88 ( BITS . 15)) (PLPAGE 89 (BITS . 15)) (PLPAGE 90 (BITS . 15)) (PLPAGE 91 (BITS . 15)) (PLPAGE 92 (BITS . 15)) (PLPAGE 93 (BITS . 15)) (PLPAGE 94 (BITS . 15)) (PLPAGE 95 (BITS . 15)) (PLPAGE 96 (BITS . 15) ) (PLPAGE 97 (BITS . 15)) (PLPAGE 98 (BITS . 15)) (PLPAGE 99 (BITS . 15)) (PLPAGE 100 (BITS . 15)) ( PLPAGE 101 (BITS . 15)) (PLPAGE 102 (BITS . 15)) (PLPAGE 103 (BITS . 15)) (PLPAGE 104 (BITS . 15)) ( PLPAGE 105 (BITS . 15)) (PLPAGE 106 (BITS . 15)) (PLPAGE 107 (BITS . 15)) (PLPAGE 108 (BITS . 15)) ( PLPAGE 109 (BITS . 15)) (PLPAGE 110 (BITS . 15)) (PLPAGE 111 (BITS . 15)) (PLPAGE 112 (BITS . 15)) ( PLPAGE 113 (BITS . 15)) (PLPAGE 114 (BITS . 15)) (PLPAGE 115 (BITS . 15)) (PLPAGE 116 (BITS . 15)) ( PLPAGE 117 (BITS . 15)) (PLPAGE 118 (BITS . 15)) (PLPAGE 119 (BITS . 15)) (PLPAGE 120 (BITS . 15)) ( PLPAGE 121 (BITS . 15)) (PLPAGE 122 (BITS . 15)) (PLPAGE 123 (BITS . 15)) (PLPAGE 124 (BITS . 15)) ( PLPAGE 125 (BITS . 15)) (PLPAGE 126 (BITS . 15)) (PLPAGE 127 (BITS . 15)) (PLPAGE 128 (BITS . 15)) ( PLPAGE 129 (BITS . 15)) (PLPAGE 130 (BITS . 15)) (PLPAGE 131 (BITS . 15)) (PLPAGE 132 (BITS . 15)) ( PLPAGE 133 (BITS . 15)) (PLPAGE 134 (BITS . 15)) (PLPAGE 135 (BITS . 15)) (PLPAGE 136 (BITS . 15)) ( PLPAGE 137 (BITS . 15)) (PLPAGE 138 (BITS . 15)) (PLPAGE 139 (BITS . 15)) (PLPAGE 140 (BITS . 15)) ( PLPAGE 141 (BITS . 15)) (PLPAGE 142 (BITS . 15)) (PLPAGE 143 (BITS . 15)) (PLPAGE 144 (BITS . 15)) ( PLPAGE 145 (BITS . 15)) (PLPAGE 146 (BITS . 15)) (PLPAGE 147 (BITS . 15)) (PLPAGE 148 (BITS . 15)) ( PLPAGE 149 (BITS . 15)) (PLPAGE 150 (BITS . 15)) (PLPAGE 151 (BITS . 15)) (PLPAGE 152 (BITS . 15)) ( PLPAGE 153 (BITS . 15)) (PLPAGE 154 (BITS . 15)) (PLPAGE 155 (BITS . 15)) (PLPAGE 156 (BITS . 15)) ( PLPAGE 157 (BITS . 15)) (PLPAGE 158 (BITS . 15)) (PLPAGE 159 (BITS . 15)) (PLPAGE 160 (BITS . 15)) ( PLPAGE 161 (BITS . 15)) (PLPAGE 162 (BITS . 15)) (PLPAGE 163 (BITS . 15)) (PLPAGE 164 (BITS . 15)) ( PLPAGE 165 (BITS . 15)) (PLPAGE 166 (BITS . 15)) (PLPAGE 167 (BITS . 15)) (PLPAGE 168 (BITS . 15)) ( PLPAGE 169 (BITS . 15)) (PLPAGE 170 (BITS . 15)) (PLPAGE 171 (BITS . 15)) (PLPAGE 172 (BITS . 15)) ( PLPAGE 173 (BITS . 15)) (PLPAGE 174 (BITS . 15)) (PLPAGE 175 (BITS . 15)) (PLPAGE 176 (BITS . 15)) ( PLPAGE 177 (BITS . 15)) (PLPAGE 178 (BITS . 15)) (PLPAGE 179 (BITS . 15)) (PLPAGE 180 (BITS . 15)) ( PLPAGE 181 (BITS . 15)) (PLPAGE 182 (BITS . 15)) (PLPAGE 183 (BITS . 15)) (PLPAGE 184 (BITS . 15)) ( PLPAGE 185 (BITS . 15)) (PLPAGE 186 (BITS . 15)) (PLPAGE 187 (BITS . 15)) (PLPAGE 188 (BITS . 15)) ( PLPAGE 189 (BITS . 15)) (PLPAGE 190 (BITS . 15)) (PLPAGE 191 (BITS . 15)) (PLPAGE 192 (BITS . 15)) ( PLPAGE 193 (BITS . 15)) (PLPAGE 194 (BITS . 15)) (PLPAGE 195 (BITS . 15)) (PLPAGE 196 (BITS . 15)) ( PLPAGE 197 (BITS . 15)) (PLPAGE 198 (BITS . 15)) (PLPAGE 199 (BITS . 15)) (PLPAGE 200 (BITS . 15)) ( PLPAGE 201 (BITS . 15)) (PLPAGE 202 (BITS . 15)) (PLPAGE 203 (BITS . 15)) (PLPAGE 204 (BITS . 15)) ( PLPAGE 205 (BITS . 15)) (PLPAGE 206 (BITS . 15)) (PLPAGE 207 (BITS . 15)) (PLPAGE 208 (BITS . 15)) ( PLPAGE 209 (BITS . 15)) (PLPAGE 210 (BITS . 15)) (PLPAGE 211 (BITS . 15)) (PLPAGE 212 (BITS . 15)) ( PLPAGE 213 (BITS . 15)) (PLPAGE 214 (BITS . 15)) (PLPAGE 215 (BITS . 15)) (PLPAGE 216 (BITS . 15)) ( PLPAGE 217 (BITS . 15)) (PLPAGE 218 (BITS . 15)) (PLPAGE 219 (BITS . 15)) (PLPAGE 220 (BITS . 15)) ( PLPAGE 221 (BITS . 15)) (PLPAGE 222 (BITS . 15)) (PLPAGE 223 (BITS . 15)) (PLPAGE 224 (BITS . 15)) ( PLPAGE 225 (BITS . 15)) (PLPAGE 226 (BITS . 15)) (PLPAGE 227 (BITS . 15)) (PLPAGE 228 (BITS . 15)) ( PLPAGE 229 (BITS . 15)) (PLPAGE 230 (BITS . 15)) (PLPAGE 231 (BITS . 15)) (PLPAGE 232 (BITS . 15)) ( PLPAGE 233 (BITS . 15)) (PLPAGE 234 (BITS . 15)) (PLPAGE 235 (BITS . 15)) (PLPAGE 236 (BITS . 15)) ( PLPAGE 237 (BITS . 15)) (PLPAGE 238 (BITS . 15)) (PLPAGE 239 (BITS . 15)) (PLPAGE 240 (BITS . 15)) ( PLPAGE 241 (BITS . 15)) (PLPAGE 242 (BITS . 15)) (PLPAGE 243 (BITS . 15)) (PLPAGE 244 (BITS . 15)) ( PLPAGE 245 (BITS . 15)) (PLPAGE 246 (BITS . 15)) (PLPAGE 247 (BITS . 15)) (PLPAGE 248 (BITS . 15)) ( PLPAGE 249 (BITS . 15)) (PLPAGE 250 (BITS . 15)) (PLPAGE 251 (BITS . 15)) (PLPAGE 252 (BITS . 15)) ( PLPAGE 253 (BITS . 15)) (PLPAGE 254 (BITS . 15)))) (QUOTE 256)) (/DECLAREDATATYPE (QUOTE PFLE) (QUOTE (SWAPPEDFIXP WORD WORD WORD)) (QUOTE ((PFLE 0 SWAPPEDFIXP) (PFLE 2 (BITS . 15)) (PFLE 3 (BITS . 15)) (PFLE 4 (BITS . 15)))) (QUOTE 6)) (RPAQ? \FLOPPY.DEBUG NIL) (RPAQ? \FLOPPY.CYLINDERS 77) (RPAQ? \FLOPPY.TRACKSPERCYLINDER 2) (RPAQ? \FLOPPY.SECTORSPERTRACK 15) (RPAQ? \FLOPPYMPERRORS 0) (RPAQ? \FLOPPYMPERRORSFLG NIL) (RPAQ? \FLOPPY.MOUNTEDP.DOVETIME NIL) (RPAQ? \FLOPPY.MOUNTEDP.DOVEANSWER NIL) (RPAQ? \FLOPPYFDEV NIL) (RPAQ? \FLOPPYLOCK NIL) (RPAQ? \FLOPPY.SCRATCH.BUFFER NIL) (RPAQ? \FLOPPY.SCRATCH.BUFFER2 NIL) (RPAQ? \FLOPPY.SCRATCH.FLOPPYIOCB NIL) (RPAQ? \FLOPPY.IBMS128.FLOPPYIOCB NIL) (RPAQ? \FLOPPY.IBMD256.FLOPPYIOCB NIL) (RPAQ? \FLOPPY.IBMD512.FLOPPYIOCB NIL) (RPAQ? \FLOPPYIOCBADDR NIL) (RPAQ? \FLOPPYIOCB NIL) (RPAQ? \FLOPPYRESULT NIL) (/SETTOPVAL (QUOTE \\FLOPPY.SCRATCH.FLOPPYIOCB.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\FLOPPY.IBMD256.FLOPPYIOCB.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\FLOPPY.IBMD512.FLOPPYIOCB.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\FLOPPY.SCRATCH.BUFFER.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\FLOPPY.SCRATCH.BUFFER2.GLOBALRESOURCE)) (RPAQ? \PFLOPPYPSECTOR9 NIL) (RPAQ? \PFLOPPYPFILELIST NIL) (RPAQ? \PFLOPPYINFO NIL) (RPAQ? \PFLOPPYFDEV NIL) (/DECLAREDATATYPE (QUOTE PFALLOC) (QUOTE (POINTER FULLXPOINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG)) (QUOTE ((PFALLOC 0 POINTER) (PFALLOC 2 FULLXPOINTER) (PFALLOC 4 POINTER) (PFALLOC 6 POINTER) (PFALLOC 8 POINTER) (PFALLOC 10 POINTER) (PFALLOC 12 POINTER) (PFALLOC 12 (FLAGBITS . 0)) ( PFALLOC 12 (FLAGBITS . 16)))) (QUOTE 14)) (/DECLAREDATATYPE (QUOTE PFINFO) (QUOTE (POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PFINFO 0 POINTER) (PFINFO 2 POINTER) (PFINFO 4 POINTER) (PFINFO 6 POINTER) (PFINFO 8 POINTER))) (QUOTE 10)) (RPAQ? \FLOPPY.ALLOCATIONS.BITMAP NIL) (RPAQ? \SFLOPPYINFO NIL) (RPAQ? \SFLOPPYFDEV NIL) (RPAQ? \HFLOPPY.MAXPAGES NIL) (RPAQ? \SFLOPPY.PAGENO NIL) (RPAQ? \SFLOPPY.FLOPPYNO NIL) (RPAQ? \SFLOPPY.PAGES NIL) (RPAQ? \SFLOPPY.HUGELENGTH NIL) (RPAQ? \SFLOPPY.HUGEPAGELENGTH NIL) (RPAQ? \SFLOPPY.IWRITEDATE NIL) (RPAQ? \SFLOPPY.FLOPPYNAME "Lisp Sysout ") (RPAQ? \SFLOPPY.FILENAME (QUOTE lisp.sysout)) (RPAQ? \SFLOPPY.RECOG NIL) (RPAQ? \SFLOPPY.OTHERINFO NIL) (RPAQ? \SFLOPPY.SLOWFLG T) (RPAQ? \SFLOPPY.HACK.MODE NIL) (RPAQ? \SFLOPPY.HACK.STREAM NIL) (RPAQ? \HFLOPPYINFO NIL) (RPAQ? \HFLOPPYFDEV NIL) (RPAQ? \HFLOPPY.MAXPAGES NIL) (RPAQ? \HFLOPPY.PAGENO NIL) (RPAQ? \HFLOPPY.FLOPPYNO NIL) (RPAQ? \HFLOPPY.HUGELENGTH NIL) (RPAQ? \HFLOPPY.HUGEPAGELENGTH NIL) (RPAQ? \HFLOPPY.IWRITEDATE NIL) (RPAQ? \HFLOPPY.FLOPPYNAME NIL) (RPAQ? \HFLOPPY.FILENAME NIL) (RPAQ? \HFLOPPY.RECOG NIL) (RPAQ? \HFLOPPY.OTHERINFO NIL) (RPAQ? \HFLOPPY.SLOWFLG T) (RPAQ? \FLOPPY.SCAVENGE.IDATE NIL) (RPAQQ CPMDELETEMARK 229) (RPAQQ CPMFILEMARK 0) (CONSTANTS (CPMDELETEMARK 229) (CPMFILEMARK 0)) (RPAQ? \CFLOPPYINFO NIL) (RPAQ? \CFLOPPYCALLOCS NIL) (RPAQ? \CFLOPPYDIR NIL) (RPAQ? \CFLOPPYFDEV NIL) (RPAQ? \CFLOPPYDIRECTORY NIL) (RPAQ? \CFLOPPYBLANKSECTOR NIL) (RPAQ? \CFLOPPYSECTORMAP NIL) (RPAQ? \CFLOPPYDISKMAP NIL) (RPAQ? CPM.DIRECTORY.WINDOW NIL) (/DECLAREDATATYPE (QUOTE CINFO) (QUOTE (POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((CINFO 0 POINTER) (CINFO 2 POINTER) (CINFO 4 POINTER) (CINFO 6 POINTER) (CINFO 8 POINTER))) (QUOTE 10)) (/DECLAREDATATYPE (QUOTE CALLOC) (QUOTE (POINTER POINTER POINTER POINTER FLAG FLAG)) (QUOTE ((CALLOC 0 POINTER) (CALLOC 2 POINTER) (CALLOC 4 POINTER) (CALLOC 6 POINTER) (CALLOC 6 (FLAGBITS . 0)) (CALLOC 6 (FLAGBITS . 16)))) (QUOTE 8)) (/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 FIXP)) (QUOTE ((FCB 0 (BITS . 7)) (FCB 0 (BITS . 135)) (FCB 1 (BITS . 7)) (FCB 1 (BITS . 135)) (FCB 2 (BITS . 7)) (FCB 2 (BITS . 135)) (FCB 3 (BITS . 7)) (FCB 3 (BITS . 135)) (FCB 4 (BITS . 7)) (FCB 4 (BITS . 135)) (FCB 5 (BITS . 7)) (FCB 5 (BITS . 135)) (FCB 6 (BITS . 7)) (FCB 6 (BITS . 135)) (FCB 7 (BITS . 7 )) (FCB 7 (BITS . 135)) (FCB 8 (BITS . 7)) (FCB 8 (BITS . 135)) (FCB 9 (BITS . 7)) (FCB 9 (BITS . 135) ) (FCB 10 (BITS . 7)) (FCB 10 (BITS . 135)) (FCB 11 (BITS . 7)) (FCB 11 (BITS . 135)) (FCB 12 (BITS . 7)) (FCB 12 (BITS . 135)) (FCB 13 (BITS . 7)) (FCB 13 (BITS . 135)) (FCB 14 (BITS . 7)) (FCB 14 (BITS . 135)) (FCB 15 (BITS . 7)) (FCB 15 (BITS . 135)) (FCB 16 FIXP))) (QUOTE 18)) (FLOPPY.RESTART) (PUTPROPS FLOPPY COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL