mim/development/mim/vaxc/init.mima

   1
   2 <USE "NEWSTRUC">
   3
   4 #WORD *35413340121*
   5                     <GFCN \1aGET-FIELD ("VALUE" FIX <PRIMTYPE FIX> BITS) WD4 BITS5>
   6                     <TEMP TEMP10:FIX MSK9:FIX RB11:BITS SHFT12:FIX>
   7                     <INTGO>
   8                     <GVAL 'M$$R-BHWD = TEMP10>
   9                     <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
  10                     <LSH -1 TEMP10 = MSK9 (TYPE FIX)>
  11                     <DEAD TEMP10>
  12                     <SET RB11 BITS5>
  13                     <DEAD BITS5>
  14                     <AND RB11 MSK9 = SHFT12>
  15                     <GVAL 'M$$R-BHWD = TEMP10>
  16                     <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
  17                     <LSH RB11 TEMP10 = TEMP10 (TYPE FIX)>
  18                     <DEAD RB11>
  19                     <AND TEMP10 MSK9 = TEMP10>
  20                     <DEAD MSK9>
  21                     <GETBITS WD4 TEMP10 SHFT12 = TEMP10>
  22                     <DEAD WD4 SHFT12>
  23                     <RETURN TEMP10>
  24                     <DEAD TEMP10>
  25                     <END \1aGET-FIELD>
  26
  27 #WORD *14733136012*
  28                     <GFCN \1aLHW ("VALUE" FIX <PRIMTYPE FIX>) WD4>
  29                     <TEMP TEMP5>
  30                     <INTGO>
  31                     <GETBITS WD4 16 16 = TEMP5>
  32                     <DEAD WD4>
  33                     <RETURN TEMP5>
  34                     <DEAD TEMP5>
  35                     <END \1aLHW>
  36
  37 #WORD *13072761412*
  38                     <GFCN \1aRHW ("VALUE" FIX <PRIMTYPE FIX>) WD4>
  39                     <TEMP TEMP5:FIX>
  40                     <INTGO>
  41                     <AND WD4 #WORD *177777* = TEMP5>
  42                     <DEAD WD4>
  43                     <RETURN TEMP5>
  44                     <DEAD TEMP5>
  45                     <END \1aRHW>
  46
  47 #WORD *35135547374*
  48                     <GFCN \1aPUT-LHW ("VALUE" FIX <PRIMTYPE FIX> <PRIMTYPE FIX>) WD4 VAL5>
  49                     <TEMP TEMP6:FIX>
  50                     <INTGO>
  51                     <PUTBITS WD4 16 16 VAL5 = TEMP6>
  52                     <DEAD WD4 VAL5>
  53                     <RETURN TEMP6>
  54                     <DEAD TEMP6>
  55                     <END \1aPUT-LHW>
  56
  57 #WORD *11475543577*
  58                     <GFCN \1aPUT-RHW ("VALUE" FIX <PRIMTYPE FIX> <PRIMTYPE FIX>) WD4 VAL5>
  59                     <TEMP TEMP6:FIX>
  60                     <INTGO>
  61                     <PUTBITS WD4 16 0 VAL5 = TEMP6>
  62                     <DEAD WD4 VAL5>
  63                     <RETURN TEMP6>
  64                     <DEAD TEMP6>
  65                     <END \1aPUT-RHW>
  66
  67 #WORD *22002473353*
  68                     <GFCN \1aTAB ("VALUE" CHARACTER)>
  69                     <TEMP TEMP5>
  70                     <INTGO>
  71                     <FRAME '\1aPRINC>
  72                     <PUSH !\    >
  73                     <GEN-LVAL 'OUTCHAN = STACK>
  74                     <CALL '\1aPRINC 2 = TEMP5>
  75                     <RETURN TEMP5>
  76                     <DEAD TEMP5>
  77                     <END \1aTAB>
  78
  79 <ENV-COND ((ENVIRONMENT MIM) <PUT-DECL BOOLEAN '<OR ATOM FALSE>>) (T <PUT BOOLEAN DECL '<OR ATOM FALSE>>)>
  80
  81 <SETG FCN ,FUNCTION>