COMPILATION LISTING OF SEGMENT system_performance_graph Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 01/22/85 1525.4 mst Tue Options: optimize list 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* *********************************************************** */ 6 /* * meter plotting command 7* f.j. corbat'o, Jan. 1970, modified April 1970, modified April 1971 8* Last modified January 1981 by J. Bongiovanni to fix minor bugs 9* Modified November 1984 by M. Pandolf to include hc_lock. 10**/ 11 12 13 /* ****************************************************** 14* * * 15* * * 16* * Copyright (c) 1972 by Massachusetts Institute of * 17* * Technology and Honeywell Information Systems, Inc. * 18* * * 19* * * 20* ****************************************************** */ 21 22 23 system_performance_graph: spg: proc; 24 25 dcl (mn, nn, mu, nu) fixed bin; 26 dcl ss char (arglen) based (argp); 27 dcl arglen fixed bin; 28 dcl argp ptr; 29 dcl ct fixed bin static; 30 dcl short_lines bit (1) int static init ("0"b); 31 dcl llen fixed bin; 32 33 dcl unique fixed bin static init (0); 34 dcl first_time bit (1) aligned static init ("1"b); 35 dcl (i, length, chsw, qc) fixed bin (17); 36 dcl code fixed bin (35); 37 dcl (sstp1, sstp2, tcdp1, tcdp2) ptr static; 38 dcl (pzi, pnmpi, pmpi, pint, ptc, ppf, psf, puse_rz, px, meter_time) float; 39 dcl (pdio, dkio, vtio) fixed bin; 40 dcl (time, wakeup_time) fixed bin (52); 41 dcl minute_time fixed bin (35); 42 dcl chname fixed bin (71) int static init (0); 43 dcl str char (24); 44 dcl 1 st aligned, 45 (2 hour pic "99", 46 2 min pic "99.v99", 47 2 blank char (1), 48 2 graph char (101)) unal; 49 dcl cstring char (110) aligned; 50 dcl mplot_mode bit (1) aligned; 51 dcl mplot_switch ptr static init (null()); 52 dcl outfilename char (168) var; 53 dcl (k, arg_count) fixed bin; 54 dcl month fixed bin, 55 dom fixed bin, 56 tod fixed bin (52), 57 year fixed bin, 58 dow fixed bin, 59 hour fixed bin (35), 60 minute float bin, 61 zone char (3) aligned; 62 63 dcl iox_$user_output ptr ext, 64 error_table_$badopt fixed bin (35) ext; 65 66 dcl cu_$arg_count entry (fixed bin), 67 cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35)), 68 com_err_ entry options (variable), 69 iox_$attach_ioname entry (char (*), ptr, char (*), fixed bin (35)), 70 iox_$open entry (ptr, fixed bin, bit (1) aligned, fixed bin (35)), 71 iox_$close entry (ptr, fixed bin (35)), 72 iox_$detach_iocb entry (ptr, fixed bin (35)), 73 iox_$control entry (ptr, char(*), ptr, fixed bin(35)), 74 ioa_$ioa_switch entry options (variable), 75 date_time_ entry (fixed bin (52), char (*)), 76 decode_clock_value_ entry (fixed bin (52), fixed bin, fixed bin, fixed bin, fixed bin (52), 77 fixed bin, char (3) aligned), 78 clock_ entry returns (fixed bin (52)), 79 meter_util_$get_buffers entry (fixed bin, ptr, ptr, ptr, ptr, fixed bin (35)), 80 meter_util_$fill_buffers entry (fixed bin), 81 meter_util_$reset entry (fixed bin), 82 spg_util_$reset entry (fixed bin, ptr, ptr, ptr, ptr), 83 spg_util_ entry (float, float, float, float, float, float, float, float, float, 84 char (110) aligned, fixed bin, fixed bin), 85 spg_fs_info_ entry (fixed bin, fixed bin, fixed bin), 86 system_info_$users entry (fixed bin, fixed bin, fixed bin, fixed bin), 87 ipc_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 88 ipc_$decl_ev_call_chn entry (fixed bin (71), entry, ptr, fixed bin, fixed bin (35)), 89 ipc_$drain_chn entry (fixed bin (71), fixed bin (35)), 90 ipc_$delete_ev_chn entry (fixed bin (71), fixed bin (35)), 91 timer_manager_$alarm_wakeup entry (fixed bin (52), bit (2), fixed bin (71)), 92 timer_manager_$reset_alarm_wakeup entry (fixed bin (71)); 93 94 dcl (bin, max, min, null, string, substr) builtin; 95 96 dcl conversion condition; 97 98 99 100 101 mplot_mode = "0"b; 102 ct = 0; 103 104 call cu_$arg_count (arg_count); 105 do k = 1 to arg_count; 106 107 call cu_$arg_ptr (k, argp, arglen, code); 108 if code ^= 0 then go to error; 109 110 if substr (ss, 1, 1) ^= "-" then do; 111 on conversion goto arg_error; 112 ct = bin (ss, 17); 113 revert conversion; 114 if ct <= 0 then goto arg_error; 115 end; 116 else if ss = "-short" then short_lines = "1"b; 117 else if ss = "-long" | ss = "-lg" then short_lines = "0"b; 118 else if ss = "-output_file" | ss = "-of" then do; 119 mplot_mode = "1"b; 120 call cu_$arg_ptr (k + 1, argp, arglen, code); 121 if (code = 0) & (substr (ss, 1, 1) ^= "-") then do; 122 outfilename = ss; 123 k = k + 1; 124 end; 125 else 126 outfilename = "spg_output"; 127 end; 128 else if ss = "-halt" | ss = "-ht" then 129 go to stop; 130 else do; 131 arg_error: call com_err_ (error_table_$badopt, "spg", ss); 132 return; 133 end; 134 135 end; 136 137 if ^first_time then do; 138 call com_err_ (0, "spg", "Already invoked. Use -halt to terminate other invocation"); 139 return; 140 end; 141 142 if ct = 0 then do; 143 call com_err_ (0, "spg", "Wakeup interval not specified."); 144 return; 145 end; 146 147 if mplot_mode then do; 148 call iox_$attach_ioname ("spg_output_", mplot_switch, "vfile_ " || outfilename || " -extend", code); 149 if code ^= 0 then go to error; 150 call iox_$open (mplot_switch, 2, "0"b, code); 151 if code ^= 0 then go to error; 152 end; 153 else 154 mplot_switch = iox_$user_output; 155 156 call date_time_ (clock_ (), str); /* time_stamp output */ 157 call ioa_$ioa_switch (mplot_switch, "^5-^a", str); 158 159 call meter_util_$get_buffers (unique, sstp1, sstp2, tcdp1, tcdp2, code); 160 call meter_util_$fill_buffers (unique); 161 call spg_util_$reset (unique, sstp1, sstp2, tcdp1, tcdp2); 162 163 164 165 call date_time_ ((tcdp2 -> tcm.initialize_time), str); 166 167 call ioa_$ioa_switch (mplot_switch, "up= ^20a, sys_hours= ^.1f, cpu_hours= ^.1f", substr (str, 1, 20), 168 (tcdp2 -> tcm.last_time - tcdp2 -> tcm.initialize_time)/36e8, tcdp2 -> tcm.processor_time/36e8); 169 170 if chname = 0 then do; /* create event channel */ 171 call ipc_$create_ev_chn (chname, code); 172 if code ^= 0 then go to error; 173 call ipc_$decl_ev_call_chn (chname, line, null (), 1, code); 174 if code ^= 0 then go to error; 175 end; 176 else do; 177 call ipc_$drain_chn (chname, code); 178 if code ^= 0 then go to error; 179 end; 180 181 call line; 182 183 return; 184 185 186 187 error: call com_err_ (code, "spg", ""); 188 189 190 stop: 191 if mplot_switch ^= iox_$user_output & mplot_switch ^= null() then do; 192 call iox_$close (mplot_switch, code); 193 call iox_$detach_iocb (mplot_switch, code); 194 end; 195 mplot_switch = null(); 196 197 198 if chname ^= 0 then do; 199 call timer_manager_$reset_alarm_wakeup (chname); 200 201 call ipc_$delete_ev_chn (chname, code); 202 chname = 0; 203 end; 204 205 first_time = "1"b; 206 short_lines = "0"b; 207 208 return; 209 210 211 212 line: entry; /* routine to do a line */ 213 214 time = clock_ (); 215 call decode_clock_value_ (time, month, dom, year, tod, dow, zone); 216 hour = tod/3.6e9; 217 minute = tod / 6.0e7 - hour * 60; 218 219 st.hour = hour; 220 st.min = minute; 221 st.blank = " "; 222 st.graph = (11)"| . "; 223 224 call meter_util_$fill_buffers (unique); 225 call spg_util_ (pzi, pnmpi, pmpi, pint, ptc, ppf, psf, puse_rz, px, cstring, length, chsw); 226 227 /* * print line if configuration or tuning has changed */ 228 if chsw ^= 0 then 229 call ioa_$ioa_switch (mplot_switch, substr (cstring, 1, length)); 230 231 232 call fill_in (pzi + pnmpi + pmpi + pint + ptc + ppf + psf + puse_rz, 0e0, "y"); 233 call fill_in (pzi + pnmpi + pmpi + pint + ptc + ppf, psf, "s"); 234 call fill_in (pzi + pnmpi + pmpi + pint + ptc, ppf, "p"); 235 call fill_in (pzi + pnmpi + pmpi + pint, ptc, "t"); 236 call fill_in (pzi + pnmpi + pmpi, pint, "i"); 237 /* call fill_in (pzi + pnmpi + pmpi + px, 0e0, "x"); NOTE: px not currently being used */ 238 call fill_in (pzi + pnmpi, pmpi, "m"); /* m is mp_idle */ 239 call fill_in (pzi, pnmpi, "*"); /* * is nmp_idle */ 240 241 call fill_in ((tcdp2 -> tcm.avequeue), 0e0, "q"); 242 call fill_in ((tcdp2 -> tcm.ave_eligible), 0e0, "e"); 243 244 if (tcdp2 -> tcm.response_count - tcdp1 -> tcm.response_count) ^= 0 then 245 call fill_in ((tcdp2 -> tcm.response_time - tcdp1 -> tcm.response_time) / 246 ((tcdp2 -> tcm.response_count - tcdp1 -> tcm.response_count) * 1e5), 0e0, "r"); 247 248 if first_time then 249 meter_time = tcdp2 -> tcm.last_time - tcdp2 -> tcm.initialize_time; 250 else 251 meter_time = tcdp2 -> tcm.last_time - tcdp1 -> tcm.last_time; 252 253 qc = 0; 254 do i = 0 to 5; 255 qc = qc + tcdp2 -> tcm.quit_counts (i) - tcdp1 -> tcm.quit_counts (i); 256 end; 257 258 call fill_in (qc/ (meter_time/60e6), 0e0, "Q"); 259 call fill_in ((tcdp2 -> tcm.schedulings - tcdp1 -> tcm.schedulings)/ (meter_time/1e7), 0e0, "S"); 260 261 call spg_fs_info_ (pdio, dkio, vtio); 262 call fill_in (1e2 - pdio / (meter_time / 1e5), 0e0, "P"); /* 1000 max */ 263 call fill_in (1e2 - dkio / (meter_time / 1e5), 0e0, "D"); /* 1000 max */ 264 call fill_in (1e2 - vtio / (meter_time / 1e5), 0e0, "V"); /* 1000 max */ 265 266 call system_info_$users (mn, nn, mu, nu); 267 call fill_in (nu / 1e1, 0e0, "-"); 268 call fill_in ((nn), 0e0, "+"); 269 270 if short_lines then llen = 59; 271 else llen = 109; 272 do i = 10 to 90 by 10; /* re-place some "|" for clarity */ 273 if substr (graph, i, 1) = substr (graph, i+2, 1) then 274 if substr (graph, i, 1) = substr (graph, i+1, 1) then 275 substr (graph, i+1, 1) = "|"; 276 end; 277 call ioa_$ioa_switch (mplot_switch, substr (string (st), 1, llen)); 278 279 minute_time = time/60e6; 280 wakeup_time = (minute_time + ct) * 60000000; 281 282 call timer_manager_$alarm_wakeup (wakeup_time, "00"b, chname); 283 284 if ^first_time then 285 call iox_$control (mplot_switch, "start", null (), code); 286 287 call meter_util_$reset (unique); 288 first_time = "0"b; 289 290 return; 291 292 293 294 /* internal procedure */ 295 296 fill_in: proc (x, delx, token); 297 298 dcl (x, delx) float, 299 token char (1) aligned; 300 301 dcl (i1, i2) fixed bin; 302 303 304 if ^short_lines then do; 305 i1 = max (min (bin (x + .5e0, 17), 100), 0); 306 i2 = max (min (bin (x + delx + .5e0, 17), 100), 0); 307 end; 308 else do; 309 i1 = max (min (bin (x*.5e0 + .5e0, 17), 50), 0); 310 i2 = max (min (bin ((x + delx)*.5e0 + .5e0, 17), 50), 0); 311 end; 312 do i = i1 to i2; 313 substr (st.graph, i + 1, 1) = token; 314 end; 315 316 return; 317 318 319 end fill_in; 320 321 322 1 1 /* BEGIN INCLUDE FILE ... tcm.incl.pl1 ... used to generate tc_data cds */ 1 2 /* NOTE -- This include file has TWO counterparts in ALM: tc_meters.incl.alm and */ 1 3 /* wcte.incl.alm. They cannot be produced with cif, and must be kept up to date manually. */ 1 4 /* Modified 830914 to replace tty_polling_time with opc_polling_time... -E. A. Ranzenbach */ 1 5 /* Modified 1984.05.21 by M. Pandolf to add tc_suspend_lock */ 1 6 /* Modified 1984.11.26 by Keith Loepere for uid_array. */ 1 7 /* Modified 1984.12.06 by Keith Loepere for page create delaying. */ 1 8 1 9 dcl tcmp ptr; 1 10 1 11 dcl 1 tcm aligned based (tcmp), 1 12 2 tc_suspend_lock like lock, /* when locked, tc is suspended */ 1 13 2 cid2 fixed bin (18), 1 14 2 cid3 fixed bin (18), 1 15 2 cid4 fixed bin (18), 1 16 2 depth_count fixed bin (18), /* depth last process run */ 1 17 2 loadings fixed bin (18), /* number of process loadings */ 1 18 1 19 2 blocks fixed bin (18), /* number of calls to block */ 1 20 2 wakeups fixed bin (18), /* number of calls to wakeup */ 1 21 2 waits fixed bin (18), /* number of calls to wait */ 1 22 2 notifies fixed bin (18), /* number of calls to notify */ 1 23 2 schedulings fixed bin (18), 1 24 2 interactions fixed bin (18), /* number of interactive schedulings */ 1 25 2 avequeue fixed bin (35, 18), /* recent time average of number in queue */ 1 26 2 te_wait fixed bin (18), /* times te called from wait */ 1 27 1 28 2 te_block fixed bin (18), /* times te updated from block */ 1 29 2 te_i_stop fixed bin (18), /* times te updated from i_stop */ 1 30 2 te_pre_empt fixed bin (18), /* times te updated from pre_empt */ 1 31 2 p_interactions fixed bin, /* times interaction bit turned off because of high priority */ 1 32 2 idle fixed bin (71), /* total idle time */ 1 33 2 mp_idle fixed bin (71), /* multi-programming idle */ 1 34 1 35 2 nmp_idle fixed bin (71), /* non-multi-programming idle time */ 1 36 2 zero_idle fixed bin (71), /* zero idle time */ 1 37 2 last_time fixed bin (71), /* last time a process was run */ 1 38 2 loop_locks fixed bin (18), /* times looped on the APT lock */ 1 39 2 loop_lock_time fixed bin (18), /* time looping on the APT lock */ 1 40 2 ave_eligible fixed bin (35, 18), /* average length of eligible queue */ 1 41 2 sort_to_elhead fixed bin (18), /* 0=> no one,1 => int've only, 2 => everybody */ 1 42 2 processor_time fixed bin (71), /* total processor time on system */ 1 43 2 response_time fixed bin (71), /* estimate of response time */ 1 44 2 eligible_time fixed bin (71), /* estimate of eligible time */ 1 45 2 response_count fixed bin, /* count of response meters */ 1 46 2 eligible_count fixed bin, /* count of eligible meters */ 1 47 2 quit_counts (0:5) fixed bin, /* array of buckets indexed by state */ 1 48 2 loading_idle fixed bin (71), /* loading_idle time */ 1 49 2 delta_vcpu fixed bin (71), /* delta virtual CPU time for the system */ 1 50 2 post_purge_switch fixed bin, /* ON if post purging is to be done */ 1 51 2 time_out_severity fixed bin, /* syserr first arg for notify time outs */ 1 52 2 notify_check fixed bin, /* obsolete */ 1 53 2 quit_priority fixed bin, /* factor for scheduler quit response */ 1 54 2 iobm_polling_time fixed bin (71), /* time to poll iobm */ 1 55 2 end_of_time fixed bin (71), /* very large time */ 1 56 2 gp_at_notify fixed bin (18), /* 0 => just do get_idle_processor */ 1 57 2 gp_at_ptlnotify fixed bin (18), /* 0 => just do get_idle_processor */ 1 58 2 int_q_enabled fixed bin (18), /* 0 => no intv q in percent mode */ 1 59 2 fnp_buffer_threshold fixed bin (18), /* if fewer free buffs then stingy alloc strategy */ 1 60 /* set this to >= half n_ttylines/fnp for safety */ 1 61 1 62 /* 100 octal */ 1 63 1 64 2 depths (8) fixed bin (18), /* histogram of run depths */ 1 65 2 tdepths (8) fixed bin (71), /* histogram of times run per depth */ 1 66 2 pfdepth (8) fixed bin (18), /* histogram of page faults per depth */ 1 67 1 68 2 ptl_not_waits fixed bin (18), /* times ptl_wait noticed ptl was unlocked */ 1 69 2 gw_gp_window_count fixed bin (18), /* times window noticed */ 1 70 2 metering_lock fixed bin (18), /* 0=locked, else unlocked */ 1 71 2 ptl_waits fixed bin (18), /* num calls to ptl_wait */ 1 72 2 gp_start_count fixed bin (18), /* to detect gw_gp window lossage */ 1 73 2 gp_done_count fixed bin (18), 1 74 2 nto_check_time fixed bin (71), /* next time at which nto code will be called */ 1 75 2 nto_delta fixed bin (35), /* microsec between nto checks */ 1 76 2 nto_count fixed bin (18), /* number of times nto detected */ 1 77 2 tcpu_scheduling fixed bin (18), /* obsolete */ 1 78 2 nto_event bit (36), /* last event which NTO'd */ 1 79 2 page_notifies fixed bin (18), 1 80 2 notify_nobody_count fixed bin (18), 1 81 2 notify_nobody_event bit (36), 1 82 2 system_type fixed bin, /* used to be tcm.inter */ 1 83 1 84 2 stat (0:15) fixed bin (18), /* num apte's in each state */ 1 85 1 86 /* 200 octal */ 1 87 1 88 2 wait (8), 1 89 3 time fixed bin (18), /* histogram of page fault waiting times versus did */ 1 90 3 count fixed bin (18), 1 91 1 92 2 ready (8), 1 93 3 time fixed bin (18), /* histogram of times in ready queue */ 1 94 3 count fixed bin (18), 1 95 1 96 2 total_pf_time fixed bin (71), /* total time spent from start to end of 1 97* all page faults */ 1 98 2 total_pf_count fixed bin (18), /* total number of page faults metered */ 1 99 2 auto_tune_ws fixed bin (18), /* 0=> dont, atherwise compensate for quantum len */ 1 100 2 ocore_delta fixed bin (18), /* number of pages reserved for int users */ 1 101 2 ws_sum fixed bin (18), /* total of eligible's ws_sizes */ 1 102 2 nonidle_force_count fixed bin (18), /* count of eligibilities forced */ 1 103 2 itt_list_lock bit (36) aligned, /* Lock on ITT free list */ 1 104 2 cpu_pf_time fixed bin (71), /* total cpu time spent handling page faults */ 1 105 2 cpu_pf_count fixed bin (18), /* total count of cpu time meterings */ 1 106 2 special_offsets unaligned, 1 107 3 apt_offset bit (18), 1 108 3 pad bit (18), 1 109 2 getwork_time fixed bin (71), /* total time spent in getwork */ 1 110 2 getwork_count fixed bin (18), /* total times through getwork */ 1 111 2 short_pf_count fixed bin (18), /* number of short page faults */ 1 112 2 interrupt_time fixed bin (71), /* total time spent in interrupt */ 1 113 2 interrupt_count fixed bin (71), /* total number of metered interrupts */ 1 114 2 ocore fixed bin (35, 18), /* fraction of core for int've users */ 1 115 2 pre_empt_flag bit (36) aligned, /* controls whether preempting at done time */ 1 116 2 cumulative_memory_usage fixed binary (71), /* total number of memory usage units */ 1 117 2 processor_time_at_define_wc fixed bin (71), /* value of processor_time when WC's last defined */ 1 118 2 boost_priority fixed bin, /* number of times priority process given high priority */ 1 119 2 lost_priority fixed bin, /* number of times priority process lost eligibility */ 1 120 2 total_clock_lag fixed bin (71), /* sum of all simulated clock delays */ 1 121 2 clock_simulations fixed bin, /* number of times alarm clock interrupt was simulated */ 1 122 2 max_clock_lag fixed bin, /* largest simulated alarm clock delay */ 1 123 1 124 /* 300 octal */ 1 125 1 126 2 pdscopyl fixed bin (18), /* amount of pds to copy for new process */ 1 127 2 max_hproc_segno fixed bin, /* largest allowed hardcore segment number */ 1 128 2 prds_length fixed bin (18), /* length of PRDS */ 1 129 2 pds_length fixed bin (18), /* length of PDS */ 1 130 2 lock fixed bin (18), /* process id generator lock */ 1 131 2 id bit (36) aligned, /* next uid to be added to uid_array */ 1 132 2 system_shutdown fixed bin (18), 1 133 2 working_set_factor fixed bin (35, 18), /* working set factor */ 1 134 1 135 2 ncpu fixed bin (18), /* number of processors currently being used */ 1 136 2 last_eligible bit (18), /* last process to gain eligibility */ 1 137 2 apt_lock fixed bin (35), /* + write; 0 hidden; -1 unlocked; -(N+1) Nreaders */ 1 138 2 apt_size fixed bin (18), /* number of APT entries */ 1 139 2 realtime_q aligned like based_sentinel, /* processes with realtime deadlines */ 1 140 2 aht_size fixed bin (18), /* APT hash table size */ 1 141 2 itt_size fixed bin (18), /* number of ITT entries */ 1 142 1 143 2 dst_size fixed bin (18), /* number of allowed DST entries */ 1 144 2 itt_free_list bit (18), /* pointer to ITT free list */ 1 145 2 used_itt fixed bin (18), /* number of used ITT entries */ 1 146 2 initializer_id bit (36) aligned, /* process id of initializer */ 1 147 2 n_eligible fixed bin (18), /* number of processes eligible */ 1 148 2 max_eligible fixed bin (30), /* maximum allowed number of eligible processes */ 1 149 2 wait_enable fixed bin (18), /* turned on when waiting mechanism works */ 1 150 2 apt_entry_size fixed bin (18), /* size of an APT entry */ 1 151 1 152 2 interactive_q aligned like based_sentinel, /* head of interactive queue */ 1 153 2 dst_ptr ptr, /* pointer to device signal table */ 1 154 2 old_user ptr, /* last process to run (apt ptr ) */ 1 155 2 initialize_time fixed bin (71), /* time of initialization */ 1 156 1 157 2 init_event fixed bin (18), /* wait event during initialization */ 1 158 2 oldt fixed bin (18), /* timer reading from previous process */ 1 159 2 newt fixed bin (18), /* timer setting for new process */ 1 160 2 tefirst fixed bin (30), /* first eligible time */ 1 161 2 telast fixed bin (30), /* last eligible time */ 1 162 2 timax fixed bin (35), /* time in queue for lowest level */ 1 163 2 empty_q bit (18), /* thread of empty APT entries */ 1 164 2 working_set_addend fixed bin (18), /* additive working set parameter */ 1 165 2 ready_q_head bit (0) aligned, /* for added segdef */ 1 166 2 eligible_q_head aligned like based_sentinel, /* head of eligible queue */ 1 167 2 ready_q_tail bit (0) aligned, /* for added segdef */ 1 168 2 eligible_q_tail aligned like based_sentinel, /* tail of eligible queue */ 1 169 2 idle_tail aligned like based_sentinel, /* tail of idle list */ 1 170 2 min_eligible fixed bin (30), 1 171 2 alarm_timer_list bit (18) aligned, /* rel pointer to apt entry for next alarm timer */ 1 172 2 guaranteed_elig_inc fixed bin (35), /* amount of guaranteed eligibility time in microsecs. */ 1 173 2 priority_sched_inc fixed bin (35), /* amount of block time before process is given priority */ 1 174 2 next_alarm_time fixed bin (71), /* clock time for next alarm timer */ 1 175 2 priority_sched_time fixed bin (71), /* time for priority process to be given priority */ 1 176 2 opc_polling_time fixed bin (71), /* time to poll console DIM */ 1 177 2 disk_polling_time fixed bin (71), /* time to poll disk DIM */ 1 178 2 tape_polling_time fixed bin (71), /* time to poll tape DIM */ 1 179 2 imp_polling_time fixed bin (71), /* time to poll imp */ 1 180 2 imp_polling_lock fixed bin (18), /* do not poll if lock set */ 1 181 2 max_channels fixed bin (18), /* num special channels per process */ 1 182 1 183 /* 400 octal */ 1 184 1 185 2 system_virtual_time fixed bin (71), /* non-idle virtual time */ 1 186 2 credit_bank fixed bin (71), /* credits not yet passed out */ 1 187 2 min_wct_index bit (18) aligned, /* offset of initializer work class table entry */ 1 188 2 max_wct_index bit (18) aligned, /* offset of highest wcte currently defined */ 1 189 2 delta_vt fixed bin (71), /* temp used by pxss.compute_virtual_clocks */ 1 190 2 gross_idle_time fixed bin (71), /* idle time_used_clock */ 1 191 2 credits_per_scatter fixed bin (35), /* total number of credits awarded at once */ 1 192 2 best_credit_value fixed bin (18), /* temp for pxss.find_next_eligible */ 1 193 2 define_wc_time fixed bin (71), /* clock time when workclasses last degined */ 1 194 2 max_batch_elig fixed bin (35), 1 195 2 num_batch_elig fixed bin (35), 1 196 2 deadline_mode fixed bin (35), /* 0=> ti sorts, else deadline sorts */ 1 197 2 credits_scattered fixed bin (35), 1 198 2 max_max_eligible fixed bin (30), /* Maximum of maxe */ 1 199 2 max_stopped_stack_0 fixed bin (35), /* Maximum stack_0's suspended by stopped procs */ 1 200 2 stopped_stack_0 fixed bin (35), /* Number stack_0's suspended by stopped procs */ 1 201 2 mos_polling_interval fixed bin (35), /* for heals */ 1 202 2 mos_polling_time fixed bin (71), /* for heals */ 1 203 2 vcpu_response_bounds (VCPU_RESPONSE_BOUNDS) fixed bin (35), 1 204 2 vcpu_response_bounds_size fixed bin (35), 1 205 2 meter_response_time_calls fixed bin (35), 1 206 2 meter_response_time_invalid fixed bin (35), 1 207 2 meter_response_time_overhead fixed bin (71), 1 208 2 init_wait_time fixed bin (71), /* used by wait/notify during initialization */ 1 209 2 init_wait_timeout fixed bin (71), /* notify-timeout interval during initialization */ 1 210 2 init_timeout_severity fixed bin, /* notify-timeout severity during initialization */ 1 211 2 init_timeout_recurse fixed bin, /* count of NTO recursion during initialization */ 1 212 2 max_timer_register fixed bin (71), /* max cpu burst = # cpus x pre_empt_sample_time */ 1 213 2 pre_empt_sample_time fixed bin (35), /* tuning parameter - max time between samples */ 1 214 2 governing_credit_bank fixed bin (35), /* used for limiting eligibility on governed work classes*/ 1 215 2 process_initial_quantum fixed bin (35), /* eligibility quantum first eligibility */ 1 216 2 default_procs_required bit (8) aligned, /* default mask of CPUs required */ 1 217 2 work_class_idle fixed bin (71), /* idle time due to work class restrictions */ 1 218 1 219 /* Tuning Parameters for Stack Truncation */ 1 220 1 221 2 stk_truncate bit (1) aligned, 1 222 2 stk_truncate_always bit (1) aligned, 1 223 2 stk_trunc_avg_f1 fixed bin (35, 18), 1 224 2 stk_trunc_avg_f2 fixed bin (35, 18), 1 225 2 lock_error_severity fixed bin, /* syserr severity */ 1 226 1 227 2 gv_integration fixed bin (35), /* Integration interval for governing */ 1 228 2 gv_integration_set bit (1) aligned, /* ON => gv_integration set by ctp */ 1 229 2 pauses fixed bin (35), /* Calls to pause (reschedule) */ 1 230 2 volmap_polling_time fixed bin (71), 1 231 2 next_ring0_timer fixed bin (71), /* next time that ring 0 timer goes off */ 1 232 2 realtime_io_priority_switch fixed bin, /* 0 => give I/O interrupt wakeups realtime priotiry */ 1 233 2 realtime_io_deadline fixed bin (35), /* Delta to clock for I/O realtime deadline */ 1 234 2 realtime_io_quantum fixed bin (35), /* Quantum for I/O realtime burst */ 1 235 2 realtime_priorities fixed bin (35), /* Count for metering */ 1 236 2 relinquishes fixed bin (35), /* Calls to relinquish_priority */ 1 237 2 abort_ips_mask bit (36) aligned, /* IPS mask for tc_util$check_abort */ 1 238 1 239 /* 500 octal */ 1 240 1 241 2 uid_array (0:15) bit (36) aligned, /* array from which a uid is chosen (randomly) */ 1 242 2 pad5 (176) fixed bin (35), /* room for expansion compatibly */ 1 243 1 244 /* 1000 octal */ 1 245 1 246 2 pad7 (64) fixed bin (35), 1 247 1 248 /* 1100 octal */ 1 249 1 250 2 pad6 (8) fixed bin (35), 1 251 2 work_class_table aligned, /* array of per workclass information */ 1 252 3 wcte (0:16) aligned like wct_entry, 1 253 1 254 /* 3000 octal */ 1 255 1 256 2 apt fixed bin; 1 257 1 258 dcl wctep ptr; 1 259 1 260 dcl 1 wct_entry aligned based (wctep), /* Work class entry */ 1 261 2 thread unaligned, /* Ready list */ 1 262 3 fp bit (18), /* Head of ready list */ 1 263 3 bp bit (18), /* Tail of ready list */ 1 264 2 flags unaligned, 1 265 3 mnbz bit (1), /* Sentinel bit must not be zero. */ 1 266 3 defined bit (1), 1 267 3 io_priority bit (1), 1 268 3 governed bit (1), 1 269 3 interactive_q bit (1), 1 270 3 pad bit (31), 1 271 2 credits fixed bin (35), /* Current worthiness of group */ 1 272 2 minf fixed bin (35), /* min fraction of cpu */ 1 273 2 pin_weight fixed bin (35), /* number of cycles to pin pages */ 1 274 2 eligibilities fixed bin (35), /* Count of eligibilities awarded */ 1 275 2 cpu_sum fixed bin (71), /* CPU used by members */ 1 276 2 resp1 fixed bin (71), 1 277 2 resp2 fixed bin (71), 1 278 2 quantum1 fixed bin (35), 1 279 2 quantum2 fixed bin (35), 1 280 2 rmeter1 fixed bin (71), 1 281 2 rmeter2 fixed bin (71), 1 282 2 rcount1 fixed bin (35), 1 283 2 rcount2 fixed bin (35), 1 284 2 realtime fixed bin (35), 1 285 2 purging fixed bin (35), 1 286 2 maxel fixed bin (35), 1 287 2 nel fixed bin (35), 1 288 2 number_thinks fixed bin (35), /* number times process entered "think" state */ 1 289 2 number_queues fixed bin (35), /* number times process entered "queued" state */ 1 290 2 total_think_time fixed bin (71), 1 291 2 total_queue_time fixed bin (71), 1 292 1 293 /* The next three arrays correspond to the array vcpu_response_bounds */ 1 294 1 295 2 number_processing (VCPU_RESPONSE_BOUNDS+1) fixed bin (35), /* number times entered "processing" state */ 1 296 2 total_processing_time (VCPU_RESPONSE_BOUNDS+1) fixed bin (71), 1 297 2 total_vcpu_time (VCPU_RESPONSE_BOUNDS+1) fixed bin (71), 1 298 2 maxf fixed bin (35), /* maximum fraction of cpu time */ 1 299 2 governing_credits fixed bin (35), /* for limiting cpu resources */ 1 300 2 pad1 (4) fixed bin (35); 1 301 1 302 1 303 dcl 1 based_sentinel aligned based, /* format of pxss-style sentinel */ 1 304 2 fp bit (18) unal, 1 305 2 bp bit (18) unal, 1 306 2 sentinel bit (36) aligned; 1 307 1 308 dcl VCPU_RESPONSE_BOUNDS fixed bin init (3) int static options (constant); 1 309 1 310 /* END INCLUDE FILE tcm.incl.pl1 */ 323 324 2 1 /* Begin include file hc_lock.incl.pl1 BIM 2/82 */ 2 2 /* Replaced by hc_fast_lock.incl.pl1 RSC 11/84 because name of structure 2 3* encourages name conflicts. 2 4* USE HC_FAST_LOCK INSTEAD! 2 5**/ 2 6 2 7 /* Lock format suitable for use with lock$lock_fast, unlock_fast */ 2 8 2 9 /* format: style3 */ 2 10 2 11 declare lock_ptr pointer; 2 12 declare 1 lock aligned based (lock_ptr), 2 13 2 pid bit (36) aligned, /* holder of lock */ 2 14 2 event bit (36) aligned, /* event associated with lock */ 2 15 2 flags aligned, 2 16 3 notify_sw bit (1) unaligned, 2 17 3 pad bit (35) unaligned; /* certain locks use this pad, like dirs */ 2 18 2 19 /* End include file hc_lock.incl.pl1 */ 325 326 327 328 329 end; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 01/22/85 1313.9 system_performance_graph.pl1 >spec>temp>41-5>system_performance_graph.pl1 323 1 01/22/85 1321.5 tcm.incl.pl1 >spec>temp>41-5>tcm.incl.pl1 325 2 01/06/85 1422.1 hc_lock.incl.pl1 >ldd>include>hc_lock.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. arg_count 000314 automatic fixed bin(17,0) dcl 53 set ref 104* 105 arglen 000104 automatic fixed bin(17,0) dcl 27 set ref 107* 110 112 116 117 117 118 118 120* 121 122 128 128 131 131 argp 000106 automatic pointer dcl 28 set ref 107* 110 112 116 117 117 118 118 120* 121 122 128 128 131 ave_eligible 40 based fixed bin(35,18) level 2 dcl 1-11 ref 242 avequeue 16 based fixed bin(35,18) level 2 dcl 1-11 ref 241 based_sentinel based structure level 1 dcl 1-303 bin builtin function dcl 94 ref 112 305 306 309 310 blank 1(27) 000147 automatic char(1) level 2 packed unaligned dcl 44 set ref 221* chname 000024 internal static fixed bin(71,0) initial dcl 42 set ref 170 171* 173* 177* 198 199* 201* 202* 282* chsw 000113 automatic fixed bin(17,0) dcl 35 set ref 225* 228 clock_ 000062 constant entry external dcl 66 ref 156 156 214 code 000115 automatic fixed bin(35,0) dcl 36 set ref 107* 108 120* 121 148* 149 150* 151 159* 171* 172 173* 174 177* 178 187* 192* 193* 201* 284* com_err_ 000040 constant entry external dcl 66 ref 131 138 143 187 conversion 000330 stack reference condition dcl 96 ref 111 113 cstring 000203 automatic char(110) dcl 49 set ref 225* 228 228 ct 000010 internal static fixed bin(17,0) dcl 29 set ref 102* 112* 114 142 280 cu_$arg_count 000034 constant entry external dcl 66 ref 104 cu_$arg_ptr 000036 constant entry external dcl 66 ref 107 120 date_time_ 000056 constant entry external dcl 66 ref 156 165 decode_clock_value_ 000060 constant entry external dcl 66 ref 215 delx parameter float bin(27) dcl 298 ref 296 306 310 dkio 000131 automatic fixed bin(17,0) dcl 39 set ref 261* 263 dom 000316 automatic fixed bin(17,0) dcl 54 set ref 215* dow 000323 automatic fixed bin(17,0) dcl 54 set ref 215* error_table_$badopt 000032 external static fixed bin(35,0) dcl 63 set ref 131* first_time 000013 internal static bit(1) initial dcl 34 set ref 137 205* 248 284 288* graph 2 000147 automatic char(101) level 2 packed unaligned dcl 44 set ref 222* 273 273 273 273 273* 313* hour 000324 automatic fixed bin(35,0) dcl 54 in procedure "spg" set ref 216* 217 219 hour 000147 automatic picture(2) level 2 in structure "st" packed unaligned dcl 44 in procedure "spg" set ref 219* i 000111 automatic fixed bin(17,0) dcl 35 set ref 254* 255 255* 272* 273 273 273 273 273* 312* 313* i1 000346 automatic fixed bin(17,0) dcl 301 set ref 305* 309* 312 i2 000347 automatic fixed bin(17,0) dcl 301 set ref 306* 310* 312 initialize_time 336 based fixed bin(71,0) level 2 dcl 1-11 ref 165 167 248 ioa_$ioa_switch 000054 constant entry external dcl 66 ref 157 167 228 277 iox_$attach_ioname 000042 constant entry external dcl 66 ref 148 iox_$close 000046 constant entry external dcl 66 ref 192 iox_$control 000052 constant entry external dcl 66 ref 284 iox_$detach_iocb 000050 constant entry external dcl 66 ref 193 iox_$open 000044 constant entry external dcl 66 ref 150 iox_$user_output 000030 external static pointer dcl 63 ref 153 190 ipc_$create_ev_chn 000102 constant entry external dcl 66 ref 171 ipc_$decl_ev_call_chn 000104 constant entry external dcl 66 ref 173 ipc_$delete_ev_chn 000110 constant entry external dcl 66 ref 201 ipc_$drain_chn 000106 constant entry external dcl 66 ref 177 k 000313 automatic fixed bin(17,0) dcl 53 set ref 105* 107* 120 123* 123* last_time 34 based fixed bin(71,0) level 2 dcl 1-11 ref 167 248 250 250 length 000112 automatic fixed bin(17,0) dcl 35 set ref 225* 228 228 llen 000110 automatic fixed bin(17,0) dcl 31 set ref 270* 271* 277 277 lock based structure level 1 dcl 2-12 max builtin function dcl 94 ref 305 306 309 310 meter_time 000127 automatic float bin(27) dcl 38 set ref 248* 250* 258 259 262 263 264 meter_util_$fill_buffers 000066 constant entry external dcl 66 ref 160 224 meter_util_$get_buffers 000064 constant entry external dcl 66 ref 159 meter_util_$reset 000070 constant entry external dcl 66 ref 287 min builtin function dcl 94 in procedure "spg" ref 305 306 309 310 min 0(18) 000147 automatic picture(5) level 2 in structure "st" packed unaligned dcl 44 in procedure "spg" set ref 220* minute 000325 automatic float bin(27) dcl 54 set ref 217* 220 minute_time 000140 automatic fixed bin(35,0) dcl 41 set ref 279* 280 mn 000100 automatic fixed bin(17,0) dcl 25 set ref 266* month 000315 automatic fixed bin(17,0) dcl 54 set ref 215* mplot_mode 000237 automatic bit(1) dcl 50 set ref 101* 119* 147 mplot_switch 000026 internal static pointer initial dcl 51 set ref 148* 150* 153* 157* 167* 190 190 192* 193* 195* 228* 277* 284* mu 000102 automatic fixed bin(17,0) dcl 25 set ref 266* nn 000101 automatic fixed bin(17,0) dcl 25 set ref 266* 268 nu 000103 automatic fixed bin(17,0) dcl 25 set ref 266* 267 null builtin function dcl 94 ref 173 173 190 195 284 284 outfilename 000240 automatic varying char(168) dcl 52 set ref 122* 125* 148 pdio 000130 automatic fixed bin(17,0) dcl 39 set ref 261* 262 pint 000121 automatic float bin(27) dcl 38 set ref 225* 232 233 234 235 236* pmpi 000120 automatic float bin(27) dcl 38 set ref 225* 232 233 234 235 236 238* pnmpi 000117 automatic float bin(27) dcl 38 set ref 225* 232 233 234 235 236 238 239* ppf 000123 automatic float bin(27) dcl 38 set ref 225* 232 233 234* processor_time 42 based fixed bin(71,0) level 2 dcl 1-11 ref 167 psf 000124 automatic float bin(27) dcl 38 set ref 225* 232 233* ptc 000122 automatic float bin(27) dcl 38 set ref 225* 232 233 234 235* puse_rz 000125 automatic float bin(27) dcl 38 set ref 225* 232 px 000126 automatic float bin(27) dcl 38 set ref 225* pzi 000116 automatic float bin(27) dcl 38 set ref 225* 232 233 234 235 236 238 239* qc 000114 automatic fixed bin(17,0) dcl 35 set ref 253* 255* 255 258 quit_counts 52 based fixed bin(17,0) array level 2 dcl 1-11 ref 255 255 response_count 50 based fixed bin(17,0) level 2 dcl 1-11 ref 244 244 244 244 response_time 44 based fixed bin(71,0) level 2 dcl 1-11 ref 244 244 schedulings 14 based fixed bin(18,0) level 2 dcl 1-11 ref 259 259 short_lines 000011 internal static bit(1) initial unaligned dcl 30 set ref 116* 117* 206* 270 304 spg_fs_info_ 000076 constant entry external dcl 66 ref 261 spg_util_ 000074 constant entry external dcl 66 ref 225 spg_util_$reset 000072 constant entry external dcl 66 ref 161 ss based char unaligned dcl 26 set ref 110 112 116 117 117 118 118 121 122 128 128 131* sstp1 000014 internal static pointer dcl 37 set ref 159* 161* sstp2 000016 internal static pointer dcl 37 set ref 159* 161* st 000147 automatic structure level 1 dcl 44 set ref 277 277 str 000141 automatic char(24) unaligned dcl 43 set ref 156* 157* 165* 167 167 string builtin function dcl 94 ref 277 277 substr builtin function dcl 94 set ref 110 121 167 167 228 228 273 273 273 273 273* 277 277 313* system_info_$users 000100 constant entry external dcl 66 ref 266 tcdp1 000020 internal static pointer dcl 37 set ref 159* 161* 244 244 244 250 255 259 tcdp2 000022 internal static pointer dcl 37 set ref 159* 161* 165 167 167 167 241 242 244 244 244 248 248 250 255 259 tcm based structure level 1 dcl 1-11 time 000134 automatic fixed bin(52,0) dcl 40 set ref 214* 215* 279 timer_manager_$alarm_wakeup 000112 constant entry external dcl 66 ref 282 timer_manager_$reset_alarm_wakeup 000114 constant entry external dcl 66 ref 199 tod 000320 automatic fixed bin(52,0) dcl 54 set ref 215* 216 217 token parameter char(1) dcl 298 ref 296 313 unique 000012 internal static fixed bin(17,0) initial dcl 33 set ref 159* 160* 161* 224* 287* vtio 000132 automatic fixed bin(17,0) dcl 39 set ref 261* 264 wakeup_time 000136 automatic fixed bin(52,0) dcl 40 set ref 280* 282* wct_entry based structure level 1 dcl 1-260 x parameter float bin(27) dcl 298 ref 296 305 306 309 310 year 000322 automatic fixed bin(17,0) dcl 54 set ref 215* zone 000326 automatic char(3) dcl 54 set ref 215* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. VCPU_RESPONSE_BOUNDS internal static fixed bin(17,0) initial dcl 1-308 lock_ptr automatic pointer dcl 2-11 tcmp automatic pointer dcl 1-9 wctep automatic pointer dcl 1-258 NAMES DECLARED BY EXPLICIT CONTEXT. arg_error 000417 constant label dcl 131 ref 111 114 error 001146 constant label dcl 187 ref 108 149 151 172 174 178 fill_in 002251 constant entry internal dcl 296 ref 232 233 234 235 236 238 239 241 242 244 258 259 262 263 264 267 268 line 001257 constant entry external dcl 212 ref 173 173 181 spg 000166 constant entry external dcl 23 stop 001171 constant label dcl 190 ref 128 system_performance_graph 000175 constant entry external dcl 23 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 3032 3150 2471 3042 Length 3456 2471 116 272 341 20 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME spg 426 external procedure is an external procedure. on unit on line 111 64 on unit fill_in internal procedure shares stack frame of external procedure spg. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 ct spg 000011 short_lines spg 000012 unique spg 000013 first_time spg 000014 sstp1 spg 000016 sstp2 spg 000020 tcdp1 spg 000022 tcdp2 spg 000024 chname spg 000026 mplot_switch spg STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME spg 000100 mn spg 000101 nn spg 000102 mu spg 000103 nu spg 000104 arglen spg 000106 argp spg 000110 llen spg 000111 i spg 000112 length spg 000113 chsw spg 000114 qc spg 000115 code spg 000116 pzi spg 000117 pnmpi spg 000120 pmpi spg 000121 pint spg 000122 ptc spg 000123 ppf spg 000124 psf spg 000125 puse_rz spg 000126 px spg 000127 meter_time spg 000130 pdio spg 000131 dkio spg 000132 vtio spg 000134 time spg 000136 wakeup_time spg 000140 minute_time spg 000141 str spg 000147 st spg 000203 cstring spg 000237 mplot_mode spg 000240 outfilename spg 000313 k spg 000314 arg_count spg 000315 month spg 000316 dom spg 000320 tod spg 000322 year spg 000323 dow spg 000324 hour spg 000325 minute spg 000326 zone spg 000346 i1 fill_in 000347 i2 fill_in THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. fx1_to_fl2 alloc_cs cat_realloc_cs call_ext_in call_ext_out_desc call_ext_out return fl2_to_fx1 tra_ext mpfx2 enable shorten_stack ext_entry int_entry real_to_real_tr any_to_any_tr THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. clock_ com_err_ cu_$arg_count cu_$arg_ptr date_time_ decode_clock_value_ ioa_$ioa_switch iox_$attach_ioname iox_$close iox_$control iox_$detach_iocb iox_$open ipc_$create_ev_chn ipc_$decl_ev_call_chn ipc_$delete_ev_chn ipc_$drain_chn meter_util_$fill_buffers meter_util_$get_buffers meter_util_$reset spg_fs_info_ spg_util_ spg_util_$reset system_info_$users timer_manager_$alarm_wakeup timer_manager_$reset_alarm_wakeup THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$badopt iox_$user_output CONSTANTS 002352 aa 000006000000 002353 aa 000000000000 002354 aa 600000000041 002355 aa 000351000000 002356 aa 600000000041 002357 aa 000626000000 002360 aa 600000000041 002361 aa 000627000000 002362 aa 000006000000 002363 aa 000000000000 002364 aa 600000000041 002365 aa 000627000000 002366 aa 600000000041 002367 aa 000626000000 002370 aa 600000000041 002371 aa 000351000000 002372 aa 000006000000 002373 aa 000000000000 002374 aa 600000000041 002375 aa 000116000000 002376 aa 600000000041 002377 aa 000117000000 002400 aa 600000000041 002401 aa 000627000000 002402 aa 000006000000 002403 aa 000000000000 002404 aa 600000000041 002405 aa 000626000000 002406 aa 600000000041 002407 aa 000120000000 002410 aa 600000000041 002411 aa 000627000000 002412 aa 000006000000 002413 aa 000000000000 002414 aa 600000000041 002415 aa 000627000000 002416 aa 600000000041 002417 aa 000121000000 002420 aa 600000000041 002421 aa 000626000000 002422 aa 000006000000 002423 aa 000000000000 002424 aa 600000000041 002425 aa 000626000000 002426 aa 600000000041 002427 aa 000122000000 002430 aa 600000000041 002431 aa 000627000000 002432 aa 000006000000 002433 aa 000000000000 002434 aa 600000000041 002435 aa 000627000000 002436 aa 600000000041 002437 aa 000123000000 002440 aa 600000000041 002441 aa 000626000000 002442 aa 000006000000 002443 aa 000000000000 002444 aa 600000000041 002445 aa 000626000000 002446 aa 600000000041 002447 aa 000124000000 002450 aa 600000000041 002451 aa 000627000000 002452 aa 000006000000 002453 aa 000000000000 002454 aa 600000000041 002455 aa 000351000000 002456 aa 600000000041 002457 aa 000627000000 002460 aa 600000000041 002461 aa 000626000000 002462 aa 070 322 207 322 8Ò‡Ò 002463 aa 000002000004 002464 aa 070 322 000 000 8Ò 002466 aa 077777000043 002467 aa 000001000000 000000 aa 524000000001 000001 aa 414000000033 000002 aa 000344703400 000003 aa 060461132000 000004 aa 042606500000 000005 aa 064711607000 000006 aa 420000000077 000007 aa 100655116440 000010 aa 524000000024 000011 aa 524000000052 000012 aa 524000000005 000013 aa 526000000030 000014 aa 524000000000 000015 aa 464000000000 000016 aa 524000000013 000017 aa 524000000036 000020 aa 524000000070 000021 aa 404000000005 000022 aa 526000000000 000023 aa 524000000003 000024 aa 163 160 147 000 spg 000025 aa 404000000043 000026 aa 055 150 164 000 -ht 000027 aa 055 157 146 000 -of 000030 aa 055 154 147 000 -lg 002470 aa 055 000 000 000 - 000031 aa 410000000064 000032 aa 163 164 141 162 star 000033 aa 164 000 000 000 t 000034 aa 000000000000 000035 aa 000000000000 000036 aa 077777000043 000037 aa 000001000000 000040 aa 136 065 055 136 ^5-^ 000041 aa 141 000 000 000 a 000042 aa 040 055 145 170 -ex 000043 aa 164 145 156 144 tend 000044 aa 166 146 151 154 vfil 000045 aa 145 137 040 000 e_ 000046 aa 055 150 141 154 -hal 000047 aa 164 000 000 000 t 000050 aa 055 154 157 156 -lon 000051 aa 147 000 000 000 g 000052 aa 055 163 150 157 -sho 000053 aa 162 164 000 000 rt 000054 aa 163 160 147 137 spg_ 000055 aa 157 165 164 160 outp 000056 aa 165 164 137 000 ut_ 000057 aa 163 160 147 137 spg_ 000060 aa 157 165 164 160 outp 000061 aa 165 164 000 000 ut 000062 aa 055 157 165 164 -out 000063 aa 160 165 164 137 put_ 000064 aa 146 151 154 145 file 000065 aa 143 157 156 166 conv 000066 aa 145 162 163 151 ersi 000067 aa 157 156 000 000 on 000070 aa 127 141 153 145 Wake 000071 aa 165 160 040 151 up i 000072 aa 156 164 145 162 nter 000073 aa 166 141 154 040 val 000074 aa 156 157 164 040 not 000075 aa 163 160 145 143 spec 000076 aa 151 146 151 145 ifie 000077 aa 144 056 000 000 d. 000100 aa 165 160 075 040 up= 000101 aa 136 062 060 141 ^20a 000102 aa 054 040 163 171 , sy 000103 aa 163 137 150 157 s_ho 000104 aa 165 162 163 075 urs= 000105 aa 040 136 056 061 ^.1 000106 aa 146 054 040 143 f, c 000107 aa 160 165 137 150 pu_h 000110 aa 157 165 162 163 ours 000111 aa 075 040 136 056 = ^. 000112 aa 061 146 000 000 1f 000113 aa 101 154 162 145 Alre 000114 aa 141 144 171 040 ady 000115 aa 151 156 166 157 invo 000116 aa 153 145 144 056 ked. 000117 aa 040 125 163 145 Use 000120 aa 040 055 150 141 -ha 000121 aa 154 164 040 164 lt t 000122 aa 157 040 164 145 o te 000123 aa 162 155 151 156 rmin 000124 aa 141 164 145 040 ate 000125 aa 157 164 150 145 othe 000126 aa 162 040 151 156 r in 000127 aa 166 157 143 141 voca 000130 aa 164 151 157 156 tion 000131 aa 174 040 040 040 | 000132 aa 040 056 040 040 . 000133 aa 040 040 174 040 | 000134 aa 040 040 040 056 . 000135 aa 040 040 040 040 000136 aa 174 040 040 040 | 000137 aa 040 056 040 040 . 000140 aa 040 040 174 040 | 000141 aa 040 040 040 056 . 000142 aa 040 040 040 040 000143 aa 174 040 040 040 | 000144 aa 040 056 040 040 . 000145 aa 040 040 174 040 | 000146 aa 040 040 040 056 . 000147 aa 040 040 040 040 000150 aa 174 040 040 040 | 000151 aa 040 056 040 040 . 000152 aa 040 040 174 040 | 000153 aa 040 040 040 056 . 000154 aa 040 040 040 040 000155 aa 174 040 040 040 | 000156 aa 040 056 040 040 . 000157 aa 040 040 174 040 | 000160 aa 040 040 040 056 . 000161 aa 040 040 040 040 000162 aa 174 040 040 040 | 000163 aa 040 056 040 040 . 000164 aa 040 040 000 000 BEGIN PROCEDURE spg ENTRY TO spg STATEMENT 1 ON LINE 23 system_performance_graph: spg: proc; 000165 da 000316200000 000166 aa 000660 6270 00 eax7 432 000167 aa 7 00034 3521 20 epp2 pr7|28,* 000170 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000171 aa 000000000000 000172 aa 000000000000 000173 aa 000007 7100 04 tra 7,ic 000202 ENTRY TO system_performance_graph STATEMENT 1 ON LINE 23 system_performance_graph: spg: proc; 000174 da 000321200000 000175 aa 000660 6270 00 eax7 432 000176 aa 7 00034 3521 20 epp2 pr7|28,* 000177 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000200 aa 000000000000 000201 aa 000000000000 STATEMENT 1 ON LINE 101 mplot_mode = "0"b; 000202 aa 6 00237 4501 00 stz pr6|159 mplot_mode STATEMENT 1 ON LINE 102 ct = 0; 000203 ia 4 00010 4501 00 stz pr4|8 ct STATEMENT 1 ON LINE 104 call cu_$arg_count (arg_count); 000204 aa 6 00314 3521 00 epp2 pr6|204 arg_count 000205 aa 6 00354 2521 00 spri2 pr6|236 000206 aa 6 00352 6211 00 eax1 pr6|234 000207 aa 004000 4310 07 fld 2048,dl 000210 la 4 00034 3521 20 epp2 pr4|28,* cu_$arg_count 000211 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 105 do k = 1 to arg_count; 000212 aa 6 00314 2361 00 ldq pr6|204 arg_count 000213 aa 6 00336 7561 00 stq pr6|222 000214 aa 000001 2360 07 ldq 1,dl 000215 aa 6 00313 7561 00 stq pr6|203 k 000216 aa 6 00313 2361 00 ldq pr6|203 k 000217 aa 6 00336 1161 00 cmpq pr6|222 000220 aa 000230 6054 04 tpnz 152,ic 000450 STATEMENT 1 ON LINE 107 call cu_$arg_ptr (k, argp, arglen, code); 000221 aa 6 00313 3521 00 epp2 pr6|203 k 000222 aa 6 00360 2521 00 spri2 pr6|240 000223 aa 6 00106 3521 00 epp2 pr6|70 argp 000224 aa 6 00362 2521 00 spri2 pr6|242 000225 aa 6 00104 3521 00 epp2 pr6|68 arglen 000226 aa 6 00364 2521 00 spri2 pr6|244 000227 aa 6 00115 3521 00 epp2 pr6|77 code 000230 aa 6 00366 2521 00 spri2 pr6|246 000231 aa 6 00356 6211 00 eax1 pr6|238 000232 aa 020000 4310 07 fld 8192,dl 000233 aa 6 00044 3701 20 epp4 pr6|36,* 000234 la 4 00036 3521 20 epp2 pr4|30,* cu_$arg_ptr 000235 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 108 if code ^= 0 then go to error; 000236 aa 6 00115 2361 00 ldq pr6|77 code 000237 aa 000707 6010 04 tnz 455,ic 001146 STATEMENT 1 ON LINE 110 if substr (ss, 1, 1) ^= "-" then do; 000240 aa 6 00106 3735 20 epp7 pr6|70,* argp 000241 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 000242 aa 7 00000 00 0001 desc9a pr7|0,1 ss 000243 aa 002227 00 0001 desc9a 1175,1 002470 = 055000000000 000244 aa 000036 6000 04 tze 30,ic 000302 STATEMENT 1 ON LINE 111 on conversion goto arg_error; 000245 aa 000012 7260 07 lxl6 10,dl 000246 aa 777617 3520 04 epp2 -113,ic 000065 = 143157156166 000247 aa 0 00717 7001 00 tsx0 pr0|463 enable 000250 aa 000004 7100 04 tra 4,ic 000254 000251 aa 000330000000 000252 aa 000012 7100 04 tra 10,ic 000264 BEGIN CONDITION conversion.1 ENTRY TO conversion.1 STATEMENT 1 ON LINE 111 on conversion goto arg_error; 000253 da 000330200000 000254 aa 000100 6270 00 eax7 64 000255 aa 7 00034 3521 20 epp2 pr7|28,* 000256 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 000257 aa 000000000000 000260 aa 000000000000 000261 aa 000136 3520 04 epp2 94,ic 000417 = 600104236100 000262 aa 000001 7270 07 lxl7 1,dl 000263 aa 0 00657 7101 00 tra pr0|431 tra_ext END CONDITION conversion.1 STATEMENT 1 ON LINE 112 ct = bin (ss, 17); 000264 aa 6 00106 3535 20 epp3 pr6|70,* ss 000265 aa 6 00104 2361 00 ldq pr6|68 arglen 000266 aa 000053 7270 07 lxl7 43,dl 000267 aa 6 00044 3701 20 epp4 pr6|36,* 000270 ia 4 00010 3515 00 epp1 pr4|8 ct 000271 aa 000021 2350 07 lda 17,dl 000272 aa 000002 7260 07 lxl6 2,dl 000273 aa 6 00370 3715 00 epp5 pr6|248 000274 aa 0 01257 7001 00 tsx0 pr0|687 any_to_any_tr STATEMENT 1 ON LINE 113 revert conversion; 000275 aa 6 00334 4501 00 stz pr6|220 STATEMENT 1 ON LINE 114 if ct <= 0 then goto arg_error; 000276 aa 6 00044 3701 20 epp4 pr6|36,* 000277 ia 4 00010 2361 00 ldq pr4|8 ct 000300 aa 000117 6044 04 tmoz 79,ic 000417 STATEMENT 1 ON LINE 115 end; 000301 aa 000145 7100 04 tra 101,ic 000446 STATEMENT 1 ON LINE 116 else if ss = "-short" then short_lines = "1"b; 000302 aa 6 00104 7271 00 lxl7 pr6|68 arglen 000303 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000304 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000305 aa 777547 00 0006 desc9a -153,6 000052 = 055163150157 000306 aa 000005 6010 04 tnz 5,ic 000313 000307 aa 400000 2350 03 lda 131072,du 000310 aa 6 00044 3701 20 epp4 pr6|36,* 000311 ia 4 00011 7551 00 sta pr4|9 short_lines 000312 aa 000134 7100 04 tra 92,ic 000446 STATEMENT 1 ON LINE 117 else if ss = "-long" | ss = "-lg" then short_lines = "0"b; 000313 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000314 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000315 aa 777535 00 0005 desc9a -163,5 000050 = 055154157156 000316 aa 000005 6000 04 tze 5,ic 000323 000317 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000320 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000321 aa 777511 00 0003 desc9a -183,3 000030 = 055154147000 000322 aa 000004 6010 04 tnz 4,ic 000326 000323 aa 6 00044 3701 20 epp4 pr6|36,* 000324 ia 4 00011 4501 00 stz pr4|9 short_lines 000325 aa 000121 7100 04 tra 81,ic 000446 STATEMENT 1 ON LINE 118 else if ss = "-output_file" | ss = "-of" then do; 000326 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000327 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000330 aa 777534 00 0014 desc9a -164,12 000062 = 055157165164 000331 aa 000005 6000 04 tze 5,ic 000336 000332 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000333 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000334 aa 777475 00 0003 desc9a -195,3 000027 = 055157146000 000335 aa 000052 6010 04 tnz 42,ic 000407 STATEMENT 1 ON LINE 119 mplot_mode = "1"b; 000336 aa 400000 2350 03 lda 131072,du 000337 aa 6 00237 7551 00 sta pr6|159 mplot_mode STATEMENT 1 ON LINE 120 call cu_$arg_ptr (k + 1, argp, arglen, code); 000340 aa 6 00313 2361 00 ldq pr6|203 k 000341 aa 000001 0760 07 adq 1,dl 000342 aa 6 00351 7561 00 stq pr6|233 000343 aa 6 00351 3521 00 epp2 pr6|233 000344 aa 6 00360 2521 00 spri2 pr6|240 000345 aa 6 00106 3521 00 epp2 pr6|70 argp 000346 aa 6 00362 2521 00 spri2 pr6|242 000347 aa 6 00104 3521 00 epp2 pr6|68 arglen 000350 aa 6 00364 2521 00 spri2 pr6|244 000351 aa 6 00115 3521 00 epp2 pr6|77 code 000352 aa 6 00366 2521 00 spri2 pr6|246 000353 aa 6 00356 6211 00 eax1 pr6|238 000354 aa 020000 4310 07 fld 8192,dl 000355 aa 6 00044 3701 20 epp4 pr6|36,* 000356 la 4 00036 3521 20 epp2 pr4|30,* cu_$arg_ptr 000357 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 121 if (code = 0) & (substr (ss, 1, 1) ^= "-") then do; 000360 aa 6 00115 2361 00 ldq pr6|77 code 000361 aa 000020 6010 04 tnz 16,ic 000401 000362 aa 6 00106 3735 20 epp7 pr6|70,* argp 000363 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 000364 aa 7 00000 00 0001 desc9a pr7|0,1 ss 000365 aa 002105 00 0001 desc9a 1093,1 002470 = 055000000000 000366 aa 000013 6000 04 tze 11,ic 000401 STATEMENT 1 ON LINE 122 outfilename = ss; 000367 aa 6 00104 2361 00 ldq pr6|68 arglen 000370 aa 000250 1160 07 cmpq 168,dl 000371 aa 000002 6040 04 tmi 2,ic 000373 000372 aa 000250 2360 07 ldq 168,dl 000373 aa 6 00240 7561 00 stq pr6|160 outfilename 000374 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 000375 aa 7 00000 00 0006 desc9a pr7|0,ql ss 000376 aa 6 00241 00 0006 desc9a pr6|161,ql outfilename STATEMENT 1 ON LINE 123 k = k + 1; 000377 aa 6 00313 0541 00 aos pr6|203 k STATEMENT 1 ON LINE 124 end; 000400 aa 000046 7100 04 tra 38,ic 000446 STATEMENT 1 ON LINE 125 else outfilename = "spg_output"; 000401 aa 000012 2360 07 ldq 10,dl 000402 aa 6 00240 7561 00 stq pr6|160 outfilename 000403 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 000404 aa 777454 00 0006 desc9a -212,ql 000057 = 163160147137 000405 aa 6 00241 00 0006 desc9a pr6|161,ql outfilename STATEMENT 1 ON LINE 127 end; 000406 aa 000040 7100 04 tra 32,ic 000446 STATEMENT 1 ON LINE 128 else if ss = "-halt" | ss = "-ht" then go to stop; 000407 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000410 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000411 aa 777437 00 0005 desc9a -225,5 000046 = 055150141154 000412 aa 000557 6000 04 tze 367,ic 001171 000413 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 000414 aa 7 00000 00 0017 desc9a pr7|0,x7 ss 000415 aa 777413 00 0003 desc9a -245,3 000026 = 055150164000 000416 aa 000553 6000 04 tze 363,ic 001171 STATEMENT 1 ON LINE 130 else do; STATEMENT 1 ON LINE 131 arg_error: call com_err_ (error_table_$badopt, "spg", ss); 000417 aa 6 00104 2361 00 ldq pr6|68 arglen 000420 aa 526000 2760 03 orq 175104,du 000421 aa 6 00351 7561 00 stq pr6|233 000422 aa 777402 2350 04 lda -254,ic 000024 = 163160147000 000423 aa 6 00626 7551 00 sta pr6|406 000424 aa 6 00044 3701 20 epp4 pr6|36,* 000425 la 4 00032 3521 20 epp2 pr4|26,* error_table_$badopt 000426 aa 6 00372 2521 00 spri2 pr6|250 000427 aa 6 00626 3521 00 epp2 pr6|406 000430 aa 6 00374 2521 00 spri2 pr6|252 000431 aa 6 00106 3521 20 epp2 pr6|70,* ss 000432 aa 6 00376 2521 00 spri2 pr6|254 000433 aa 777372 3520 04 epp2 -262,ic 000025 = 404000000043 000434 aa 6 00400 2521 00 spri2 pr6|256 000435 aa 777366 3520 04 epp2 -266,ic 000023 = 524000000003 000436 aa 6 00402 2521 00 spri2 pr6|258 000437 aa 6 00351 3521 00 epp2 pr6|233 000440 aa 6 00404 2521 00 spri2 pr6|260 000441 aa 6 00370 6211 00 eax1 pr6|248 000442 aa 014000 4310 07 fld 6144,dl 000443 la 4 00040 3521 20 epp2 pr4|32,* com_err_ 000444 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 132 return; 000445 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 133 end; STATEMENT 1 ON LINE 135 end; 000446 aa 6 00313 0541 00 aos pr6|203 k 000447 aa 777547 7100 04 tra -153,ic 000216 STATEMENT 1 ON LINE 137 if ^first_time then do; 000450 aa 6 00044 3701 20 epp4 pr6|36,* 000451 ia 4 00013 2351 00 lda pr4|11 first_time 000452 aa 000030 6010 04 tnz 24,ic 000502 STATEMENT 1 ON LINE 138 call com_err_ (0, "spg", "Already invoked. Use -halt to terminate other invocation"); 000453 aa 6 00351 4501 00 stz pr6|233 000454 aa 777350 2350 04 lda -280,ic 000024 = 163160147000 000455 aa 6 00626 7551 00 sta pr6|406 000456 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000457 aa 777435 00 0070 desc9a -227,56 000113 = 101154162145 000460 aa 6 00370 00 0070 desc9a pr6|248,56 000461 aa 6 00351 3521 00 epp2 pr6|233 000462 aa 6 00632 2521 00 spri2 pr6|410 000463 aa 6 00626 3521 00 epp2 pr6|406 000464 aa 6 00634 2521 00 spri2 pr6|412 000465 aa 6 00370 3521 00 epp2 pr6|248 000466 aa 6 00636 2521 00 spri2 pr6|414 000467 aa 777332 3520 04 epp2 -294,ic 000021 = 404000000005 000470 aa 6 00640 2521 00 spri2 pr6|416 000471 aa 777332 3520 04 epp2 -294,ic 000023 = 524000000003 000472 aa 6 00642 2521 00 spri2 pr6|418 000473 aa 777325 3520 04 epp2 -299,ic 000020 = 524000000070 000474 aa 6 00644 2521 00 spri2 pr6|420 000475 aa 6 00630 6211 00 eax1 pr6|408 000476 aa 014000 4310 07 fld 6144,dl 000477 la 4 00040 3521 20 epp2 pr4|32,* com_err_ 000500 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 139 return; 000501 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 140 end; STATEMENT 1 ON LINE 142 if ct = 0 then do; 000502 ia 4 00010 2361 00 ldq pr4|8 ct 000503 aa 000030 6010 04 tnz 24,ic 000533 STATEMENT 1 ON LINE 143 call com_err_ (0, "spg", "Wakeup interval not specified."); 000504 aa 6 00626 4501 00 stz pr6|406 000505 aa 777317 2350 04 lda -305,ic 000024 = 163160147000 000506 aa 6 00351 7551 00 sta pr6|233 000507 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000510 aa 777361 00 0040 desc9a -271,32 000070 = 127141153145 000511 aa 6 00356 00 0040 desc9a pr6|238,32 000512 aa 6 00626 3521 00 epp2 pr6|406 000513 aa 6 00632 2521 00 spri2 pr6|410 000514 aa 6 00351 3521 00 epp2 pr6|233 000515 aa 6 00634 2521 00 spri2 pr6|412 000516 aa 6 00356 3521 00 epp2 pr6|238 000517 aa 6 00636 2521 00 spri2 pr6|414 000520 aa 777301 3520 04 epp2 -319,ic 000021 = 404000000005 000521 aa 6 00640 2521 00 spri2 pr6|416 000522 aa 777301 3520 04 epp2 -319,ic 000023 = 524000000003 000523 aa 6 00642 2521 00 spri2 pr6|418 000524 aa 777273 3520 04 epp2 -325,ic 000017 = 524000000036 000525 aa 6 00644 2521 00 spri2 pr6|420 000526 aa 6 00630 6211 00 eax1 pr6|408 000527 aa 014000 4310 07 fld 6144,dl 000530 la 4 00040 3521 20 epp2 pr4|32,* com_err_ 000531 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 144 return; 000532 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 145 end; STATEMENT 1 ON LINE 147 if mplot_mode then do; 000533 aa 6 00237 2351 00 lda pr6|159 mplot_mode 000534 aa 000105 6000 04 tze 69,ic 000641 STATEMENT 1 ON LINE 148 call iox_$attach_ioname ("spg_output_", mplot_switch, "vfile_ " || outfilename || " -extend", code); 000535 aa 000007 2360 07 ldq 7,dl 000536 aa 6 00240 0761 00 adq pr6|160 outfilename 000537 aa 6 00626 7561 00 stq pr6|406 000540 aa 000010 0760 07 adq 8,dl 000541 aa 6 00627 7561 00 stq pr6|407 000542 aa 524000 2760 03 orq 174080,du 000543 aa 6 00351 7561 00 stq pr6|233 000544 aa 777310 2370 04 ldaq -312,ic 000054 = 163160147137 157165164160 000545 aa 6 00352 7571 00 staq pr6|234 000546 aa 777310 2350 04 lda -312,ic 000056 = 165164137000 000547 aa 6 00354 7551 00 sta pr6|236 000550 aa 6 00626 2361 00 ldq pr6|406 000551 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 000552 aa 040 100 100 404 mlr (ic),(pr),fill(040) 000553 aa 777272 00 0007 desc9a -326,7 000044 = 166146151154 000554 aa 2 00000 00 0007 desc9a pr2|0,7 000555 aa 6 00240 7271 00 lxl7 pr6|160 outfilename 000556 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 000557 aa 6 00241 00 0017 desc9a pr6|161,x7 outfilename 000560 aa 2 00001 60 0017 desc9a pr2|1(3),x7 000561 aa 6 00627 2361 00 ldq pr6|407 000562 aa 0 00606 7001 00 tsx0 pr0|390 cat_realloc_cs 000563 aa 6 00626 2351 00 lda pr6|406 000564 aa 040 105 100 404 mlr (ic),(pr,al),fill(040) 000565 aa 777256 00 0010 desc9a -338,8 000042 = 040055145170 000566 aa 2 00000 00 0010 desc9a pr2|0,8 000567 aa 6 00376 2521 00 spri2 pr6|254 000570 aa 6 00352 3521 00 epp2 pr6|234 000571 aa 6 00372 2521 00 spri2 pr6|250 000572 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 000573 aa 6 00374 2521 00 spri2 pr6|252 000574 aa 6 00115 3521 00 epp2 pr6|77 code 000575 aa 6 00400 2521 00 spri2 pr6|256 000576 aa 777220 3520 04 epp2 -368,ic 000016 = 524000000013 000577 aa 6 00402 2521 00 spri2 pr6|258 000600 aa 777215 3520 04 epp2 -371,ic 000015 = 464000000000 000601 aa 6 00404 2521 00 spri2 pr6|260 000602 aa 6 00351 3521 00 epp2 pr6|233 000603 aa 6 00406 2521 00 spri2 pr6|262 000604 aa 777221 3520 04 epp2 -367,ic 000025 = 404000000043 000605 aa 6 00410 2521 00 spri2 pr6|264 000606 aa 6 00370 6211 00 eax1 pr6|248 000607 aa 020000 4310 07 fld 8192,dl 000610 la 4 00042 3521 20 epp2 pr4|34,* iox_$attach_ioname 000611 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 149 if code ^= 0 then go to error; 000612 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 000613 aa 6 00115 2361 00 ldq pr6|77 code 000614 aa 000332 6010 04 tnz 218,ic 001146 STATEMENT 1 ON LINE 150 call iox_$open (mplot_switch, 2, "0"b, code); 000615 aa 000002 2360 07 ldq 2,dl 000616 aa 6 00351 7561 00 stq pr6|233 000617 aa 000000 2350 07 lda 0,dl 000620 aa 6 00627 7551 00 sta pr6|407 000621 aa 6 00044 3701 20 epp4 pr6|36,* 000622 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 000623 aa 6 00360 2521 00 spri2 pr6|240 000624 aa 6 00351 3521 00 epp2 pr6|233 000625 aa 6 00362 2521 00 spri2 pr6|242 000626 aa 6 00627 3521 00 epp2 pr6|407 000627 aa 6 00364 2521 00 spri2 pr6|244 000630 aa 6 00115 3521 00 epp2 pr6|77 code 000631 aa 6 00366 2521 00 spri2 pr6|246 000632 aa 6 00356 6211 00 eax1 pr6|238 000633 aa 020000 4310 07 fld 8192,dl 000634 la 4 00044 3521 20 epp2 pr4|36,* iox_$open 000635 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 151 if code ^= 0 then go to error; 000636 aa 6 00115 2361 00 ldq pr6|77 code 000637 aa 000307 6010 04 tnz 199,ic 001146 STATEMENT 1 ON LINE 152 end; 000640 aa 000004 7100 04 tra 4,ic 000644 STATEMENT 1 ON LINE 153 else mplot_switch = iox_$user_output; 000641 la 4 00030 3735 20 epp7 pr4|24,* iox_$user_output 000642 aa 7 00000 3735 20 epp7 pr7|0,* iox_$user_output 000643 ia 4 00026 6535 00 spri7 pr4|22 mplot_switch STATEMENT 1 ON LINE 156 call date_time_ (clock_ (), str); 000644 aa 6 00646 3521 00 epp2 pr6|422 000645 aa 6 00354 2521 00 spri2 pr6|236 000646 aa 6 00352 6211 00 eax1 pr6|234 000647 aa 004000 4310 07 fld 2048,dl 000650 aa 6 00044 3701 20 epp4 pr6|36,* 000651 la 4 00062 3521 20 epp2 pr4|50,* clock_ 000652 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 000653 aa 6 00646 3521 00 epp2 pr6|422 000654 aa 6 00360 2521 00 spri2 pr6|240 000655 aa 6 00141 3521 00 epp2 pr6|97 str 000656 aa 6 00362 2521 00 spri2 pr6|242 000657 aa 777152 3520 04 epp2 -406,ic 000031 = 410000000064 000660 aa 6 00364 2521 00 spri2 pr6|244 000661 aa 777132 3520 04 epp2 -422,ic 000013 = 526000000030 000662 aa 6 00366 2521 00 spri2 pr6|246 000663 aa 6 00356 6211 00 eax1 pr6|238 000664 aa 010000 4310 07 fld 4096,dl 000665 aa 6 00044 3701 20 epp4 pr6|36,* 000666 la 4 00056 3521 20 epp2 pr4|46,* date_time_ 000667 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 157 call ioa_$ioa_switch (mplot_switch, "^5-^a", str); 000670 aa 777150 2370 04 ldaq -408,ic 000040 = 136065055136 141000000000 000671 aa 6 00646 7571 00 staq pr6|422 000672 aa 6 00044 3701 20 epp4 pr6|36,* 000673 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 000674 aa 6 00632 2521 00 spri2 pr6|410 000675 aa 6 00646 3521 00 epp2 pr6|422 000676 aa 6 00634 2521 00 spri2 pr6|412 000677 aa 6 00141 3521 00 epp2 pr6|97 str 000700 aa 6 00636 2521 00 spri2 pr6|414 000701 aa 777114 3520 04 epp2 -436,ic 000015 = 464000000000 000702 aa 6 00640 2521 00 spri2 pr6|416 000703 aa 777107 3520 04 epp2 -441,ic 000012 = 524000000005 000704 aa 6 00642 2521 00 spri2 pr6|418 000705 aa 777106 3520 04 epp2 -442,ic 000013 = 526000000030 000706 aa 6 00644 2521 00 spri2 pr6|420 000707 aa 6 00630 6211 00 eax1 pr6|408 000710 aa 014000 4310 07 fld 6144,dl 000711 la 4 00054 3521 20 epp2 pr4|44,* ioa_$ioa_switch 000712 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 159 call meter_util_$get_buffers (unique, sstp1, sstp2, tcdp1, tcdp2, code); 000713 aa 6 00044 3701 20 epp4 pr6|36,* 000714 ia 4 00012 3521 00 epp2 pr4|10 unique 000715 aa 6 00632 2521 00 spri2 pr6|410 000716 ia 4 00014 3521 00 epp2 pr4|12 sstp1 000717 aa 6 00634 2521 00 spri2 pr6|412 000720 ia 4 00016 3521 00 epp2 pr4|14 sstp2 000721 aa 6 00636 2521 00 spri2 pr6|414 000722 ia 4 00020 3521 00 epp2 pr4|16 tcdp1 000723 aa 6 00640 2521 00 spri2 pr6|416 000724 ia 4 00022 3521 00 epp2 pr4|18 tcdp2 000725 aa 6 00642 2521 00 spri2 pr6|418 000726 aa 6 00115 3521 00 epp2 pr6|77 code 000727 aa 6 00644 2521 00 spri2 pr6|420 000730 aa 6 00630 6211 00 eax1 pr6|408 000731 aa 030000 4310 07 fld 12288,dl 000732 la 4 00064 3521 20 epp2 pr4|52,* meter_util_$get_buffers 000733 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 160 call meter_util_$fill_buffers (unique); 000734 aa 6 00044 3701 20 epp4 pr6|36,* 000735 ia 4 00012 3521 00 epp2 pr4|10 unique 000736 aa 6 00354 2521 00 spri2 pr6|236 000737 aa 6 00352 6211 00 eax1 pr6|234 000740 aa 004000 4310 07 fld 2048,dl 000741 la 4 00066 3521 20 epp2 pr4|54,* meter_util_$fill_buffers 000742 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 161 call spg_util_$reset (unique, sstp1, sstp2, tcdp1, tcdp2); 000743 aa 6 00044 3701 20 epp4 pr6|36,* 000744 ia 4 00012 3521 00 epp2 pr4|10 unique 000745 aa 6 00632 2521 00 spri2 pr6|410 000746 ia 4 00014 3521 00 epp2 pr4|12 sstp1 000747 aa 6 00634 2521 00 spri2 pr6|412 000750 ia 4 00016 3521 00 epp2 pr4|14 sstp2 000751 aa 6 00636 2521 00 spri2 pr6|414 000752 ia 4 00020 3521 00 epp2 pr4|16 tcdp1 000753 aa 6 00640 2521 00 spri2 pr6|416 000754 ia 4 00022 3521 00 epp2 pr4|18 tcdp2 000755 aa 6 00642 2521 00 spri2 pr6|418 000756 aa 6 00630 6211 00 eax1 pr6|408 000757 aa 024000 4310 07 fld 10240,dl 000760 la 4 00072 3521 20 epp2 pr4|58,* spg_util_$reset 000761 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 165 call date_time_ ((tcdp2 -> tcm.initialize_time), str); 000762 aa 6 00044 3701 20 epp4 pr6|36,* 000763 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 000764 aa 7 00336 2371 00 ldaq pr7|222 tcm.initialize_time 000765 aa 6 00646 7571 00 staq pr6|422 000766 aa 6 00646 3521 00 epp2 pr6|422 000767 aa 6 00360 2521 00 spri2 pr6|240 000770 aa 6 00141 3521 00 epp2 pr6|97 str 000771 aa 6 00362 2521 00 spri2 pr6|242 000772 aa 777037 3520 04 epp2 -481,ic 000031 = 410000000064 000773 aa 6 00364 2521 00 spri2 pr6|244 000774 aa 777017 3520 04 epp2 -497,ic 000013 = 526000000030 000775 aa 6 00366 2521 00 spri2 pr6|246 000776 aa 6 00356 6211 00 eax1 pr6|238 000777 aa 010000 4310 07 fld 4096,dl 001000 la 4 00056 3521 20 epp2 pr4|46,* date_time_ 001001 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 167 call ioa_$ioa_switch (mplot_switch, "up= ^20a, sys_hours= ^.1f, cpu_hours= ^.1f", substr (str, 1, 20), (tcdp2 -> tcm.last_time - tcdp2 -> tcm.initialize_time)/36e8, tcdp2 -> tcm.processor_time/36e8); 001002 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001003 aa 777076 00 0054 desc9a -450,44 000100 = 165160075040 001004 aa 6 00630 00 0054 desc9a pr6|408,44 001005 aa 000 100 100 500 mlr (pr),(pr),fill(000) 001006 aa 6 00141 00 0024 desc9a pr6|97,20 str 001007 aa 6 00356 00 0024 desc9a pr6|238,20 001010 aa 776777 4310 04 fld -513,ic 000007 = 100655116440 001011 aa 6 00646 4571 00 dfst pr6|422 001012 aa 6 00044 3701 20 epp4 pr6|36,* 001013 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001014 aa 7 00034 2371 00 ldaq pr7|28 tcm.last_time 001015 aa 7 00336 1771 00 sbaq pr7|222 tcm.initialize_time 001016 aa 216000 4110 03 lde 72704,du 001017 aa 400000 4750 03 fad 131072,du 001020 aa 6 00646 5671 00 dfdv pr6|422 001021 aa 6 00646 4571 00 dfst pr6|422 001022 aa 776765 4310 04 fld -523,ic 000007 = 100655116440 001023 aa 6 00650 4571 00 dfst pr6|424 001024 aa 7 00042 2371 00 ldaq pr7|34 tcm.processor_time 001025 aa 216000 4110 03 lde 72704,du 001026 aa 400000 4750 03 fad 131072,du 001027 aa 6 00650 5671 00 dfdv pr6|424 001030 aa 6 00650 4571 00 dfst pr6|424 001031 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 001032 aa 6 00372 2521 00 spri2 pr6|250 001033 aa 6 00630 3521 00 epp2 pr6|408 001034 aa 6 00374 2521 00 spri2 pr6|252 001035 aa 6 00356 3521 00 epp2 pr6|238 001036 aa 6 00376 2521 00 spri2 pr6|254 001037 aa 6 00646 3521 00 epp2 pr6|422 001040 aa 6 00400 2521 00 spri2 pr6|256 001041 aa 6 00650 3521 00 epp2 pr6|424 001042 aa 6 00402 2521 00 spri2 pr6|258 001043 aa 776752 3520 04 epp2 -534,ic 000015 = 464000000000 001044 aa 6 00404 2521 00 spri2 pr6|260 001045 aa 776744 3520 04 epp2 -540,ic 000011 = 524000000052 001046 aa 6 00406 2521 00 spri2 pr6|262 001047 aa 776741 3520 04 epp2 -543,ic 000010 = 524000000024 001050 aa 6 00410 2521 00 spri2 pr6|264 001051 aa 776735 3520 04 epp2 -547,ic 000006 = 420000000077 001052 aa 6 00412 2521 00 spri2 pr6|266 001053 aa 6 00414 2521 00 spri2 pr6|268 001054 aa 6 00370 6211 00 eax1 pr6|248 001055 aa 024000 4310 07 fld 10240,dl 001056 la 4 00054 3521 20 epp2 pr4|44,* ioa_$ioa_switch 001057 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 170 if chname = 0 then do; 001060 aa 6 00044 3701 20 epp4 pr6|36,* 001061 ia 4 00024 2371 00 ldaq pr4|20 chname 001062 aa 000045 6010 04 tnz 37,ic 001127 STATEMENT 1 ON LINE 171 call ipc_$create_ev_chn (chname, code); 001063 ia 4 00024 3521 00 epp2 pr4|20 chname 001064 aa 6 00360 2521 00 spri2 pr6|240 001065 aa 6 00115 3521 00 epp2 pr6|77 code 001066 aa 6 00362 2521 00 spri2 pr6|242 001067 aa 6 00356 6211 00 eax1 pr6|238 001070 aa 010000 4310 07 fld 4096,dl 001071 la 4 00102 3521 20 epp2 pr4|66,* ipc_$create_ev_chn 001072 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 172 if code ^= 0 then go to error; 001073 aa 6 00115 2361 00 ldq pr6|77 code 001074 aa 000052 6010 04 tnz 42,ic 001146 STATEMENT 1 ON LINE 173 call ipc_$decl_ev_call_chn (chname, line, null (), 1, code); 001075 aa 000162 3520 04 epp2 114,ic 001257 = 000660627000 001076 aa 6 00352 2521 00 spri2 pr6|234 cp.240 001077 aa 001367 2370 04 ldaq 759,ic 002466 = 077777000043 000001000000 001100 aa 6 00354 7571 00 staq pr6|236 cp.240 001101 aa 776735 3734 24 epp7 -547,ic* 001102 aa 6 00650 6535 00 spri7 pr6|424 001103 aa 000001 2360 07 ldq 1,dl 001104 aa 6 00627 7561 00 stq pr6|407 001105 aa 6 00044 3701 20 epp4 pr6|36,* 001106 ia 4 00024 3521 00 epp2 pr4|20 chname 001107 aa 6 00632 2521 00 spri2 pr6|410 001110 aa 6 00352 3521 00 epp2 pr6|234 cp.240 001111 aa 6 00634 2521 00 spri2 pr6|412 001112 aa 6 00650 3521 00 epp2 pr6|424 001113 aa 6 00636 2521 00 spri2 pr6|414 001114 aa 6 00627 3521 00 epp2 pr6|407 001115 aa 6 00640 2521 00 spri2 pr6|416 001116 aa 6 00115 3521 00 epp2 pr6|77 code 001117 aa 6 00642 2521 00 spri2 pr6|418 001120 aa 6 00630 6211 00 eax1 pr6|408 001121 aa 024000 4310 07 fld 10240,dl 001122 la 4 00104 3521 20 epp2 pr4|68,* ipc_$decl_ev_call_chn 001123 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 174 if code ^= 0 then go to error; 001124 aa 6 00115 2361 00 ldq pr6|77 code 001125 aa 000021 6010 04 tnz 17,ic 001146 STATEMENT 1 ON LINE 175 end; 001126 aa 000013 7100 04 tra 11,ic 001141 STATEMENT 1 ON LINE 176 else do; STATEMENT 1 ON LINE 177 call ipc_$drain_chn (chname, code); 001127 ia 4 00024 3521 00 epp2 pr4|20 chname 001130 aa 6 00360 2521 00 spri2 pr6|240 001131 aa 6 00115 3521 00 epp2 pr6|77 code 001132 aa 6 00362 2521 00 spri2 pr6|242 001133 aa 6 00356 6211 00 eax1 pr6|238 001134 aa 010000 4310 07 fld 4096,dl 001135 la 4 00106 3521 20 epp2 pr4|70,* ipc_$drain_chn 001136 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 178 if code ^= 0 then go to error; 001137 aa 6 00115 2361 00 ldq pr6|77 code 001140 aa 000006 6010 04 tnz 6,ic 001146 STATEMENT 1 ON LINE 179 end; STATEMENT 1 ON LINE 181 call line; 001141 aa 6 00056 6211 00 eax1 pr6|46 001142 aa 000000 4310 07 fld 0,dl 001143 aa 000114 3520 04 epp2 76,ic 001257 = 000660627000 001144 aa 0 00621 7001 00 tsx0 pr0|401 call_ext_in STATEMENT 1 ON LINE 183 return; 001145 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 187 error: call com_err_ (code, "spg", ""); 001146 aa 776656 2350 04 lda -594,ic 000024 = 163160147000 001147 aa 6 00627 7551 00 sta pr6|407 001150 aa 6 00115 3521 00 epp2 pr6|77 code 001151 aa 6 00632 2521 00 spri2 pr6|410 001152 aa 6 00627 3521 00 epp2 pr6|407 001153 aa 6 00634 2521 00 spri2 pr6|412 001154 aa 6 00351 3521 00 epp2 pr6|233 001155 aa 6 00636 2521 00 spri2 pr6|414 001156 aa 776647 3520 04 epp2 -601,ic 000025 = 404000000043 001157 aa 6 00640 2521 00 spri2 pr6|416 001160 aa 776643 3520 04 epp2 -605,ic 000023 = 524000000003 001161 aa 6 00642 2521 00 spri2 pr6|418 001162 aa 776632 3520 04 epp2 -614,ic 000014 = 524000000000 001163 aa 6 00644 2521 00 spri2 pr6|420 001164 aa 6 00630 6211 00 eax1 pr6|408 001165 aa 014000 4310 07 fld 6144,dl 001166 aa 6 00044 3701 20 epp4 pr6|36,* 001167 la 4 00040 3521 20 epp2 pr4|32,* com_err_ 001170 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 190 stop: if mplot_switch ^= iox_$user_output & mplot_switch ^= null() then do; 001171 aa 6 00044 3701 20 epp4 pr6|36,* 001172 ia 4 00026 2371 00 ldaq pr4|22 mplot_switch 001173 la 4 00030 6771 20 eraq pr4|24,* iox_$user_output 001174 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 001175 aa 000026 6000 04 tze 22,ic 001223 001176 ia 4 00026 2371 00 ldaq pr4|22 mplot_switch 001177 aa 776637 6770 04 eraq -609,ic 000036 = 077777000043 000001000000 001200 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 001201 aa 000022 6000 04 tze 18,ic 001223 STATEMENT 1 ON LINE 192 call iox_$close (mplot_switch, code); 001202 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 001203 aa 6 00360 2521 00 spri2 pr6|240 001204 aa 6 00115 3521 00 epp2 pr6|77 code 001205 aa 6 00362 2521 00 spri2 pr6|242 001206 aa 6 00356 6211 00 eax1 pr6|238 001207 aa 010000 4310 07 fld 4096,dl 001210 la 4 00046 3521 20 epp2 pr4|38,* iox_$close 001211 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 193 call iox_$detach_iocb (mplot_switch, code); 001212 aa 6 00044 3701 20 epp4 pr6|36,* 001213 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 001214 aa 6 00360 2521 00 spri2 pr6|240 001215 aa 6 00115 3521 00 epp2 pr6|77 code 001216 aa 6 00362 2521 00 spri2 pr6|242 001217 aa 6 00356 6211 00 eax1 pr6|238 001220 aa 010000 4310 07 fld 4096,dl 001221 la 4 00050 3521 20 epp2 pr4|40,* iox_$detach_iocb 001222 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 194 end; STATEMENT 1 ON LINE 195 mplot_switch = null(); 001223 aa 776613 2370 04 ldaq -629,ic 000036 = 077777000043 000001000000 001224 aa 6 00044 3701 20 epp4 pr6|36,* 001225 ia 4 00026 7571 00 staq pr4|22 mplot_switch STATEMENT 1 ON LINE 198 if chname ^= 0 then do; 001226 ia 4 00024 2371 00 ldaq pr4|20 chname 001227 aa 000023 6000 04 tze 19,ic 001252 STATEMENT 1 ON LINE 199 call timer_manager_$reset_alarm_wakeup (chname); 001230 ia 4 00024 3521 00 epp2 pr4|20 chname 001231 aa 6 00354 2521 00 spri2 pr6|236 001232 aa 6 00352 6211 00 eax1 pr6|234 001233 aa 004000 4310 07 fld 2048,dl 001234 la 4 00114 3521 20 epp2 pr4|76,* timer_manager_$reset_alarm_wakeup 001235 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 201 call ipc_$delete_ev_chn (chname, code); 001236 aa 6 00044 3701 20 epp4 pr6|36,* 001237 ia 4 00024 3521 00 epp2 pr4|20 chname 001240 aa 6 00360 2521 00 spri2 pr6|240 001241 aa 6 00115 3521 00 epp2 pr6|77 code 001242 aa 6 00362 2521 00 spri2 pr6|242 001243 aa 6 00356 6211 00 eax1 pr6|238 001244 aa 010000 4310 07 fld 4096,dl 001245 la 4 00110 3521 20 epp2 pr4|72,* ipc_$delete_ev_chn 001246 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 202 chname = 0; 001247 aa 776565 2370 04 ldaq -651,ic 000034 = 000000000000 000000000000 001250 aa 6 00044 3701 20 epp4 pr6|36,* 001251 ia 4 00024 7571 00 staq pr4|20 chname STATEMENT 1 ON LINE 203 end; STATEMENT 1 ON LINE 205 first_time = "1"b; 001252 aa 400000 2350 03 lda 131072,du 001253 ia 4 00013 7551 00 sta pr4|11 first_time STATEMENT 1 ON LINE 206 short_lines = "0"b; 001254 ia 4 00011 4501 00 stz pr4|9 short_lines STATEMENT 1 ON LINE 208 return; 001255 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO line STATEMENT 1 ON LINE 212 line: entry; 001256 da 000335200000 001257 aa 000660 6270 00 eax7 432 001260 aa 7 00034 3521 20 epp2 pr7|28,* 001261 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001262 aa 000000000000 001263 aa 000000000000 STATEMENT 1 ON LINE 214 time = clock_ (); 001264 aa 6 00134 3521 00 epp2 pr6|92 time 001265 aa 6 00354 2521 00 spri2 pr6|236 001266 aa 6 00352 6211 00 eax1 pr6|234 001267 aa 004000 4310 07 fld 2048,dl 001270 aa 6 00044 3701 20 epp4 pr6|36,* 001271 la 4 00062 3521 20 epp2 pr4|50,* clock_ 001272 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 215 call decode_clock_value_ (time, month, dom, year, tod, dow, zone); 001273 aa 6 00134 3521 00 epp2 pr6|92 time 001274 aa 6 00372 2521 00 spri2 pr6|250 001275 aa 6 00315 3521 00 epp2 pr6|205 month 001276 aa 6 00374 2521 00 spri2 pr6|252 001277 aa 6 00316 3521 00 epp2 pr6|206 dom 001300 aa 6 00376 2521 00 spri2 pr6|254 001301 aa 6 00322 3521 00 epp2 pr6|210 year 001302 aa 6 00400 2521 00 spri2 pr6|256 001303 aa 6 00320 3521 00 epp2 pr6|208 tod 001304 aa 6 00402 2521 00 spri2 pr6|258 001305 aa 6 00323 3521 00 epp2 pr6|211 dow 001306 aa 6 00404 2521 00 spri2 pr6|260 001307 aa 6 00326 3521 00 epp2 pr6|214 zone 001310 aa 6 00406 2521 00 spri2 pr6|262 001311 aa 6 00370 6211 00 eax1 pr6|248 001312 aa 034000 4310 07 fld 14336,dl 001313 aa 6 00044 3701 20 epp4 pr6|36,* 001314 la 4 00060 3521 20 epp2 pr4|48,* decode_clock_value_ 001315 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 216 hour = tod/3.6e9; 001316 aa 776471 4310 04 fld -711,ic 000007 = 100655116440 001317 aa 6 00650 4571 00 dfst pr6|424 001320 aa 6 00320 2371 00 ldaq pr6|208 tod 001321 aa 216000 4110 03 lde 72704,du 001322 aa 400000 4750 03 fad 131072,du 001323 aa 6 00646 4571 00 dfst pr6|422 001324 aa 6 00650 5671 00 dfdv pr6|424 001325 aa 0 00654 7001 00 tsx0 pr0|428 fl2_to_fx1 001326 aa 6 00324 7561 00 stq pr6|212 hour STATEMENT 1 ON LINE 217 minute = tod / 6.0e7 - hour * 60; 001327 aa 000074 4020 07 mpy 60,dl 001330 aa 216000 4110 03 lde 72704,du 001331 aa 400000 4750 03 fad 131072,du 001332 aa 6 00650 4571 00 dfst pr6|424 001333 aa 776452 4310 04 fld -726,ic 000005 = 064711607000 001334 aa 6 00646 5271 00 dfdi pr6|422 001335 aa 6 00650 5771 00 dfsb pr6|424 001336 aa 6 00325 4551 00 fst pr6|213 minute STATEMENT 1 ON LINE 219 st.hour = hour; 001337 aa 000 100 301 500 btd (pr),(pr) 001340 aa 6 00324 00 0004 desc9a pr6|212,4 hour 001341 aa 6 00351 01 0003 desc9ls pr6|233,3,0 001342 aa 100 004 024 500 mvne (pr),(ic),(pr) 001343 aa 6 00351 01 0003 desc9ls pr6|233,3,0 001344 aa 001122 00 0002 desc9a 594,2 002464 = 070322000000 001345 aa 6 00147 00 0002 desc9a pr6|103,2 st.hour STATEMENT 1 ON LINE 220 st.min = minute; 001346 aa 6 00325 3535 00 epp3 pr6|213 minute 001347 aa 000033 2360 07 ldq 27,dl 001350 aa 000006 7270 07 lxl7 6,dl 001351 aa 6 00650 3515 00 epp1 pr6|424 001352 aa 001111 2350 04 lda 585,ic 002463 = 000002000004 001353 aa 000022 7260 07 lxl6 18,dl 001354 aa 6 00370 3715 00 epp5 pr6|248 001355 aa 0 01255 7001 00 tsx0 pr0|685 real_to_real_tr 001356 aa 100 004 024 500 mvne (pr),(ic),(pr) 001357 aa 6 00650 01 7605 desc9ls pr6|424,5,-2 001360 aa 001104 00 0004 desc9a 580,4 002462 = 070322207322 001361 aa 6 00147 40 0005 desc9a pr6|103(2),5 st.min STATEMENT 1 ON LINE 221 st.blank = " "; 001362 aa 000040 2350 07 lda 32,dl 001363 aa 6 00150 5511 04 stba pr6|104,04 st.blank STATEMENT 1 ON LINE 222 st.graph = (11)"| . "; 001364 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001365 aa 776545 00 0150 desc9a -667,104 000131 = 174040040040 001366 aa 6 00151 00 0150 desc9a pr6|105,104 st.graph STATEMENT 1 ON LINE 224 call meter_util_$fill_buffers (unique); 001367 aa 6 00044 3701 20 epp4 pr6|36,* 001370 ia 4 00012 3521 00 epp2 pr4|10 unique 001371 aa 6 00354 2521 00 spri2 pr6|236 001372 aa 6 00352 6211 00 eax1 pr6|234 001373 aa 004000 4310 07 fld 2048,dl 001374 la 4 00066 3521 20 epp2 pr4|54,* meter_util_$fill_buffers 001375 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 225 call spg_util_ (pzi, pnmpi, pmpi, pint, ptc, ppf, psf, puse_rz, px, cstring, length, chsw); 001376 aa 6 00116 3521 00 epp2 pr6|78 pzi 001377 aa 6 00372 2521 00 spri2 pr6|250 001400 aa 6 00117 3521 00 epp2 pr6|79 pnmpi 001401 aa 6 00374 2521 00 spri2 pr6|252 001402 aa 6 00120 3521 00 epp2 pr6|80 pmpi 001403 aa 6 00376 2521 00 spri2 pr6|254 001404 aa 6 00121 3521 00 epp2 pr6|81 pint 001405 aa 6 00400 2521 00 spri2 pr6|256 001406 aa 6 00122 3521 00 epp2 pr6|82 ptc 001407 aa 6 00402 2521 00 spri2 pr6|258 001410 aa 6 00123 3521 00 epp2 pr6|83 ppf 001411 aa 6 00404 2521 00 spri2 pr6|260 001412 aa 6 00124 3521 00 epp2 pr6|84 psf 001413 aa 6 00406 2521 00 spri2 pr6|262 001414 aa 6 00125 3521 00 epp2 pr6|85 puse_rz 001415 aa 6 00410 2521 00 spri2 pr6|264 001416 aa 6 00126 3521 00 epp2 pr6|86 px 001417 aa 6 00412 2521 00 spri2 pr6|266 001420 aa 6 00203 3521 00 epp2 pr6|131 cstring 001421 aa 6 00414 2521 00 spri2 pr6|268 001422 aa 6 00112 3521 00 epp2 pr6|74 length 001423 aa 6 00416 2521 00 spri2 pr6|270 001424 aa 6 00113 3521 00 epp2 pr6|75 chsw 001425 aa 6 00420 2521 00 spri2 pr6|272 001426 aa 6 00370 6211 00 eax1 pr6|248 001427 aa 060000 4310 07 fld 24576,dl 001430 aa 6 00044 3701 20 epp4 pr6|36,* 001431 la 4 00074 3521 20 epp2 pr4|60,* spg_util_ 001432 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 228 if chsw ^= 0 then call ioa_$ioa_switch (mplot_switch, substr (cstring, 1, length)); 001433 aa 6 00113 2361 00 ldq pr6|75 chsw 001434 aa 000025 6000 04 tze 21,ic 001461 001435 aa 6 00112 2361 00 ldq pr6|74 length 001436 aa 524000 2760 03 orq 174080,du 001437 aa 6 00351 7561 00 stq pr6|233 001440 aa 6 00112 2361 00 ldq pr6|74 length 001441 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 001442 aa 6 00362 2521 00 spri2 pr6|242 001443 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 001444 aa 6 00203 00 0006 desc9a pr6|131,ql cstring 001445 aa 2 00000 00 0006 desc9a pr2|0,ql 001446 aa 6 00044 3701 20 epp4 pr6|36,* 001447 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 001450 aa 6 00360 2521 00 spri2 pr6|240 001451 aa 776344 3520 04 epp2 -796,ic 000015 = 464000000000 001452 aa 6 00364 2521 00 spri2 pr6|244 001453 aa 6 00351 3521 00 epp2 pr6|233 001454 aa 6 00366 2521 00 spri2 pr6|246 001455 aa 6 00356 6211 00 eax1 pr6|238 001456 aa 010000 4310 07 fld 4096,dl 001457 la 4 00054 3521 20 epp2 pr4|44,* ioa_$ioa_switch 001460 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 232 call fill_in (pzi + pnmpi + pmpi + pint + ptc + ppf + psf + puse_rz, 0e0, "y"); 001461 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 001462 aa 6 00116 4311 00 fld pr6|78 pzi 001463 aa 6 00117 4751 00 fad pr6|79 pnmpi 001464 aa 6 00120 4751 00 fad pr6|80 pmpi 001465 aa 6 00121 4751 00 fad pr6|81 pint 001466 aa 6 00122 4751 00 fad pr6|82 ptc 001467 aa 6 00123 4751 00 fad pr6|83 ppf 001470 aa 6 00124 4751 00 fad pr6|84 psf 001471 aa 6 00125 4751 00 fad pr6|85 puse_rz 001472 aa 6 00351 4551 00 fst pr6|233 001473 aa 400000 4310 03 fld 131072,du 001474 aa 6 00627 4551 00 fst pr6|407 001475 aa 171000 2350 03 lda 61952,du 001476 aa 6 00626 7551 00 sta pr6|406 001477 aa 000753 3520 04 epp2 491,ic 002452 = 000006000000 001500 aa 000551 6700 04 tsp4 361,ic 002251 STATEMENT 1 ON LINE 233 call fill_in (pzi + pnmpi + pmpi + pint + ptc + ppf, psf, "s"); 001501 aa 6 00116 4311 00 fld pr6|78 pzi 001502 aa 6 00117 4751 00 fad pr6|79 pnmpi 001503 aa 6 00120 4751 00 fad pr6|80 pmpi 001504 aa 6 00121 4751 00 fad pr6|81 pint 001505 aa 6 00122 4751 00 fad pr6|82 ptc 001506 aa 6 00123 4751 00 fad pr6|83 ppf 001507 aa 6 00626 4551 00 fst pr6|406 001510 aa 163000 2350 03 lda 58880,du 001511 aa 6 00627 7551 00 sta pr6|407 001512 aa 000730 3520 04 epp2 472,ic 002442 = 000006000000 001513 aa 000536 6700 04 tsp4 350,ic 002251 STATEMENT 1 ON LINE 234 call fill_in (pzi + pnmpi + pmpi + pint + ptc, ppf, "p"); 001514 aa 6 00116 4311 00 fld pr6|78 pzi 001515 aa 6 00117 4751 00 fad pr6|79 pnmpi 001516 aa 6 00120 4751 00 fad pr6|80 pmpi 001517 aa 6 00121 4751 00 fad pr6|81 pint 001520 aa 6 00122 4751 00 fad pr6|82 ptc 001521 aa 6 00627 4551 00 fst pr6|407 001522 aa 160000 2350 03 lda 57344,du 001523 aa 6 00626 7551 00 sta pr6|406 001524 aa 000706 3520 04 epp2 454,ic 002432 = 000006000000 001525 aa 000524 6700 04 tsp4 340,ic 002251 STATEMENT 1 ON LINE 235 call fill_in (pzi + pnmpi + pmpi + pint, ptc, "t"); 001526 aa 6 00116 4311 00 fld pr6|78 pzi 001527 aa 6 00117 4751 00 fad pr6|79 pnmpi 001530 aa 6 00120 4751 00 fad pr6|80 pmpi 001531 aa 6 00121 4751 00 fad pr6|81 pint 001532 aa 6 00626 4551 00 fst pr6|406 001533 aa 164000 2350 03 lda 59392,du 001534 aa 6 00627 7551 00 sta pr6|407 001535 aa 000665 3520 04 epp2 437,ic 002422 = 000006000000 001536 aa 000513 6700 04 tsp4 331,ic 002251 STATEMENT 1 ON LINE 236 call fill_in (pzi + pnmpi + pmpi, pint, "i"); 001537 aa 6 00116 4311 00 fld pr6|78 pzi 001540 aa 6 00117 4751 00 fad pr6|79 pnmpi 001541 aa 6 00120 4751 00 fad pr6|80 pmpi 001542 aa 6 00627 4551 00 fst pr6|407 001543 aa 151000 2350 03 lda 53760,du 001544 aa 6 00626 7551 00 sta pr6|406 001545 aa 000645 3520 04 epp2 421,ic 002412 = 000006000000 001546 aa 000503 6700 04 tsp4 323,ic 002251 STATEMENT 1 ON LINE 238 call fill_in (pzi + pnmpi, pmpi, "m"); 001547 aa 6 00116 4311 00 fld pr6|78 pzi 001550 aa 6 00117 4751 00 fad pr6|79 pnmpi 001551 aa 6 00626 4551 00 fst pr6|406 001552 aa 155000 2350 03 lda 55808,du 001553 aa 6 00627 7551 00 sta pr6|407 001554 aa 000626 3520 04 epp2 406,ic 002402 = 000006000000 001555 aa 000474 6700 04 tsp4 316,ic 002251 STATEMENT 1 ON LINE 239 call fill_in (pzi, pnmpi, "*"); 001556 aa 052000 2350 03 lda 21504,du 001557 aa 6 00627 7551 00 sta pr6|407 001560 aa 000612 3520 04 epp2 394,ic 002372 = 000006000000 001561 aa 000470 6700 04 tsp4 312,ic 002251 STATEMENT 1 ON LINE 241 call fill_in ((tcdp2 -> tcm.avequeue), 0e0, "q"); 001562 aa 6 00044 3701 20 epp4 pr6|36,* 001563 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001564 aa 7 00016 2351 00 lda pr7|14 tcm.avequeue 001565 aa 000044 7330 00 lrs 36 001566 aa 152000 4110 03 lde 54272,du 001567 aa 400000 4750 03 fad 131072,du 001570 aa 6 00627 4551 00 fst pr6|407 001571 aa 400000 4310 03 fld 131072,du 001572 aa 6 00626 4551 00 fst pr6|406 001573 aa 161000 2350 03 lda 57856,du 001574 aa 6 00351 7551 00 sta pr6|233 001575 aa 000565 3520 04 epp2 373,ic 002362 = 000006000000 001576 aa 000453 6700 04 tsp4 299,ic 002251 STATEMENT 1 ON LINE 242 call fill_in ((tcdp2 -> tcm.ave_eligible), 0e0, "e"); 001577 aa 6 00044 3701 20 epp4 pr6|36,* 001600 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001601 aa 7 00040 2351 00 lda pr7|32 tcm.ave_eligible 001602 aa 000044 7330 00 lrs 36 001603 aa 152000 4110 03 lde 54272,du 001604 aa 400000 4750 03 fad 131072,du 001605 aa 6 00351 4551 00 fst pr6|233 001606 aa 400000 4310 03 fld 131072,du 001607 aa 6 00626 4551 00 fst pr6|406 001610 aa 145000 2350 03 lda 51712,du 001611 aa 6 00627 7551 00 sta pr6|407 001612 aa 000540 3520 04 epp2 352,ic 002352 = 000006000000 001613 aa 000436 6700 04 tsp4 286,ic 002251 STATEMENT 1 ON LINE 244 if (tcdp2 -> tcm.response_count - tcdp1 -> tcm.response_count) ^= 0 then call fill_in ((tcdp2 -> tcm.response_time - tcdp1 -> tcm.response_time) / ((tcdp2 -> tcm.response_count - tcdp1 -> tcm.response_count) * 1e5), 0e0, "r"); 001614 aa 6 00044 3701 20 epp4 pr6|36,* 001615 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001616 aa 7 00050 2361 00 ldq pr7|40 tcm.response_count 001617 ia 4 00020 3715 20 epp5 pr4|16,* tcdp1 001620 aa 5 00050 1761 00 sbq pr5|40 tcm.response_count 001621 aa 000020 6000 04 tze 16,ic 001641 001622 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 001623 aa 776161 4610 04 fmp -911,ic 000004 = 042606500000 001624 aa 6 00650 4571 00 dfst pr6|424 001625 aa 7 00044 2371 00 ldaq pr7|36 tcm.response_time 001626 aa 5 00044 1771 00 sbaq pr5|36 tcm.response_time 001627 aa 216000 4110 03 lde 72704,du 001630 aa 400000 4750 03 fad 131072,du 001631 aa 6 00650 5671 00 dfdv pr6|424 001632 aa 6 00627 4551 00 fst pr6|407 001633 aa 400000 4310 03 fld 131072,du 001634 aa 6 00626 4551 00 fst pr6|406 001635 aa 162000 2350 03 lda 58368,du 001636 aa 6 00351 7551 00 sta pr6|233 001637 aa 000523 3520 04 epp2 339,ic 002362 = 000006000000 001640 aa 000411 6700 04 tsp4 265,ic 002251 STATEMENT 1 ON LINE 248 if first_time then meter_time = tcdp2 -> tcm.last_time - tcdp2 -> tcm.initialize_time; 001641 aa 6 00044 3701 20 epp4 pr6|36,* 001642 ia 4 00013 2351 00 lda pr4|11 first_time 001643 aa 000010 6000 04 tze 8,ic 001653 001644 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001645 aa 7 00034 2371 00 ldaq pr7|28 tcm.last_time 001646 aa 7 00336 1771 00 sbaq pr7|222 tcm.initialize_time 001647 aa 216000 4110 03 lde 72704,du 001650 aa 400000 4750 03 fad 131072,du 001651 aa 6 00127 4551 00 fst pr6|87 meter_time 001652 aa 000010 7100 04 tra 8,ic 001662 STATEMENT 1 ON LINE 250 else meter_time = tcdp2 -> tcm.last_time - tcdp1 -> tcm.last_time; 001653 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001654 aa 7 00034 2371 00 ldaq pr7|28 tcm.last_time 001655 ia 4 00020 3715 20 epp5 pr4|16,* tcdp1 001656 aa 5 00034 1771 00 sbaq pr5|28 tcm.last_time 001657 aa 216000 4110 03 lde 72704,du 001660 aa 400000 4750 03 fad 131072,du 001661 aa 6 00127 4551 00 fst pr6|87 meter_time STATEMENT 1 ON LINE 253 qc = 0; 001662 aa 6 00114 4501 00 stz pr6|76 qc STATEMENT 1 ON LINE 254 do i = 0 to 5; 001663 aa 6 00111 4501 00 stz pr6|73 i 001664 aa 6 00111 2361 00 ldq pr6|73 i 001665 aa 000005 1160 07 cmpq 5,dl 001666 aa 000013 6054 04 tpnz 11,ic 001701 STATEMENT 1 ON LINE 255 qc = qc + tcdp2 -> tcm.quit_counts (i) - tcdp1 -> tcm.quit_counts (i); 001667 aa 6 00114 2361 00 ldq pr6|76 qc 001670 aa 6 00044 3701 20 epp4 pr6|36,* 001671 aa 6 00111 7271 00 lxl7 pr6|73 i 001672 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001673 aa 7 00052 0761 17 adq pr7|42,7 tcm.quit_counts 001674 ia 4 00020 3715 20 epp5 pr4|16,* tcdp1 001675 aa 5 00052 1761 17 sbq pr5|42,7 tcm.quit_counts 001676 aa 6 00114 7561 00 stq pr6|76 qc STATEMENT 1 ON LINE 256 end; 001677 aa 6 00111 0541 00 aos pr6|73 i 001700 aa 777764 7100 04 tra -12,ic 001664 STATEMENT 1 ON LINE 258 call fill_in (qc/ (meter_time/60e6), 0e0, "Q"); 001701 aa 6 00127 4311 00 fld pr6|87 meter_time 001702 aa 776103 5650 04 fdv -957,ic 000005 = 064711607000 001703 aa 6 00351 4551 00 fst pr6|233 001704 aa 6 00114 2361 00 ldq pr6|76 qc 001705 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 001706 aa 6 00351 5651 00 fdv pr6|233 001707 aa 6 00351 4551 00 fst pr6|233 001710 aa 400000 4310 03 fld 131072,du 001711 aa 6 00626 4551 00 fst pr6|406 001712 aa 121000 2350 03 lda 41472,du 001713 aa 6 00627 7551 00 sta pr6|407 001714 aa 000436 3520 04 epp2 286,ic 002352 = 000006000000 001715 aa 000334 6700 04 tsp4 220,ic 002251 STATEMENT 1 ON LINE 259 call fill_in ((tcdp2 -> tcm.schedulings - tcdp1 -> tcm.schedulings)/ (meter_time/1e7), 0e0, "S"); 001716 aa 6 00127 4311 00 fld pr6|87 meter_time 001717 aa 776064 5650 04 fdv -972,ic 000003 = 060461132000 001720 aa 6 00627 4551 00 fst pr6|407 001721 aa 6 00044 3701 20 epp4 pr6|36,* 001722 ia 4 00022 3735 20 epp7 pr4|18,* tcdp2 001723 aa 7 00014 2361 00 ldq pr7|12 tcm.schedulings 001724 ia 4 00020 3715 20 epp5 pr4|16,* tcdp1 001725 aa 5 00014 1761 00 sbq pr5|12 tcm.schedulings 001726 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 001727 aa 6 00627 5651 00 fdv pr6|407 001730 aa 6 00627 4551 00 fst pr6|407 001731 aa 400000 4310 03 fld 131072,du 001732 aa 6 00626 4551 00 fst pr6|406 001733 aa 123000 2350 03 lda 42496,du 001734 aa 6 00351 7551 00 sta pr6|233 001735 aa 000425 3520 04 epp2 277,ic 002362 = 000006000000 001736 aa 000313 6700 04 tsp4 203,ic 002251 STATEMENT 1 ON LINE 261 call spg_fs_info_ (pdio, dkio, vtio); 001737 aa 6 00130 3521 00 epp2 pr6|88 pdio 001740 aa 6 00360 2521 00 spri2 pr6|240 001741 aa 6 00131 3521 00 epp2 pr6|89 dkio 001742 aa 6 00362 2521 00 spri2 pr6|242 001743 aa 6 00132 3521 00 epp2 pr6|90 vtio 001744 aa 6 00364 2521 00 spri2 pr6|244 001745 aa 6 00356 6211 00 eax1 pr6|238 001746 aa 014000 4310 07 fld 6144,dl 001747 aa 6 00044 3701 20 epp4 pr6|36,* 001750 la 4 00076 3521 20 epp2 pr4|62,* spg_fs_info_ 001751 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 262 call fill_in (1e2 - pdio / (meter_time / 1e5), 0e0, "P"); 001752 aa 6 00127 4311 00 fld pr6|87 meter_time 001753 aa 776031 5650 04 fdv -999,ic 000004 = 042606500000 001754 aa 6 00351 4551 00 fst pr6|233 001755 aa 6 00130 2361 00 ldq pr6|88 pdio 001756 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 001757 aa 6 00351 5651 00 fdv pr6|233 001760 aa 000000 5130 00 fneg 0 001761 aa 016620 4750 03 fad 7568,du 001762 aa 6 00351 4551 00 fst pr6|233 001763 aa 400000 4310 03 fld 131072,du 001764 aa 6 00626 4551 00 fst pr6|406 001765 aa 120000 2350 03 lda 40960,du 001766 aa 6 00627 7551 00 sta pr6|407 001767 aa 000363 3520 04 epp2 243,ic 002352 = 000006000000 001770 aa 000261 6700 04 tsp4 177,ic 002251 STATEMENT 1 ON LINE 263 call fill_in (1e2 - dkio / (meter_time / 1e5), 0e0, "D"); 001771 aa 6 00127 4311 00 fld pr6|87 meter_time 001772 aa 776012 5650 04 fdv -1014,ic 000004 = 042606500000 001773 aa 6 00627 4551 00 fst pr6|407 001774 aa 6 00131 2361 00 ldq pr6|89 dkio 001775 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 001776 aa 6 00627 5651 00 fdv pr6|407 001777 aa 000000 5130 00 fneg 0 002000 aa 016620 4750 03 fad 7568,du 002001 aa 6 00627 4551 00 fst pr6|407 002002 aa 400000 4310 03 fld 131072,du 002003 aa 6 00626 4551 00 fst pr6|406 002004 aa 104000 2350 03 lda 34816,du 002005 aa 6 00351 7551 00 sta pr6|233 002006 aa 000354 3520 04 epp2 236,ic 002362 = 000006000000 002007 aa 000242 6700 04 tsp4 162,ic 002251 STATEMENT 1 ON LINE 264 call fill_in (1e2 - vtio / (meter_time / 1e5), 0e0, "V"); 002010 aa 6 00127 4311 00 fld pr6|87 meter_time 002011 aa 775773 5650 04 fdv -1029,ic 000004 = 042606500000 002012 aa 6 00351 4551 00 fst pr6|233 002013 aa 6 00132 2361 00 ldq pr6|90 vtio 002014 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 002015 aa 6 00351 5651 00 fdv pr6|233 002016 aa 000000 5130 00 fneg 0 002017 aa 016620 4750 03 fad 7568,du 002020 aa 6 00351 4551 00 fst pr6|233 002021 aa 400000 4310 03 fld 131072,du 002022 aa 6 00626 4551 00 fst pr6|406 002023 aa 126000 2350 03 lda 44032,du 002024 aa 6 00627 7551 00 sta pr6|407 002025 aa 000325 3520 04 epp2 213,ic 002352 = 000006000000 002026 aa 000223 6700 04 tsp4 147,ic 002251 STATEMENT 1 ON LINE 266 call system_info_$users (mn, nn, mu, nu); 002027 aa 6 00100 3521 00 epp2 pr6|64 mn 002030 aa 6 00360 2521 00 spri2 pr6|240 002031 aa 6 00101 3521 00 epp2 pr6|65 nn 002032 aa 6 00362 2521 00 spri2 pr6|242 002033 aa 6 00102 3521 00 epp2 pr6|66 mu 002034 aa 6 00364 2521 00 spri2 pr6|244 002035 aa 6 00103 3521 00 epp2 pr6|67 nu 002036 aa 6 00366 2521 00 spri2 pr6|246 002037 aa 6 00356 6211 00 eax1 pr6|238 002040 aa 020000 4310 07 fld 8192,dl 002041 aa 6 00044 3701 20 epp4 pr6|36,* 002042 la 4 00100 3521 20 epp2 pr4|64,* system_info_$users 002043 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 267 call fill_in (nu / 1e1, 0e0, "-"); 002044 aa 6 00103 2361 00 ldq pr6|67 nu 002045 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 002046 aa 010500 5650 03 fdv 4416,du 002047 aa 6 00627 4551 00 fst pr6|407 002050 aa 400000 4310 03 fld 131072,du 002051 aa 6 00626 4551 00 fst pr6|406 002052 aa 055000 2350 03 lda 23040,du 002053 aa 6 00351 7551 00 sta pr6|233 002054 aa 000306 3520 04 epp2 198,ic 002362 = 000006000000 002055 aa 000174 6700 04 tsp4 124,ic 002251 STATEMENT 1 ON LINE 268 call fill_in ((nn), 0e0, "+"); 002056 aa 6 00101 2361 00 ldq pr6|65 nn 002057 aa 0 00465 7001 00 tsx0 pr0|309 fx1_to_fl2 002060 aa 6 00351 4551 00 fst pr6|233 002061 aa 400000 4310 03 fld 131072,du 002062 aa 6 00626 4551 00 fst pr6|406 002063 aa 053000 2350 03 lda 22016,du 002064 aa 6 00627 7551 00 sta pr6|407 002065 aa 000265 3520 04 epp2 181,ic 002352 = 000006000000 002066 aa 000163 6700 04 tsp4 115,ic 002251 STATEMENT 1 ON LINE 270 if short_lines then llen = 59; 002067 aa 6 00044 3701 20 epp4 pr6|36,* 002070 ia 4 00011 2351 00 lda pr4|9 short_lines 002071 aa 000004 6000 04 tze 4,ic 002075 002072 aa 000073 2360 07 ldq 59,dl 002073 aa 6 00110 7561 00 stq pr6|72 llen 002074 aa 000003 7100 04 tra 3,ic 002077 STATEMENT 1 ON LINE 271 else llen = 109; 002075 aa 000155 2360 07 ldq 109,dl 002076 aa 6 00110 7561 00 stq pr6|72 llen STATEMENT 1 ON LINE 272 do i = 10 to 90 by 10; 002077 aa 000012 2360 07 ldq 10,dl 002100 aa 6 00111 7561 00 stq pr6|73 i 002101 aa 000000 0110 03 nop 0,du 002102 aa 6 00111 2361 00 ldq pr6|73 i 002103 aa 000132 1160 07 cmpq 90,dl 002104 aa 000017 6054 04 tpnz 15,ic 002123 STATEMENT 1 ON LINE 273 if substr (graph, i, 1) = substr (graph, i+2, 1) then if substr (graph, i, 1) = substr (graph, i+1, 1) then substr (graph, i+1, 1) = "|"; 002105 aa 040 106 106 506 cmpc (pr,ql),(pr,ql),fill(040) 002106 aa 6 00150 60 0001 desc9a pr6|104(3),1 st.graph 002107 aa 6 00151 20 0001 desc9a pr6|105(1),1 st.graph 002110 aa 000010 6010 04 tnz 8,ic 002120 002111 aa 040 106 106 506 cmpc (pr,ql),(pr,ql),fill(040) 002112 aa 6 00150 60 0001 desc9a pr6|104(3),1 st.graph 002113 aa 6 00151 00 0001 desc9a pr6|105,1 st.graph 002114 aa 000004 6010 04 tnz 4,ic 002120 002115 aa 174 106 100 400 mlr (),(pr,ql),fill(174) 002116 aa 000000 00 0000 desc9a 0,0 002117 aa 6 00151 00 0001 desc9a pr6|105,1 st.graph STATEMENT 1 ON LINE 276 end; 002120 aa 000012 2360 07 ldq 10,dl 002121 aa 6 00111 0561 00 asq pr6|73 i 002122 aa 777760 7100 04 tra -16,ic 002102 STATEMENT 1 ON LINE 277 call ioa_$ioa_switch (mplot_switch, substr (string (st), 1, llen)); 002123 aa 6 00110 2361 00 ldq pr6|72 llen 002124 aa 524000 2760 03 orq 174080,du 002125 aa 6 00627 7561 00 stq pr6|407 002126 aa 6 00110 2361 00 ldq pr6|72 llen 002127 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 002130 aa 6 00362 2521 00 spri2 pr6|242 002131 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 002132 aa 6 00147 00 0006 desc9a pr6|103,ql 002133 aa 2 00000 00 0006 desc9a pr2|0,ql 002134 aa 6 00044 3701 20 epp4 pr6|36,* 002135 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 002136 aa 6 00360 2521 00 spri2 pr6|240 002137 aa 775656 3520 04 epp2 -1106,ic 000015 = 464000000000 002140 aa 6 00364 2521 00 spri2 pr6|244 002141 aa 6 00627 3521 00 epp2 pr6|407 002142 aa 6 00366 2521 00 spri2 pr6|246 002143 aa 6 00356 6211 00 eax1 pr6|238 002144 aa 010000 4310 07 fld 4096,dl 002145 la 4 00054 3521 20 epp2 pr4|44,* ioa_$ioa_switch 002146 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 279 minute_time = time/60e6; 002147 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 002150 aa 775635 4310 04 fld -1123,ic 000005 = 064711607000 002151 aa 6 00650 4571 00 dfst pr6|424 002152 aa 6 00134 2371 00 ldaq pr6|92 time 002153 aa 216000 4110 03 lde 72704,du 002154 aa 400000 4750 03 fad 131072,du 002155 aa 6 00650 5671 00 dfdv pr6|424 002156 aa 0 00654 7001 00 tsx0 pr0|428 fl2_to_fx1 002157 aa 6 00140 7561 00 stq pr6|96 minute_time STATEMENT 1 ON LINE 280 wakeup_time = (minute_time + ct) * 60000000; 002160 aa 000044 7770 00 llr 36 002161 aa 000044 7330 00 lrs 36 002162 aa 6 00044 3701 20 epp4 pr6|36,* 002163 ia 4 00010 0331 00 adl pr4|8 ct 002164 aa 6 00650 7571 00 staq pr6|424 002165 aa 775615 2360 04 ldq -1139,ic 000002 = 000344703400 002166 aa 6 00650 3521 00 epp2 pr6|424 002167 aa 0 00671 7001 00 tsx0 pr0|441 mpfx2 002170 aa 6 00136 7571 00 staq pr6|94 wakeup_time STATEMENT 1 ON LINE 282 call timer_manager_$alarm_wakeup (wakeup_time, "00"b, chname); 002171 aa 000000 2350 07 lda 0,dl 002172 aa 6 00627 7551 00 sta pr6|407 002173 aa 6 00136 3521 00 epp2 pr6|94 wakeup_time 002174 aa 6 00360 2521 00 spri2 pr6|240 002175 aa 6 00627 3521 00 epp2 pr6|407 002176 aa 6 00362 2521 00 spri2 pr6|242 002177 ia 4 00024 3521 00 epp2 pr4|20 chname 002200 aa 6 00364 2521 00 spri2 pr6|244 002201 aa 6 00356 6211 00 eax1 pr6|238 002202 aa 014000 4310 07 fld 6144,dl 002203 la 4 00112 3521 20 epp2 pr4|74,* timer_manager_$alarm_wakeup 002204 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 284 if ^first_time then call iox_$control (mplot_switch, "start", null (), code); 002205 aa 6 00044 3701 20 epp4 pr6|36,* 002206 ia 4 00013 2351 00 lda pr4|11 first_time 002207 aa 000030 6010 04 tnz 24,ic 002237 002210 aa 775622 2370 04 ldaq -1134,ic 000032 = 163164141162 164000000000 002211 aa 6 00650 7571 00 staq pr6|424 002212 aa 775624 3734 24 epp7 -1132,ic* 002213 aa 6 00646 6535 00 spri7 pr6|422 002214 ia 4 00026 3521 00 epp2 pr4|22 mplot_switch 002215 aa 6 00372 2521 00 spri2 pr6|250 002216 aa 6 00650 3521 00 epp2 pr6|424 002217 aa 6 00374 2521 00 spri2 pr6|252 002220 aa 6 00646 3521 00 epp2 pr6|422 002221 aa 6 00376 2521 00 spri2 pr6|254 002222 aa 6 00115 3521 00 epp2 pr6|77 code 002223 aa 6 00400 2521 00 spri2 pr6|256 002224 aa 775571 3520 04 epp2 -1159,ic 000015 = 464000000000 002225 aa 6 00402 2521 00 spri2 pr6|258 002226 aa 6 00406 2521 00 spri2 pr6|262 002227 aa 775563 3520 04 epp2 -1165,ic 000012 = 524000000005 002230 aa 6 00404 2521 00 spri2 pr6|260 002231 aa 775574 3520 04 epp2 -1156,ic 000025 = 404000000043 002232 aa 6 00410 2521 00 spri2 pr6|264 002233 aa 6 00370 6211 00 eax1 pr6|248 002234 aa 020000 4310 07 fld 8192,dl 002235 la 4 00052 3521 20 epp2 pr4|42,* iox_$control 002236 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 287 call meter_util_$reset (unique); 002237 aa 6 00044 3701 20 epp4 pr6|36,* 002240 ia 4 00012 3521 00 epp2 pr4|10 unique 002241 aa 6 00354 2521 00 spri2 pr6|236 002242 aa 6 00352 6211 00 eax1 pr6|234 002243 aa 004000 4310 07 fld 2048,dl 002244 la 4 00070 3521 20 epp2 pr4|56,* meter_util_$reset 002245 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 288 first_time = "0"b; 002246 aa 6 00044 3701 20 epp4 pr6|36,* 002247 ia 4 00013 4501 00 stz pr4|11 first_time STATEMENT 1 ON LINE 290 return; 002250 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 329 end; BEGIN PROCEDURE fill_in ENTRY TO fill_in STATEMENT 1 ON LINE 296 fill_in: proc (x, delx, token); 002251 aa 6 00340 6501 00 spri4 pr6|224 002252 aa 6 00342 2521 00 spri2 pr6|226 STATEMENT 1 ON LINE 304 if ^short_lines then do; 002253 aa 6 00044 3701 20 epp4 pr6|36,* 002254 ia 4 00011 2351 00 lda pr4|9 short_lines 002255 aa 000027 6010 04 tnz 23,ic 002304 STATEMENT 1 ON LINE 305 i1 = max (min (bin (x + .5e0, 17), 100), 0); 002256 aa 2 00002 4311 20 fld pr2|2,* x 002257 aa 000400 4750 03 fad 256,du 002260 aa 016620 5150 03 fcmp 7568,du 002261 aa 000002 6040 04 tmi 2,ic 002263 002262 aa 016620 4310 03 fld 7568,du 002263 aa 400000 5150 03 fcmp 131072,du 002264 aa 000002 6050 04 tpl 2,ic 002266 002265 aa 400000 4310 03 fld 131072,du 002266 aa 0 00654 7001 00 tsx0 pr0|428 fl2_to_fx1 002267 aa 6 00346 7561 00 stq pr6|230 i1 STATEMENT 1 ON LINE 306 i2 = max (min (bin (x + delx + .5e0, 17), 100), 0); 002270 aa 2 00002 4311 20 fld pr2|2,* x 002271 aa 2 00004 4751 20 fad pr2|4,* delx 002272 aa 000400 4750 03 fad 256,du 002273 aa 016620 5150 03 fcmp 7568,du 002274 aa 000002 6040 04 tmi 2,ic 002276 002275 aa 016620 4310 03 fld 7568,du 002276 aa 400000 5150 03 fcmp 131072,du 002277 aa 000002 6050 04 tpl 2,ic 002301 002300 aa 400000 4310 03 fld 131072,du 002301 aa 0 00654 7001 00 tsx0 pr0|428 fl2_to_fx1 002302 aa 6 00347 7561 00 stq pr6|231 i2 STATEMENT 1 ON LINE 307 end; 002303 aa 000030 7100 04 tra 24,ic 002333 STATEMENT 1 ON LINE 308 else do; STATEMENT 1 ON LINE 309 i1 = max (min (bin (x*.5e0 + .5e0, 17), 50), 0); 002304 aa 2 00002 4311 20 fld pr2|2,* x 002305 aa 000400 4610 03 fmp 256,du 002306 aa 000400 4750 03 fad 256,du 002307 aa 014620 5150 03 fcmp 6544,du 002310 aa 000002 6040 04 tmi 2,ic 002312 002311 aa 014620 4310 03 fld 6544,du 002312 aa 400000 5150 03 fcmp 131072,du 002313 aa 000002 6050 04 tpl 2,ic 002315 002314 aa 400000 4310 03 fld 131072,du 002315 aa 0 00654 7001 00 tsx0 pr0|428 fl2_to_fx1 002316 aa 6 00346 7561 00 stq pr6|230 i1 STATEMENT 1 ON LINE 310 i2 = max (min (bin ((x + delx)*.5e0 + .5e0, 17), 50), 0); 002317 aa 2 00002 4311 20 fld pr2|2,* x 002320 aa 2 00004 4751 20 fad pr2|4,* delx 002321 aa 000400 4610 03 fmp 256,du 002322 aa 000400 4750 03 fad 256,du 002323 aa 014620 5150 03 fcmp 6544,du 002324 aa 000002 6040 04 tmi 2,ic 002326 002325 aa 014620 4310 03 fld 6544,du 002326 aa 400000 5150 03 fcmp 131072,du 002327 aa 000002 6050 04 tpl 2,ic 002331 002330 aa 400000 4310 03 fld 131072,du 002331 aa 0 00654 7001 00 tsx0 pr0|428 fl2_to_fx1 002332 aa 6 00347 7561 00 stq pr6|231 i2 STATEMENT 1 ON LINE 311 end; STATEMENT 1 ON LINE 312 do i = i1 to i2; 002333 aa 6 00350 7561 00 stq pr6|232 002334 aa 6 00346 2361 00 ldq pr6|230 i1 002335 aa 6 00111 7561 00 stq pr6|73 i 002336 aa 6 00111 2361 00 ldq pr6|73 i 002337 aa 6 00350 1161 00 cmpq pr6|232 002340 aa 000010 6054 04 tpnz 8,ic 002350 STATEMENT 1 ON LINE 313 substr (st.graph, i + 1, 1) = token; 002341 aa 6 00342 3735 20 epp7 pr6|226,* 002342 aa 7 00006 3715 20 epp5 pr7|6,* 002343 aa 040 106 100 500 mlr (pr),(pr,ql),fill(040) 002344 aa 5 00000 00 0001 desc9a pr5|0,1 token 002345 aa 6 00151 00 0001 desc9a pr6|105,1 st.graph STATEMENT 1 ON LINE 314 end; 002346 aa 6 00111 0541 00 aos pr6|73 i 002347 aa 777767 7100 04 tra -9,ic 002336 STATEMENT 1 ON LINE 316 return; 002350 aa 6 00340 6101 00 rtcd pr6|224 STATEMENT 1 ON LINE 319 end fill_in; END PROCEDURE fill_in END PROCEDURE spg ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved