![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kas3.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / kasb|
Return to kas3.c CVS log | Up to [Research Unix] / researchv10no / cmd / kasb |
1.1 root 1: /* @(#)kas3.c 1.2 */
2: #undef vax
3: #define pdp11 1
4: #include <stdio.h>
5: #include "a.out.h"
6: #include <sys/kmc.h>
7: #include "kas.h"
8:
9: debug(in, x)
10: union {
11: int val;
12: char * ptr;
13: } x;
14: {
15: register i, j, cnt;
16: int flag, fd;
17: char s[8];
18: #ifdef vax
19: struct filehdr fhdr;
20: struct aouthdr hdr;
21: extern struct scnhdr scn;
22: #define a_magic magic
23: #define a_text tsize
24: #define a_data dsize
25: #endif
26: #ifdef pdp11
27: extern struct exec hdr;
28: #endif
29:
30: if (dbmode==0) {
31: yyerror("not in debug mode");
32: return;
33: }
34: switch(in) {
35: case DLOAD:
36: if (x.ptr == 0)
37: x.ptr = "a.out";
38: if ((fd = open(x.ptr, 0))<0) {
39: printf("can not open %s\n", x.ptr);
40: return;
41: }
42: for (i=0; i<NKMCI; i++) ispace[i] = 0;
43: for (i=0; i<NKMCD; i++) dspace[i] = 0;
44: #ifdef vax
45: read(fd, &fhdr, sizeof fhdr);
46: #endif
47: read(fd, &hdr, sizeof hdr);
48: if (hdr.a_magic==0440) {
49: hdr.a_magic = 0410;
50: #ifdef vax
51: lseek(fd, sizeof(struct ir), 1);
52: #endif
53: #ifdef pdp11
54: lseek(fd, 64L, 0);
55: #endif
56: }
57: if (hdr.a_magic!=0410) {
58: printf("bad format %s\n",x.ptr);
59: close(fd);
60: return;
61: }
62: #ifdef vax
63: lseek(fd, 2 * sizeof(struct scnhdr), 1);
64: #endif
65: read(fd, ispace, hdr.a_text);
66: read(fd, dspace, hdr.a_data);
67: lseek(dbfd, 0L, 0);
68: write(dbfd, ispace, sizeof ispace);
69: write(dbfd, dspace, sizeof dspace);
70: close(fd);
71: break;
72: case DDUMP:
73: if (x.ptr == 0)
74: x.ptr = "core";
75: if (getregs())
76: return;
77: if ((fd = creat(x.ptr, 0664))<0) {
78: printf("can not create %s\n", x.ptr);
79: return;
80: }
81: lseek(dbfd, 0L, 0);
82: #ifdef vax
83: fhdr.f_magic = VAXROMAGIC;
84: fhdr.f_nscns = 2;
85: fhdr.f_timdat = time(NULL);
86: fhdr.f_symptr = 0;
87: fhdr.f_nsyms = 0;
88: fhdr.f_opthdr = sizeof(struct aouthdr);
89: fhdr.f_flags = F_AR32WR|F_LNNO|F_RELFLG;
90: write(fd, &fhdr, sizeof fhdr);
91: #endif
92: hdr.a_magic = 0440;
93: hdr.a_text = read(dbfd, ispace, sizeof ispace);
94: hdr.a_data = read(dbfd, dspace, sizeof dspace);
95: #ifdef pdp11
96: hdr.a_syms = 0;
97: #endif
98: write(fd, &hdr, sizeof hdr);
99: #ifdef vax
100: strncpy(scn.s_name,_TEXT,sizeof(scn.s_name));
101: scn.s_size = hdr.tsize;
102: scn.s_scnptr = sizeof(struct filehdr) + sizeof(struct aouthdr)
103: + 2 * sizeof(struct scnhdr) + sizeof(struct ir);
104: write(fd, &scn, sizeof scn);
105: strncpy(scn.s_name,_DATA,sizeof(scn.s_name));
106: scn.s_size = hdr.dsize;
107: scn.s_scnptr += hdr.tsize;
108: write(fd, &scn, sizeof scn);
109: #endif
110: write(fd, &ir, sizeof ir);
111: write(fd, ispace, hdr.a_text);
112: write(fd, dspace, hdr.a_data);
113: close(fd);
114: break;
115: case DSTEP:
116: cnt = x.val?x.val:1;
117: s[1] = 0;
118: for (i=1; i<=cnt; i++) {
119: if (ksty(KSTEP, ir.csr, 0))
120: return;
121: flag = 0;
122: for (j=0; j<8; j++)
123: if (s[j]!=ir.csr[j]) {
124: flag++;
125: s[j] = ir.csr[j];
126: }
127: if (flag || i==cnt)
128: printf("%4d%4o%4o%4o%4o%4o%4o%4o%4o\n",i,
129: s[0]&0377,s[1]&0377,s[2]&0377,s[3]&0377,
130: s[4]&0377,s[5]&0377,s[6]&0377,s[7]&0377);
131: }
132: break;
133: case DRUN:
134: case DSTOP:
135: case DRESET:
136: case DWCSR:
137: case DCLEAR:
138: ksty(in, 0, x.val);
139: break;
140: case DREGS:
141: i = getregs();
142: printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
143: "csr",ir.csr[0]&0377,ir.csr[1]&0377,ir.csr[2]&0377,ir.csr[3]&0377,
144: ir.csr[4]&0377,ir.csr[5]&0377,ir.csr[6]&0377,ir.csr[7]&0377);
145: if (i)
146: break;
147: printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
148: "lur",ir.lur[0]&0377,ir.lur[1]&0377,ir.lur[2]&0377,ir.lur[3]&0377,
149: ir.lur[4]&0377,ir.lur[5]&0377,ir.lur[6]&0377,ir.lur[7]&0377);
150: printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
151: "reg",ir.reg[0]&0377,ir.reg[1]&0377,ir.reg[2]&0377,ir.reg[3]&0377,
152: ir.reg[4]&0377,ir.reg[5]&0377,ir.reg[6]&0377,ir.reg[7]&0377);
153: printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
154: "reg",ir.reg[8+0]&0377,ir.reg[8+1]&0377,ir.reg[8+2]&0377,ir.reg[8+3]&0377,
155: ir.reg[8+4]&0377,ir.reg[8+5]&0377,ir.reg[8+6]&0377,ir.reg[8+7]&0377);
156: printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
157: "io",ir.io[0]&0377,ir.io[1]&0377,ir.io[2]&0377,ir.io[3]&0377,
158: ir.io[4]&0377,ir.io[5]&0377,ir.io[6]&0377,ir.io[7]&0377);
159: printf("%4s:%4o%4o%7s:%4o%7s:%4o\n",
160: "npr",ir.npr[0]&0377, ir.npr[1]&0377,"brg",ir.brg&0377,"mem",ir.mem&0377);
161: break;
162: }
163: }
164:
165: mstep(ins)
166: {
167: char csr[8];
168:
169: ksty(KMS, csr, ins);
170: return(csr[2]);
171: }
172:
173: getregs()
174: {
175: register i;
176:
177: if (ksty(KCSR, ir.csr, 0))
178: return(1);
179: if (ir.csr[1]&0200)
180: return(1);
181: ir.brg = mstep(061222);
182: ir.mem = mstep(041222);
183: for (i=0; i<8; i++) {
184: ir.lur[i] = mstep(021202|(i<<4));
185: ir.io[i] = mstep(021002|(i<<4));
186: }
187: for (i=0; i<16; i++) {
188: mstep(060600|i);
189: ir.reg[i] = mstep(061222);
190: }
191: ir.npr[0] = mstep(0121202);
192: ir.npr[1] = mstep(0121222);
193: return(0);
194: }
195:
196: ksty(tab)
197: {
198: if (ioctl(dbfd, KCSETA, &tab) < 0) {
199: printf("%s not stopped\n",dbfile);
200: return(1);
201: }
202: return(0);
203: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.