mim/development/mim/20/pager-info.mima

   1
   2 <SETG AC-VECTOR <IUVECTOR 16>>
   3
   4 <GDECL (AC-VECTOR) UVECTOR>
   5
   6 #WORD *5153206002*
   7                     <GFCN \1aPRINT-INFO ("VALUE" <OR ATOM FALSE> "TUPLE" ANY)>
   8                     <MAKTUP IGNORE4 TEMP9 TEMP10 TM6:FLOAT = IGNORE4>
   9                     <INTGO>
  10                     <GVAL 'AC-VECTOR = IGNORE4>
  11                     <FRAME '\1aTIME>
  12                     <CALL '\1aTIME 0 = TEMP9>
  13                     <GVAL 'INITIAL-CPU = TEMP10>
  14                     <SUBF TEMP9 TEMP10 = TM6 (TYPE FLOAT)>
  15                     <DEAD TEMP9 TEMP10>
  16                     <SYSOP 'TIME-JSYS (RETURN 1) = TEMP10>
  17                     <GVAL 'INITIAL-TIME = TEMP9>
  18                     <SUB TEMP10 TEMP9 = TEMP10 (TYPE FIX)>
  19                     <DEAD TEMP9>
  20                     <FLOAT TEMP10 = TEMP10 (TYPE FLOAT)>
  21                     <DIVF TEMP10 1000.0 = TEMP9 (TYPE FLOAT)>
  22                     <DEAD TEMP10>
  23                     <SYSOP 'GTRPI 131072 (RETURN ALL)>
  24                     <FRAME '\1aPRINT-MANY>
  25                     <GVAL 'OUTCHAN = STACK>
  26                     <PUSH 'PRINC>
  27                     <PUSH "CPU time:  ">
  28                     <PUSH TM6>
  29                     <PUSH "
  30 Real time:  ">
  31                     <PUSH TEMP9>
  32                     <PUSH " (">
  33                     <DIVF TM6 TEMP9 = TEMP10 (TYPE FLOAT)>
  34                     <DEAD TM6 TEMP9>
  35                     <MULF TEMP10 100.0 = STACK (TYPE FLOAT)>
  36                     <DEAD TEMP10>
  37                     <PUSH "%)">
  38                     <PUSH "
  39 Traps:  ">
  40                     <NTHUU IGNORE4 1 = TEMP10 (TYPE FIX)>
  41                     <GVAL 'INITIAL-TRAPS = TEMP9>
  42                     <SUB TEMP10 TEMP9 = STACK (TYPE FIX)>
  43                     <DEAD TEMP10 TEMP9>
  44                     <PUSH "
  45 Faults:  ">
  46                     <NTHUU IGNORE4 2 = TEMP9 (TYPE FIX)>
  47                     <GVAL 'INITIAL-FAULTS = TEMP10>
  48                     <SUB TEMP9 TEMP10 = STACK (TYPE FIX)>
  49                     <DEAD TEMP9 TEMP10>
  50                     <PUSH "
  51 Pager time:  ">
  52                     <NTHUU IGNORE4 3 = TEMP10 (TYPE FIX)>
  53                     <DEAD IGNORE4>
  54                     <GVAL 'INITIAL-PAGER = TEMP9>
  55                     <SUB TEMP10 TEMP9 = TEMP10 (TYPE FIX)>
  56                     <DEAD TEMP9>
  57                     <FLOAT TEMP10 = TEMP10 (TYPE FLOAT)>
  58                     <DIVF TEMP10 1000.0 = STACK (TYPE FLOAT)>
  59                     <DEAD TEMP10>
  60                     <CALL '\1aPRINT-MANY 15 = TEMP10>
  61                     <RETURN TEMP10>
  62                     <DEAD TEMP10>
  63                     <END \1aPRINT-INFO>
  64
  65 #WORD *20264174420*
  66                     <GFCN \1aIINFO ("VALUE" ANY)>
  67                     <TEMP TEMP4>
  68                     <INTGO>
  69                     <SYSOP 'TIME-JSYS (RETURN 1) = TEMP4>
  70                     <SETG 'INITIAL-TIME TEMP4>
  71                     <DEAD TEMP4>
  72                     <FRAME '\1aTIME>
  73                     <CALL '\1aTIME 0 = TEMP4>
  74                     <SETG 'INITIAL-CPU TEMP4>
  75                     <DEAD TEMP4>
  76                     <SYSOP 'GTRPI 131072 (RETURN ALL)>
  77                     <GVAL 'AC-VECTOR = TEMP4>
  78                     <NTHUU TEMP4 1 = TEMP4 (TYPE FIX)>
  79                     <SETG 'INITIAL-TRAPS TEMP4>
  80                     <DEAD TEMP4>
  81                     <GVAL 'AC-VECTOR = TEMP4>
  82                     <NTHUU TEMP4 2 = TEMP4 (TYPE FIX)>
  83                     <SETG 'INITIAL-FAULTS TEMP4>
  84                     <DEAD TEMP4>
  85                     <GVAL 'AC-VECTOR = TEMP4>
  86                     <NTHUU TEMP4 3 = TEMP4 (TYPE FIX)>
  87                     <SETG 'INITIAL-PAGER TEMP4>
  88                     <DEAD TEMP4>
  89                     <FRAME '\1aCLASS>
  90                     <PUSH "QUIT">
  91                     <PUSH 1>
  92                     <PUSH 'T>
  93                     <CALL '\1aCLASS 3 = TEMP4>
  94                     <SETG 'QUIT-CLASS TEMP4>
  95                     <DEAD TEMP4>
  96                     <FRAME '\1aON>
  97                     <FRAME '\1aHANDLER>
  98                     <PUSH "QUIT">
  99                     <GVAL 'PRINT-INFO = STACK>
 100                     <CALL '\1aHANDLER 2 = STACK>
 101                     <CALL '\1aON 1 = TEMP4>
 102                     <SETG 'QUIT-HANDLER TEMP4>
 103                     <RETURN TEMP4>
 104                     <DEAD TEMP4>
 105                     <END \1aIINFO>