(FILECREATED "21-Jul-85 14:34:51" ("compiled on " {ERIS}CPMPATCH.;3) "19-Mar-85 14:34:17" recompiled changes: \CFLOPPY.INIT \CFLOPPY.DIRECTORYNAMEP \CFLOPPY.DIR.PUT in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "21-Jul-85 14:29:56" {ERIS}CPMPATCH.;3 69382 changes to: (VARS CPMPATCHCOMS) ( FNS \CFLOPPY.INIT \CFLOPPY.DIRECTORYNAMEP \CFLOPPY.DIR.PUT) previous date: "21-Jul-85 14:13:33" {ERIS}CPMPATCH.;2) \CFLOPPY.GET.FCB.FILENAME D1 (P 3 FILENAME P 2 POS P 1 EXTENSION P 0 NAME I 0 FCB) @ld@dldkdjCdkXld@dldl djCdkYoH l kZHkJ oXoI lkZIkJ oYHoI (204Q PACK* 164Q SUBSTRING 147Q STRPOS 130Q SUBSTRING 113Q STRPOS) NIL ( 200Q "." 172Q "" 143Q " " 136Q "" 107Q " ") \CFLOPPY.SET.FCB.FILENAME D1 (P 0 UNAME I 1 FILENAME I 0 FCB) 0A Xdg old@dldkdjCdkko ld@dldkdjCdkkIkI dll o Hg old@dldl djCdkko ld@dldl djCdkkJkJ dll o h(352Q RPLSTRING 341Q SUBSTRING 326Q NCHARS 256Q RPLSTRING 177Q LISTGET 167Q RPLSTRING 156Q SUBSTRING 143Q NCHARS 74Q RPLSTRING 16Q LISTGET 6 UNPACKFILENAME) (174Q EXTENSION 13Q NAME) ( 347Q "" 253Q " " 205Q "" 164Q "" 71Q " " 24Q "") \CFLOPPY.INIT D1 NIL 5l lgjd lghj ojHk njIH``dgdk dgdgdgdgdg dg dgdgdgdgdgdgdgdgd`(dg:dg8dg6dg4dg2dg0dg.dg*dg$d h`IJ*IkԹHX `IlǿIkY(417Q \MAKE.PMAP.DEVICE 66Q \FLOPPY.BUFFER 36Q ARRAY 21Q ARRAY 4 \FLOPPY.BUFFER) (447Q \CFLOPPYBLANKSECTOR 426Q \CFLOPPYSECTORMAP 413Q \CFLOPPYFDEV 405Q \GENERIC.READP 376Q NILL 367Q \IS.NOT.RANDACCESSP 360Q \ILLEGAL.DEVICEOP 351Q \IS.NOT.RANDACCESSP 342Q \ILLEGAL.DEVICEOP 333Q \GENERIC.BINS 324Q \GENERIC.BOUTS 315Q \CFLOPPY.RENAMEFILE 306Q \CFLOPPYINFO 277Q \CFLOPPY.WRITEPAGES 270Q \CFLOPPY.TRUNCATEFILE 261Q NILL 252Q \CFLOPPY.OPENFILE 243Q \CFLOPPY.READPAGES 234Q \CFLOPPY.OPENFILE 225Q \FLOPPY.HOSTNAMEP 216Q \CFLOPPY.GETFILENAME 207Q \CFLOPPY.GETFILEINFO 200Q \CFLOPPY.GENERATEFILES 171Q \FLOPPY.EVENTFN 162Q \CFLOPPY.DIRECTORYNAMEP 153Q \CFLOPPY.DELETEFILE 144Q \CFLOPPY.CLOSEFILE 127Q FLOPPY 122Q FDEVTYPE# 117Q \CFLOPPYINFO 113Q CINFOTYPE# 71Q \CFLOPPYBLANKSECTOR 41Q \CFLOPPYDISKMAP 31Q POINTER 24Q \CFLOPPYSECTORMAP 14Q BYTE 7 \CFLOPPYDIRECTORY) ( 45Q (1 7 15Q 23Q 31Q 5 13Q 21Q 27Q 3 11Q 17Q 25Q 2 10Q 16Q 24Q 32Q 6 14Q 22Q 30Q 4 12Q 20Q 26Q)) \CFLOPPY.OPEN D1 NIL I`(9`(hh`(hh`(ii(67Q \CFLOPPY.OPEN.DIRECTORY) (102Q CINFO 75Q FDEV 72Q \FLOPPYFDEV 64Q \CFLOPPYDIR 54Q CINFO 47Q FDEV 44Q \FLOPPYFDEV 41Q \CFLOPPYCALLOCS 31Q CINFO 24Q FDEV 21Q \FLOPPYFDEV 12Q CINFO 5 FDEV 2 \FLOPPYFDEV) () \CFLOPPY.OPEN.DIRECTORYA0002 D1 (L (1 FCB2 0 FCB1)) @AhNIL (12Q FCB 3 FCB) () \CFLOPPY.OPEN.DIRECTORYA0005 D1 (I 1 CALLOC2 I 0 CALLOC1) @A (16Q ALPHORDER) (11Q CALLOC 3 CALLOC) () \CFLOPPY.OPEN.DIRECTORY D1 (P 25Q CALLOC P 23Q BUCKET P 15Q I P 6 CALLOCS P 5 CALLOC P 4 ALIST P 3 FILENAME P 2 FREEGROUPS P 1 FREEFCBS P 0 FCB F 26Q FCBS)  `ji*`ki*ll__OO`Oh*Ok_lj OdO.l?j OO5I Yll2OOO ZL`Ol@ Ok_``Ol_dOdOlĿXl HIOk_H [L KhL\HKL lj__OO`HlOi*Ok_`O(O_$O"O$h_"_ Ok_BO$&_"dO&O&c,g `dKdW,]N^Ng ^`N`I`JNO(h_*lO*gO* O(_((631Q \CFLOPPY.DIR.PUT 526Q SORT 466Q SORT 313Q ASSOC 274Q ASSOC 267Q \CFLOPPY.GET.FCB.FILENAME 246Q IEQP 164Q \CFLOPPY.READRECORDNO 117Q DREVERSE) (624Q OLD 617Q CALLOC 603Q CALLOC 557Q CINFO 554Q \CFLOPPYINFO 546Q CINFO 543Q \CFLOPPYINFO 535Q CINFO 532Q \CFLOPPYINFO 523Q \CFLOPPY.OPEN.DIRECTORYA0005 472Q CALLOCTYPE# 463Q \CFLOPPY.OPEN.DIRECTORYA0002 372Q \CFLOPPYDISKMAP 346Q FCB 342Q \CFLOPPYDISKMAP 236Q FCB 204Q \CFLOPPYDIRECTORY 200Q FCBTYPE# 153Q \CFLOPPYDIRECTORY 41Q \CFLOPPYDISKMAP 13Q \CFLOPPYDISKMAP 5 \CFLOPPYDISKMAP) () \CFLOPPY.OPENFILEA0001 D1 (NAME ERRORSET F 0 ACCESS) Pgi(14Q \FLOPPY.CACHED.WRITE 10Q \FLOPPY.CACHED.READ) (3 INPUT) () \CFLOPPY.OPENFILE D1 (P 4 BUCKET P 3 FULLFILENAME P 2 CALLOC P 1 WAIT P 0 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) @ABCDE @C bo @l @d`BC Xdw AdgTgC YH JkC-JjH[l i bdHLL AgHj Hj H(224Q \CFLOPPY.SETFILEINFO 203Q \LISPERROR 134Q BLOCK 130Q \CFLOPPY.STREAMS.AGAINST 120Q ASSOC 66Q \CFLOPPY.OPENFILE1 47Q \LISPERROR 40Q \CFLOPPY.OPENFILEA0001 26Q \FLOPPY.OTHERINFO 11Q \SFLOPPY.HACK) (253Q STREAM 243Q STREAM 235Q OUTPUT 172Q STREAM 157Q CALLOC 143Q CALLOC 114Q WAIT 105Q INPUT 75Q STREAM 57Q STREAMTYPE#) ( 35Q (\CFLOPPY.OPENFILEA0001)) \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 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) Z  @hgA g0@"@ kl@ ؀jlڰm@"@ kl@ ؀jYjj=@Ik ZW Ikllj__OOWOlOOk_lXn[Hn\@]`d`@ _dOdldK dL dg.dg,d`&dg"dg d`djd`dhdldjRdk@dk0dh^d@ NMN(324Q \FLOPPY.ADDDEVICENAME 177Q \CFLOPPY.READRECORDNO 171Q \CFLOPPY.PHYSICAL.RECORDNO 141Q LAST 123Q LENGTH 63Q LAST 45Q LENGTH 15Q ASSOC) (523Q STREAM 514Q STREAM 441Q \STREAM.DEFAULT.MAXBUFFERS 425Q FILELINELENGTH 416Q \FILEOUTCHARFN 407Q \EOSERROR 400Q \NOIMAGEOPS 371Q \STREAM.NOT.OPEN 362Q \STREAM.NOT.OPEN 317Q CALLOC 310Q \FLOPPYFDEV 303Q STREAMTYPE# 275Q CALLOC 145Q FCB 134Q CALLOC 116Q CALLOC 106Q CALLOC 67Q FCB 56Q CALLOC 40Q CALLOC 30Q CALLOC 21Q 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) PgA Xd dllkX YdZ@gI JdM@ `d`I dLdldj dj dg.dg,d`&dg"dg d`djd`dhdldjRdk@dk0dh[dI KJK(120Q \FLOPPY.ADDDEVICENAME 67Q \CFLOPPY.SET.FCB.FILENAME 53Q \CFLOPPY.DIR.PUT 33Q \CFLOPPY.ALLOCATE 11Q ASSOC) (314Q STREAM 305Q STREAM 232Q \STREAM.DEFAULT.MAXBUFFERS 216Q FILELINELENGTH 207Q \FILEOUTCHARFN 200Q \EOSERROR 171Q \NOIMAGEOPS 162Q \STREAM.NOT.OPEN 153Q \STREAM.NOT.OPEN 113Q CALLOC 104Q \FLOPPYFDEV 77Q STREAMTYPE# 47Q NEW 40Q CALLOC 5 LENGTH) () \CFLOPPY.ASSURESTREAM D1 (P 0 STREAM I 0 FILE) !@d`@g X@l b(33Q \LISPERROR 22Q \CFLOPPY.OPENFILE1) (17Q OLD 10Q STREAMTYPE#) () \CFLOPPY.GETFILEINFOA0001 D1 (NAME ERRORSET 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 ci(30Q \CFLOPPY.CLOSEFILE1 23Q \CLEARMAP 17Q \CFLOPPY.ASSURESTREAM 7 OBTAIN.MONITORLOCK) (2 \FLOPPYLOCK) () \CFLOPPY.CLOSEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CFLOPPY.CLOSEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CFLOPPY.CLOSEFILEA0001)) \CFLOPPY.CLOSEFILE1 D1 (P 4 FULLFILENAME P 3 NMP P 2 NEXT P 1 MP P 0 CALLOC I 0 STREAM) >P@ X@\@ g"H HjjdhHj@ L(72Q \CFLOPPY.DELETEFILE 36Q \CFLOPPY.SAVE.CHANGES 24Q \GETACCESS) (60Q CALLOC 42Q CALLOC 27Q INPUT 15Q STREAM 6 STREAM) () \CFLOPPY.DELETEFILEA0001 D1 (NAME ERRORSET P 5 FULLFILENAME P 4 NMP P 3 NEXT P 2 MP P 1 CALLOC P 0 FILENAME F 6 FILE F 7 RECOG F 10Q RESETY) U`hi `V XW Yd3 I IkIjI I I Mci(114Q \CFLOPPY.SAVE.CHANGES 107Q \CFLOPPY.DEALLOCATE 102Q \CFLOPPY.DIR.REMOVE 52Q \CFLOPPY.STREAMS.USING 45Q \FLOPPY.ADDDEVICENAME 31Q \CFLOPPY.DIR.GET 23Q \FLOPPY.ASSUREFILENAME 16Q \CFLOPPY.OPEN 7 OBTAIN.MONITORLOCK) (71Q CALLOC 57Q CALLOC 40Q CALLOC 2 \FLOPPYLOCK) () \CFLOPPY.DELETEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 RECOG I 1 FDEV I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) *BgbS!Tog hgZ JI(45Q ERROR! 40Q RESETRESTORE 26Q \CFLOPPY.DELETEFILEA0001) (34Q ERROR 23Q INTERNAL 4 OLDEST) ( 20Q (\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.DIRECTORYNAMEP D1 (L (0 DIRNAME)) @gNIL (3 {FLOPPY}) () \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 5 FCB P 4 FULLFILENAME P 3 FCBS P 2 CALLOC P 1 NEWFILENAME P 0 OLDFILENAME F 6 OLDFILE F 7 NEWFILE F 10Q RESETY F 11Q OLDRECOG F 12Q NEWRECOG) q`hi PV W HW ZdH IWJ JdMI JJJ J J ci(152Q \FLOPPY.ADDDEVICENAME 140Q \CFLOPPY.SAVE.CHANGES 131Q UNION 101Q \CFLOPPY.SET.FCB.FILENAME 57Q \CFLOPPY.DIR.PUT 47Q \CFLOPPY.DIR.REMOVE 40Q \CFLOPPY.DIR.GET 31Q \FLOPPY.ASSUREFILENAME 23Q \FLOPPY.ASSUREFILENAME 16Q \FLOPPY.CACHED.READ 7 OBTAIN.MONITORLOCK) (145Q CALLOC 124Q CALLOC 116Q CALLOC 112Q CALLOC 64Q CALLOC 2 \FLOPPYLOCK) () \CFLOPPY.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 NEWRECOG I 3 OLDRECOG I 2 FDEV I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) 2CgbDgbS!Tog hgZ JI(55Q ERROR! 50Q RESETRESTORE 36Q \CFLOPPY.RENAMEFILEA0001) (44Q ERROR 33Q INTERNAL 14Q NEW 4 OLD) ( 30Q (\CFLOPPY.RENAMEFILEA0001)) \CFLOPPY.STREAMS.AGAINST D1 (L (0 STREAM) F 5 \OPENFILES) ?UAHI\`L @ Ld@J KhZYHXK&ZNIL (40Q STREAM 32Q STREAM 23Q \FLOPPYFDEV 16Q STREAM) () \CFLOPPY.STREAMS.USING D1 (L (0 CALLOC) F 5 \OPENFILES) 6UAHI\`Ld @J KhZYHXK&ZNIL (33Q STREAM 23Q \FLOPPYFDEV 16Q STREAM) () \CFLOPPY.READPAGES D1 (P 2 BUFFER P 1 I I 2 BUFFERS I 1 FIRSTPAGE# I 0 STREAM) 'BddhjHh@AIJ HIkԹ(33Q \CFLOPPY.READPAGE) NIL () \CFLOPPY.READPAGEA0001 D1 (NAME ERRORSET 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 21Q \FLOPPY.SETUP) (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 21Q \FLOPPY.SETUP) (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 5 CALLOC P 4 EXTENSION P 3 NAME P 2 EALIST P 1 NALIST P 0 UNAME I 1 RECOG I 0 FILENAME)  Agh@ Xg Hg KkK lNNl LkL _lOOl K L `(KI LJ `(_h_@OiO(155Q ASSOC 146Q ASSOC 122Q U-CASE 115Q U-CASE 110Q SUBATOM 67Q NCHARS 60Q SUBATOM 43Q NCHARS 34Q LISTGET 24Q LISTGET 15Q UNPACKFILENAME) (211Q CALLOC 172Q CINFO 165Q FDEV 162Q \FLOPPYFDEV 136Q CINFO 131Q FDEV 126Q \FLOPPYFDEV 31Q 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 Hg H bK [L \B@`(YKI ZLBJ ZKJI Y`(IIB(235Q \FLOPPY.LEXPUTASSOC 226Q \FLOPPY.LEXPUTASSOC 216Q ASSOC 163Q U-CASE 156Q U-CASE 150Q PACKFILENAME 144Q LISTPUT 135Q LISTPUT 126Q LISTPUT 117Q LISTPUT 107Q LISTPUT 76Q SUBATOM 61Q NCHARS 52Q SUBATOM 35Q NCHARS 26Q LISTGET 16Q LISTGET 6 UNPACKFILENAME) (261Q \CFLOPPYDIR 251Q CINFO 244Q FDEV 241Q \FLOPPYFDEV 206Q CINFO 201Q FDEV 176Q \FLOPPYFDEV 170Q CALLOC 141Q HOST 132Q DIRECTORY 123Q VERSION 113Q EXTENSION 103Q NAME 23Q 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@(175Q \FLOPPY.LEXREMOVEASSOC 167Q \FLOPPY.LEXPUTASSOC 156Q \FLOPPY.LEXREMOVEASSOC 147Q ASSOC 123Q U-CASE 116Q U-CASE 111Q SUBATOM 70Q NCHARS 61Q SUBATOM 44Q NCHARS 35Q LISTGET 25Q LISTGET 15Q UNPACKFILENAME) (221Q \CFLOPPYDIR 211Q CINFO 204Q FDEV 201Q \FLOPPYFDEV 137Q CINFO 132Q FDEV 127Q \FLOPPYFDEV 32Q 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 \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 KO lLNM4KO OIJ hcih WlWlغONlǿNk^(223Q \FZEROP 203Q \CFLOPPY.TRUNCATE 167Q \CFLOPPY.WRITERECORDNO 146Q \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 1 FCB P 0 FREEFCBS) Y``Xdl `HIjl kKJIKl ǿKk[l l MLIMjǿMk]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 FCB P 24Q EXTENT P 17Q I P 12Q I P 10Q \INTERRUPTABLE P 4 CALLOC P 3 GROUPS P 2 FCBS P 1 NGROUPS P 0 NFCBS I 0 NRECORDS) K@lb@llYll۽kMMkX` H` Ihl Hk2 OO%_OOh__Ok_O&_OIk2OO%_$O"O$h_"_ Ok_O$&_"O JjO&*`dJdJ`L`L_*O(O(Hk O*lO*@Hkllj_ONKO*lOKKǿOk_O&_&O(k_(o(366Q IEQP 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 FCB P 13Q I P 11Q \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) k @"@ kl@ ؀jAh @"@ kl@ ؀jlAlYl``@k O@kJJ_JO8OJ OAJklOkOlOK[OMlj__OO6OklOIOklOHkOlONOk_O_Ok_Xk h@M@ @N@ @ h(547Q \CFLOPPY.SAVE.CHANGES 540Q UNION 517Q UNION 476Q NTH 266Q IEQP 122Q LAST 104Q LENGTH 41Q LAST 23Q LENGTH) (533Q CALLOC 526Q CALLOC 512Q CALLOC 505Q CALLOC 431Q FCB 325Q FCB 275Q 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 4 ANSWER P 3 FCB P 2 ANSWER P 1 \INTERRUPTABLE P 0 FCBS I 0 CALLOC) @X@H@ @mdJKl jKll\dlLkj2 NM)KlN_OOh__Nk^O&_O J@hHdl`@` h(307Q \CFLOPPY.ICHECK 301Q DREMOVE 214Q \NCONC2 121Q SHOULDNT 66Q IEQP) (274Q CINFO 271Q \CFLOPPYINFO 265Q CINFO 262Q \CFLOPPYINFO 245Q FCB 232Q CALLOC 143Q FCB 76Q FCB 56Q 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) @@ XdZdl ?X@ H@ Hjj@@Hh Jllk[Jlj HKkHlKkIǿHKllH@ @H@h(237Q MEMB 170Q \CFLOPPY.ALLOCATE.GROUP 154Q IEQP 127Q \NCONC2 70Q LENGTH 52Q \CFLOPPY.SET.FCB.FILENAME 40Q \CFLOPPY.ALLOCATE.FCB 33Q IEQP 13Q LAST) (251Q CALLOC 244Q CALLOC 232Q CALLOC 212Q FCB 175Q FCB 161Q FCB 117Q CALLOC 113Q CALLOC 100Q FCB 63Q CALLOC 57Q FCB 45Q CALLOC 21Q FCB 6 CALLOC) () \CFLOPPY.SAVE.CHANGES D1 (P 16Q RECORDNO P 10Q ANSWER P 7 FCB P 6 \INTERRUPTABLE P 3 RECORDNOS P 2 RECORDNO P 1 FREEGROUPS P 0 FREEFCBS I 0 CALLOC) S```@dOlOH`OHX`Ol jOll_dlOkj2 OO-OlO_OOh__Ok_O&_OI YljMLOMlǿMk]`OlOlĿOlZKJKKdO`Ol@i @h@h`H`Ih(517Q \CFLOPPY.ICHECK 443Q \CFLOPPY.WRITERECORDNO 303Q \NCONC2 200Q SHOULDNT 143Q IEQP 5 \FLOPPY.CACHED.WRITE) (510Q CINFO 505Q \CFLOPPYINFO 476Q CINFO 473Q \CFLOPPYINFO 464Q CALLOC 454Q CALLOC 431Q \CFLOPPYDIRECTORY 366Q FCB 345Q FCB 340Q \CFLOPPYDIRECTORY 226Q FCB 154Q FCB 133Q FCB 123Q CINFO 120Q \CFLOPPYINFO 105Q CINFO 102Q \CFLOPPYINFO 55Q FCB 36Q CALLOC 27Q CINFO 24Q \CFLOPPYINFO 16Q CINFO 13Q \CFLOPPYINFO) () \CFLOPPY.ICHECK D1 (P 17Q F P 11Q ANSWER P 10Q FCB P 7 ANSWER P 6 CALLOC P 5 GROUPS P 4 FCBS P 3 FREEGROUPS P 2 FREEFCBS P 1 USEDGROUPS P 0 USEDFCBS F 20Q \OPENFILES) l`oY`(dN NH  N|d_O Ol jOll_dlOkj2OO-OlO_OOh__Ok_O&_O _OI YU`(Z`([HJ o IK o JH \KI ]L l@o M lo W Oh_`"O `( o O_(542Q \FLOPPY.SEVERE.ERROR 532Q MEMB 450Q \FLOPPY.SEVERE.ERROR 435Q LENGTH 430Q \FLOPPY.SEVERE.ERROR 415Q LENGTH 410Q \APPEND2 402Q \APPEND2 374Q \FLOPPY.SEVERE.ERROR 364Q INTERSECTION 356Q \FLOPPY.SEVERE.ERROR 346Q INTERSECTION 273Q \APPEND2 255Q \NCONC2 153Q SHOULDNT 116Q IEQP 53Q \APPEND2 40Q \CFLOPPY.ICHECK.CALLOC) (525Q CINFO 520Q FDEV 515Q \FLOPPYFDEV 510Q STREAM 500Q \FLOPPYFDEV 473Q STREAM 336Q CINFO 331Q FDEV 326Q \FLOPPYFDEV 320Q CINFO 313Q FDEV 310Q \FLOPPYFDEV 201Q FCB 127Q FCB 106Q FCB 63Q CALLOC 45Q CALLOC 22Q CINFO 15Q FDEV 12Q \FLOPPYFDEV) ( 537Q "Streams Allocation Error" 445Q "Wrong number of GROUPS" 425Q "Wrong number of FCBS" 371Q "USEDGROUPS & FREEGROUPS intersect" 353Q "USEDFCBS & FREEFCBS intersect" 6 (0 1)) \CFLOPPY.ICHECK.CALLOC D1 (P 4 ANSWER P 3 ANSWER P 2 FCB P 1 I I 0 CALLOC) @kHo@IJk o IkԹHXdKJl jJll\dlLkj2 NM)JlN_OOh__Nk^O&_O [K o@ o h(314Q \FLOPPY.SEVERE.ERROR 303Q INTERSECTION 265Q INTERSECTION 252Q \NCONC2 157Q SHOULDNT 124Q IEQP 65Q \FLOPPY.SEVERE.ERROR 55Q IEQP) (276Q CALLOC 201Q FCB 134Q FCB 114Q FCB 45Q FCB 31Q CALLOC 3 CALLOC) ( 311Q "Unexpected group number" 272Q (0 1) 62Q "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 SLOWFLG F 5 \FLOPPY.SCRATCH.BUFFER F 6 RESETY) `hi T`\`Hl HkHj i -i 'IklMi ` j$i InlMi o hlLjKJIKkUi K iKk[ho cIljKdJhc i`i o ic6Kk[(321Q \FLOPPY.MESSAGE 311Q \CFLOPPY.WRITERECORDNO 250Q \FLOPPY.MESSAGE 222Q \FLOPPY.READSECTOR 162Q \FLOPPY.MESSAGE 151Q \FLOPPY.FORMATTRACKS 136Q \FLOPPY.RECALIBRATE 116Q \FLOPPY.FORMATTRACKS 104Q \FLOPPY.RECALIBRATE 76Q \FLOPPY.INITIALIZE 67Q \FLOPPY.SETUP 50Q \FLOPPY.SETUP 17Q \FLOPPY.UNCACHED.WRITE 13Q \FLOPPY.CLOSE 7 OBTAIN.MONITORLOCK) (305Q \CFLOPPYBLANKSECTOR 260Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 171Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 123Q \FLOPPYRESULT 55Q FLOPPYIOCB 36Q FLOPPYIOCBTYPE# 31Q \\FLOPPY.IBMS128.FLOPPYIOCB.GLOBALRESOURCE 2 \FLOPPYLOCK) ( 316Q "RETRYING FORMAT" 245Q "RETRYING FORMAT" 157Q "RETRYING FORMAT") \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 l oK ` 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 223Q IEQP 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 CPMPATCHCOMS) (RPAQQ CPMPATCHCOMS ((* "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.DIRECTORYNAMEP \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))) (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)) (PUTPROPS CPMPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL