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 7284df18 2004-04-19 devnull // defn labstk(l) // trace from a label
38 7284df18 2004-04-19 devnull // _stk({"PC", *(l+4), "SP", *l, linkreg(0)}, 0);
41 0a61c07d 2004-04-19 devnull defn params(param)
43 0a61c07d 2004-04-19 devnull while param do {
44 0a61c07d 2004-04-19 devnull sym = head param;
45 0a61c07d 2004-04-19 devnull print(sym[0], "=", itoa(sym[1], "%ux"));
46 0a61c07d 2004-04-19 devnull param = tail param;
47 0a61c07d 2004-04-19 devnull if param then
48 0a61c07d 2004-04-19 devnull print (",");
52 0a61c07d 2004-04-19 devnull stkprefix = "";
53 0a61c07d 2004-04-19 devnull stkignore = {};
54 0a61c07d 2004-04-19 devnull stkend = 0;
56 0a61c07d 2004-04-19 devnull defn locals(l)
58 0a61c07d 2004-04-19 devnull local sym;
60 0a61c07d 2004-04-19 devnull while l do {
61 0a61c07d 2004-04-19 devnull sym = head l;
62 0a61c07d 2004-04-19 devnull print(stkprefix, "\t", sym[0], "=", itoa(sym[1], "%ux"), "\n");
63 0a61c07d 2004-04-19 devnull l = tail l;
67 7284df18 2004-04-19 devnull defn _stkign(frame)
69 7284df18 2004-04-19 devnull local file;
71 7284df18 2004-04-19 devnull file = pcfile(frame[0]);
72 0a61c07d 2004-04-19 devnull s = stkignore;
73 0a61c07d 2004-04-19 devnull while s do {
74 0a61c07d 2004-04-19 devnull if regexp(head s, file) then
75 0a61c07d 2004-04-19 devnull return 1;
76 0a61c07d 2004-04-19 devnull s = tail s;
78 0a61c07d 2004-04-19 devnull return 0;
81 0a61c07d 2004-04-19 devnull // print a stack trace
83 0a61c07d 2004-04-19 devnull // in a run of leading frames in files matched by regexps in stkignore,
84 0a61c07d 2004-04-19 devnull // only print the last one.
85 0a61c07d 2004-04-19 devnull defn _stk(regs, dolocals)
87 0a61c07d 2004-04-19 devnull local stk, pc, fn, callerpc, paramlist, locallist;
89 0a61c07d 2004-04-19 devnull stk = strace(regs);
90 0a61c07d 2004-04-19 devnull if stkignore then {
91 7284df18 2004-04-19 devnull while stk && tail stk && _stkign(head tail stk) do
92 0a61c07d 2004-04-19 devnull stk = tail stk;
95 0a61c07d 2004-04-19 devnull callerpc = 0;
96 0a61c07d 2004-04-19 devnull while stk do {
97 0a61c07d 2004-04-19 devnull frame = head stk;
98 0a61c07d 2004-04-19 devnull stk = tail stk;
99 0a61c07d 2004-04-19 devnull fn = frame[0];
100 0a61c07d 2004-04-19 devnull pc = frame[1];
101 0a61c07d 2004-04-19 devnull callerpc = frame[2];
102 0a61c07d 2004-04-19 devnull paramlist = frame[3];
103 0a61c07d 2004-04-19 devnull locallist = frame[4];
105 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(fn, 'a'), "(");
106 0a61c07d 2004-04-19 devnull params(paramlist);
107 0a61c07d 2004-04-19 devnull print(")");
108 0a61c07d 2004-04-19 devnull if pc != fn then
109 0a61c07d 2004-04-19 devnull print("+", itoa(pc-fn, "%ux"));
110 0a61c07d 2004-04-19 devnull print(" ");
111 0a61c07d 2004-04-19 devnull pfl(pc);
112 0a61c07d 2004-04-19 devnull if dolocals then
113 0a61c07d 2004-04-19 devnull locals(locallist);
116 0a61c07d 2004-04-19 devnull if callerpc then {
117 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(callerpc, 'a'), " ");
118 0a61c07d 2004-04-19 devnull pfl(callerpc);
122 0a61c07d 2004-04-19 devnull defn findsrc(file)
124 0a61c07d 2004-04-19 devnull local lst, src;
126 0a61c07d 2004-04-19 devnull if file[0] == '/' then {
127 0a61c07d 2004-04-19 devnull src = file(file);
128 0a61c07d 2004-04-19 devnull if src != {} then {
129 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
130 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
131 0a61c07d 2004-04-19 devnull return src;
133 0a61c07d 2004-04-19 devnull return {};
136 0a61c07d 2004-04-19 devnull lst = srcpath;
137 0a61c07d 2004-04-19 devnull while head lst do {
138 0a61c07d 2004-04-19 devnull src = file(head lst+file);
139 0a61c07d 2004-04-19 devnull if src != {} then {
140 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
141 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
142 0a61c07d 2004-04-19 devnull return src;
144 0a61c07d 2004-04-19 devnull lst = tail lst;
148 0a61c07d 2004-04-19 devnull defn line(addr)
150 0a61c07d 2004-04-19 devnull local src, file;
152 0a61c07d 2004-04-19 devnull file = pcfile(addr);
153 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
155 0a61c07d 2004-04-19 devnull if src >= 0 then
156 0a61c07d 2004-04-19 devnull src = srctext[src];
158 0a61c07d 2004-04-19 devnull src = findsrc(file);
160 0a61c07d 2004-04-19 devnull if src == {} then {
161 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
162 0a61c07d 2004-04-19 devnull return {};
164 0a61c07d 2004-04-19 devnull line = pcline(addr)-1;
165 0a61c07d 2004-04-19 devnull print(file, ":", src[line], "\n");
168 0a61c07d 2004-04-19 devnull defn addsrcdir(dir)
170 0a61c07d 2004-04-19 devnull dir = dir+"/";
172 0a61c07d 2004-04-19 devnull if match(dir, srcpath) >= 0 then {
173 0a61c07d 2004-04-19 devnull print("already in srcpath\n");
174 0a61c07d 2004-04-19 devnull return {};
177 0a61c07d 2004-04-19 devnull srcpath = {dir}+srcpath;
180 0a61c07d 2004-04-19 devnull defn source()
182 0a61c07d 2004-04-19 devnull local l;
184 0a61c07d 2004-04-19 devnull l = srcpath;
185 0a61c07d 2004-04-19 devnull while l do {
186 0a61c07d 2004-04-19 devnull print(head l, "\n");
187 0a61c07d 2004-04-19 devnull l = tail l;
189 0a61c07d 2004-04-19 devnull l = srcfiles;
191 0a61c07d 2004-04-19 devnull while l do {
192 0a61c07d 2004-04-19 devnull print("\t", head l, "\n");
193 0a61c07d 2004-04-19 devnull l = tail l;
197 0a61c07d 2004-04-19 devnull defn Bsrc(addr)
199 0a61c07d 2004-04-19 devnull local lst;
201 0a61c07d 2004-04-19 devnull lst = srcpath;
202 0a61c07d 2004-04-19 devnull file = pcfile(addr);
203 0a61c07d 2004-04-19 devnull if file[0] == '/' && access(file) then {
204 0a61c07d 2004-04-19 devnull rc("B "+file+":"+itoa(pcline(addr)));
205 0a61c07d 2004-04-19 devnull return {};
207 0a61c07d 2004-04-19 devnull while head lst do {
208 0a61c07d 2004-04-19 devnull name = head lst+file;
209 0a61c07d 2004-04-19 devnull if access(name) then {
210 0a61c07d 2004-04-19 devnull rc("B "+name+":"+itoa(pcline(addr)));
211 0a61c07d 2004-04-19 devnull return {};
213 0a61c07d 2004-04-19 devnull lst = tail lst;
215 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
218 0a61c07d 2004-04-19 devnull defn srcline(addr)
220 0a61c07d 2004-04-19 devnull local text, cline, line, file, src;
221 0a61c07d 2004-04-19 devnull file = pcfile(addr);
222 0a61c07d 2004-04-19 devnull src = match(file,srcfiles);
223 0a61c07d 2004-04-19 devnull if (src>=0) then
224 0a61c07d 2004-04-19 devnull src = srctext[src];
226 0a61c07d 2004-04-19 devnull src = findsrc(file);
227 0a61c07d 2004-04-19 devnull if (src=={}) then
229 0a61c07d 2004-04-19 devnull return "(no source)";
231 0a61c07d 2004-04-19 devnull return src[pcline(addr)-1];
234 0a61c07d 2004-04-19 devnull defn src(addr)
236 0a61c07d 2004-04-19 devnull local src, file, line, cline, text;
238 0a61c07d 2004-04-19 devnull file = pcfile(addr);
239 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
241 0a61c07d 2004-04-19 devnull if src >= 0 then
242 0a61c07d 2004-04-19 devnull src = srctext[src];
244 0a61c07d 2004-04-19 devnull src = findsrc(file);
246 0a61c07d 2004-04-19 devnull if src == {} then {
247 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
248 0a61c07d 2004-04-19 devnull return {};
251 0a61c07d 2004-04-19 devnull cline = pcline(addr)-1;
252 0a61c07d 2004-04-19 devnull print(file, ":", cline+1, "\n");
253 0a61c07d 2004-04-19 devnull line = cline-5;
254 0a61c07d 2004-04-19 devnull loop 0,10 do {
255 0a61c07d 2004-04-19 devnull if line >= 0 then {
256 0a61c07d 2004-04-19 devnull if line == cline then
257 0a61c07d 2004-04-19 devnull print(">");
259 0a61c07d 2004-04-19 devnull print(" ");
260 0a61c07d 2004-04-19 devnull text = src[line];
261 0a61c07d 2004-04-19 devnull if text == {} then
262 0a61c07d 2004-04-19 devnull return {};
263 0a61c07d 2004-04-19 devnull print(line+1, "\t", text, "\n");
265 0a61c07d 2004-04-19 devnull line = line+1;
269 0a61c07d 2004-04-19 devnull defn step() // single step the process
271 0a61c07d 2004-04-19 devnull local lst, lpl, addr, bput;
273 0a61c07d 2004-04-19 devnull bput = 0;
274 0a61c07d 2004-04-19 devnull if match(*PC, bplist) >= 0 then { // Sitting on a breakpoint
275 0a61c07d 2004-04-19 devnull bput = fmt(*PC, bpfmt);
276 0a61c07d 2004-04-19 devnull *bput = @bput;
279 0a61c07d 2004-04-19 devnull lst = follow(*PC);
281 0a61c07d 2004-04-19 devnull lpl = lst;
282 0a61c07d 2004-04-19 devnull while lpl do { // place break points
283 0a61c07d 2004-04-19 devnull *(head lpl) = bpinst;
284 0a61c07d 2004-04-19 devnull lpl = tail lpl;
287 0a61c07d 2004-04-19 devnull startstop(pid); // do the step
289 0a61c07d 2004-04-19 devnull while lst do { // remove the breakpoints
290 0a61c07d 2004-04-19 devnull addr = fmt(head lst, bpfmt);
291 0a61c07d 2004-04-19 devnull *addr = @addr;
292 0a61c07d 2004-04-19 devnull lst = tail lst;
294 0a61c07d 2004-04-19 devnull if bput != 0 then
295 0a61c07d 2004-04-19 devnull *bput = bpinst;
298 0a61c07d 2004-04-19 devnull defn bpset(addr) // set a breakpoint
300 0a61c07d 2004-04-19 devnull if status(pid) != "Stopped" then {
301 0a61c07d 2004-04-19 devnull print("Waiting...\n");
302 0a61c07d 2004-04-19 devnull stop(pid);
304 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then
305 0a61c07d 2004-04-19 devnull print("breakpoint already set at ", fmt(addr, 'a'), "\n");
307 0a61c07d 2004-04-19 devnull *fmt(addr, bpfmt) = bpinst;
308 0a61c07d 2004-04-19 devnull bplist = append bplist, addr;
312 0a61c07d 2004-04-19 devnull defn bptab() // print a table of breakpoints
314 0a61c07d 2004-04-19 devnull local lst, addr;
316 0a61c07d 2004-04-19 devnull lst = bplist;
317 0a61c07d 2004-04-19 devnull while lst do {
318 0a61c07d 2004-04-19 devnull addr = head lst;
319 0a61c07d 2004-04-19 devnull print("\t", fmt(addr, 'X'), " ", fmt(addr, 'a'), " ", fmt(addr, 'i'), "\n");
320 0a61c07d 2004-04-19 devnull lst = tail lst;
324 0a61c07d 2004-04-19 devnull defn bpdel(addr) // delete a breakpoint
326 0a61c07d 2004-04-19 devnull local n, pc, nbplist;
328 0a61c07d 2004-04-19 devnull n = match(addr, bplist);
329 0a61c07d 2004-04-19 devnull if n < 0 then {
330 0a61c07d 2004-04-19 devnull print("no breakpoint at ", fmt(addr, 'a'), "\n");
331 0a61c07d 2004-04-19 devnull return {};
334 0a61c07d 2004-04-19 devnull addr = fmt(addr, bpfmt);
335 0a61c07d 2004-04-19 devnull *addr = @addr;
337 0a61c07d 2004-04-19 devnull nbplist = {}; // delete from list
338 0a61c07d 2004-04-19 devnull while bplist do {
339 0a61c07d 2004-04-19 devnull pc = head bplist;
340 0a61c07d 2004-04-19 devnull if pc != addr then
341 0a61c07d 2004-04-19 devnull nbplist = append nbplist, pc;
342 0a61c07d 2004-04-19 devnull bplist = tail bplist;
344 0a61c07d 2004-04-19 devnull bplist = nbplist; // delete from memory
347 0a61c07d 2004-04-19 devnull defn cont() // continue execution
349 0a61c07d 2004-04-19 devnull local addr;
351 0a61c07d 2004-04-19 devnull addr = fmt(*PC, bpfmt);
352 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then { // Sitting on a breakpoint
353 0a61c07d 2004-04-19 devnull *addr = @addr;
354 0a61c07d 2004-04-19 devnull step(); // Step over
355 0a61c07d 2004-04-19 devnull *addr = bpinst;
357 0a61c07d 2004-04-19 devnull startstop(pid); // Run
360 0a61c07d 2004-04-19 devnull defn stopped(pid) // called from acid when a process changes state
362 0a61c07d 2004-04-19 devnull pstop(pid); // stub so this is easy to replace
365 0a61c07d 2004-04-19 devnull defn procs() // print status of processes
367 0a61c07d 2004-04-19 devnull local c, lst, cpid;
369 0a61c07d 2004-04-19 devnull cpid = pid;
370 0a61c07d 2004-04-19 devnull lst = proclist;
371 0a61c07d 2004-04-19 devnull while lst do {
372 0a61c07d 2004-04-19 devnull np = head lst;
373 0a61c07d 2004-04-19 devnull setproc(np);
374 0a61c07d 2004-04-19 devnull if np == cpid then
375 0a61c07d 2004-04-19 devnull c = '>';
377 0a61c07d 2004-04-19 devnull c = ' ';
378 0a61c07d 2004-04-19 devnull print(fmt(c, 'c'), np, ": ", status(np), " at ", fmt(*PC, 'a'), " setproc(", np, ")\n");
379 0a61c07d 2004-04-19 devnull lst = tail lst;
381 0a61c07d 2004-04-19 devnull pid = cpid;
382 0a61c07d 2004-04-19 devnull if pid != 0 then
383 0a61c07d 2004-04-19 devnull setproc(pid);
386 0a61c07d 2004-04-19 devnull _asmlines = 30;
388 0a61c07d 2004-04-19 devnull defn asm(addr)
390 0a61c07d 2004-04-19 devnull local bound;
392 0a61c07d 2004-04-19 devnull bound = fnbound(addr);
394 0a61c07d 2004-04-19 devnull addr = fmt(addr, 'i');
395 0a61c07d 2004-04-19 devnull loop 1,_asmlines do {
396 0a61c07d 2004-04-19 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
397 0a61c07d 2004-04-19 devnull print("\t", @addr++, "\n");
398 0a61c07d 2004-04-19 devnull if bound != {} && addr > bound[1] then {
399 0a61c07d 2004-04-19 devnull lasmaddr = addr;
400 0a61c07d 2004-04-19 devnull return {};
403 0a61c07d 2004-04-19 devnull lasmaddr = addr;
406 0a61c07d 2004-04-19 devnull defn casm()
408 0a61c07d 2004-04-19 devnull asm(lasmaddr);
411 95f5b525 2005-01-23 devnull defn xasm(addr)
413 95f5b525 2005-01-23 devnull local bound;
415 95f5b525 2005-01-23 devnull bound = fnbound(addr);
417 95f5b525 2005-01-23 devnull addr = fmt(addr, 'i');
418 95f5b525 2005-01-23 devnull loop 1,_asmlines do {
419 95f5b525 2005-01-23 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
420 95f5b525 2005-01-23 devnull print("\t", *addr++, "\n");
421 95f5b525 2005-01-23 devnull if bound != {} && addr > bound[1] then {
422 95f5b525 2005-01-23 devnull lasmaddr = addr;
423 95f5b525 2005-01-23 devnull return {};
426 95f5b525 2005-01-23 devnull lasmaddr = addr;
429 95f5b525 2005-01-23 devnull defn xcasm()
431 95f5b525 2005-01-23 devnull xasm(lasmaddr);
434 0a61c07d 2004-04-19 devnull defn win()
436 0a61c07d 2004-04-19 devnull local npid, estr;
438 0a61c07d 2004-04-19 devnull bplist = {};
439 0a61c07d 2004-04-19 devnull notes = {};
441 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/window '0 0 600 400' "+textfile;
442 0a61c07d 2004-04-19 devnull if progargs != "" then
443 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
445 0a61c07d 2004-04-19 devnull npid = rc(estr);
446 0a61c07d 2004-04-19 devnull npid = atoi(npid);
447 0a61c07d 2004-04-19 devnull if npid == 0 then
448 0a61c07d 2004-04-19 devnull error("win failed to create process");
450 0a61c07d 2004-04-19 devnull setproc(npid);
451 0a61c07d 2004-04-19 devnull stopped(npid);
454 0a61c07d 2004-04-19 devnull defn win2()
456 0a61c07d 2004-04-19 devnull local npid, estr;
458 0a61c07d 2004-04-19 devnull bplist = {};
459 0a61c07d 2004-04-19 devnull notes = {};
461 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/transcript '0 0 600 400' '100 100 700 500' "+textfile;
462 0a61c07d 2004-04-19 devnull if progargs != "" then
463 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
465 0a61c07d 2004-04-19 devnull npid = rc(estr);
466 0a61c07d 2004-04-19 devnull npid = atoi(npid);
467 0a61c07d 2004-04-19 devnull if npid == 0 then
468 0a61c07d 2004-04-19 devnull error("win failed to create process");
470 0a61c07d 2004-04-19 devnull setproc(npid);
471 0a61c07d 2004-04-19 devnull stopped(npid);
474 0a61c07d 2004-04-19 devnull defn new()
476 0a61c07d 2004-04-19 devnull bplist = {};
477 0a61c07d 2004-04-19 devnull newproc(progargs);
478 0a61c07d 2004-04-19 devnull // Dont miss the delay slot calls
479 0a61c07d 2004-04-19 devnull bpset(follow(main)[0]);
481 0a61c07d 2004-04-19 devnull bpdel(*PC);
484 0a61c07d 2004-04-19 devnull defn stmnt() // step one statement
486 0a61c07d 2004-04-19 devnull local line;
488 0a61c07d 2004-04-19 devnull line = pcline(*PC);
489 0a61c07d 2004-04-19 devnull while 1 do {
491 0a61c07d 2004-04-19 devnull if line != pcline(*PC) then {
492 0a61c07d 2004-04-19 devnull src(*PC);
493 0a61c07d 2004-04-19 devnull return {};
498 0a61c07d 2004-04-19 devnull defn func() // step until we leave the current function
500 0a61c07d 2004-04-19 devnull local bound, end, start, pc;
502 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
503 0a61c07d 2004-04-19 devnull if bound == {} then {
504 0a61c07d 2004-04-19 devnull print("cannot locate text symbol\n");
505 0a61c07d 2004-04-19 devnull return {};
508 0a61c07d 2004-04-19 devnull pc = *PC;
509 0a61c07d 2004-04-19 devnull start = bound[0];
510 0a61c07d 2004-04-19 devnull end = bound[1];
511 0a61c07d 2004-04-19 devnull while pc >= start && pc < end do {
513 0a61c07d 2004-04-19 devnull pc = *PC;
517 0a61c07d 2004-04-19 devnull defn next()
519 0a61c07d 2004-04-19 devnull local sp, bound;
521 0a61c07d 2004-04-19 devnull sp = *SP;
522 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
523 0a61c07d 2004-04-19 devnull stmnt();
524 0a61c07d 2004-04-19 devnull pc = *PC;
525 0a61c07d 2004-04-19 devnull if pc >= bound[0] && pc < bound[1] then
526 0a61c07d 2004-04-19 devnull return {};
528 0a61c07d 2004-04-19 devnull while (pc < bound[0] || pc > bound[1]) && sp >= *SP do {
530 0a61c07d 2004-04-19 devnull pc = *PC;
532 0a61c07d 2004-04-19 devnull src(*PC);
535 0a61c07d 2004-04-19 devnull defn maps()
537 0a61c07d 2004-04-19 devnull local m, mm;
539 0a61c07d 2004-04-19 devnull m = map();
540 0a61c07d 2004-04-19 devnull while m != {} do {
541 0a61c07d 2004-04-19 devnull mm = head m;
542 0a61c07d 2004-04-19 devnull m = tail m;
543 0a61c07d 2004-04-19 devnull print(mm[2]\X, " ", mm[3]\X, " ", mm[4]\X, " ", mm[0], " ", mm[1], "\n");
547 0a61c07d 2004-04-19 devnull defn dump(addr, n, fmt)
549 0a61c07d 2004-04-19 devnull loop 0, n do {
550 0a61c07d 2004-04-19 devnull print(fmt(addr, 'X'), ": ");
551 0a61c07d 2004-04-19 devnull addr = mem(addr, fmt);
555 0a61c07d 2004-04-19 devnull defn mem(addr, fmt)
558 0a61c07d 2004-04-19 devnull local i, c, n;
561 0a61c07d 2004-04-19 devnull while fmt[i] != 0 do {
562 0a61c07d 2004-04-19 devnull c = fmt[i];
564 0a61c07d 2004-04-19 devnull while '0' <= fmt[i] && fmt[i] <= '9' do {
565 0a61c07d 2004-04-19 devnull n = 10*n + fmt[i]-'0';
566 0a61c07d 2004-04-19 devnull i = i+1;
568 0a61c07d 2004-04-19 devnull if n <= 0 then n = 1;
569 0a61c07d 2004-04-19 devnull addr = fmt(addr, fmt[i]);
570 0a61c07d 2004-04-19 devnull while n > 0 do {
571 0a61c07d 2004-04-19 devnull print(*addr++, " ");
572 0a61c07d 2004-04-19 devnull n = n-1;
574 0a61c07d 2004-04-19 devnull i = i+1;
576 0a61c07d 2004-04-19 devnull print("\n");
577 0a61c07d 2004-04-19 devnull return addr;
580 0a61c07d 2004-04-19 devnull defn symbols(pattern)
582 0a61c07d 2004-04-19 devnull local l, s;
584 0a61c07d 2004-04-19 devnull l = symbols;
585 0a61c07d 2004-04-19 devnull while l do {
586 0a61c07d 2004-04-19 devnull s = head l;
587 0a61c07d 2004-04-19 devnull if regexp(pattern, s[0]) then
588 0a61c07d 2004-04-19 devnull print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n");
589 0a61c07d 2004-04-19 devnull l = tail l;
593 0a61c07d 2004-04-19 devnull defn havesymbol(name)
595 0a61c07d 2004-04-19 devnull local l, s;
597 0a61c07d 2004-04-19 devnull l = symbols;
598 0a61c07d 2004-04-19 devnull while l do {
599 0a61c07d 2004-04-19 devnull s = head l;
600 0a61c07d 2004-04-19 devnull l = tail l;
601 0a61c07d 2004-04-19 devnull if s[0] == name then
602 0a61c07d 2004-04-19 devnull return 1;
604 0a61c07d 2004-04-19 devnull return 0;
607 0a61c07d 2004-04-19 devnull defn spsrch(len)
609 0a61c07d 2004-04-19 devnull local addr, a, s, e;
611 0a61c07d 2004-04-19 devnull addr = *SP;
612 0a61c07d 2004-04-19 devnull s = origin & 0x7fffffff;
613 0a61c07d 2004-04-19 devnull e = etext & 0x7fffffff;
614 0a61c07d 2004-04-19 devnull loop 1, len do {
615 0a61c07d 2004-04-19 devnull a = *addr++;
616 0a61c07d 2004-04-19 devnull c = a & 0x7fffffff;
617 0a61c07d 2004-04-19 devnull if c > s && c < e then {
618 0a61c07d 2004-04-19 devnull print("src(", a, ")\n");
624 7284df18 2004-04-19 devnull defn acidtypes()
626 7284df18 2004-04-19 devnull local syms;
627 7284df18 2004-04-19 devnull local l;
629 7284df18 2004-04-19 devnull l = textfile();
630 7284df18 2004-04-19 devnull if l != {} then {
631 7284df18 2004-04-19 devnull syms = "acidtypes";
632 7284df18 2004-04-19 devnull while l != {} do {
633 7284df18 2004-04-19 devnull syms = syms + " " + ((head l)[0]);
634 7284df18 2004-04-19 devnull l = tail l;
636 7284df18 2004-04-19 devnull includepipe(syms);
640 95f5b525 2005-01-23 devnull defn getregs()
642 95f5b525 2005-01-23 devnull local regs, l;
644 95f5b525 2005-01-23 devnull regs = {};
645 95f5b525 2005-01-23 devnull l = registers;
646 95f5b525 2005-01-23 devnull while l != {} do {
647 95f5b525 2005-01-23 devnull regs = append regs, var(l[0]);
648 95f5b525 2005-01-23 devnull l = tail l;
650 95f5b525 2005-01-23 devnull return regs;
653 95f5b525 2005-01-23 devnull defn setregs(regs)
655 95f5b525 2005-01-23 devnull local l;
657 95f5b525 2005-01-23 devnull l = registers;
658 95f5b525 2005-01-23 devnull while l != {} do {
659 95f5b525 2005-01-23 devnull var(l[0]) = regs[0];
660 95f5b525 2005-01-23 devnull l = tail l;
661 95f5b525 2005-01-23 devnull regs = tail regs;
663 95f5b525 2005-01-23 devnull return regs;
666 95f5b525 2005-01-23 devnull defn resetregs()
668 95f5b525 2005-01-23 devnull local l;
670 95f5b525 2005-01-23 devnull l = registers;
671 95f5b525 2005-01-23 devnull while l != {} do {
672 95f5b525 2005-01-23 devnull var(l[0]) = register(l[0]);
673 95f5b525 2005-01-23 devnull l = tail l;
677 95f5b525 2005-01-23 devnull defn clearregs()
679 95f5b525 2005-01-23 devnull local l;
681 95f5b525 2005-01-23 devnull l = registers;
682 95f5b525 2005-01-23 devnull while l != {} do {
683 95f5b525 2005-01-23 devnull var(l[0]) = refconst(~0);
684 95f5b525 2005-01-23 devnull l = tail l;
688 0a61c07d 2004-04-19 devnull progargs="";
689 0a61c07d 2004-04-19 devnull print(acidfile);