Return to pal.s CVS log

Up to [local] / sys / arch / alpha / alpha

Annotation of sys/arch/alpha/alpha/pal.s, Revision 1.1.1.1

1.1       nbrk        1: /* $OpenBSD: pal.s,v 1.6 2000/11/08 19:16:59 ericj Exp $ */
                      2: /* $NetBSD: pal.s,v 1.14 1999/12/02 22:08:04 thorpej Exp $ */
                      3:
                      4: /*
                      5:  * Copyright (c) 1994, 1995 Carnegie-Mellon University.
                      6:  * All rights reserved.
                      7:  *
                      8:  * Author: Chris G. Demetriou
                      9:  *
                     10:  * Permission to use, copy, modify and distribute this software and
                     11:  * its documentation is hereby granted, provided that both the copyright
                     12:  * notice and this permission notice appear in all copies of the
                     13:  * software, derivative works or modified versions, and any portions
                     14:  * thereof, and that both notices appear in supporting documentation.
                     15:  *
                     16:  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
                     17:  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
                     18:  * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
                     19:  *
                     20:  * Carnegie Mellon requests users of this software to return to
                     21:  *
                     22:  *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
                     23:  *  School of Computer Science
                     24:  *  Carnegie Mellon University
                     25:  *  Pittsburgh PA 15213-3890
                     26:  *
                     27:  * any improvements or extensions that they make and grant Carnegie the
                     28:  * rights to redistribute these changes.
                     29:  */
                     30:
                     31: /*
                     32:  * The various OSF PALcode routines.
                     33:  *
                     34:  * The following code is originally derived from pages: (I) 6-5 - (I) 6-7
                     35:  * and (III) 2-1 - (III) 2-25 of "Alpha Architecture Reference Manual" by
                     36:  * Richard L. Sites.
                     37:  *
                     38:  * Updates taken from pages: (II-B) 2-1 - (II-B) 2-33 of "Alpha AXP
                     39:  * Architecture Reference Manual, Second Edition" by Richard L. Sites
                     40:  * and Richard T. Witek.
                     41:  */
                     42:
                     43: inc2:  .stabs  __FILE__,132,0,0,inc2; .loc     1 __LINE__
                     44: /*
                     45:  * alpha_amask: read architecture features (XXX INSTRUCTION, NOT PALcode OP)
                     46:  *
                     47:  * Arguments:
                     48:  *     a0      bitmask of features to test
                     49:  *
                     50:  * Returns:
                     51:  *     v0      bitmask - bit is _cleared_ if feature is supported
                     52:  */
                     53:        .text
                     54: LEAF(alpha_amask,1)
                     55:        amask   a0, v0
                     56:        RET
                     57:        END(alpha_amask)
                     58:
                     59: /*
                     60:  * alpha_implver: read implementation version (XXX INSTRUCTION, NOT PALcode OP)
                     61:  *
                     62:  * Returns:
                     63:  *     v0      implementation version - see <machine/alpha_cpu.h>
                     64:  */
                     65:        .text
                     66: LEAF(alpha_implver,0)
                     67: #if 0
                     68:        implver 0x1, v0
                     69: #else
                     70:        .long   0x47e03d80      /* XXX gas(1) does the Wrong Thing */
                     71: #endif
                     72:        RET
                     73:        END(alpha_implver)
                     74:
                     75: /*
                     76:  * alpha_pal_cflush: Cache flush [PRIVILEGED]
                     77:  *
                     78:  * Flush the entire physical page specified by the PFN specified in
                     79:  * a0 from any data caches associated with the current processor.
                     80:  *
                     81:  * Arguments:
                     82:  *     a0      page frame number of page to flush
                     83:  */
                     84:        .text
                     85: LEAF(alpha_pal_cflush,1)
                     86:        call_pal PAL_cflush
                     87:        RET
                     88:        END(alpha_pal_cflush)
                     89:
                     90: /*
                     91:  * alpha_pal_halt: Halt the processor. [PRIVILEGED]
                     92:  */
                     93:        .text
                     94: LEAF(alpha_pal_halt,0)
                     95:        call_pal PAL_halt
                     96:        br      zero,alpha_pal_halt     /* Just in case */
                     97:        RET
                     98:        END(alpha_pal_halt)
                     99:
                    100: /*
                    101:  * alpha_pal_rdps: Read processor status. [PRIVILEGED]
                    102:  *
                    103:  * Return:
                    104:  *     v0      current PS value
                    105:  */
                    106:        .text
                    107: LEAF(alpha_pal_rdps,0)
                    108:        call_pal PAL_OSF1_rdps
                    109:        RET
                    110:        END(alpha_pal_rdps)
                    111:
                    112: /*
                    113:  * alpha_pal_swpipl: Swap Interrupt priority level. [PRIVILEGED]
                    114:  * _alpha_pal_swpipl: Same, from profiling code. [PRIVILEGED]
                    115:  *
                    116:  * Arguments:
                    117:  *     a0      new IPL
                    118:  *
                    119:  * Return:
                    120:  *     v0      old IPL
                    121:  */
                    122:        .text
                    123: LEAF(alpha_pal_swpipl,1)
                    124:        call_pal PAL_OSF1_swpipl
                    125:        RET
                    126:        END(alpha_pal_swpipl)
                    127:
                    128: LEAF_NOPROFILE(_alpha_pal_swpipl,1)
                    129:        call_pal PAL_OSF1_swpipl
                    130:        RET
                    131:        END(_alpha_pal_swpipl)
                    132:
                    133: /*
                    134:  * alpha_pal_wrent: Write system entry address. [PRIVILEGED]
                    135:  *
                    136:  * Arguments:
                    137:  *     a0      new vector
                    138:  *     a1      vector selector
                    139:  */
                    140:        .text
                    141: LEAF(alpha_pal_wrent,2)
                    142:        call_pal PAL_OSF1_wrent
                    143:        RET
                    144:        END(alpha_pal_wrent)
                    145:
                    146: /*
                    147:  * alpha_pal_wrvptptr: Write virtual page table pointer. [PRIVILEGED]
                    148:  *
                    149:  * Arguments:
                    150:  *     a0      new virtual page table pointer
                    151:  */
                    152:        .text
                    153: LEAF(alpha_pal_wrvptptr,1)
                    154:        call_pal PAL_OSF1_wrvptptr
                    155:        RET
                    156:        END(alpha_pal_wrvptptr)