(FILECREATED " 4-Sep-84 22:06:27" ("compiled on " {ERIS}DPRESS.;3) "31-Aug-84 16:03:36" tcompl%'d in "INTERLISP-D 31-Aug-84 ..." dated "31-Aug-84 16:17:57") (FILECREATED " 4-Sep-84 22:06:05" {ERIS}DPRESS.;3 19545 changes to: (FNS DPRESS.COMMANDS DPRESS.COMMANDS.PASS1 DPRESS.COMMAND.PASS1 \WIN \DWIN DPRESS.COMMANDS.PASS2 DPRESS.COMMAND.PASS2 DPRESS.FILE DPRESS.DD DPRESS.PARTDIR DPRESS.FONTSET DPRESS.PAGE)) DPRESS.COMMANDS D1 (P 4 COMMANDS P 3 DLOCATION P 2 ELENGTH P 1 ENTITY P 0 ELOCATION I 1 ED I 0 STREAM) 8PAÉXAÉÈlÚZAÉ[@HJ\@LK\ALL(54Q DPRESS.COMMANDS.PASS2 45Q DPRESS.COMMANDS.PASS1) (61Q ED 34Q ED 22Q ENTITY 15Q ED 6 ED) () DPRESS.COMMANDS.PASS1 D1 (P 0 COMMANDS I 2 ELENGTH I 1 ELOCATION I 0 STREAM) 0@A 0@ ABlÙØýñ²@ »Jµ KhZ¹°åK&º°àI(34Q DPRESS.COMMAND.PASS1 16Q GETFILEPTR 7 \SETFILEPTR) NIL () DPRESS.COMMAND.PASS1 D1 (P 6 I P 4 COMMAND P 3 N P 2 PRESSARGS P 1 PRESSOP P 0 CODE I 0 STREAM F 12Q ELC.ARRAY) { P@ XWH(Ydgðdgð§ddgð”¿h±Ugð³+Igð³$Igð³Igð³IgðIgð§Idgð—¿@ h±gð³Igð³IgðIgð§Idgð™¿@ h±õgð§Idgð™¿@ h±ßgðIgð§Idgð¿HI ÙkØh±¿gðIgð§Idgð›¿HI Ùh±¡gð¨Idgð²¿HI ÙnÚ@ Øh±gð²@ @ @ h°hIdgð›¿@ @ h°Ugð²5@ [dk2 NMñ³"@ _¿OµOh__¿NkØ^°æO&_¿°ôO°Igð›@ @ h‡oI ZIJ(564Q ERROR 550Q \WIN 544Q \WIN 432Q \WIN 410Q \DWIN 404Q \DWIN 400Q \WIN 351Q GETTOPVAL 320Q GETTOPVAL 260Q GETTOPVAL 223Q \DWIN 175Q \WIN) (536Q Show.rectangle 444Q Skip.control.bytes.immediate 423Q Skip.control.bytes 371Q Alternate 340Q Set.space.y.short 331Q Set.space.x.short 310Q ..spare.. 301Q ..available.. 273Q Font 250Q Show.characters.and.skip 241Q Skip.characters.short 233Q Show.characters.short 214Q Show.dots.opaque 205Q Show.dots 166Q Show.object 157Q Set.space.y 151Q Set.space.x 142Q Set.y 133Q Set.x 116Q Set.saturation 107Q Set.hue 101Q Set.brightness 72Q Show.character.immediate 63Q Skip.characters 54Q Show.characters 45Q Only.on.copy 33Q Nop 24Q Space 16Q Reset.space) ( 560Q "BAD PRESSOP") \WIN D1 (I 0 STREAM) @ nÚ@ ØNIL NIL () \DWIN D1 (I 0 STREAM) @ oÚ@ Ø(14Q \WIN 3 \WIN) NIL ( 7 200000Q) DPRESS.COMMANDS.PASS2 D1 (P 4 COMMAND P 0 NEWCOMMANDS I 2 DLOCATION I 1 COMMANDS I 0 STREAM) )@B @A°d¼@L ¹JµIh[I&ºµêK(25Q DPRESS.COMMAND.PASS2 7 \SETFILEPTR) NIL () DPRESS.COMMAND.PASS2 D1 (P 10Q I P 6 NEWCOMMAND P 5 NEWOP P 4 NEWARGS P 3 NEWARG P 2 PRESSARG P 1 PRESSARGS P 0 PRESSOP I 1 COMMAND I 0 STREAM) spAXAYdZHgð¨Hdgð²¿J »@KÉjJ¿Kh±gð˜J h±Hgð®Hgð¨Hdgð²<¿IJk2OOñ³$@ _¿OµOh__¿OkØ_°ãO&_¿°òO ±´gð²7Jk2OOñ³&@ _¿OµOh__¿OkØ_°áO&_¿°òO°xHgð¨Hdgð²8¿Jk2OOñ³&@ _¿OµOh__¿OkØ_°áO&_¿°òO°4gð²J »@KÉjJ¿K@ hHgð˜Ho €I\Hdgð•¿g°"gð”g°Hdgð”¿g‰gð“g€HdL(475Q ERROR 453Q CHARACTER 444Q \BINS 427Q ALLOCSTRING 350Q \WIN 244Q \WIN 213Q \APPEND2 73Q CHARACTER 53Q \BINS 36Q ALLOCSTRING) (553Q Set.space.y 546Q Set.space.y.short 542Q Set.space.x 534Q Set.space.x.short 525Q Skip.characters 520Q Skip.characters.short 513Q Show.characters 505Q Show.characters.short 463Q Alternative 435Q STRINGP 420Q Show.characters.and.skip 324Q Show.dots.opaque 315Q Show.dots 221Q Show.object 121Q Skip.characters.short 112Q Skip.control.bytes 104Q Skip.characters 65Q Show.character.immediate 44Q STRINGP 26Q Show.characters.short 17Q Show.characters) ( 472Q "NOT IMPLEMENTED") DPRESS.FILE D1 (P 12Q PDE P 6 PFD P 5 FDES P 4 FONTSETS P 3 FONTSET P 2 PDES P 1 DD P 0 STREAM I 0 FILE F 13Q DDRECORD#) è@ggXdg nÛkÙcHW YHIÈIÈZd Oµ&L \`d@¿dH¿dI¿dJ¿dL¿_È_djð•¿g°5kð”g°-Odmÿð•¿g° mþð³Omýð«Omüð¥Omûð“g‚ggð²2HOÈ ½`MÊ_¿dO¿dO¿dM¿[L¼O_±ÿW(271Q DPRESS.FONTSET 102Q DREVERSE 63Q DPRESS.PARTDIR 42Q DPRESS.DD 24Q GETFILEINFO 14Q OPENSTREAM) (303Q FDE 275Q FONTSETTYPE# 264Q PDE 253Q FONTDIR 250Q ? 244Q OFFICETALK 210Q CYPRESS 173Q FONTDIR 163Q PAGE 147Q PDE 106Q PFDTYPE# 56Q DD 50Q DD 21Q LENGTH 11Q OLD 6 INPUT) () DPRESS.DD D1 (P 0 DD I 1 RECORD# I 0 STREAM) `dnj/Í¿X@AHH(24Q \READPAGES) (5 DDTYPE#) () DPRESS.PARTDIR D1 (P 3 I P 1 PDES P 0 PDE I 2 PARTCOUNT I 1 RECORD# I 0 STREAM) 5 @AnÚ BkKJñ³`¸@Hjl¿HI¹KkØ[°æI (62Q DREVERSE 42Q \BINS 13Q \SETFILEPTR) (30Q PDETYPE#) () DPRESS.FONTSET D1 (P 3 I P 1 FDES P 0 FDE I 1 RECORD# I 0 STREAM) A @AnÚ lkKJñ³%`¸@Hjl ¿HÈjØjð©HI¹KkØ[°ÛI (76Q DREVERSE 43Q \BINS 13Q \SETFILEPTR) (50Q FDE 31Q FDETYPE#) () DPRESS.PAGE D1 (P 3 EDS P 2 ED P 1 ENTITY P 0 PTR I 1 PDE I 0 STREAM) ™pAÈAÈØnÚjAÈlÚÙlÙØXjHñ³o`¹@H ¿@Ijl¿IÈjØjð³O`dI¿HjIÈlÚÙlØØ¼dL¿AÈnÚI]ÈMÈõØ¾dN¿ZK»HIÈlÚÙ¸°K(73Q \BINS 62Q \SETFILEPTR) (214Q ENTITY 165Q ENTITY 153Q PDE 127Q ENTITY 113Q EDTYPE# 100Q ENTITY 53Q ENTITYTYPE# 30Q PDE 14Q PDE 6 PDE) () (PRETTYCOMPRINT DPRESSCOMS) (RPAQQ DPRESSCOMS ((* DPRESS -- Disassemble PRESS%, by Kelly Roach *) (COMS (* DPRESSLL *) (INITVARS ( Show.characters.short 0) (Skip.characters.short 32) (Show.characters.and.skip 64) (Set.space.x.short 96) (Set.space.y.short 104) (Font 112) (..available.. 128) (..spare.. 160) ( Skip.control.bytes.immediate 235) (Alternative 236) (Only.on.copy 237) (Set.x 238) (Set.y 239) ( Show.characters 240) (Skip.characters 241) (Skip.control.bytes 242) (Show.character.immediate 243) ( Set.space.x 244) (Set.space.y 245) (Reset.space 246) (Space 247) (Set.brightness 248) (Set.hue 249) ( Set.saturation 250) (Show.object 251) (Show.dots 252) (Show.dots.opaque 253) (Show.rectangle 254) (Nop 255) (Moveto 0) (Drawto 1) (Drawcurve 2) (Set.coding 512) (Set.window 1) (Set.mode 1024) (Set.size 2) (Dots.follow 3) (Get.dots.from.file 4) (Get.dots.from.Press.file 5) (Set.sampling.properties 6) ( SSP.input.intensity 0) (SSP.output.intensity 1) (SSP.screen 2)) (UGLYVARS ELC.ARRAY) (FNS DPRESS.COMMANDS DPRESS.COMMANDS.PASS1 DPRESS.COMMAND.PASS1 \WIN \DWIN DPRESS.COMMANDS.PASS2 DPRESS.COMMAND.PASS2)) (COMS (* DPRESSHL *) (CONSTANTS (PASSWORD.DD 27183) (\ST.BYTE 0) (BytesPerPage 512) (BytesPerWord 2)) (RECORDS DD PDE FDE FONTSET PFD ED ENTITY) (FNS DPRESS.FILE DPRESS.DD DPRESS.PARTDIR DPRESS.FONTSET DPRESS.PAGE)))) (RPAQ? Show.characters.short 0) (RPAQ? Skip.characters.short 32) (RPAQ? Show.characters.and.skip 64) (RPAQ? Set.space.x.short 96) (RPAQ? Set.space.y.short 104) (RPAQ? Font 112) (RPAQ? ..available.. 128) (RPAQ? ..spare.. 160) (RPAQ? Skip.control.bytes.immediate 235) (RPAQ? Alternative 236) (RPAQ? Only.on.copy 237) (RPAQ? Set.x 238) (RPAQ? Set.y 239) (RPAQ? Show.characters 240) (RPAQ? Skip.characters 241) (RPAQ? Skip.control.bytes 242) (RPAQ? Show.character.immediate 243) (RPAQ? Set.space.x 244) (RPAQ? Set.space.y 245) (RPAQ? Reset.space 246) (RPAQ? Space 247) (RPAQ? Set.brightness 248) (RPAQ? Set.hue 249) (RPAQ? Set.saturation 250) (RPAQ? Show.object 251) (RPAQ? Show.dots 252) (RPAQ? Show.dots.opaque 253) (RPAQ? Show.rectangle 254) (RPAQ? Nop 255) (RPAQ? Moveto 0) (RPAQ? Drawto 1) (RPAQ? Drawcurve 2) (RPAQ? Set.coding 512) (RPAQ? Set.window 1) (RPAQ? Set.mode 1024) (RPAQ? Set.size 2) (RPAQ? Dots.follow 3) (RPAQ? Get.dots.from.file 4) (RPAQ? Get.dots.from.Press.file 5) (RPAQ? Set.sampling.properties 6) (RPAQ? SSP.input.intensity 0) (RPAQ? SSP.output.intensity 1) (RPAQ? SSP.screen 2) (READVARS ELC.ARRAY) ({Y256 POINTER 0 {R32 Show.characters.short} {R32 Skip.characters.short} {R32 Show.characters.and.skip } {R8 Set.space.x.short} {R8 Set.space.y.short} {R16 Font} {R32 ..available..} {R75 ..spare..} Skip.control.bytes.immediate Alternative Only.on.copy Set.x Set.y Show.characters Skip.characters Skip.control.bytes Show.character.immediate Set.space.x Set.space.y Reset.space Space Set.brightness Set.hue Set.saturation Show.object Show.dots Show.dots.opaque Show.rectangle Nop }) (RPAQQ PASSWORD.DD 27183) (RPAQQ \ST.BYTE 0) (RPAQQ BytesPerPage 512) (RPAQQ BytesPerWord 2) (CONSTANTS (PASSWORD.DD 27183) (\ST.BYTE 0) (BytesPerPage 512) (BytesPerWord 2)) (DATATYPE DD (* Document Directory *) ((PASSWORD WORD) (LENGTH WORD) (PARTCOUNT WORD) (PARTDIRRECORD# WORD) (PARTDIRLENGTH WORD) (NIL 3 WORD) (FIRSTCOPY WORD) (LASTCOPY WORD) (NIL 118 WORD) (\FILENAME 26 WORD) (\AUTHOR 16 WORD) (\CREATIONDATE 20 WORD) (NIL 66 WORD)) (ACCESSFNS (($PASSWORD (COND ((IEQP ( fetch (DD PASSWORD) of DATUM) PASSWORD.DD) (QUOTE OK)) (T (QUOTE ERROR)))) ($FILENAME (CREATE STRINGP LENGTH _ (\GETBASEBYTE DATUM 256) BASE _ DATUM OFFST _ 257)) ($AUTHOR (CREATE STRINGP LENGTH _ ( \GETBASEBYTE DATUM 308) BASE _ DATUM OFFST _ 309)) ($CREATIONDATE (CREATE STRINGP LENGTH _ ( \GETBASEBYTE DATUM 340) BASE _ DATUM OFFST _ 341)))) PASSWORD _ 27183) (DATATYPE PDE (* Part Directory Entry *) ((TYPE WORD) (RECORD# WORD) (LENGTH WORD) (PADDING WORD)) ( ACCESSFNS (($TYPE (SELECT (fetch (PDE TYPE) of DATUM) (0 (QUOTE PAGE)) (1 (QUOTE FONTDIR)) (-1 (QUOTE CYPRESS)) ((-2 -3 -4 -5) (QUOTE OFFICETALK)) (QUOTE ?)))))) (DATATYPE FDE (* Font Directory Entry *) ((LENGTH WORD) (FONTSET BITS 8) (FONTNUMBER BITS 8) (M BITS 8 ) (N BITS 8) (\NAME 10 WORD) (FACE BITS 8) (SOURCE BITS 8) (SIZE WORD) (ROTATION WORD)) (ACCESSFNS (( $FAMILY (MKATOM (CREATE STRINGP LENGTH _ (\GETBASEBYTE DATUM 6) BASE _ DATUM OFFST _ 7))) ($FACE ( PACKC (LIST (CHCON1 (fetch (FDE $WEIGHT) of DATUM)) (CHCON1 (fetch (FDE $SLOPE) of DATUM)) (CHCON1 ( fetch (FDE $EXPANSION) of DATUM))))) ($WEIGHT (SELECT (IQUOTIENT (IREMAINDER (fetch (FDE FACE) of DATUM) 6) 2) (0 (QUOTE MEDIUM)) (1 (QUOTE BOLD)) (2 (QUOTE LIGHT)) (SHOULDNT))) ($EXPANSION (SELECT ( IQUOTIENT (fetch (FDE FACE) of DATUM) 6) (0 (QUOTE REGULAR)) (1 (QUOTE COMPRESSED)) (2 (QUOTE EXPANDED )) (QUOTE ?))) ($SLOPE (SELECT (IREMAINDER (fetch (FDE FACE) of DATUM) 2) (0 (QUOTE REGULAR)) (1 ( QUOTE ITALIC)) (SHOULDNT))) (NUMBER (IPLUS (ITIMES 16 (fetch (FDE FONTSET) of DATUM)) (fetch (FDE FONTNUMBER) of DATUM)))))) (DATATYPE FONTSET (NUMBER PDE FDES)) (DATATYPE PFD (* Press File Descriptor *) (FILE STREAM DD PDES FONTSETS)) (DATATYPE ED (* Entity Descriptor *) (ENTITY ELOCATION DLOCATION COMMANDS) (ACCESSFNS ((ELENGTH ( ITIMES 2 (fetch (ENTITY EWORDLENGTH) of (fetch (ED ENTITY) of DATUM)))) (DLENGTH (fetch (ENTITY DLENGTH) of (fetch (ED ENTITY) of DATUM)))))) (DATATYPE ENTITY ((TYPE BITS 8) (FONTSET BITS 8) (DLOCATION FIXP) (DLENGTH FIXP) (XE WORD) (YE WORD) ( LEFT WORD) (BOTTOM WORD) (WIDTH WORD) (HEIGHT WORD) (EWORDLENGTH WORD)) (ACCESSFNS ($TYPE (SELECT ( fetch (ENTITY TYPE) of DATUM) (0 (QUOTE PRESS)) (1 (QUOTE CYPRESS)) (4 (QUOTE DRAW)) (6 (QUOTE INTERLISP)) ((64 65 66 67) (QUOTE OFFICETALK)) (QUOTE ?))))) (/DECLAREDATATYPE (QUOTE DD) (QUOTE (WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE PDE) (QUOTE (WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE FDE) (QUOTE (WORD (BITS 8) (BITS 8) (BITS 8) (BITS 8) WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD (BITS 8) (BITS 8) WORD WORD))) (/DECLAREDATATYPE (QUOTE FONTSET) (QUOTE (POINTER POINTER POINTER))) (/DECLAREDATATYPE (QUOTE PFD) (QUOTE (POINTER POINTER POINTER POINTER POINTER))) (/DECLAREDATATYPE (QUOTE ED) (QUOTE (POINTER POINTER POINTER POINTER))) (/DECLAREDATATYPE (QUOTE ENTITY) (QUOTE ((BITS 8) (BITS 8) FIXP FIXP WORD WORD WORD WORD WORD WORD WORD))) NIL