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