For the delphi user, A826.pas (for win 95/98), 3 for the delphi user – Omega Engineering OME-A826PG User Manual

Page 24: 1 a826.pas (for win 95/98)

Advertising
background image

OME-A-826PG Software Manual [Win 95/98/NT]

2.3 For The Delphi user


2.3.1

A826.PAS (for Win 95/98)


unit A826;

interface

type PSingle=^Single;
type PWord=^Word;
type PInteger=^Integer;
type PSmallInt=^PSmallInt;

const

//***************** DEFINE A826 RELATIVE ADDRESS *****************/
TIMER0

= $00;

TIMER1

= $01;

TIMER2

= $02;

TIMER_MODE

= $03;

AD_LO

= $04; //* Analog to Digital, Low Byte */

AD_HI

= $05; //* Analog to Digital, High Byte */

DA_CH0_LO

= $04; //* Digit to Analog, CH 0 */

DA_CH0_HI

= $05;

DA_CH1_LO

= $06; //* Digit to Analog, CH 1 */

DA_CH1_HI

= $07;

DI_LO

= $06; //* Digit Input */

DO_LO

= $0D; //* Digit Output */


CLEAR_IRQ

= $08;

SET_GAIN

= $09;

SET_CH

= $0A;

SET_MODE

= $0B;

SOFT_TRIG

= $0C;


POLLING_MODE

= 1;

DMA_MODE

= 2;

INTERRUPT_MODE = 6;

//*** define the gain mode ***/
A826_BI_1

= 0;

A826_BI_10

= 1;

A826_BI_100

= 2;

A826_BI_1000

= 3;

A826_UNI_1

= 4;

A826_UNI_10

= 5;

A826_UNI_100

= 6;

A826_UNI_1000

= 7;

A826_BI_05

= 8;

A826_BI_5

= 9;

Date: Aug-15-2000 Ver: 2.2 Page 22

Advertising