*COMDECK C7DECS 
          CONTROL NOLIST;    #C7DECS# 
  
DEF   BYPW$    #10#; #BYTES PER WORD# 
DEF   BIPW$    #60#; #BITS PER WORD#
DEF   BIPB$    #6#; #BITS PER BYTE# 
DEF T #TRUE#; DEF F #FALSE#;
DEF VRAI #1#; # FASTER  TRUE AS PARAMETER#                               JANDRE 
DEF FAUX #0#; # FASTER FALSE ASPARAMETER #                               JANDRE 
DEF TENTH #O"17170631463147362434"#;   # 0.10+EPSILON #                  JANDRE 
DEF ICCP #127#; 
DEF LOP #TOP[0]#; 
DEF ROP #TOP[1]#; 
DEF MLP #MOP[0]#; 
DEF MRP #MOP[1]#; 
DEF OOES #5#;     # 5 WORDS PER TRIAD  #                                 JANDRE 
DEF TRSZ #1999#;  # TRIAD ARRAY SIZE-1 #                                 JANDRE 
DEF SHSZ #100#;   #STACK HISTORY SIZE #                                  JANDRE 
DEF ILUP #128# ;
STATUS QACSS NULL,GR,EQ,LS; #THAN FULL WORD#
  
STATUS QRLTL NQ,EQ,LS,GR,LQ,GQ,TR,FL; 
  
STATUS QAOP   NULL,PLUS,SUB,MUL,DIV,MOD,
              RIEX,RREX,IIEX,FIEX,
              ABS,MNUS,COMP,
              LOR,LAND,LXOR,LEQV,LIMP,
              QAOP$;
  
STATUS QCTYP O,H,T; 
  
STATUS QKLSS ADDR,SOURCE,SINK;
  
STATUS QVFLG NUMB,LITR,BOOL;
  
          CONTROL NOLIST;    #C7DECS# 
  
          CONTROL NOLIST;    #C7DECS# 
  
STATUS QCLSS A,B,C,D,F,I,                                                JANDRE 
             QCLSS$;
  
STATUS QIOP   PRIM,EXPM,EXPD,EXPR,EXPE,EXP1,EXP2, 
              COMP,NULL,BAD,FLX,LFLX,RFLX,
              PTRM,PARM,INFO,PAUS,
              PNOT,SUBS,FUNI,TSST,
              FCAL , VALU , VALB ,
              PLST ;
STATUS QEXTYP F,I,J,R,S;
STATUS QLTROC NULL,LITR,OCT;
  
STATUS QFNBS  NULL,IRX,RIX,                                              JANDRE 
              RDX,                                                       JANDRE 
              LOC,BIT,BYTE,PFUN,                                         JANDRE 
              CIX,CRX,ICX,RCX,QFNBS$;                                    JANDRE 
# QFNBS=QFNBR WITHOUT JOVIAL-ONLY-STATUS, WAITING CHANGES IN FNBR #      JANDRE 
                                                                         JANDRE 
*CALL COM77 
          CONTROL NOLIST;    #C7DECS# 
*CALL REGNOS
          CONTROL NOLIST;    #C7DECS# 
          CONTROL LIST;      #C7DECS# 
