1992/0212/pc/inconsubs.s (diff list | history)

1992/0205/sys/src/9/pc/inconsubs.s:42,47 – 1992/0212/sys/src/9/pc/inconsubs.s:42,48 (short | long)
1992/0205		MOVL $(Finitbar|Faf|Fsi),AX ADDL $1,DX /* points to control register */ OUTB
1992/0212		OUTB
1992/0205		ANDL $0xf8,CX SHLL $2,CX SUBL $1,DX /* points to status register */
1992/0212/sys/src/9/pc/inconsubs.s:1,52 – 1993/0501/sys/src/9/pc/inconsubs.s:0 (short | long)
Deleted. rsc Mon Mar 7 10:29:43 2005
1992/0205		/* Centronix parallel (printer) port */                  /* base addresses */                  #define Lpt1 0x3bc #define Lpt2 0x378 #define Lpt3 0x278                  /* offsets, and bits in the registers */                  #define Qdlr 0x0 /* data latch register */                  #define Qpsr 0x1 /* printer status register */ #define Fbusy 0x80 #define Fintbar 0x40                  #define Qpcr 0x2 /* printer control register */ #define Fie 0x10 #define Fsi 0x08 #define Finitbar 0x04 #define Faf 0x02 #define Fstrobe 0x01                  /* * read next data byte * * outb(dev+Qpcr, Finitbar|Faf|Fsi|Fstrobe); * data = (inb(dev+Qpsr)&0xf8)<<2; * outb(dev+Qpcr, Finitbar|Faf|Fsi); * data |= inb(dev+Qpsr)>>3; */ TEXT Irdnext(SB),$0                  MOVL dev+0(FP),DX /* points to base address */ MOVL $(Finitbar|Faf|Fsi|Fstrobe),AX ADDL $Qpcr,DX /* points to control register */ OUTB OUTB /* have to wait, sorry */ SUBL $1,DX /* points to status register */ INB MOVL AX,CX MOVL $(Finitbar|Faf|Fsi),AX ADDL $1,DX /* points to control register */ OUTB
1992/0212		OUTB
1992/0205		ANDL $0xf8,CX SHLL $2,CX SUBL $1,DX /* points to status register */ INB SARL $3,AX ORL CX,AX RET