(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Sep-2023 13:52:48" ("compiled on " {WMEDLEY}READINTERPRESS.;6) "23-Sep-2023 23:13:47" brecompiled exprs%: SHOWFILE in "FULL 23-Sep-2023 ..." dated "23-Sep-2023 23:13:54") (FILECREATED "24-Sep-2023 13:52:48" {WMEDLEY}READINTERPRESS.;6 11350 :EDIT-BY rmk :CHANGES-TO (FNS SHOWFILE) :PREVIOUS-DATE "22-Jun-2021 10:52:34" {WMEDLEY}READINTERPRESS.;4 ) PRINTMASTERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 A0199 P 2 C P 0 ISTREAM I 0 SI::*CLEANUP-FORMS* F 4 OUTPUTFILE F 5 SI::*RESETFORMS* F 6 FILE F 7 FROM) ¹ oVg XhUc T²oTg chUc ¿H Zdl ð²;T HdÉ ÉNHkKWµj¹dIñ¡¿I H šhT ¿°·oH T¿oT ¿lhT¿HT ¿°¾(180 PRINTTOKEN 172 TAB 162 PRIN1 150 PRINTNUM 144 GETFILEPTR 130 PRINTCCODE 121 EOFP 115 SETFILEPTR 74 TERPRI 45 OPENSTREAM 18 OPENSTREAM) (88 FDEV 81 STREAM 40 OUTPUT 13 INPUT) ( 156 "|" 138 (FIX 5) 34 (PROGN (CLOSEF OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE))) 7 (PROGN (CLOSEF OLDVALUE))) PRINTMASTER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 TO I 2 FROM I 1 OUTPUTFILE I 0 FILE F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PRINTMASTERA0001) (8 SI::RESETUNWIND) () OPCODE :D8 (I 1 BYTE2 I 0 BYTE1) @låáAµjØ (14 FINDOPNAME) NIL () TOKEN :D8 (P 2 I P 0 BYTES) ÊeHjð³ Hµka³gka ²éhka dgð²0¿gHk2JdIó˜¿K a½Lµ Mh\»JkÔZ°åM&¼°÷dgð›¿kalå dgð²¿kalåálaµjØ dgð²¿kalå ¿Hjñ´‚±ÿu±ÿqgð’±ÿg(199 SHOULDNT 171 FINDSEQUENCETYPE 150 FINDOPNAME 121 FINDOPNAME 80 APPLY 47 TOKENFORMAT 36 \FZEROP 30 APPLY) (189 LONGSEQUENCE 157 SHORTSEQUENCE 128 LONGOP 108 SHORTOP 62 SHORTINT 53 SHORTINT 23 TOKEN) () FINDNONPRIMNAME :D8 (I 0 CODE) @o (10 SEARCHIPLIST) NIL ( 5 ((BEGINMASTER 102) (ENDMASTER 103) (PAGEINSTRUCTIONS 105) ({ 106) (} 107))) FINDOPNAME :D8 (I 0 CODE) @o (10 SEARCHIPLIST) NIL ( 5 ((ABS 200) (ADD 201) (AND 202) (ARCTO 403) (CEILING 203) (CLIPRECTANGLE 419) (CONCAT 165) (CONCATT 168) (COPY 183) (CORRECT 110) (CORRECTMASK 156) (CORRECTSPACE 157) (COUNT 188) (DIV 204) (DO 231) (DOSAVE 232) (DOSAVEALL 233) (DOSAVESIMPLEBODY 120) (DUP 181) (EQ 205) (ERROR 600) (EXCH 185) (FGET 20) (FINDCOLOR 423) (FINDCOLORMODELOPERATOR 422) (FINDCOLOROPERATOR 421) (FINDDECOMPRESSOR 149) (FINDFONT 147) (FLOOR 206) (FSET 21) (GE 207) (GETCP 159) (GETPROP 287) (GT 208) (IF 239) (IFCOPY 240) (IFELSE 241) (IGET 18) (ISET 19) (LINETO 23) (LINETOX 14) (LINETOY 15) (MAKEGRAY 425) (MAKEOUTLINE 417) (MAKEOUTLINEODD 416) (MAKEPIXELARRAY 450) (MAKESAMPLEDBLACK 426) (MAKESAMPLEDCOLOR 427) (MAKESIMPLECO 114) (MAKEPIXELARRAY 450) (MAKEVEC 283) (MAKEVECLU 282) (MARK 186) (MASKFILL 409) (MASKPIXEL 452) (MASKRECTANGLE 410) (MASKSTROKE 24) (MASKTRAPEZOIDX 411) (MASKTRAPEZOIDY 412) (MASKUNDERLINE 414) (MASKVECTOR 441) (MERGEPROP 288) (MOD 209) (MODIFYFONT 148) (MOVE 169) (MOVETO 25) (MUL 210) (NEG 211) (NOP 1) (NOT 212) (OR 213) (POP 180) (REM 216) (ROLL 184) (ROTATE 163) (ROUND 217) (SCALE 164) (SCALE2 166) (SETCORRECTMEASURE 154) (SETCORRECTTOLERANCE 155) (SETFONT 151) (SETGRAY 424) (SETXREL 12) (SETXY 10) (SETXYREL 11) (SETYREL 13) (SHAPE 285) (SHOW 22) (SHOWANDXREL 146) (SPACE 16) (STARTUNDERLINE 413) (SUB 214) (TRANS 170) (TRANSLATE 162) (TRUNC 215) (TYPE 220) (UNMARK 187) (UNMARK0 192))) SHORTINT :D8 (P 3 RESULT P 2 I P 0 BYTES) !eHkjJIó•Kn ÙKáJaä»JkÔZ°íNIL NIL () TOKENFORMAT :D8 (I 0 BYTE) N@dâââââââjð•gâââââlåHdjð•gkð•gHdlð•glð•g(75 SHOULDNT) (69 LONGSEQUENCE 59 SHORTSEQUENCE 47 LONGOP 38 SHORTOP 16 SHORTINT) () FINDSEQUENCETYPE :D8 (L (0 CODE)) 'oHµ@gh¹@Ið’IHX°åNIL (17 NOT-A-SEQUENCE-TYPE) ( 4 ((SEQADAPTIVEPIXELVECTOR 12) (SEQCOMMENT 6) (SEQCOMPRESSPIXELVECTOR 10) (SEQCONTINUED 7) (SEQIDENTIFIER 5) (SEQINSERTFILE 11) (SEQINTEGER 2) (SEQLARGEVECTOR 8) (SEQPACKEDPIXELVECTOR 9) (SEQRATIONAL 4) (SEQSTRING 1))) PRINTTOKEN :D8 (P 3 BYTE2 P 2 CODE P 1 BYTE1 P 0 C I 1 OSTREAM I 0 ISTREAM) @ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿H!I dgð²i¿@ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿H»lhA¿IK A ±Hdgð²=¿IlåºlhA¿J µJ µ Jo A ¿A ±dgð¢±‹¿Ilåá@ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿HØºlhA¿J µJ µ Jo A ¿A ±qdgð²a¿@AIlå @ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿H± gð¢±ú@AIlå @ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿Háá@ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿Há@ A lñ²"lhA¿oA ¿lhA¿oHA¿oA ¿Hää„h(776 SHOULDNT 770 PRINTSEQUENCE 760 PRIN1 748 PRINTNUM 735 TAB 725 PRIN1 713 TAB 699 POSITION 684 PRIN1 672 PRINTNUM 659 TAB 649 PRIN1 637 TAB 623 POSITION 607 PRIN1 595 PRINTNUM 582 TAB 572 PRIN1 560 TAB 546 POSITION 535 FINDSEQUENCETYPE 511 PRINTSEQUENCE 503 PRIN1 491 PRINTNUM 478 TAB 468 PRIN1 456 TAB 442 POSITION 431 FINDSEQUENCETYPE 407 TERPRI 400 PRIN1 394 CONCAT 381 FINDNONPRIMNAME 373 FINDOPNAME 366 TAB 352 PRIN1 340 PRINTNUM 327 TAB 317 PRIN1 305 TAB 291 POSITION 260 TERPRI 253 PRIN1 247 CONCAT 234 FINDNONPRIMNAME 226 FINDOPNAME 219 TAB 192 PRINT 186 SHORTINT 178 TAB 165 PRIN1 153 PRINTNUM 140 TAB 130 PRIN1 118 TAB 104 POSITION 83 TOKENFORMAT 71 PRIN1 59 PRINTNUM 46 TAB 36 PRIN1 24 TAB 10 POSITION) (519 LONGSEQUENCE 416 SHORTSEQUENCE 269 LONGOP 201 SHORTOP 89 SHORTINT) ( 754 " " 741 (FIX 3) 719 "|" 678 " " 665 (FIX 3) 643 "|" 601 " " 588 (FIX 3) 566 "|" 497 " " 484 (FIX 3) 462 "|" 389 "not an opcode" 346 " " 333 (FIX 3) 311 "|" 242 "not an opcode" 159 " " 146 (FIX 3) 124 "|" 65 " " 52 (FIX 3) 30 "|") PRINTSEQUENCE :D8 (P 13 VAL P 12 BYTESPERELT P 11 I P 9 J P 7 YBYTES P 6 YBITS P 5 XBITS P 4 I P 3 DENOM P 2 NUM P 1 I I 3 LENGTH I 2 TYPE I 1 OUTSTREAM I 0 ISTREAM) Bdgð²4¿lhA¿oA ¿Cjð’±ó@gCA °ægð²'lhA¿CkIHó@A ¿IkÔY°ñ±²Bdgð²U¿@Câ @Câ lhA¿JA ¿oA ¿KA ¿oA ¿JKëA ±Ugð²SlhA¿oA ¿CA ¿oA ¿Cjð³@gCA °ègA ±ûBdgð²Y¿CklhA¿oA ¿CA ¿oA ¿lhA¿IHó³o@ A¿IkÔY°ê±›gð¢±Æl@l @l lhA¿oA ¿oA ¿CA ¿oA ¿MA ¿oA ¿NA ¿oA ¿NlØââââà_¿LCñ³=A ¿l hA¿Ok OOó³o@ A¿LkÔ¼OkÔ_°ã°Â±ÎBdgð¢±¿Cl@ lhA¿oA ¿OA ¿oA ¿OOó³B@O _¿lhA¿oOA¿oA ¿OA ¿OkÔ_°½°Cgð›o °/Bdgðœ¿o °gðšo „¿A (797 TERPRI 790 SHOULDNT 784 HELP 765 HELP 743 HELP 714 PRIN1 705 PRIN1 693 PRINTNUM 679 TAB 667 READINT.IP 651 PRIN1 639 PRIN1 630 PRIN1 618 TAB 568 PRINTNUM 541 TAB 531 TERPRI 507 PRIN1 495 PRIN1 487 PRIN1 475 PRIN1 467 PRIN1 455 PRIN1 447 PRIN1 435 PRIN1 423 TAB 411 READINT.IP 403 READINT.IP 372 PRINTNUM 353 TAB 343 PRIN1 331 PRIN1 323 PRIN1 311 TAB 283 PRIN1 270 PRINTCCODE 264 \INCCODE 246 PRIN1 234 PRIN1 226 PRIN1 214 TAB 193 PRIN1 183 PRIN1 171 PRIN1 163 PRIN1 151 PRIN1 143 TAB 131 READINT.IP 123 READINT.IP 93 PRINTTOKEN 76 TAB 57 PRINTCCODE 51 \INCCODE 31 PRIN1 19 TAB) (772 SEQCOMPRESSPIXELVECTOR 752 SEQINSERTFILE 731 SEQCONTINUED 595 SEQLARGEVECTOR 388 SEQPACKEDPIXELVECTOR 293 SEQCOMMENT 277 %" 258 LENGTH 202 SEQSTRING 111 SEQRATIONAL 64 SEQINTEGER 45 LENGTH 6 SEQIDENTIFIER) ( 779 "Can't handle SEQCOMPRESSPIXELVECTOR yet" 760 "Can't handle SEQINSERTFILE yet" 738 "Can't handle SEQCONTINUED yet" 699 ": " 685 (FIX 5) 645 " bytes per element" 624 "Large vector of " 560 (FIX 8 -2 T) 501 "]" 481 "X" 461 " bytes [" 441 " vector of " 429 "Packed pixel" 364 (FIX 4) 337 " bytes" 317 "Comment vector of " 240 "] = %"" 220 "STR[" 177 " = " 157 "/" 25 "ID: ") SEARCHIPLIST :D8 (L (1 IPLIST 0 CODE)) AHµh¹@Ið’IHX°íNIL NIL () READINT.IP :D8 (P 4 C P 2 RESULT P 1 I I 1 NBYTES I 0 ISTREAM) ‚AkjIHó²#JAààà»dkKkÙ kÙñ›kK kÙÙkÙJá@ h lñ²"lhd¿oh ¿lhd¿oLh¿oh ¿LäºIkÔY°ˆ(117 PRIN1 105 PRINTNUM 92 TAB 82 PRIN1 70 TAB 56 POSITION 37 LLSH 26 LLSH) NIL ( 111 " " 98 (FIX 3) 76 "|") SHOWFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 11 A0120 P 10 B8 P 9 B7 P 8 B6 P 7 B5 P 6 B4 P 5 B3 P 4 B2 P 3 B1 P 2 NZEROLINES P 1 I P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 12 SI::*RESETFORMS* F 13 OUTPUTFILE F 14 IPFILE F 15 DEFAULTFONT) ®oWg XhWcghhWcoWg chWcW Wh ¿Hg h ¿h ¿h kj‚ HÉ É<HkO²W W hoIh¿lh ¿H »H ¼H ½H ¾lh ¿H _¿H _¿H _¿H _¿l ¿KœoKh¿LœoLh¿MœoMh¿NœoNh¿lh ¿OoOh¿OoOh¿OoOh¿O²oOh¿h ¿IlÔ¹±þÖ(419 TERPRI 412 PRINTNUM 394 PRINTNUM 377 PRINTNUM 360 PRINTNUM 343 SPACES 334 PRINTNUM 319 PRINTNUM 304 PRINTNUM 289 PRINTNUM 274 TAB 264 SHOWBYTE 255 SHOWBYTE 246 SHOWBYTE 237 SHOWBYTE 230 SPACES 221 SHOWBYTE 214 SHOWBYTE 207 SHOWBYTE 200 SHOWBYTE 193 SPACES 184 PRINTNUM 168 CLOSEF 161 CLOSEF 122 TERPRI 115 TERPRI 108 PRIN1 102 OPENP 90 CHANGEFONT 82 OUTPUT 65 OPENSTREAM 38 OUTPUT 19 OPENSTREAM) (140 FDEV 133 STREAM 97 INPUT 60 OUTPUT 33 OUTPUT 14 INPUT) ( 404 (FIX 4) 386 (FIX 4) 369 (FIX 4) 352 (FIX 4) 327 (FIX 4) 312 (FIX 4) 297 (FIX 4) 282 (FIX 4) 177 (FIX 5) 53 (PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE))) 7 (PROGN (CLOSEF? OLDVALUE))) SHOWFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 MAXZEROLINES I 1 OUTPUTFILE I 0 IPFILE F 3 LISPXHIST) %B¤lb¿S!g ¿$(30 SI::RESETUNWIND 25 \MVLIST 20 SHOWFILEA0001) (15 SI::RESETUNWIND) () SHOWBYTE :D8 (P 1 BYTE P 0 A0201 I 0 STREAM) F@É É<@kH¢@ €hI´$l Iñ³lIñ›Il`ð¦I „g I(66 PRIN1 55 CHARACTER) (61 %. 12 FDEV 5 STREAM) () (PRETTYCOMPRINT READINTERPRESSCOMS) (RPAQQ READINTERPRESSCOMS ((* "Utilities for reading Interpress files") (FNS PRINTMASTER) (FNS OPCODE TOKEN FINDNONPRIMNAME FINDOPNAME SHORTINT TOKENFORMAT FINDSEQUENCETYPE PRINTTOKEN PRINTSEQUENCE SEARCHIPLIST READINT.IP SHOWFILE SHOWBYTE) (MACROS BIN.RIP) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES ( LOADCOMP) INTERPRESS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SHORTINT TOKEN))))) (PUTPROPS BIN.RIP MACRO (ARGS (LET ((ISTREAM (CAR ARGS)) (OSTREAM (CADR ARGS))) (BQUOTE (LET ((C (BIN (\, ISTREAM)))) (COND ((IGREATERP (POSITION (\, OSTREAM)) 15) (printout (\, OSTREAM) 5 "|" 8))) ( printout (\, OSTREAM) .I3 C " ") C))))) (PUTPROPS READINTERPRESS COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1988 2021)) NIL