========================================================================} {================= TVicHW16 component definition ====================} {========== Freeware Version 1.21 =====================} {========== Copyright (c) 1997 Victor I.Ishikeev =======} {========================================================================} {========== mail to "victor@ivi.ugatu.ac.ru" =======} {========================================================================} {$C FIXED PRELOAD PERMANENT} (*{$R-} {$D-} {$S-
TVicHw16 -
TVicLPT16 -
Register -
TIRQ
TLPTNumber
TPinNumber
BasePorts
Conts
IRQs
MaskPins
Masks
MaxPins
Negative
PinsPort
LocHW
procedure Register;
TIRQ = 0..15
TLPTNumber = (LPT1,LPT2,LPT3);
-SLCTIN, pin 17, Port+2
TPinNumber = 1..MaxPins
BasePorts = ($379,$279,$3BC)
information about LPT
Conts = ($21,$21,$21,$21,$21,$21,$21,$21,
$A1,$A1,$A1,$A1,$A1,$A1,$A1,$A1)
IRQs = ($08,$09,$0A,$0B,$0C,$0D,$0E,$0F,
$70,$71,$72,$73,$74,$75,$76,$77)
MaskPins =
($01, { -STROBE, pin 1, Port+2}
$01,$02,$04,$08,$10,$20,$40,$80, { DATA, pins 2..9, Port+0}
$40, { -ACKWL, pin 10, Port+1}
$80, { BUSY, pin 11, Port+1}
$20, { PE, pin 12, Port+1}
$10, { SLCT, pin 13, Port+1}
$02, { -AUTOFD, pin 14, Port+2}
$08, { -ERROR, pin 15, Port+1}
$04, { INIT, pin 16, Port+2}
$08)
-SLCTIN pin 17, Port+2
Masks = ($01,$02,$04,$08,$10,$20,$40,$80,
$01,$02,$04,$08,$10,$20,$40,$80)
MaxPins = 17
Negative =
(TRUE, { -STROBE, pin 1, Port+2,}
FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE, FALSE,{ DATA, pins 2..9, Port+0}
FALSE, { ACKWL, pin 10, Port+1}
TRUE, { BUSY, pin 11, Port+1}
FALSE, { PE, pin 12, Port+1}
FALSE, { SLCT, pin 13, Port+1}
TRUE, { -AUTOFD, pin 14, Port+2}
FALSE, { -ERROR, pin 15, Port+1}
FALSE, { INIT, pin 16, Port+2}
TRUE)
PinsPort = (2,0,0,0,0,0,0,0,0,1,1,1,1,2,1,2,2)
LocHW : TVicHw16