![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to machpats.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / sys / vax / inline|
Return to machpats.c CVS log | Up to [CSRG BSD Unix] / 43BSD / sys / vax / inline |
1.1 root 1: /*
2: * Copyright (c) 1984, 1986 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: */
6:
7: #ifndef lint
8: static char sccsid[] = "@(#)machpats.c 7.1 (Berkeley) 6/5/86";
9: #endif not lint
10:
11: #include "inline.h"
12:
13: /*
14: * Pattern table for special VAX instructions.
15: */
16: struct pats machine_ptab[] = {
17:
18: #ifdef vax
19: { 3, "_blkcpy\n",
20: " movl (sp)+,r1\n\
21: movl (sp)+,r3\n\
22: jbr 2f\n\
23: 1:\n\
24: subl2 r0,(sp)\n\
25: movc3 r0,(r1),(r3)\n\
26: 2:\n\
27: movzwl $65535,r0\n\
28: cmpl (sp),r0\n\
29: jgtr 1b\n\
30: movl (sp)+,r0\n\
31: movc3 r0,(r1),(r3)\n" },
32:
33: { 3, "_bcopy\n",
34: " movl (sp)+,r1\n\
35: movl (sp)+,r3\n\
36: movl (sp)+,r5\n\
37: movc3 r5,(r1),(r3)\n" },
38:
39: { 3, "_ovbcopy\n",
40: " movl (sp)+,r3\n\
41: movl (sp)+,r4\n\
42: movl (sp)+,r5\n\
43: movc3 r5,(r3),(r4)\n" },
44:
45: { 2, "_blkclr\n",
46: " movl (sp)+,r3\n\
47: jbr 2f\n\
48: 1:\n\
49: subl2 r0,(sp)\n\
50: movc5 $0,(r3),$0,r0,(r3)\n\
51: 2:\n\
52: movzwl $65535,r0\n\
53: cmpl (sp),r0\n\
54: jgtr 1b\n\
55: movl (sp)+,r0\n\
56: movc5 $0,(r3),$0,r0,(r3)\n" },
57:
58: { 2, "_bzero\n",
59: " movl (sp)+,r3\n\
60: movl (sp)+,r5\n\
61: movc5 $0,(r3),$0,r5,(r3)\n" },
62:
63: { 2, "_insque\n",
64: " movl (sp)+,r4\n\
65: movl (sp)+,r5\n\
66: insque (r4),(r5)\n" },
67:
68: { 1, "_remque\n",
69: " movl (sp)+,r5\n\
70: remque (r5),r0\n" },
71: #endif vax
72:
73: #ifdef mc68000
74: /* someday... */
75: #endif mc68000
76:
77: { 0, "", "" }
78: };
79:
80: #ifdef vax
81:
82: struct pats vax_ptab[] = {
83:
84: { 3, "_blkcmp\n",
85: " movl (sp)+,r1\n\
86: movl (sp)+,r3\n\
87: jbr 2f\n\
88: 1:\n\
89: subl2 r0,(sp)\n\
90: cmpc3 r0,(r1),(r3)\n\
91: bneq 3f\n\
92: 2:\n\
93: movzwl $65535,r0\n\
94: cmpl (sp),r0\n\
95: jgtr 1b\n\
96: movl (sp)+,r0\n\
97: cmpc3 r0,(r1),(r3)\n\
98: 3:\n" },
99:
100: { 3, "_bcmp\n",
101: " movl (sp)+,r1\n\
102: movl (sp)+,r3\n\
103: movl (sp)+,r5\n\
104: cmpc3 r5,(r1),(r3)\n" },
105:
106: { 3, "_llocc\n",
107: " movl (sp)+,r4\n\
108: movl (sp)+,r5\n\
109: movl (sp)+,r1\n\
110: 1:\n\
111: movzwl $65535,r0\n\
112: cmpl r5,r0\n\
113: jleq 1f\n\
114: subl2 r0,r5\n\
115: locc r4,r0,(r1)\n\
116: jeql 1b\n\
117: addl2 r5,r0\n\
118: jbr 2f\n\
119: 1:\n\
120: locc r4,r5,(r1)\n\
121: 2:\n" },
122:
123: { 3, "_locc\n",
124: " movl (sp)+,r3\n\
125: movl (sp)+,r4\n\
126: movl (sp)+,r5\n\
127: locc r3,r4,(r5)\n" },
128:
129: { 4, "_scanc\n",
130: " movl (sp)+,r2\n\
131: movl (sp)+,r3\n\
132: movl (sp)+,r4\n\
133: movl (sp)+,r5\n\
134: scanc r2,(r3),(r4),r5\n" },
135:
136: { 3, "_skpc\n",
137: " movl (sp)+,r3\n\
138: movl (sp)+,r4\n\
139: movl (sp)+,r5\n\
140: skpc r3,r4,(r5)\n" },
141:
142: { 0, "", "" }
143: };
144:
145: struct pats vaxsubset_ptab[] = {
146:
147: { 3, "_blkcmp\n",
148: " movl (sp)+,r1\n\
149: movl (sp)+,r3\n\
150: movl (sp)+,r0\n\
151: 2:\n\
152: cmpb (r1)+,(r3)+\n\
153: jneq 3f\n\
154: sobgtr r0,2b\n\
155: 3:\n" },
156:
157: { 3, "_bcmp\n",
158: " movl (sp)+,r1\n\
159: movl (sp)+,r3\n\
160: movl (sp)+,r5\n\
161: movl r5,r0\n\
162: 2:\n\
163: cmpb (r1)+,(r3)+\n\
164: jneq 1f\n\
165: sobgtr r0,2b\n\
166: 1:\n" },
167:
168: { 3, "_llocc\n",
169: " movl (sp)+,r4\n\
170: movl (sp)+,r5\n\
171: movl (sp)+,r1\n\
172: movl r5,r0\n\
173: 2:\n\
174: cmpb r4,(r1)+\n\
175: jeql 1f\n\
176: sobgtr r0,2b\n\
177: 1:\n" },
178:
179: { 3, "_locc\n",
180: " movl (sp)+,r3\n\
181: movl (sp)+,r4\n\
182: movl (sp)+,r5\n\
183: movl r4,r0\n\
184: 2:\n\
185: cmpb r3,(r5)+\n\
186: jeql 1f\n\
187: sobgtr r0,2b\n\
188: 1:\n" },
189:
190: { 3, "_skpc\n",
191: " movl (sp)+,r3\n\
192: movl (sp)+,r4\n\
193: movl (sp)+,r5\n\
194: movl r4,r0\n\
195: 2:\n\
196: cmpb r3,(r5)+\n\
197: jneq 1f\n\
198: sobgtr r0,2b\n\
199: 1:\n" },
200:
201: { 0, "", "" }
202: };
203: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.