2 <SETG AC-VECTOR <IUVECTOR 16>>
4 <GDECL (AC-VECTOR) UVECTOR>
7 <GFCN
\1aPRINT-INFO ("VALUE" <OR ATOM FALSE> "TUPLE" ANY)>
8 <MAKTUP IGNORE4 TEMP9 TEMP10 TM6:FLOAT = IGNORE4>
10 <GVAL 'AC-VECTOR = IGNORE4>
12 <CALL '
\1aTIME 0 = TEMP9>
13 <GVAL 'INITIAL-CPU = TEMP10>
14 <SUBF TEMP9 TEMP10 = TM6 (TYPE FLOAT)>
16 <SYSOP 'TIME-JSYS (RETURN 1) = TEMP10>
17 <GVAL 'INITIAL-TIME = TEMP9>
18 <SUB TEMP10 TEMP9 = TEMP10 (TYPE FIX)>
20 <FLOAT TEMP10 = TEMP10 (TYPE FLOAT)>
21 <DIVF TEMP10 1000.0 = TEMP9 (TYPE FLOAT)>
23 <SYSOP 'GTRPI 131072 (RETURN ALL)>
24 <FRAME '
\1aPRINT-MANY>
25 <GVAL 'OUTCHAN = STACK>
33 <DIVF TM6 TEMP9 = TEMP10 (TYPE FLOAT)>
35 <MULF TEMP10 100.0 = STACK (TYPE FLOAT)>
40 <NTHUU IGNORE4 1 = TEMP10 (TYPE FIX)>
41 <GVAL 'INITIAL-TRAPS = TEMP9>
42 <SUB TEMP10 TEMP9 = STACK (TYPE FIX)>
46 <NTHUU IGNORE4 2 = TEMP9 (TYPE FIX)>
47 <GVAL 'INITIAL-FAULTS = TEMP10>
48 <SUB TEMP9 TEMP10 = STACK (TYPE FIX)>
52 <NTHUU IGNORE4 3 = TEMP10 (TYPE FIX)>
54 <GVAL 'INITIAL-PAGER = TEMP9>
55 <SUB TEMP10 TEMP9 = TEMP10 (TYPE FIX)>
57 <FLOAT TEMP10 = TEMP10 (TYPE FLOAT)>
58 <DIVF TEMP10 1000.0 = STACK (TYPE FLOAT)>
60 <CALL '
\1aPRINT-MANY 15 = TEMP10>
66 <GFCN
\1aIINFO ("VALUE" ANY)>
69 <SYSOP 'TIME-JSYS (RETURN 1) = TEMP4>
70 <SETG 'INITIAL-TIME TEMP4>
73 <CALL '
\1aTIME 0 = TEMP4>
74 <SETG 'INITIAL-CPU TEMP4>
76 <SYSOP 'GTRPI 131072 (RETURN ALL)>
77 <GVAL 'AC-VECTOR = TEMP4>
78 <NTHUU TEMP4 1 = TEMP4 (TYPE FIX)>
79 <SETG 'INITIAL-TRAPS TEMP4>
81 <GVAL 'AC-VECTOR = TEMP4>
82 <NTHUU TEMP4 2 = TEMP4 (TYPE FIX)>
83 <SETG 'INITIAL-FAULTS TEMP4>
85 <GVAL 'AC-VECTOR = TEMP4>
86 <NTHUU TEMP4 3 = TEMP4 (TYPE FIX)>
87 <SETG 'INITIAL-PAGER TEMP4>
93 <CALL '
\1aCLASS 3 = TEMP4>
94 <SETG 'QUIT-CLASS TEMP4>
99 <GVAL 'PRINT-INFO = STACK>
100 <CALL '
\1aHANDLER 2 = STACK>
101 <CALL '
\1aON 1 = TEMP4>
102 <SETG 'QUIT-HANDLER TEMP4>