DIRECTORY P5 USING []; FOpTable: PROGRAM EXPORTS P5 = BEGIN Q: TYPE = PRIVATE RECORD [ push: [0..3], pop: [0..7], length: [0..3], mark: BOOL]; T: BOOL = TRUE; F: BOOL = FALSE; OpParms: PRIVATE ARRAY [0..256) OF Q = [ Q[0,0,0,F], Q[1,0,1,F], Q[0,1,1,F], Q[1,0,1,F], Q[0,1,1,F], Q[1,0,1,F], Q[1,0,1,F], Q[2,0,1,F], Q[0,2,1,F], Q[2,0,1,F], Q[0,2,1,F], Q[1,1,1,F], Q[0,2,1,F], Q[1,1,2,F], Q[0,2,2,F], Q[2,1,1,F], Q[0,3,1,F], Q[1,2,1,F], Q[0,3,1,F], Q[1,1,2,F], Q[0,2,2,F], Q[1,1,2,F], Q[0,2,2,F], Q[1,0,2,F], Q[1,0,2,F], Q[0,2,1,F], Q[0,2,2,F], Q[0,3,1,F], Q[1,0,3,F], Q[0,1,2,F], Q[0,1,2,F], Q[1,1,2,F], Q[1,1,2,F], Q[1,2,1,F], Q[1,3,1,F], Q[1,2,2,F], Q[1,1,1,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,3,0,F], Q[1,2,0,F], Q[1,1,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,0,0,F], Q[0,1,0,F], Q[2,2,0,F], Q[0,0,1,F], Q[0,0,1,F], Q[0,0,1,F], Q[0,1,0,F], Q[0,0,0,F], Q[0,1,0,F], Q[0,0,0,F], Q[0,0,1,F], Q[0,3,0,T], Q[0,3,0,T], Q[1,1,0,F], Q[0,1,0,F], Q[0,0,0,F], Q[1,0,1,F], Q[0,1,0,T], Q[0,1,0,F], Q[0,0,1,F], Q[0,0,1,F], Q[0,0,1,F], Q[0,1,1,F], Q[1,0,1,F], Q[0,0,0,F], Q[0,3,0,T], Q[0,1,1,F], Q[1,0,1,F], Q[1,1,1,F], Q[0,1,1,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[1,2,0,F], Q[0,2,1,F], Q[0,2,1,F], Q[0,0,0,F], Q[0,0,0,F], Q[1,0,1,F], Q[1,0,1,F], Q[1,1,0,F], Q[1,1,0,F], Q[2,1,0,F], Q[0,0,0,F], Q[0,4,0,T], Q[0,2,0,T], Q[1,1,0,F], Q[1,1,1,F], Q[1,1,0,F], Q[2,4,0,T], Q[2,4,0,T], Q[1,4,0,T], Q[1,4,0,T], Q[2,4,0,T], Q[2,4,0,T], Q[2,4,0,T], Q[2,4,0,T], Q[2,4,0,T], Q[0,0,0,F], Q[0,0,0,F], Q[1,1,2,F], Q[1,2,0,F], Q[0,3,0,F], Q[1,1,0,F], Q[2,2,0,F], Q[1,2,0,F], Q[2,1,0,F], Q[1,1,0,T], Q[1,2,0,T], Q[0,3,0,T], Q[0,1,0,T], Q[0,1,0,T], Q[0,1,0,T], Q[0,3,0,T], Q[1,2,0,T], Q[1,4,0,T], Q[0,5,0,T], Q[0,2,0,T], Q[0,2,0,T], Q[0,2,0,T], Q[0,5,0,T], Q[1,2,1,F], Q[0,3,1,F], Q[2,2,1,F], Q[0,4,1,F], Q[1,1,2,F], Q[0,2,2,F], Q[1,1,2,F], Q[0,2,2,F], Q[1,0,2,F], Q[0,1,2,F], Q[1,0,2,F], Q[0,1,2,F], Q[1,3,1,F], Q[0,4,1,F], Q[1,2,2,F], Q[0,3,2,F], Q[0,5,0,T], Q[0,4,0,T], Q[1,3,0,F], Q[0,4,0,F], Q[2,1,0,F], Q[2,4,0,T], Q[2,4,0,T], Q[2,4,0,T], Q[2,4,0,T], Q[1,4,0,T], Q[2,3,0,T], Q[2,2,0,T], Q[2,2,0,T], Q[0,4,1,F], Q[0,4,1,F], Q[1,2,0,F], Q[2,3,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F], Q[0,0,0,F]]; PushEffect: PUBLIC PROC [b: [0..256)] RETURNS [[0..3]] = BEGIN RETURN [OpParms[b].push] END; PopEffect: PUBLIC PROC [b: [0..256)] RETURNS [[0..7]] = BEGIN RETURN [OpParms[b].pop] END; NumberOfParams: PUBLIC PROC [b: [0..256)] RETURNS [[0..3]] = BEGIN RETURN [OpParms[b].length] END; MinimalStack: PUBLIC PROC [b: [0..256)] RETURNS [BOOL] = BEGIN RETURN [OpParms[b].mark] END; END. JFOpTable.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Sweet, January 11, 1980 2:57 PM Satterthwaite, November 2, 1982 3:56 pm Russ Atkinson (RRA) March 6, 1985 11:20:53 pm PST generated by OpDefsGenerator 31-May-82 12:19 NOOP LG SG LL 000-003 SL LI LCO LGD 004-007 SGD LLD SLD R 010-013 W RF WF RD 014-017 WD RSTR WSTR RXL 020-023 WXL RXG WXG RIG 024-027 RIL WS WSF WSD 030-033 RILF WIG WIL RII 034-037 RIIL PS PSD PSF 040-043 PL ADD SUB MUL 044-047 AMUL DIV LDIV SDIV 050-053 NEG AND OR XOR 054-057 SHIFT PUSH POP EXCH 060-063 CATCH EFC LFC SFC 064-067 RET PORTO PORTI KFCB 070-073 BLT BLTC ALLOC FREE 074-077 STOP LLK BITBLT STARTIO 100-103 DST LST LSTF WR 104-107 RR BRK BLTR LINKB 110-113 DESCB DESCBS FDESCBS MAX 114-117 MIN UMAX UMIN STFORB 120-123 STFORW ENDFOR UENDFOR GADRB 124-127 LADRB DEC INC DUP 130-133 J JDREL JREL ADD2 134-137 ADDSB DBL DADD DSUB 140-143 DCOMP DUCOMP DMUL DDIV 144-147 DUDIV DMOD DUMOD IWDC 150-153 DWDC RFC RFS WFS 154-157 NILCK NILCKL BNDCK LINT 160-163 ME MRE MXW MXD 164-167 NOTIFY BCAST REQUEUE MEL 170-173 MREL MXWL MXDL NOTIFYL 174-177 BCASTL REQUEUEL RL WL 200-203 RDL WDL RXLL WXLL 204-207 RXGL WXGL RILL WILL 210-213 RIGL WIGL RSTRL WSTRL 214-217 RFL WFL BLTL BLTCL 220-223 RFSL WFSL LP FADD 224-227 FSUB FMUL FDIV FCOMP 230-233 FSC FIX FLOAT ICDL 234-237 WCDL GCRT BLZL 240-243 244-247 250-253 254-257 260-263 264-267 270-273 274-277 300-303 304-307 310-313 314-317 320-323 324-327 330-333 334-337 340-343 344-347 350-353 354-357 360-363 364-367 370-373 374-377 Э╩∙ШcodeЪЬ Щ KЪЬ ╧mЬ1Щ