Return to scsisubs.s CVS log

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

Annotation of lucent/sys/src/9/gnot/scsisubs.s, revision 1.1

1.1     ! root        1: #include "mem.h"
        !             2: 
        !             3: TEXT   spl2(SB), $0
        !             4: 
        !             5:        MOVL    $0, R0
        !             6:        MOVW    SR, R0
        !             7:        MOVW    $(SUPER|SPL(2)), SR
        !             8:        RTS
        !             9: 
        !            10: TEXT   scsirecv(SB), $0
        !            11:        MOVL    $0x40300033, A0 /* data         */
        !            12:        MOVL    $0x40300032, A1 /* status       */
        !            13:        MOVL    p+0(FP), A2
        !            14:        BTST    $1, (A1)
        !            15:        BEQ     rout
        !            16: rloop:
        !            17:        MOVB    (A0), (A2)+
        !            18:        BTST    $1, (A1)
        !            19:        BEQ     rout
        !            20: 
        !            21:        MOVB    (A0), (A2)+
        !            22:        BTST    $1, (A1)
        !            23:        BEQ     rout
        !            24: 
        !            25:        MOVB    (A0), (A2)+
        !            26:        BTST    $1, (A1)
        !            27:        BEQ     rout
        !            28: 
        !            29:        MOVB    (A0), (A2)+
        !            30:        BTST    $1, (A1)
        !            31:        BNE     rloop
        !            32: rout:
        !            33:        MOVL    A2, R0
        !            34:        RTS
        !            35: 
        !            36: TEXT   scsixmit(SB), $0
        !            37:        MOVL    $0x40300033, A0 /* data         */
        !            38:        MOVL    $0x40300032, A1 /* status       */
        !            39:        MOVL    p+0(FP), A2
        !            40:        BTST    $1, (A1)
        !            41:        BEQ     xout
        !            42: xloop:
        !            43:        MOVB    (A2)+, (A0)
        !            44:        BTST    $1, (A1)
        !            45:        BEQ     xout
        !            46: 
        !            47:        MOVB    (A2)+, (A0)
        !            48:        BTST    $1, (A1)
        !            49:        BEQ     xout
        !            50: 
        !            51:        MOVB    (A2)+, (A0)
        !            52:        BTST    $1, (A1)
        !            53:        BEQ     xout
        !            54: 
        !            55:        MOVB    (A2)+, (A0)
        !            56:        BTST    $1, (A1)
        !            57:        BNE     xloop
        !            58: xout:
        !            59:        MOVL    A2, R0
        !            60:        RTS

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