(FILECREATED "15-Jul-86 21:58:38" ("compiled on " {ERIS}INTERPRESS>READINTERPRESS.;5) "11-Jul-86 12:21:01" recompiled changes: PRINTMASTER OPCODE SHORTINT TOKENFORMAT PRINTTOKEN PRINTSEQUENCE in "" dated "11-Jul-86 12:34:03") (FILECREATED "15-Jul-86 21:58:05" {ERIS}INTERPRESS>READINTERPRESS.;5 13701 changes to: (FNS PRINTTOKEN PRINTSEQUENCE TOKENFORMAT PRINTMASTER SHORTINT OPCODE) (MACROS BIN.RIP) (FILEVARS READINTERPRESSCOMS) previous date: "28-Mar-85 17:08:33" {ERIS}INTERPRESS>READINTERPRESS.;1) PRINTMASTERA0001 D1 (NAME ERRORSET P 3 C P 0 ISTREAM F 4 OUTPUTFILE F 5 RESETVARSLST F 6 FILE F 7 RESETY F 10Q FROM) 0oVg XhUc ToTg chUc H [dl 4T Hd0HkIWjdJJ H hciT oH T oT lhT HT (226Q PRINTTOKEN 220Q TAB 210Q PRIN1 177Q PRINTNUM 173Q GETFILEPTR 160Q PRINTCCODE 145Q EOFP 140Q SETFILEPTR 77Q TERPRI 44Q OPENSTREAM 15Q OPENSTREAM) (112Q FDEV 105Q STREAM 41Q OUTPUT 12Q INPUT) ( 204Q "|" 167Q (FIX 5) 35Q (PROGN (CLOSEF OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE))) 6 (PROGN (CLOSEF OLDVALUE))) PRINTMASTER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 TO I 2 FROM I 1 OUTPUTFILE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q PRINTMASTERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PRINTMASTERA0001)) OPCODE D1 (I 1 BYTE2 I 0 BYTE1) @lAj (14Q FINDOPNAME) NIL () TOKEN D1 (P 0 BYTES) eHjH @g@  h@ dg,gHk2JdIK aL Mh\JkZM&dg@l dg@lAj dg@l Hj񴔰g(227Q SHOULDNT 206Q FINDSEQUENCETYPE 167Q FINDOPNAME 142Q FINDOPNAME 76Q APPLY 43Q TOKENFORMAT 33Q \FZEROP 27Q APPLY) (221Q LONGSEQUENCE 174Q SHORTSEQUENCE 147Q LONGOP 130Q SHORTOP 56Q SHORTINT 47Q SHORTINT 23Q TOKEN) () FINDNONPRIMNAME D1 (I 0 CODE) @o (7 SEARCHIPLIST) NIL ( 4 ((BEGINMASTER 146Q) (ENDMASTER 147Q) (PAGEINSTRUCTIONS 151Q) ({ 152Q) (} 153Q))) FINDOPNAME D1 (I 0 CODE) @o (7 SEARCHIPLIST) NIL ( 4 ((ABS 310Q) (ADD 311Q) (AND 312Q) (CEILING 313Q) (CONCAT 245Q) (CONCATT 250Q) (COPY 267Q) (CORRECT 156Q) (CORRECTMASK 234Q) (CORRECTSPACE 235Q) (COUNT 274Q) (DIV 314Q) (DO 347Q) (DOSAVE 350Q) (DOSAVEALL 351Q) (DOSAVESIMPLEBODY 170Q) (DUP 265Q) (EQ 315Q) (ERROR 1130Q) (EXCH 271Q) (FGET 24Q) (FINDCOLOR 647Q) (FINDCOLORMODELOPERATOR 646Q) (FINDCOLOROPERATOR 645Q) (FINDDECOMPRESSOR 225Q) (FINDFONT 223Q) (FLOOR 316Q) (FSET 25Q) (GE 317Q) (GETCP 237Q) (GETPROP 437Q) (GT 320Q) (IF 357Q) (IFCOPY 360Q) (IFELSE 361Q) (IGET 22Q) (ISET 23Q) (LINETO 27Q) (LINETOX 16Q) (LINETOY 17Q) (MAKEGRAY 651Q) (MAKEOUTLINE 641Q) (MAKEPIXELARRAY 702Q) (MAKESAMPLEDBLACK 652Q) (MAKESAMPLEDCOLOR 653Q) (MAKESIMPLECO 162Q) (MAKEPIXELARRAY 702Q) (MAKEVEC 433Q) (MAKEVECLU 432Q) (MARK 272Q) (MASKFILL 631Q) (MASKPIXEL 704Q) (MASKRECTANGLE 632Q) (MASKSTROKE 30Q) (MASKTRAPEZOIDX 633Q) (MASKTRAPEZOIDY 634Q) (MASKUNDERLINE 636Q) (MASKVECTOR 671Q) (MERGEPROP 440Q) (MOD 321Q) (MODIFYFONT 224Q) (MOVE 251Q) (MOVETO 31Q) (MUL 322Q) (NEG 323Q) (NOP 1) (NOT 324Q) (OR 325Q) (POP 264Q) (REM 330Q) (ROLL 270Q) (ROTATE 243Q) (ROUND 331Q) (SCALE 244Q) (SCALE2 246Q) (SETCORRECTMEASURE 232Q) (SETCORRECTTOLERANCE 233Q) (SETFONT 227Q) (SETGRAY 650Q) (SETXREL 14Q) (SETXY 12Q) (SETXYREL 13Q) (SETYREL 15Q) (SHAPE 435Q) (SHOW 26Q) (SHOWANDXREL 222Q) (SPACE 20Q) (STARTUNDERLINE 635Q) (SUB 326Q) (TRANS 252Q) (TRANSLATE 242Q) (TRUNC 327Q) (TYPE 334Q) (UNMARK 273Q) (UNMARK0 300Q))) SHORTINT D1 (L (0 BYTES)) !eHkjJIKJaJkZKnNIL NIL () TOKENFORMAT D1 (I 0 BYTE) B@djglHdjgkgHdlglg(77Q SHOULDNT) (73Q LONGSEQUENCE 63Q SHORTSEQUENCE 51Q LONGOP 42Q SHORTOP 16Q SHORTINT) () FINDSEQUENCETYPE D1 (L (0 CODE)) $oH @gh@IIHXNIL (16Q NOT-A-SEQUENCE-TYPE) ( 3 ((SEQADAPTIVEPIXELVECTOR 14Q) (SEQCOMMENT 6) (SEQCOMPRESSPIXELVECTOR 12Q) (SEQCONTINUED 7) (SEQIDENTIFIER 5) (SEQINSERTFILE 13Q) (SEQINTEGER 2) (SEQLARGEVECTOR 10Q) (SEQPACKEDPIXELVECTOR 11Q) (SEQRATIONAL 4) (SEQSTRING 1))) PRINTTOKEN D1 (P 3 BYTE2 P 2 CODE P 1 BYTE1 P 0 C I 1 OSTREAM I 0 ISTREAM) k@ A llhA oA lhA oHA oA H!I dgT@ A llhA oA lhA oHA oA HlhA IK A dg0IllhA J J Jo A A dgnIl@ A llhA oA lhA oHA oA HغlhA J J Jo A A 'dgN@AIl @ A llhA oA lhA oHA oA H g@AIl @ A llhA oA lhA oHA oA H@ A llhA oA lhA oHA oA H@ A llhA oA lhA oHA oA H h(1147Q SHOULDNT 1143Q PRINTSEQUENCE 1133Q PRIN1 1122Q PRINTNUM 1110Q TAB 1100Q PRIN1 1067Q TAB 1053Q POSITION 1036Q PRIN1 1025Q PRINTNUM 1013Q TAB 1003Q PRIN1 772Q TAB 756Q POSITION 740Q PRIN1 727Q PRINTNUM 715Q TAB 705Q PRIN1 674Q TAB 660Q POSITION 647Q FINDSEQUENCETYPE 623Q PRINTSEQUENCE 615Q PRIN1 604Q PRINTNUM 572Q TAB 562Q PRIN1 551Q TAB 535Q POSITION 524Q FINDSEQUENCETYPE 500Q TERPRI 473Q PRIN1 467Q CONCAT 455Q FINDNONPRIMNAME 447Q FINDOPNAME 442Q TAB 426Q PRIN1 415Q PRINTNUM 403Q TAB 373Q PRIN1 362Q TAB 346Q POSITION 315Q TERPRI 310Q PRIN1 304Q CONCAT 272Q FINDNONPRIMNAME 264Q FINDOPNAME 257Q TAB 230Q PRINT 224Q SHORTINT 216Q TAB 203Q PRIN1 172Q PRINTNUM 160Q TAB 150Q PRIN1 137Q TAB 123Q POSITION 102Q TOKENFORMAT 70Q PRIN1 57Q PRINTNUM 45Q TAB 35Q PRIN1 24Q TAB 10Q POSITION) (631Q LONGSEQUENCE 507Q SHORTSEQUENCE 324Q LONGOP 237Q SHORTOP 106Q SHORTINT) ( 1127Q " " 1115Q (FIX 3) 1074Q "|" 1032Q " " 1020Q (FIX 3) 777Q "|" 734Q " " 722Q (FIX 3) 701Q "|" 611Q " " 577Q (FIX 3) 556Q "|" 464Q "not an opcode" 422Q " " 410Q (FIX 3) 367Q "|" 301Q "not an opcode" 177Q " " 165Q (FIX 3) 144Q "|" 64Q " " 52Q (FIX 3) 31Q "|") PRINTSEQUENCE D1 (P 20Q VAL P 17Q BYTESPERELT P 16Q I P 14Q J P 12Q YBYTES P 11Q YBITS P 10Q XBITS P 7 I P 6 DENOM P 5 NUM P 4 I P 2 SCSET P 1 CHAR P 0 CHARSET I 3 LENGTH I 2 TYPE I 1 OUTSTREAM I 0 ISTREAM) RBdglhA oA @j jCjh@ Il3@d YlClbIClb@ jl@ Z2@ JXHZnClbI@ ICkbIJIA g#lhA CkLK@A Lk\BdgC@C @C lhA MA oA NA oA MNA JglhA oA CA oA @j jCjh@ Il3@d YlClbIClb@ jl@ Z2@ JXHZnClbI@ ICkbIJIA gA BdgJCklhA oA CA oA lhA LKo@ A Lk\Rgl@l @l  lhA oA oA CA oA OA oA OA oA Ol_OC9A l hA Ok OOo@ A Ok_Ok_BdgjCl@ lhA oA OA oA OO6@O _ lhA oOA oA O A Ok_1go "Bdgo go A (1517Q TERPRI 1512Q SHOULDNT 1506Q HELP 1471Q HELP 1450Q HELP 1420Q PRIN1 1411Q PRIN1 1400Q PRINTNUM 1365Q TAB 1353Q READINT.IP 1335Q PRIN1 1324Q PRIN1 1315Q PRIN1 1304Q TAB 1225Q PRINTNUM 1175Q TAB 1165Q TERPRI 1135Q PRIN1 1124Q PRIN1 1115Q PRIN1 1104Q PRIN1 1075Q PRIN1 1064Q PRIN1 1056Q PRIN1 1045Q PRIN1 1034Q TAB 1022Q READINT.IP 1014Q READINT.IP 761Q PRINTNUM 741Q TAB 731Q PRIN1 720Q PRIN1 712Q PRIN1 701Q TAB 651Q PRIN1 636Q PRINTCCODE 553Q \NSIN.24BITENCODING.ERROR 461Q CHARSET 453Q PRIN1 442Q PRIN1 434Q PRIN1 423Q TAB 400Q PRIN1 370Q PRIN1 357Q PRIN1 351Q PRIN1 340Q PRIN1 332Q TAB 320Q READINT.IP 312Q READINT.IP 260Q PRINTTOKEN 241Q TAB 215Q PRINTCCODE 132Q \NSIN.24BITENCODING.ERROR 40Q CHARSET 32Q PRIN1 21Q TAB) (1475Q SEQCOMPRESSPIXELVECTOR 1457Q SEQINSERTFILE 1437Q SEQCONTINUED 1261Q SEQLARGEVECTOR 777Q SEQPACKEDPIXELVECTOR 661Q SEQCOMMENT 645Q %" 407Q SEQSTRING 300Q SEQRATIONAL 227Q SEQINTEGER 4 SEQIDENTIFIER) ( 1503Q "Can't handle SEQCOMPRESSPIXELVECTOR yet" 1466Q "Can't handle SEQINSERTFILE yet" 1445Q "Can't handle SEQCONTINUED yet" 1405Q ": " 1372Q (FIX 5) 1331Q " bytes per element" 1311Q "Large vector of " 1217Q (FIX 10Q -2 T) 1131Q "]" 1111Q "X" 1071Q " bytes [" 1052Q " vector of " 1041Q "Packed pixel" 753Q (FIX 4) 725Q " bytes" 706Q "Comment vector of " 447Q "] = %"" 430Q "STR[" 364Q " = " 345Q "/" 26Q "ID: ") SEARCHIPLIST D1 (L (1 IPLIST 0 CODE)) AHh@IIHXNIL NIL () READINT.IP D1 (P 4 C P 2 RESULT P 1 I I 1 NBYTES I 0 ISTREAM) dAkjIH=J@ ll o l oL k LIkYJAdkKk kkK kk(134Q LLSH 123Q LLSH 72Q SPACES 65Q PRINTNUM 54Q TAB 46Q PRIN1 36Q TAB 24Q POSITION) NIL ( 61Q (FIX 3) 43Q "|") SHOWFILEA0001 D1 (NAME ERRORSET P 13Q B8 P 12Q B7 P 11Q B6 P 10Q B5 P 7 B4 P 6 B3 P 5 B2 P 4 B1 P 3 NZEROLINES P 2 I P 0 STREAM F 14Q RESETVARSLST F 15Q OUTPUTFILE F 16Q IPFILE F 17Q RESETY) W  oWg XhWcH ghhWcoWg chWcW ` Hg h h kj H4HkIoJ l H H H H _l H _H _H _H _l LoL MoM NoN OoO l OoO OoO OoO OoO h JlԺ-W W hci(515Q CLOSEF 510Q CLOSEF 471Q TERPRI 464Q PRINTNUM 447Q PRINTNUM 432Q PRINTNUM 415Q PRINTNUM 400Q SPACES 372Q PRINTNUM 355Q PRINTNUM 342Q PRINTNUM 327Q PRINTNUM 314Q TAB 304Q SHOWBYTE 275Q SHOWBYTE 266Q SHOWBYTE 257Q SHOWBYTE 252Q SPACES 242Q SHOWBYTE 235Q SHOWBYTE 230Q SHOWBYTE 223Q SHOWBYTE 216Q SPACES 210Q PRINTNUM 146Q TERPRI 141Q TERPRI 134Q PRIN1 131Q OPENP 121Q CHANGEFONT 112Q OUTPUT 72Q OPENFILE 43Q OUTPUT 34Q GETSTREAM 16Q OPENFILE) (165Q FDEV 160Q STREAM 126Q INPUT 116Q DEFAULTFONT 67Q OUTPUT 40Q OUTPUT 13Q INPUT) ( 457Q (FIX 4) 442Q (FIX 4) 425Q (FIX 4) 410Q (FIX 4) 365Q (FIX 4) 351Q (FIX 4) 336Q (FIX 4) 323Q (FIX 4) 204Q (FIX 5) 62Q (PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE))) 6 (PROGN (CLOSEF? OLDVALUE))) SHOWFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 MAXZEROLINES I 1 OUTPUTFILE I 0 IPFILE F 3 LISPXHIST F 4 RESETVARSLST) )BlbS!Tog hgZ JI(44Q ERROR! 37Q RESETRESTORE 25Q SHOWFILEA0001) (33Q ERROR 22Q INTERNAL) ( 17Q (SHOWFILEA0001)) SHOWBYTE D1 (P 1 BYTE I 0 STREAM) ;@4@kH@ hIl IlIIl`I g I(67Q PRIN1 60Q CHARACTER) (64Q %. 10Q FDEV 3 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)) NIL