! ! RECORDFORMAT FOR ALL THE OPTION AND FLAG VARAIBLES ! %RECORDFORMAT PARMF(%INTEGER BITS1,BITS2,TTOPUT, %BYTEINTEGER LET,DYNAMIC,LINE,TRACE,ARR,DBUG,CHK,DIAG,OPT,FREE, LIST,CPRMODE,COMPILER,SMAP,Y,PROF,INHCODE,DCOMP,FAULTY,X) %RECORDFORMAT LISTF(%INTEGER S1,S2,S3,LINK) %RECORDFORMAT WORKAF(%INTEGER NNAMES,CCSIZE,DSIZE,ASL MAX,ASL CUR BTM, CONST PTR,CONST BTM,DICTBASE,WKFILEAD,WKFILEK,FILE ADDR,RELEASE, AASL0,SP0,SP1,SP2, %INTEGERNAME LINE,%STRING(9)LADATE, %BYTEINTEGERARRAYNAME CC,A, %INTEGERARRAYNAME WORD,TAGS,PLABS,PLINK,CTABLE) %RECORDFORMAT RTDICTF(%HALFINTEGER PS,RPS,LTS,ENTRY,EXIT, LL,W7,W8,DIAGS,W10,%INTEGER W1112) %RECORDFORMAT RD((%INTEGER S1 %OR %BYTE UPTYPE,PTYPE,XB,FLAG), %INTEGER D,XTRA) %RECORDFORMAT TRIPF(%BYTE OPERN,OPTYPE,CNT,DPTH, %HALFINTEGER FLAGS,PUSE,FLINK,BLINK,%INTEGER X1, %RECORD(RD) OPND1,OPND2) ! ! TRIPF_FLAGS SIGNIFY AS FOLLOWS %CONSTINTEGER LEAVE STACKED=2**0; ! SET LEAVE RESULT IN ESTACK %CONSTINTEGER LOADOP1=2**1; ! OPERAND 1 NEEDS LOADING %CONSTINTEGER LOADOP2=2**2; ! OPERAND 2 NEEDS LOADING %CONSTINTEGER USE ESTACK=2**4; ! KEEP DUPLICATE IN ESTACK %CONSTINTEGER USE MSTACK=2**5; ! PUT DUPLICAT ON MSTACK %CONSTINTEGER CONSTANTOP=2**6; ! ONE OPERAND IS CONSTANT(FOR FOLDING) %CONSTINTEGER COMMUTABLE=2**7; ! OPERATION IS COMMUTABLE %CONSTINTEGER DONT OPT=2**15; ! DONT DUPLICATE THIS RESULT ! USED FOR BYTE PTR & OTHER SODS! ! ! %END %OF %FILE "ERCC07.PERQ_FORMATS"