Return to mipstas.s CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / liblock

Annotation of lucent/sys/src/liblock/mipstas.s, revision 1.1

1.1     ! root        1: /*
        !             2:  *     magnum user level lock code
        !             3:  */
        !             4: 
        !             5: #define        LL(base, rt)    WORD    $((060<<26)|((base)<<21)|((rt)<<16))
        !             6: #define        SC(base, rt)    WORD    $((070<<26)|((base)<<21)|((rt)<<16))
        !             7: #define        NOOP            WORD    $0x27
        !             8: #define COP3           WORD    $(023<<26)
        !             9: 
        !            10:        TEXT    C_3ktas(SB),$0
        !            11:        MOVW    R1, R21
        !            12: btas:
        !            13:        MOVW    R21, R1
        !            14:        MOVB    R0, 1(R1)
        !            15:        NOOP
        !            16:        COP3
        !            17:        BLTZ    R1, btas
        !            18:        RET
        !            19: 
        !            20:        TEXT    C_4ktas(SB), $0
        !            21:        MOVW    R1, R2          /* address of key */
        !            22: tas1:
        !            23:        MOVW    $1, R3
        !            24:        LL(2, 1)
        !            25:        NOOP
        !            26:        SC(2, 3)
        !            27:        NOOP
        !            28:        BEQ     R3, tas1
        !            29:        RET
        !            30: 
        !            31:        TEXT    C_fcr0(SB), $0
        !            32:        MOVW    FCR0, R1
        !            33:        RET

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