Return to machdep.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / stand

Annotation of cci/sys/stand/machdep.s, revision 1.1.1.1

1.1       root        1: /*     machdep.s       4.2     23-Aug-85 */
                      2: 
                      3:        .set    _scb, 0x0       # mask for total disable
                      4:        .set    HIGH, 0x1f      # mask for total disable
                      5:        .set    BERVEC, 0x80    # offset into scb of the bus error vector 
                      6:        .set    RESTVEC, 0x8    # offset into scb of the restart vector 
                      7: 
                      8:        .set    IPL, 0x8        # Interupt Priority Level register
                      9:        .set    SCBB, 0x12      # SCB Block pointer register
                     10:        
                     11: /* MER bits */
                     12: 
                     13:        .set    ERRCD, 0x07     # Error code (mask)
                     14:        .set    APE, 1          # Address parity error
                     15:        .set    DPE, 2          # Data parity error
                     16:        .set    DCE, 3          # Data check error
                     17:        .set    VTO, 4          # Versabus timeout
                     18:        .set    VBE, 5          # Versabus error
                     19:        .set    NEM, 6          # Non-existent memory
                     20: 
                     21: 
                     22:        .globl  _mtpr
                     23: _mtpr:
                     24:        .word   0x00            # don't keep anything
                     25:        mtpr    4(fp),8(fp)
                     26:        ret
                     27:        
                     28: 
                     29:        .globl  _mfpr
                     30: _mfpr:
                     31:        .word   0x00            # don't keep anything
                     32:        mfpr    4(fp),r0
                     33:        ret
                     34: 
                     35: /*  Copy bytes within kernel */
                     36:        
                     37:        .globl  _bcopy
                     38: _bcopy:
                     39:        .word   0x07            # Keep r2,r1,r0
                     40:        movl    4(fp),r0
                     41:        movl    8(fp),r1
                     42:        movl    12(fp),r2
                     43:        movblk
                     44:        ret
                     45: 
                     46: 
                     47: /* badaddr(addr, len) */
                     48: /*     see if access addr with a len type instruction causes a machine check */
                     49: /*     len is length of access (1=byte, 2=short, 4=long) */
                     50: /*     r0 = 0 means good(exists); r0 =1 means does not exist. */
                     51: 
                     52:        .globl  _badaddr
                     53: _badaddr:
                     54:        .word   0x1e    # Keep r5,r4,r3,r2,r1
                     55:        mfpr    $IPL,r1
                     56:        mtpr    $HIGH,$IPL
                     57:        mfpr    $SCBB,r5
                     58:        mtpr    $0,$SCBB
                     59:        movl    *$BERVEC,r2
                     60:        movl    4(fp),r3
                     61:        movl    8(fp),r4
                     62:        movab   9f,*$BERVEC
                     63:        bbc     $0,r4,1f; tstb  (r3)
                     64: 1:     bbc     $1,r4,1f; tstw  (r3)
                     65: 1:     bbc     $2,r4,1f; tstl  (r3)
                     66: 1:     clrl    r0                      # made it w/o machine checks
                     67: 2:     movl    r2,*$BERVEC
                     68:        mtpr    r1,$IPL
                     69:        mtpr    r5,$SCBB
                     70:        ret
                     71: 
                     72:        .align  2
                     73: 9:                     # Here we catch buss error (if it comes)
                     74:        andl3   4(sp),$ERRCD,r0
                     75:        cmpl    r0,$APE
                     76:        jneq    1f
                     77:        halt                    # Address parity error !!!
                     78: 1:     cmpl    r0,$VBE
                     79:        jneq    1f
                     80:        halt                    # Versabus error
                     81: 1:
                     82:        movl    $1,r0           # Anything else = bad address
                     83:        movab   8(sp),sp        # discard buss error trash
                     84:        movab   2b,(sp)         # new program counter on stack.
                     85:        rei
                     86: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.