(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 1-Feb-98 09:38:22" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>internal>library>DUMPFILE.;1|) "31-Jan-98 19:10:48" |bcompl'd| |in| "Medley 31-Jan-98 ..." |dated| "31-Jan-98 19:12:50") (FILECREATED "15-Jun-90 14:12:44" |{DSK}local>lde>lispcore>internal>library>DUMPFILE.;2| 10177 |changes| |to:| (VARS DUMPFILECOMS) |previous| |date:| "16-Dec-88 19:00:26" |{DSK}local>lde>lispcore>internal>library>DUMPFILE.;1|) DUMPFILEA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 10 I P 6 \#CHARS P 5 CH P 4 CHARS P 3 END P 2 START P 1 TERM6 P 0 TERM10 I 0 SI::*CLEANUP-FORMS* F 14 OUTPUT-STREAM F 15 INPUT-STREAM F 16 ST F 17 A0229 F 18 ND F 19 RADIX) TWgW Wg Wgo Wgo Wg 2Wgg n W nJjW W gl hdW glhdW W jW$ W lgjd EWJ KkJ OOcKkO_lOOlWLNk O >_OOjOlOWOW&LNkHI Ol_h hc"$(330 \\MVLIST 312 DUMPFILE.PRINTLINE 210 SETFILEPTR 199 ARRAY 185 GETEOFPTR 169 FONTCREATE 152 FONTCREATE 134 DUMPFILE.NEWPAGE 126 DSPRIGHTMARGIN 115 DSPLEFTMARGIN 104 STREAMPROP 85 IMAGESTREAMTYPEP 72 STREAMPROP 54 STREAMPROP 36 STREAMPROP 31 DATE 18 STREAMPROP 13 FULLNAME) (276 FDEV 269 STREAM 254 ARRAYP 192 SMALLP 157 TERMINAL 140 TERMINAL 99 DUMPFILE.NEWPAGE 94 AFTERNEWPAGEFN 80 INTERPRESS 62 MAINFONT 44 HDGFONT 26 FILEDATE 6 INFILENAME) ( 67 (TERMINAL 10) 49 (TERMINAL 8 BOLD)) DUMPFILEA0001A0007 :D8 (F 0 INPUT-STREAM F 1 A0229) PgQ (11 CL:CLOSE) (5 :ABORT) () DUMPFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 A0229 P 0 INPUT-STREAM I 0 SI::*CLEANUP-FORMS* F 2 FILE F 3 A0228) ER Rg ig HgI $ hc$(59 \\MVLIST 49 CL:CLOSE 37 \\MVLIST 32 DUMPFILEA0001A0002 18 OPENSTREAM 5 OPENP) (43 :ABORT 27 DUMPFILEA0001A0007 13 INPUT) () DUMPFILEA0008 :D8 (F 0 OUTPUT-STREAM F 1 A0228) PgQ (11 CL:CLOSE) (5 :ABORT) () DUMPFILE :D8 (P 1 A0228 P 0 OUTPUT-STREAM I 4 RADIX I 3 OUTFILE I 2 ND I 1 ST I 0 FILE) :C1ig ig HgI $ (54 OPENIMAGESTREAM 44 CL:CLOSE 32 \\MVLIST 27 DUMPFILEA0001 13 \\GETSTREAM) (38 :ABORT 22 DUMPFILEA0008 8 OUTPUT) () DUMPFILE.HEXBYTE :D8 (I 2 HEXBASE I 1 WORD I 0 OUTFILE) s@BAlH(HIlJ@BAlH(HIlJ@BAlH(HIlJ@BAlH(HIlJNIL (103 STREAM 77 STREAM 47 STREAM 20 STREAM) () DUMPFILE.NEWPAGE :D8 (P 0 FILEDATE I 0 OUTFILE) o@g n nh.@ @g @ o@ @g @ nJjH@ nh.@ H@ n nh nJjnh l#g@ n nc8@ @g @ h(163 DSPFONT 157 STREAMPROP 146 MOVETO 134 DRAWLINE 108 PRIN1 101 MOVETO 91 STRINGWIDTH 81 PRIN1 75 STREAMPROP 63 PRIN1 52 DSPFONT 46 STREAMPROP 35 MOVETO 20 CONCAT 15 STREAMPROP) (152 MAINFONT 127 PAINT 70 INFILENAME 41 HDGFONT 10 FILEDATE) ( 57 "Dump of file " 4 "Dumped on: ") DUMPFILE.PRINTCHAR :D8 (P 10 A0237 P 9 A0235 P 5 ASC6 P 4 ASC10 P 3 CURY P 2 CURX P 1 A6WIDTH P 0 A10WIDTH I 4 TERM6 I 3 TERM10 I 2 WASTERM10 I 1 CHAR I 0 OUTFILE F 11 *PRINT-DOTS-FOR-UNPRINTABLE-CHARS*)  lAC lAD h@ h@ CD6W"AllA@( @l.lOiAlQhbD@ JKLM@ o@ JHIK@ @Al@__(OOlN[lA5hbD@ o@ JHIK@ o@ "BC@ ib@( @AlOB(235 DSPFONT 223 PRIN1 211 MOVETO 198 PRIN1 186 DSPFONT 139 MOVETO 126 PRIN1 114 MOVETO 101 DSPFONT 29 DSPYPOSITION 22 DSPXPOSITION 15 CHARWIDTH 7 CHARWIDTH) (246 STREAM 155 STREAM 69 STREAM 43 FONTDESCRIPTOR 35 FONTDESCRIPTOR) ( 217 "." 192 "." 120 "^") DUMPFILE.PRINTLINE :D8 (P 11 A0240 P 10 CH# P 8 A0239 P 7 I P 2 WASTERM10 P 1 HEXBASE P 0 BASE I 6 TERM6 I 5 TERM10 I 4 \#CHARS I 3 CHARS I 2 RADIX I 1 ADDR I 0 OUTFILE F 12 *DUMPFILE-HEX-TABLE*) ~ CWjW Wi3BdloxlcjlNO+@IAO l½\(LMlKOm_lkON@(@l lOOk_#Bl ooA@ l@ BlDkDkj OO[Bdlo:l%@( @l lO@HOI Bl ooHO@ Ok_l@ o@ Dkj OO@HOJEF Ok_JE@ o@ @ h(378 TERPRI 372 PRIN1 360 DSPFONT 341 DUMPFILE.PRINTCHAR 313 PRIN1 302 SPACES 284 PRINTNUM 256 DUMPFILE.HEXBYTE 179 SPACES 170 PRINTNUM 72 LRSH 22 %ARRAY-BASE) (229 STREAM 122 STREAM 83 STREAM 5 ARRAYP) ( 366 "|" 307 "|" 274 (FIX 4 8) 268 (FIX 4) 216 (FIX 4 8) 163 (FIX 10 8) 157 (FIX 10) 43 (FIX 10 8)) (PRETTYCOMPRINT DUMPFILECOMS) (RPAQQ DUMPFILECOMS ((* |;;| "For dumping an octal/hex dump of a file") (FNS DUMPFILE DUMPFILE.HEXBYTE DUMPFILE.NEWPAGE DUMPFILE.PRINTCHAR DUMPFILE.PRINTLINE) (INITVARS (*PRINT-DOTS-FOR-UNPRINTABLE-CHARS* ) (*DUMPFILE-HEX-TABLE* "0123456789ABCDEF")))) (RPAQ? *PRINT-DOTS-FOR-UNPRINTABLE-CHARS*) (RPAQ? *DUMPFILE-HEX-TABLE* "0123456789ABCDEF") (PUTPROPS DUMPFILE COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990)) NIL