Contributor: ROLAND SKINNER
unit RJScan;
{******************************}
{ }
{ RJScan }
{ }
{ v1.1 }
{ }
{ }
{ by }
{ }
{ Roland Skinner }
{ }
{ Copyright (c) 1992 }
{ }
{ RJS Software }
{ }
{ Released to the public }
{ domain 1994. }
{ }
{******************************}
{ Implements scanning ability for the DFI HS-3000 PLUS HANDY SCANNER or }
{ other 100% compatible hand-scanners (including certain GeniScans). }
{ NOTE - This unit may be overlayed. }
{ - This unit requires Turbo Pascal 6 (or above). }
{$B-,D-,F+,G-,I-,L-,O+,R-,S-,V-,X-}
{=============================================================================}
interface
{-----------------------------------------------------------------------------}
const
AnyResolution = 0;
{-----------------------------------------------------------------------------}
type
ScanError = (scOK,scNoScanner,scInvalidResolution,scIncorrectResolution,
scInvalidImageWidth);
{-----------------------------------------------------------------------------}
type
ScanLineBufferProc = function(LineNumber : Integer) : Pointer;
{ NOTE - This function should return the address }
{ of the scan-buffer for the "LineNumber"th }
{ line. First line is number 0. }
DisplayScannedLineProc = procedure(LineNumber : Integer);
{ NOTE - This procedure should display (if }
{ necessary) the "LineNumber"th line }
{ that was scanned in. First line is }
{ number 0. }
StopScanningProc = function : Boolean;
{ NOTE - This function should return "False", unless }
{ some event has occurred which requires }
{ scanning to stop. }
{-----------------------------------------------------------------------------}
function ScanImage(DesiredResolution,MaxLinesToScan,BytesPerLine : Integer;
ScanLineBuffer : ScanLineBufferProc;
DisplayScannedLine : DisplayScannedLineProc;
StopScanning : StopScanningProc) : ScanError;
{- This function will scan an image with width 8*"BytesPerLine" and }
{ height "MaxLinesToScan". It is possible to specify the resolution at }
{ which to scan the image in "DesiredResolution" (100,200,300,400). }
{ If the resolution set on the scanner is different to that specified, }
{ then the "scIncorrectResolution" error will be returned. }
{ If "DesiredResolution" is "AnyResolution", then any resolution will }
{ be allowed. "scInvalidResolution" will be returned if a resolution }
{ other than 100,200,300,400 or "AnyResolution" is specified. }
{ "ScanLineBuffer", "DisplayScannedLine" and "StopScanning" are }
{ procedures/functions whose functions are discussed above. These must }
{ be FAR procedures/functions. }
{ If "BytesPerLine" is too large for the scanner-resolution, then }
{ "scInvalidImageWidth" will be returned. }
{ If scanner is not installed then "scNoScanner" is returned. }
{ If successful, then "scOK" will be returned. }
{ This function may not work with certain hand-scanners (if so, use }
{ "GenericScanImage"). }
function GenericScanImage(MaxLinesToScan,BytesPerLine : Integer;
ScanLineBuffer : ScanLineBufferProc;
DisplayScannedLine : DisplayScannedLineProc;
StopScanning : StopScanningProc) : ScanError;
{- This function will scan an image in an analogous manner as }
{ "ScanImage". However, it does not do any checks for valid resolution }
{ or image-width. This is to allow compatibility for scanners which do }
{ not allow for scan-resolution selection. }
{ "scOK", "scNoScanner" and "scInvalidImageWidth" may be returned by }
{ this function. Refer to "ScanImage" for a discussion about these. }
function ScannerIsInstalled : Boolean;
{- Returns installed-status of scanner. }
function ResolutionOfScanner : Integer;
{- Returns the resolution set on the scanner. If scanner is not }
{ installed, then -1 will be returned. }
{ This function may not work with certain hand-scanners. }
{=============================================================================}
implementation
{-----------------------------------------------------------------------------}
const
MaxBytesPerLine : Array[1..4] of Byte = (50,102,154,205);
{-----------------------------------------------------------------------------}
var
ScannerInstalled : Boolean;
ScannerResolution : Word;
ScannerResolution100 : Byte;
DMAChannel : Byte;
DMAPageRegister : Word;
DMACurAddrRegister : Word;
DMACurWordCountRegister : Word;
DMAClearSingleMaskBit : Byte;
DMASetSingleMaskBit : Byte;
DMAModeRegisterSetting : Byte;
DMAWriteRequest : Byte;
DMATerminalCountReached : Byte;
{-----------------------------------------------------------------------------}
procedure DetermineScannerResolution; assembler;
var
Data : Byte;
asm
xor ax,ax
jmp @Start
@ResSettings:
db 21h,41h,51h,71h
@Start:
mov dx,27Bh
mov cx,300
@1:
in al,dx
and al,10000000b
jnz @1
@2:
in al,dx
and al,10000000b
jz @2
loop @1
@3:
in al,dx
and al,10000000b
jnz @3
@4:
in al,dx
and al,00100100b
shr al,1
shr al,1
or ah,al
shr al,1
shr al,1
or ah,al
and ah,00000011b
xor al,al
xchg al,ah
mov bl,4
sub bl,al
mov al,bl
push ax
mov bx,OFFSET (@ResSettings-1)
add bx,ax
mov al,[cs:bx]
mov dx,27Ah
out dx,al
mov Data,al
pop ax
mov ScannerResolution100,al
mov cx,100
mul cx
mov ScannerResolution,ax
end;
{-----------------------------------------------------------------------------}
procedure DetermineScannerDMA; assembler;
asm
mov dx,27Bh
in al,dx
and al,00001010b
cmp al,00001000b
je @UseDMA1
cmp al,00000010b
je @UseDMA3
jmp @NoDMA
@UseDMA1:
mov DMAChannel,1
mov DMAPageRegister, 83h
mov DMACurAddrRegister, 02h
mov DMACurWordCountRegister,03h
mov DMAClearSingleMaskBit, 00000001b
mov DMASetSingleMaskBit, 00000101b
mov DMAModeRegisterSetting, 01000101b
mov DMAWriteRequest, 00000001b
mov DMATerminalCountReached,00000010b
jmp @Exit
@UseDMA3:
mov DMAChannel,3
mov DMAPageRegister, 82h
mov DMACurAddrRegister, 06h
mov DMACurWordCountRegister,07h
mov DMAClearSingleMaskBit, 00000011b
mov DMASetSingleMaskBit, 00000111b
mov DMAModeRegisterSetting, 01000111b
mov DMAWriteRequest, 00000011b
mov DMATerminalCountReached,00001000b
jmp @Exit
@NoDMA:
mov DMAChannel,0
@Exit:
end;
{-----------------------------------------------------------------------------}
procedure TurnScannerOn; assembler;
asm
mov dx,27Ah
mov al,01h
out dx,al
end;
{-----------------------------------------------------------------------------}
procedure TurnScannerOff; assembler;
asm
mov dx,27Ah
mov al,00h
out dx,al
end;
{-----------------------------------------------------------------------------}
procedure DMADelay; assembler;
asm
nop
nop
nop
end;
{-----------------------------------------------------------------------------}
function DoScan(MaxLinesToScan,BytesPerLine : Integer;
ScanLineBuffer : ScanLineBufferProc;
DisplayScannedLine : DisplayScannedLineProc;
StopScanning : StopScanningProc) : ScanError;
var
LinesScanned : Integer;
ScanBuffer : Pointer;
WidthToScan : Word absolute BytesPerLine;
QuitScanning : Boolean;
begin
if (BytesPerLine>0) and (BytesPerLine<=maxbytesperline[scannerresolution100]) then begin LinesScanned := 0; QuitScanning := False; repeat ScanBuffer := ScanLineBuffer(LinesScanned); asm {-Disable DMA transfer } mov al,DMASetSingleMaskBit out 0Ah,al call DMADelay; mov al,DMAModeRegisterSetting out 0Bh,al call DMADelay {-Setup Buffer address } les di,ScanBuffer mov dx,es mov al,dh mov cl,4 shl dx,cl shr al,cl add dx,di adc al,0 mov cx,dx mov dx,DMAPageRegister out dx,al call DMADelay out 0Ch,al call DMADelay mov dx,DMACurAddrRegister mov al,cl out dx,al call DMADelay mov al,ch out dx,al call DMADelay {-Setup bytes to transfer } out 0Ch,al call DMADelay mov ax,WidthToScan dec ax mov dx,DMACurWordCountRegister out dx,al call DMADelay mov al,ah out dx,al {-Start DMA transfer } mov dx,27Bh out dx,al dec dx in al,dx { DX = 027Ah } mov al,DMAWriteRequest out 09h,al call DMADelay mov al,DMAClearSingleMaskBit out 0Ah,al end; {-Scan line } asm mov bl,DMATerminalCountReached @1: in al,08h and al,bl cmp al,bl je @2 push bx call StopScanning pop bx or al,al jz @1 mov QuitScanning,True @2: end; DisplayScannedLine(LinesScanned); Inc(LinesScanned); until (LinesScanned=MaxLinesToScan) or QuitScanning; DoScan := scOK; end else DoScan := scInvalidImageWidth; end; {-----------------------------------------------------------------------------} function ScanImage(DesiredResolution,MaxLinesToScan,BytesPerLine : Integer; ScanLineBuffer : ScanLineBufferProc; DisplayScannedLine : DisplayScannedLineProc; StopScanning : StopScanningProc) : ScanError; begin if ScannerInstalled then begin if (DesiredResolution=AnyResolution) or ((DesiredResolution div 100) in [1..4]) then begin TurnScannerOn; DetermineScannerResolution; if (DesiredResolution=AnyResolution) or (DesiredResolution=ScannerResolution) then ScanImage := DoScan(MaxLinesToScan,BytesPerLine, ScanLineBuffer,DisplayScannedLine,StopScanning) else ScanImage := scIncorrectResolution; TurnScannerOff; end else ScanImage := scInvalidResolution; end else ScanImage := scNoScanner; end; {-----------------------------------------------------------------------------} function GenericScanImage(MaxLinesToScan,BytesPerLine : Integer; ScanLineBuffer : ScanLineBufferProc; DisplayScannedLine : DisplayScannedLineProc; StopScanning : StopScanningProc) : ScanError; begin if ScannerInstalled then begin TurnScannerOn; ScannerResolution100 := 4; GenericScanImage := DoScan(MaxLinesToScan,BytesPerLine, ScanLineBuffer,DisplayScannedLine,StopScanning); TurnScannerOff; end else GenericScanImage := scNoScanner; end; {-----------------------------------------------------------------------------} procedure DetermineScannerPresence; begin TurnScannerOn; DetermineScannerDMA; TurnScannerOff; ScannerInstalled := (DMAChannel0);
end;
{-----------------------------------------------------------------------------}
function ScannerIsInstalled : Boolean;
begin
ScannerIsInstalled := ScannerInstalled;
end;
{-----------------------------------------------------------------------------}
function ResolutionOfScanner : Integer;
begin
if ScannerInstalled then
begin
TurnScannerOn;
DetermineScannerResolution;
TurnScannerOff;
ResolutionOfScanner := ScannerResolution;
end
else
ResolutionOfScanner := -1;
end;
{-----------------------------------------------------------------------------}
begin
DetermineScannerPresence;
end.
{=============================================================================}