1 0a61c07d 2004-04-19 devnull // portable acid for all architectures
3 0a61c07d 2004-04-19 devnull defn pfl(addr)
5 0a61c07d 2004-04-19 devnull print(pcfile(addr), ":", pcline(addr), "\n");
9 0a61c07d 2004-04-19 devnull notestk(addr)
11 0a61c07d 2004-04-19 devnull local pc, sp;
12 0a61c07d 2004-04-19 devnull complex Ureg addr;
14 0a61c07d 2004-04-19 devnull pc = addr.pc\X;
15 0a61c07d 2004-04-19 devnull sp = addr.sp\X;
17 0a61c07d 2004-04-19 devnull print("Note pc:", pc, " sp:", sp, " ", fmt(pc, 'a'), " ");
19 0a61c07d 2004-04-19 devnull _stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
23 0a61c07d 2004-04-19 devnull notelstk(addr)
25 0a61c07d 2004-04-19 devnull local pc, sp;
26 0a61c07d 2004-04-19 devnull complex Ureg addr;
28 0a61c07d 2004-04-19 devnull pc = addr.pc\X;
29 0a61c07d 2004-04-19 devnull sp = addr.sp\X;
31 0a61c07d 2004-04-19 devnull print("Note pc:", pc, " sp:", sp, " ", fmt(pc, 'a'), " ");
33 0a61c07d 2004-04-19 devnull _stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
36 0a61c07d 2004-04-19 devnull defn params(param)
38 0a61c07d 2004-04-19 devnull while param do {
39 0a61c07d 2004-04-19 devnull sym = head param;
40 0a61c07d 2004-04-19 devnull print(sym[0], "=", itoa(sym[1], "%ux"));
41 0a61c07d 2004-04-19 devnull param = tail param;
42 0a61c07d 2004-04-19 devnull if param then
43 0a61c07d 2004-04-19 devnull print (",");
47 0a61c07d 2004-04-19 devnull stkprefix = "";
48 0a61c07d 2004-04-19 devnull stkignore = {};
49 0a61c07d 2004-04-19 devnull stkend = 0;
51 0a61c07d 2004-04-19 devnull defn locals(l)
53 0a61c07d 2004-04-19 devnull local sym;
55 0a61c07d 2004-04-19 devnull while l do {
56 0a61c07d 2004-04-19 devnull sym = head l;
57 0a61c07d 2004-04-19 devnull print(stkprefix, "\t", sym[0], "=", itoa(sym[1], "%ux"), "\n");
58 0a61c07d 2004-04-19 devnull l = tail l;
62 7284df18 2004-04-19 devnull defn _stkign(frame)
64 7284df18 2004-04-19 devnull local file;
66 7284df18 2004-04-19 devnull file = pcfile(frame[0]);
67 0a61c07d 2004-04-19 devnull s = stkignore;
68 0a61c07d 2004-04-19 devnull while s do {
69 0a61c07d 2004-04-19 devnull if regexp(head s, file) then
70 0a61c07d 2004-04-19 devnull return 1;
71 0a61c07d 2004-04-19 devnull s = tail s;
73 0a61c07d 2004-04-19 devnull return 0;
76 0a61c07d 2004-04-19 devnull // print a stack trace
78 0a61c07d 2004-04-19 devnull // in a run of leading frames in files matched by regexps in stkignore,
79 0a61c07d 2004-04-19 devnull // only print the last one.
80 0a61c07d 2004-04-19 devnull defn _stk(regs, dolocals)
82 08ddcb74 2005-02-11 devnull local stk, frame, pc, fn, done, callerpc, paramlist, locallist;
84 0a61c07d 2004-04-19 devnull stk = strace(regs);
85 0a61c07d 2004-04-19 devnull if stkignore then {
86 7284df18 2004-04-19 devnull while stk && tail stk && _stkign(head tail stk) do
87 0a61c07d 2004-04-19 devnull stk = tail stk;
90 0a61c07d 2004-04-19 devnull callerpc = 0;
91 d89ce51a 2005-02-11 devnull done = 0;
92 d89ce51a 2005-02-11 devnull while stk && !done do {
93 0a61c07d 2004-04-19 devnull frame = head stk;
94 0a61c07d 2004-04-19 devnull stk = tail stk;
95 0a61c07d 2004-04-19 devnull fn = frame[0];
96 0a61c07d 2004-04-19 devnull pc = frame[1];
97 0a61c07d 2004-04-19 devnull callerpc = frame[2];
98 0a61c07d 2004-04-19 devnull paramlist = frame[3];
99 0a61c07d 2004-04-19 devnull locallist = frame[4];
101 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(fn, 'a'), "(");
102 0a61c07d 2004-04-19 devnull params(paramlist);
103 0a61c07d 2004-04-19 devnull print(")");
104 0a61c07d 2004-04-19 devnull if pc != fn then
105 0a61c07d 2004-04-19 devnull print("+", itoa(pc-fn, "%ux"));
106 0a61c07d 2004-04-19 devnull print(" ");
107 0a61c07d 2004-04-19 devnull pfl(pc);
108 0a61c07d 2004-04-19 devnull if dolocals then
109 0a61c07d 2004-04-19 devnull locals(locallist);
110 d89ce51a 2005-02-11 devnull if fn == var("threadmain") || fn == var("p9main") then
112 d89ce51a 2005-02-11 devnull if fn == var("threadstart") || fn == var("scheduler") then
114 d89ce51a 2005-02-11 devnull if callerpc == 0 then
117 d89ce51a 2005-02-11 devnull if callerpc && !done then {
118 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(callerpc, 'a'), " ");
119 0a61c07d 2004-04-19 devnull pfl(callerpc);
123 0a61c07d 2004-04-19 devnull defn findsrc(file)
125 0a61c07d 2004-04-19 devnull local lst, src;
127 0a61c07d 2004-04-19 devnull if file[0] == '/' then {
128 0a61c07d 2004-04-19 devnull src = file(file);
129 0a61c07d 2004-04-19 devnull if src != {} then {
130 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
131 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
132 0a61c07d 2004-04-19 devnull return src;
134 0a61c07d 2004-04-19 devnull return {};
137 0a61c07d 2004-04-19 devnull lst = srcpath;
138 0a61c07d 2004-04-19 devnull while head lst do {
139 0a61c07d 2004-04-19 devnull src = file(head lst+file);
140 0a61c07d 2004-04-19 devnull if src != {} then {
141 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
142 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
143 0a61c07d 2004-04-19 devnull return src;
145 0a61c07d 2004-04-19 devnull lst = tail lst;
149 0a61c07d 2004-04-19 devnull defn line(addr)
151 0a61c07d 2004-04-19 devnull local src, file;
153 0a61c07d 2004-04-19 devnull file = pcfile(addr);
154 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
156 0a61c07d 2004-04-19 devnull if src >= 0 then
157 0a61c07d 2004-04-19 devnull src = srctext[src];
159 0a61c07d 2004-04-19 devnull src = findsrc(file);
161 0a61c07d 2004-04-19 devnull if src == {} then {
162 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
163 0a61c07d 2004-04-19 devnull return {};
165 0a61c07d 2004-04-19 devnull line = pcline(addr)-1;
166 0a61c07d 2004-04-19 devnull print(file, ":", src[line], "\n");
169 0a61c07d 2004-04-19 devnull defn addsrcdir(dir)
171 0a61c07d 2004-04-19 devnull dir = dir+"/";
173 0a61c07d 2004-04-19 devnull if match(dir, srcpath) >= 0 then {
174 0a61c07d 2004-04-19 devnull print("already in srcpath\n");
175 0a61c07d 2004-04-19 devnull return {};
178 0a61c07d 2004-04-19 devnull srcpath = {dir}+srcpath;
181 0a61c07d 2004-04-19 devnull defn source()
183 0a61c07d 2004-04-19 devnull local l;
185 0a61c07d 2004-04-19 devnull l = srcpath;
186 0a61c07d 2004-04-19 devnull while l do {
187 0a61c07d 2004-04-19 devnull print(head l, "\n");
188 0a61c07d 2004-04-19 devnull l = tail l;
190 0a61c07d 2004-04-19 devnull l = srcfiles;
192 0a61c07d 2004-04-19 devnull while l do {
193 0a61c07d 2004-04-19 devnull print("\t", head l, "\n");
194 0a61c07d 2004-04-19 devnull l = tail l;
198 0a61c07d 2004-04-19 devnull defn Bsrc(addr)
200 0a61c07d 2004-04-19 devnull local lst;
202 0a61c07d 2004-04-19 devnull lst = srcpath;
203 0a61c07d 2004-04-19 devnull file = pcfile(addr);
204 0a61c07d 2004-04-19 devnull if file[0] == '/' && access(file) then {
205 0a61c07d 2004-04-19 devnull rc("B "+file+":"+itoa(pcline(addr)));
206 0a61c07d 2004-04-19 devnull return {};
208 0a61c07d 2004-04-19 devnull while head lst do {
209 0a61c07d 2004-04-19 devnull name = head lst+file;
210 0a61c07d 2004-04-19 devnull if access(name) then {
211 0a61c07d 2004-04-19 devnull rc("B "+name+":"+itoa(pcline(addr)));
212 0a61c07d 2004-04-19 devnull return {};
214 0a61c07d 2004-04-19 devnull lst = tail lst;
216 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
219 0a61c07d 2004-04-19 devnull defn srcline(addr)
221 0a61c07d 2004-04-19 devnull local text, cline, line, file, src;
222 0a61c07d 2004-04-19 devnull file = pcfile(addr);
223 0a61c07d 2004-04-19 devnull src = match(file,srcfiles);
224 0a61c07d 2004-04-19 devnull if (src>=0) then
225 0a61c07d 2004-04-19 devnull src = srctext[src];
227 0a61c07d 2004-04-19 devnull src = findsrc(file);
228 0a61c07d 2004-04-19 devnull if (src=={}) then
230 0a61c07d 2004-04-19 devnull return "(no source)";
232 0a61c07d 2004-04-19 devnull return src[pcline(addr)-1];
235 0a61c07d 2004-04-19 devnull defn src(addr)
237 0a61c07d 2004-04-19 devnull local src, file, line, cline, text;
239 0a61c07d 2004-04-19 devnull file = pcfile(addr);
240 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
242 0a61c07d 2004-04-19 devnull if src >= 0 then
243 0a61c07d 2004-04-19 devnull src = srctext[src];
245 0a61c07d 2004-04-19 devnull src = findsrc(file);
247 0a61c07d 2004-04-19 devnull if src == {} then {
248 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
249 0a61c07d 2004-04-19 devnull return {};
252 0a61c07d 2004-04-19 devnull cline = pcline(addr)-1;
253 0a61c07d 2004-04-19 devnull print(file, ":", cline+1, "\n");
254 0a61c07d 2004-04-19 devnull line = cline-5;
255 0a61c07d 2004-04-19 devnull loop 0,10 do {
256 0a61c07d 2004-04-19 devnull if line >= 0 then {
257 0a61c07d 2004-04-19 devnull if line == cline then
258 0a61c07d 2004-04-19 devnull print(">");
260 0a61c07d 2004-04-19 devnull print(" ");
261 0a61c07d 2004-04-19 devnull text = src[line];
262 0a61c07d 2004-04-19 devnull if text == {} then
263 0a61c07d 2004-04-19 devnull return {};
264 0a61c07d 2004-04-19 devnull print(line+1, "\t", text, "\n");
266 0a61c07d 2004-04-19 devnull line = line+1;
270 0a61c07d 2004-04-19 devnull defn step() // single step the process
272 0a61c07d 2004-04-19 devnull local lst, lpl, addr, bput;
274 0a61c07d 2004-04-19 devnull bput = 0;
275 0a61c07d 2004-04-19 devnull if match(*PC, bplist) >= 0 then { // Sitting on a breakpoint
276 0a61c07d 2004-04-19 devnull bput = fmt(*PC, bpfmt);
277 0a61c07d 2004-04-19 devnull *bput = @bput;
280 0a61c07d 2004-04-19 devnull lst = follow(*PC);
282 0a61c07d 2004-04-19 devnull lpl = lst;
283 0a61c07d 2004-04-19 devnull while lpl do { // place break points
284 0a61c07d 2004-04-19 devnull *(head lpl) = bpinst;
285 0a61c07d 2004-04-19 devnull lpl = tail lpl;
288 0a61c07d 2004-04-19 devnull startstop(pid); // do the step
290 0a61c07d 2004-04-19 devnull while lst do { // remove the breakpoints
291 0a61c07d 2004-04-19 devnull addr = fmt(head lst, bpfmt);
292 0a61c07d 2004-04-19 devnull *addr = @addr;
293 0a61c07d 2004-04-19 devnull lst = tail lst;
295 0a61c07d 2004-04-19 devnull if bput != 0 then
296 0a61c07d 2004-04-19 devnull *bput = bpinst;
299 0a61c07d 2004-04-19 devnull defn bpset(addr) // set a breakpoint
301 0a61c07d 2004-04-19 devnull if status(pid) != "Stopped" then {
302 0a61c07d 2004-04-19 devnull print("Waiting...\n");
303 0a61c07d 2004-04-19 devnull stop(pid);
305 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then
306 0a61c07d 2004-04-19 devnull print("breakpoint already set at ", fmt(addr, 'a'), "\n");
308 0a61c07d 2004-04-19 devnull *fmt(addr, bpfmt) = bpinst;
309 0a61c07d 2004-04-19 devnull bplist = append bplist, addr;
313 0a61c07d 2004-04-19 devnull defn bptab() // print a table of breakpoints
315 0a61c07d 2004-04-19 devnull local lst, addr;
317 0a61c07d 2004-04-19 devnull lst = bplist;
318 0a61c07d 2004-04-19 devnull while lst do {
319 0a61c07d 2004-04-19 devnull addr = head lst;
320 0a61c07d 2004-04-19 devnull print("\t", fmt(addr, 'X'), " ", fmt(addr, 'a'), " ", fmt(addr, 'i'), "\n");
321 0a61c07d 2004-04-19 devnull lst = tail lst;
325 0a61c07d 2004-04-19 devnull defn bpdel(addr) // delete a breakpoint
327 0a61c07d 2004-04-19 devnull local n, pc, nbplist;
329 0a61c07d 2004-04-19 devnull n = match(addr, bplist);
330 0a61c07d 2004-04-19 devnull if n < 0 then {
331 0a61c07d 2004-04-19 devnull print("no breakpoint at ", fmt(addr, 'a'), "\n");
332 0a61c07d 2004-04-19 devnull return {};
335 0a61c07d 2004-04-19 devnull addr = fmt(addr, bpfmt);
336 0a61c07d 2004-04-19 devnull *addr = @addr;
338 0a61c07d 2004-04-19 devnull nbplist = {}; // delete from list
339 0a61c07d 2004-04-19 devnull while bplist do {
340 0a61c07d 2004-04-19 devnull pc = head bplist;
341 0a61c07d 2004-04-19 devnull if pc != addr then
342 0a61c07d 2004-04-19 devnull nbplist = append nbplist, pc;
343 0a61c07d 2004-04-19 devnull bplist = tail bplist;
345 0a61c07d 2004-04-19 devnull bplist = nbplist; // delete from memory
348 0a61c07d 2004-04-19 devnull defn cont() // continue execution
350 0a61c07d 2004-04-19 devnull local addr;
352 0a61c07d 2004-04-19 devnull addr = fmt(*PC, bpfmt);
353 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then { // Sitting on a breakpoint
354 0a61c07d 2004-04-19 devnull *addr = @addr;
355 0a61c07d 2004-04-19 devnull step(); // Step over
356 0a61c07d 2004-04-19 devnull *addr = bpinst;
358 0a61c07d 2004-04-19 devnull startstop(pid); // Run
361 0a61c07d 2004-04-19 devnull defn stopped(pid) // called from acid when a process changes state
363 0a61c07d 2004-04-19 devnull pstop(pid); // stub so this is easy to replace
366 0a61c07d 2004-04-19 devnull defn procs() // print status of processes
368 0a61c07d 2004-04-19 devnull local c, lst, cpid;
370 0a61c07d 2004-04-19 devnull cpid = pid;
371 0a61c07d 2004-04-19 devnull lst = proclist;
372 0a61c07d 2004-04-19 devnull while lst do {
373 0a61c07d 2004-04-19 devnull np = head lst;
374 0a61c07d 2004-04-19 devnull setproc(np);
375 0a61c07d 2004-04-19 devnull if np == cpid then
376 0a61c07d 2004-04-19 devnull c = '>';
378 0a61c07d 2004-04-19 devnull c = ' ';
379 0a61c07d 2004-04-19 devnull print(fmt(c, 'c'), np, ": ", status(np), " at ", fmt(*PC, 'a'), " setproc(", np, ")\n");
380 0a61c07d 2004-04-19 devnull lst = tail lst;
382 0a61c07d 2004-04-19 devnull pid = cpid;
383 0a61c07d 2004-04-19 devnull if pid != 0 then
384 0a61c07d 2004-04-19 devnull setproc(pid);
387 0a61c07d 2004-04-19 devnull _asmlines = 30;
389 0a61c07d 2004-04-19 devnull defn asm(addr)
391 0a61c07d 2004-04-19 devnull local bound;
393 0a61c07d 2004-04-19 devnull bound = fnbound(addr);
395 0a61c07d 2004-04-19 devnull addr = fmt(addr, 'i');
396 0a61c07d 2004-04-19 devnull loop 1,_asmlines do {
397 0a61c07d 2004-04-19 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
398 0a61c07d 2004-04-19 devnull print("\t", @addr++, "\n");
399 0a61c07d 2004-04-19 devnull if bound != {} && addr > bound[1] then {
400 0a61c07d 2004-04-19 devnull lasmaddr = addr;
401 0a61c07d 2004-04-19 devnull return {};
404 0a61c07d 2004-04-19 devnull lasmaddr = addr;
407 0a61c07d 2004-04-19 devnull defn casm()
409 0a61c07d 2004-04-19 devnull asm(lasmaddr);
412 95f5b525 2005-01-23 devnull defn xasm(addr)
414 95f5b525 2005-01-23 devnull local bound;
416 95f5b525 2005-01-23 devnull bound = fnbound(addr);
418 95f5b525 2005-01-23 devnull addr = fmt(addr, 'i');
419 95f5b525 2005-01-23 devnull loop 1,_asmlines do {
420 95f5b525 2005-01-23 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
421 95f5b525 2005-01-23 devnull print("\t", *addr++, "\n");
422 95f5b525 2005-01-23 devnull if bound != {} && addr > bound[1] then {
423 95f5b525 2005-01-23 devnull lasmaddr = addr;
424 95f5b525 2005-01-23 devnull return {};
427 95f5b525 2005-01-23 devnull lasmaddr = addr;
430 95f5b525 2005-01-23 devnull defn xcasm()
432 95f5b525 2005-01-23 devnull xasm(lasmaddr);
435 0a61c07d 2004-04-19 devnull defn win()
437 0a61c07d 2004-04-19 devnull local npid, estr;
439 0a61c07d 2004-04-19 devnull bplist = {};
440 0a61c07d 2004-04-19 devnull notes = {};
442 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/window '0 0 600 400' "+textfile;
443 0a61c07d 2004-04-19 devnull if progargs != "" then
444 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
446 0a61c07d 2004-04-19 devnull npid = rc(estr);
447 0a61c07d 2004-04-19 devnull npid = atoi(npid);
448 0a61c07d 2004-04-19 devnull if npid == 0 then
449 0a61c07d 2004-04-19 devnull error("win failed to create process");
451 0a61c07d 2004-04-19 devnull setproc(npid);
452 0a61c07d 2004-04-19 devnull stopped(npid);
455 0a61c07d 2004-04-19 devnull defn win2()
457 0a61c07d 2004-04-19 devnull local npid, estr;
459 0a61c07d 2004-04-19 devnull bplist = {};
460 0a61c07d 2004-04-19 devnull notes = {};
462 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/transcript '0 0 600 400' '100 100 700 500' "+textfile;
463 0a61c07d 2004-04-19 devnull if progargs != "" then
464 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
466 0a61c07d 2004-04-19 devnull npid = rc(estr);
467 0a61c07d 2004-04-19 devnull npid = atoi(npid);
468 0a61c07d 2004-04-19 devnull if npid == 0 then
469 0a61c07d 2004-04-19 devnull error("win failed to create process");
471 0a61c07d 2004-04-19 devnull setproc(npid);
472 0a61c07d 2004-04-19 devnull stopped(npid);
475 0a61c07d 2004-04-19 devnull defn new()
477 0a61c07d 2004-04-19 devnull bplist = {};
478 0a61c07d 2004-04-19 devnull newproc(progargs);
479 0a61c07d 2004-04-19 devnull // Dont miss the delay slot calls
480 0a61c07d 2004-04-19 devnull bpset(follow(main)[0]);
482 0a61c07d 2004-04-19 devnull bpdel(*PC);
485 0a61c07d 2004-04-19 devnull defn stmnt() // step one statement
487 0a61c07d 2004-04-19 devnull local line;
489 0a61c07d 2004-04-19 devnull line = pcline(*PC);
490 0a61c07d 2004-04-19 devnull while 1 do {
492 0a61c07d 2004-04-19 devnull if line != pcline(*PC) then {
493 0a61c07d 2004-04-19 devnull src(*PC);
494 0a61c07d 2004-04-19 devnull return {};
499 0a61c07d 2004-04-19 devnull defn func() // step until we leave the current function
501 0a61c07d 2004-04-19 devnull local bound, end, start, pc;
503 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
504 0a61c07d 2004-04-19 devnull if bound == {} then {
505 0a61c07d 2004-04-19 devnull print("cannot locate text symbol\n");
506 0a61c07d 2004-04-19 devnull return {};
509 0a61c07d 2004-04-19 devnull pc = *PC;
510 0a61c07d 2004-04-19 devnull start = bound[0];
511 0a61c07d 2004-04-19 devnull end = bound[1];
512 0a61c07d 2004-04-19 devnull while pc >= start && pc < end do {
514 0a61c07d 2004-04-19 devnull pc = *PC;
518 0a61c07d 2004-04-19 devnull defn next()
520 0a61c07d 2004-04-19 devnull local sp, bound;
522 0a61c07d 2004-04-19 devnull sp = *SP;
523 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
524 0a61c07d 2004-04-19 devnull stmnt();
525 0a61c07d 2004-04-19 devnull pc = *PC;
526 0a61c07d 2004-04-19 devnull if pc >= bound[0] && pc < bound[1] then
527 0a61c07d 2004-04-19 devnull return {};
529 0a61c07d 2004-04-19 devnull while (pc < bound[0] || pc > bound[1]) && sp >= *SP do {
531 0a61c07d 2004-04-19 devnull pc = *PC;
533 0a61c07d 2004-04-19 devnull src(*PC);
536 0a61c07d 2004-04-19 devnull defn maps()
538 0a61c07d 2004-04-19 devnull local m, mm;
540 0a61c07d 2004-04-19 devnull m = map();
541 0a61c07d 2004-04-19 devnull while m != {} do {
542 0a61c07d 2004-04-19 devnull mm = head m;
543 0a61c07d 2004-04-19 devnull m = tail m;
544 0a61c07d 2004-04-19 devnull print(mm[2]\X, " ", mm[3]\X, " ", mm[4]\X, " ", mm[0], " ", mm[1], "\n");
548 0a61c07d 2004-04-19 devnull defn dump(addr, n, fmt)
550 0a61c07d 2004-04-19 devnull loop 0, n do {
551 0a61c07d 2004-04-19 devnull print(fmt(addr, 'X'), ": ");
552 0a61c07d 2004-04-19 devnull addr = mem(addr, fmt);
556 0a61c07d 2004-04-19 devnull defn mem(addr, fmt)
559 0a61c07d 2004-04-19 devnull local i, c, n;
562 0a61c07d 2004-04-19 devnull while fmt[i] != 0 do {
563 0a61c07d 2004-04-19 devnull c = fmt[i];
565 0a61c07d 2004-04-19 devnull while '0' <= fmt[i] && fmt[i] <= '9' do {
566 0a61c07d 2004-04-19 devnull n = 10*n + fmt[i]-'0';
567 0a61c07d 2004-04-19 devnull i = i+1;
569 0a61c07d 2004-04-19 devnull if n <= 0 then n = 1;
570 0a61c07d 2004-04-19 devnull addr = fmt(addr, fmt[i]);
571 0a61c07d 2004-04-19 devnull while n > 0 do {
572 0a61c07d 2004-04-19 devnull print(*addr++, " ");
573 0a61c07d 2004-04-19 devnull n = n-1;
575 0a61c07d 2004-04-19 devnull i = i+1;
577 0a61c07d 2004-04-19 devnull print("\n");
578 0a61c07d 2004-04-19 devnull return addr;
581 0a61c07d 2004-04-19 devnull defn symbols(pattern)
583 0a61c07d 2004-04-19 devnull local l, s;
585 0a61c07d 2004-04-19 devnull l = symbols;
586 0a61c07d 2004-04-19 devnull while l do {
587 0a61c07d 2004-04-19 devnull s = head l;
588 0a61c07d 2004-04-19 devnull if regexp(pattern, s[0]) then
589 0a61c07d 2004-04-19 devnull print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n");
590 0a61c07d 2004-04-19 devnull l = tail l;
594 0a61c07d 2004-04-19 devnull defn havesymbol(name)
596 0a61c07d 2004-04-19 devnull local l, s;
598 0a61c07d 2004-04-19 devnull l = symbols;
599 0a61c07d 2004-04-19 devnull while l do {
600 0a61c07d 2004-04-19 devnull s = head l;
601 0a61c07d 2004-04-19 devnull l = tail l;
602 0a61c07d 2004-04-19 devnull if s[0] == name then
603 0a61c07d 2004-04-19 devnull return 1;
605 0a61c07d 2004-04-19 devnull return 0;
608 0a61c07d 2004-04-19 devnull defn spsrch(len)
610 0a61c07d 2004-04-19 devnull local addr, a, s, e;
612 0a61c07d 2004-04-19 devnull addr = *SP;
613 0a61c07d 2004-04-19 devnull s = origin & 0x7fffffff;
614 0a61c07d 2004-04-19 devnull e = etext & 0x7fffffff;
615 0a61c07d 2004-04-19 devnull loop 1, len do {
616 0a61c07d 2004-04-19 devnull a = *addr++;
617 0a61c07d 2004-04-19 devnull c = a & 0x7fffffff;
618 0a61c07d 2004-04-19 devnull if c > s && c < e then {
619 0a61c07d 2004-04-19 devnull print("src(", a, ")\n");
625 7284df18 2004-04-19 devnull defn acidtypes()
627 7284df18 2004-04-19 devnull local syms;
628 7284df18 2004-04-19 devnull local l;
630 7284df18 2004-04-19 devnull l = textfile();
631 7284df18 2004-04-19 devnull if l != {} then {
632 7284df18 2004-04-19 devnull syms = "acidtypes";
633 7284df18 2004-04-19 devnull while l != {} do {
634 7284df18 2004-04-19 devnull syms = syms + " " + ((head l)[0]);
635 7284df18 2004-04-19 devnull l = tail l;
637 7284df18 2004-04-19 devnull includepipe(syms);
641 95f5b525 2005-01-23 devnull defn getregs()
643 95f5b525 2005-01-23 devnull local regs, l;
645 95f5b525 2005-01-23 devnull regs = {};
646 95f5b525 2005-01-23 devnull l = registers;
647 95f5b525 2005-01-23 devnull while l != {} do {
648 95f5b525 2005-01-23 devnull regs = append regs, var(l[0]);
649 95f5b525 2005-01-23 devnull l = tail l;
651 95f5b525 2005-01-23 devnull return regs;
654 95f5b525 2005-01-23 devnull defn setregs(regs)
656 95f5b525 2005-01-23 devnull local l;
658 95f5b525 2005-01-23 devnull l = registers;
659 95f5b525 2005-01-23 devnull while l != {} do {
660 95f5b525 2005-01-23 devnull var(l[0]) = regs[0];
661 95f5b525 2005-01-23 devnull l = tail l;
662 95f5b525 2005-01-23 devnull regs = tail regs;
664 95f5b525 2005-01-23 devnull return regs;
667 95f5b525 2005-01-23 devnull defn resetregs()
669 95f5b525 2005-01-23 devnull local l;
671 95f5b525 2005-01-23 devnull l = registers;
672 95f5b525 2005-01-23 devnull while l != {} do {
673 95f5b525 2005-01-23 devnull var(l[0]) = register(l[0]);
674 95f5b525 2005-01-23 devnull l = tail l;
678 95f5b525 2005-01-23 devnull defn clearregs()
680 95f5b525 2005-01-23 devnull local l;
682 95f5b525 2005-01-23 devnull l = registers;
683 95f5b525 2005-01-23 devnull while l != {} do {
684 95f5b525 2005-01-23 devnull var(l[0]) = refconst(~0);
685 95f5b525 2005-01-23 devnull l = tail l;
689 0a61c07d 2004-04-19 devnull progargs="";
690 0a61c07d 2004-04-19 devnull print(acidfile);
