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[] = "@(#)langpats.c	7.1 (Berkeley) 6/5/86";
   9: #endif not lint
  10: 
  11: #include "inline.h"
  12: 
  13: /*
  14:  * Pattern table for kernel specific routines.
  15:  * These patterns are based on the old asm.sed script.
  16:  */
  17: struct pats language_ptab[] = {
  18: 
  19: #ifdef vax
  20:     { 0, "_spl0\n",
  21: "	mfpr	$18,r0\n\
  22: 	mtpr	$0,$18\n" },
  23: 
  24:     { 0, "_spl1\n",
  25: "	mfpr	$18,r0\n\
  26: 	mtpr	$1,$18\n" },
  27: 
  28:     { 0, "_splsoftclock\n",
  29: "	mfpr	$18,r0\n\
  30: 	mtpr	$0x8,$18\n" },
  31: 
  32:     { 0, "_splnet\n",
  33: "	mfpr	$18,r0\n\
  34: 	mtpr	$0xc,$18\n" },
  35: 
  36:     { 0, "_splimp\n",
  37: "	mfpr	$18,r0\n\
  38: 	mtpr	$0x16,$18\n" },
  39: 
  40:     { 0, "_spl4\n",
  41: "	mfpr	$18,r0\n\
  42: 	mtpr	$0x14,$18\n" },
  43: 
  44:     { 0, "_splbio\n",
  45: "	mfpr	$18,r0\n\
  46: 	mtpr	$0x15,$18\n" },
  47: 
  48:     { 0, "_spltty\n",
  49: "	mfpr	$18,r0\n\
  50: 	mtpr	$0x15,$18\n" },
  51: 
  52:     { 0, "_spl5\n",
  53: "	mfpr	$18,r0\n\
  54: 	mtpr	$0x15,$18\n" },
  55: 
  56:     { 0, "_spl6\n",
  57: "	mfpr	$18,r0\n\
  58: 	mtpr	$0x16,$18\n" },
  59: 
  60:     { 0, "_spl7\n",
  61: "	mfpr	$18,r0\n\
  62: 	mtpr	$0x17,$18\n" },
  63: 
  64:     { 0, "_splclock\n",
  65: "	mfpr	$18,r0\n\
  66: 	mtpr	$0x18,$18\n" },
  67: 
  68:     { 0, "_splhigh\n",
  69: "	mfpr	$18,r0\n\
  70: 	mtpr	$0x1f,$18\n" },
  71: 
  72:     { 1, "_splx\n",
  73: "	movl	(sp)+,r0\n\
  74: 	mtpr	r0,$18\n" },
  75: 
  76:     { 1, "_mfpr\n",
  77: "	movl	(sp)+,r5\n\
  78: 	mfpr	r5,r0\n" },
  79: 
  80:     { 2, "_mtpr\n",
  81: "	movl	(sp)+,r4\n\
  82: 	movl	(sp)+,r5\n\
  83: 	mtpr	r5,r4\n" },
  84: 
  85:     { 0, "_setsoftclock\n",
  86: "	mtpr	$0x8,$0x14\n" },
  87: 
  88:     { 1, "_resume\n",
  89: "	movl	(sp)+,r5\n\
  90: 	ashl	$9,r5,r0\n\
  91: 	movpsl	-(sp)\n\
  92: 	jsb	_Resume\n" },
  93: 
  94:     { 3, "_copyin\n",
  95: "	movl	(sp)+,r1\n\
  96: 	movl	(sp)+,r3\n\
  97: 	movl	(sp)+,r5\n\
  98: 	jsb	_Copyin\n" },
  99: 
 100:     { 3, "_copyout\n",
 101: "	movl	(sp)+,r1\n\
 102: 	movl	(sp)+,r3\n\
 103: 	movl	(sp)+,r5\n\
 104: 	jsb	_Copyout\n" },
 105: 
 106:     { 1, "_fubyte\n",
 107: "	movl	(sp)+,r0\n\
 108: 	jsb	_Fubyte\n" },
 109: 
 110:     { 1, "_fuibyte\n",
 111: "	movl	(sp)+,r0\n\
 112: 	jsb	_Fubyte\n" },
 113: 
 114:     { 1, "_fuword\n",
 115: "	movl	(sp)+,r0\n\
 116: 	jsb	_Fuword\n" },
 117: 
 118:     { 1, "_fuiword\n",
 119: "	movl	(sp)+,r0\n\
 120: 	jsb	_Fuword\n" },
 121: 
 122:     { 2, "_subyte\n",
 123: "	movl	(sp)+,r0\n\
 124: 	movl	(sp)+,r1\n\
 125: 	jsb	_Subyte\n" },
 126: 
 127:     { 2, "_suibyte\n",
 128: "	movl	(sp)+,r0\n\
 129: 	movl	(sp)+,r1\n\
 130: 	jsb	_Subyte\n" },
 131: 
 132:     { 2, "_suword\n",
 133: "	movl	(sp)+,r0\n\
 134: 	movl	(sp)+,r1\n\
 135: 	jsb	_Suword\n" },
 136: 
 137:     { 2, "_suiword\n",
 138: "	movl	(sp)+,r0\n\
 139: 	movl	(sp)+,r1\n\
 140: 	jsb	_Suword\n" },
 141: 
 142:     { 1, "_setrq\n",
 143: "	movl	(sp)+,r0\n\
 144: 	jsb	_Setrq\n" },
 145: 
 146:     { 1, "_remrq\n",
 147: "	movl	(sp)+,r0\n\
 148: 	jsb	_Remrq\n" },
 149: 
 150:     { 0, "_swtch\n",
 151: "	movpsl	-(sp)\n\
 152: 	jsb	_Swtch\n" },
 153: 
 154:     { 1, "_setjmp\n",
 155: "	movl	(sp)+,r1\n\
 156: 	clrl	r0\n\
 157: 	movl	fp,(r1)+\n\
 158: 	moval	1(pc),(r1)\n" },
 159: 
 160:     { 1, "_longjmp\n",
 161: "	movl	(sp)+,r0\n\
 162: 	jsb	_Longjmp\n" },
 163: 
 164:     { 1, "_ffs\n",
 165: "	movl	(sp)+,r1\n\
 166: 	ffs	$0,$32,r1,r0\n\
 167: 	bneq	1f\n\
 168: 	mnegl	$1,r0\n\
 169: 1:\n\
 170: 	incl	r0\n" },
 171: 
 172:     { 1, "_htons\n",
 173: "	movl	(sp)+,r5\n\
 174: 	rotl	$8,r5,r0\n\
 175: 	rotl	$-8,r5,r1\n\
 176: 	movb	r1,r0\n\
 177: 	movzwl	r0,r0\n" },
 178: 
 179:     { 1, "_ntohs\n",
 180: "	movl	(sp)+,r5\n\
 181: 	rotl	$8,r5,r0\n\
 182: 	rotl	$-8,r5,r1\n\
 183: 	movb	r1,r0\n\
 184: 	movzwl	r0,r0\n" },
 185: 
 186:     { 1, "_htonl\n",
 187: "	movl	(sp)+,r5\n\
 188: 	rotl	$-8,r5,r0\n\
 189: 	insv	r0,$16,$8,r0\n\
 190: 	rotl	$8,r5,r1\n\
 191: 	movb	r1,r0\n" },
 192: 
 193:     { 1, "_ntohl\n",
 194: "	movl	(sp)+,r5\n\
 195: 	rotl	$-8,r5,r0\n\
 196: 	insv	r0,$16,$8,r0\n\
 197: 	rotl	$8,r5,r1\n\
 198: 	movb	r1,r0\n" },
 199: 
 200:     { 2, "__insque\n",
 201: "	movl	(sp)+,r4\n\
 202: 	movl	(sp)+,r5\n\
 203: 	insque	(r4),(r5)\n" },
 204: 
 205:     { 1, "__remque\n",
 206: "	movl	(sp)+,r5\n\
 207: 	remque	(r5),r0\n" },
 208: 
 209:     { 2, "__queue\n",
 210: "	movl	(sp)+,r0\n\
 211: 	movl	(sp)+,r1\n\
 212: 	insque	(r1),*4(r0)\n" },
 213: 
 214:     { 1, "__dequeue\n",
 215: "	movl	(sp)+,r0\n\
 216: 	remque	*(r0),r0\n" },
 217: 
 218:     { 2, "_imin\n",
 219: "	movl	(sp)+,r0\n\
 220: 	movl	(sp)+,r5\n\
 221: 	cmpl	r0,r5\n\
 222: 	bleq	1f\n\
 223: 	movl	r5,r0\n\
 224: 1:\n" },
 225: 
 226:     { 2, "_imax\n",
 227: "	movl	(sp)+,r0\n\
 228: 	movl	(sp)+,r5\n\
 229: 	cmpl	r0,r5\n\
 230: 	bgeq	1f\n\
 231: 	movl	r5,r0\n\
 232: 1:\n" },
 233: 
 234:     { 2, "_min\n",
 235: "	movl	(sp)+,r0\n\
 236: 	movl	(sp)+,r5\n\
 237: 	cmpl	r0,r5\n\
 238: 	blequ	1f\n\
 239: 	movl	r5,r0\n\
 240: 1:\n" },
 241: 
 242:     { 2, "_max\n",
 243: "	movl	(sp)+,r0\n\
 244: 	movl	(sp)+,r5\n\
 245: 	cmpl	r0,r5\n\
 246: 	bgequ	1f\n\
 247: 	movl	r5,r0\n\
 248: 1:\n" },
 249: #endif vax
 250: 
 251: #ifdef mc68000
 252: /* someday... */
 253: #endif mc68000
 254: 
 255:     { 0, "", "" }
 256: };

Defined variables

language_ptab defined in line 17; used 2 times
sccsid defined in line 8; never used
Last modified: 1986-06-05
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 920
Valid CSS Valid XHTML 1.0 Strict