Return to f002534 CVS log

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

Annotation of lucent/sys/src/9/pc/f002534, revision 1.1

1.1     ! root        1: /* Centronix parallel (printer) port */
        !             2: 
        !             3: /* base addresses */
        !             4: 
        !             5: #define        Lpt1    0x3bc
        !             6: #define        Lpt2    0x378
        !             7: #define        Lpt3    0x278
        !             8: 
        !             9: /* offsets, and bits in the registers */
        !            10: 
        !            11: #define        Qdlr    0x0     /* data latch register */
        !            12: 
        !            13: #define        Qpsr    0x1     /* printer status register */
        !            14: #define        Fbusy           0x80
        !            15: #define        Fintbar         0x40
        !            16: 
        !            17: #define        Qpcr    0x2     /* printer control register */
        !            18: #define        Fie             0x10
        !            19: #define        Fsi             0x08
        !            20: #define        Finitbar        0x04
        !            21: #define        Faf             0x02
        !            22: #define        Fstrobe         0x01
        !            23: 
        !            24: /*
        !            25:  *  read next data byte
        !            26:  *
        !            27:  *     outb(dev+Qpcr, Finitbar|Faf|Fsi|Fstrobe);
        !            28:  *     data = (inb(dev+Qpsr)&0xf8)<<2;
        !            29:  *     outb(dev+Qpcr, Finitbar|Faf|Fsi);
        !            30:  *     data |= inb(dev+Qpsr)>>3;
        !            31:  */
        !            32: TEXT   Irdnext(SB),$0
        !            33: 
        !            34:        MOVL    dev+0(FP),DX    /* points to base address */
        !            35:        MOVL    $(Finitbar|Faf|Fsi|Fstrobe),AX
        !            36:        ADDL    $Qpcr,DX        /* points to control register */
        !            37:        OUTB
        !            38:        OUTB                    /* have to wait, sorry */
        !            39:        SUBL    $1,DX           /* points to status register */
        !            40:        INB
        !            41:        MOVL    AX,CX
        !            42:        MOVL    $(Finitbar|Faf|Fsi),AX
        !            43:        ADDL    $1,DX           /* points to control register */
        !            44:        OUTB
        !            45:        OUTB
        !            46:        ANDL    $0xf8,CX
        !            47:        SHLL    $2,CX
        !            48:        SUBL    $1,DX           /* points to status register */
        !            49:        INB
        !            50:        SARL    $3,AX
        !            51:        ORL     CX,AX
        !            52:        RET

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