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

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.