Unit Hw_16

========================================================================} {================= 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-

Classes

TVicHw16 -
TVicLPT16 -

Functions

Register -

Types

TIRQ
TLPTNumber
TPinNumber

Constants

BasePorts
Conts
IRQs
MaskPins
Masks
MaxPins
Negative
PinsPort

Variables

LocHW


Functions


procedure Register;


Types


TIRQ      = 0..15

TLPTNumber = (LPT1,LPT2,LPT3);
-SLCTIN, pin 17, Port+2
TPinNumber = 1..MaxPins

Constants

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)


Variables

LocHW : TVicHw16