testmh.obs

格式化源码的最新板

unit testmh;interface type w_pa3500array=array[0..32766]of word;pw_wordptr=^w_pa3500array
;ppointer=^pointer;const pa3500_disable=0;pa3500_enable=1;pa3500_synchronous_mode
=1;pa3500_asynchronous_mode=0;pa3500_simple_mode=0;pa3500_trigger_mode=1;pa3500_synchronisation_mode
=2;pa3500_unipolar=1;pa3500_bipolar=0;pa3500_channel0=0;pa3500_channel1=1;pa3500_channel2
=2;pa3500_channel3=3;pa3500_channel4=4;pa3500_channel5=5;pa3500_channel6=6;pa3500_channel7
=7;pa3500_asynchronous_mode_a=0;pa3500_synchronous_mode_a=1;function i_pa3500_initcompiler
(b_boardhandle:byte):integer;far;stdcall;function i_pa3500_setboardinformationwin32
(s_identification:string;b_boardoperatingmode:byte;var b_boardhandle:byte):integer
;far;stdcall;function i_pa3500_closeboardhandle(b_boardhandle:byte):integer;far;stdcall
;function i_pa3500_setboardintroutinewin32(b_boardhandle:byte;b_usercallingmode:byte
;l_globalbuffersize:longint;pp_userglobalbuffer:ppointer;p_functionname:pointer):
integer;far;stdcall;function i_pa3500_testinterrupt(var b_boardhandle:byte;var b_interruptmask
:byte;var b_lastchannelnumber:byte):integer;far;stdcall;function i_pa3500_resetboardintroutine
(b_boardhandle:byte):integer;far;stdcall;function i_pa3500_gethardwareinformation
(b_boardhandle:byte;var w_baseaddress:word;var b_interruptnbr:byte;var b_boardoperatingmode
:byte;var b_nbrofoutput:byte):integer;far;stdcall;function i_pa3500_changeboardoperatingmode
(b_boardhandle:byte;b_boardoperatingmode:byte):integer;far;stdcall;function i_pa3500_write1analogvalue
(b_boardhandle:byte;b_channelnbr:byte;b_polarity:byte;w_valuetowrite:word):integer
;far;stdcall;function i_pa3500_writemoreanalogvalue(b_boardhandle:byte;b_firstchannelnbr
:byte;b_nbrofchannel:byte;var b_polarityarray:byte;var w_writevaluearray:word):integer
;far;stdcall;function i_pa3500_storeanalogoutputvalue(b_boardhandle:byte;b_eraselaststorage
:byte;b_channelnbr:byte;b_polarity:byte;w_valuetowrite:word):integer;far;stdcall;
function i_pa3500_getexterntriggerstatus(b_boardhandle:byte;var b_externtriggerstatus
:byte):integer;far;stdcall;function i_pa3500_simulateexternaltrigger(b_boardhandle
:byte):integer;far;stdcall;function i_pa3500_enabletriggerinterrupt(b_boardhandle
:byte):integer;far;stdcall;function i_pa3500_disabletriggerinterrupt(b_boardhandle
:byte):integer;far;stdcall;function i_pa3500_enablewatchdog(b_boardhandle:byte;b_interruptflag
:byte;b_resetflag:byte):integer;far;stdcall;function i_pa3500_getwatchdogstatus(b_boardhandle
:byte;var b_watchdogstatus:byte):integer;far;stdcall;function i_pa3500_triggerwatchdog
(b_boardhandle:byte):integer;far;stdcall;function i_pa3500_disablewatchdog(b_boardhandle
:byte):integer;far;stdcall;function i_pa3500_setoutputmemoryon(b_boardhandle:byte
):integer;far;stdcall;function i_pa3500_setoutputmemoryoff(b_boardhandle:byte):integer
;far;stdcall;function i_pa3500_set1digitaloutputon(b_boardhandle:byte;b_channel:byte
):integer;far;stdcall;function i_pa3500_set1digitaloutputoff(b_boardhandle:byte;b_channel
:byte):integer;far;stdcall;function i_pa3500_set2digitaloutputon(b_boardhandle:byte
;b_value:byte):integer;far;stdcall;function i_pa3500_set2digitaloutputoff(b_boardhandle
:byte;b_value:byte):integer;far;stdcall;function i_pa3500_read1digitalinput(b_boardhandle
:byte;b_channel:byte;var b_channelvalue:byte):integer;far;stdcall;function i_pa3500_read2digitalinput
(b_boardhandle:byte;var b_portvalue:byte):integer;far;stdcall;function i_pa3500_enabledigitalinputinterrupt
(b_boardhandle:byte;b_channelvalue:byte):integer;far;stdcall;function i_pa3500_disabledigitalinputinterrupt
(b_boardhandle:byte):integer;far;stdcall;function i_pa3500_readexterntriggerinput
(b_boardhandle:byte;var b_triggervalue:byte):integer;far;stdcall;function i_pa3500_krnl_write1analogvalue
(w_address:word;b_channelnbr:byte;b_polarity:byte;w_valuetowrite:word):integer;far
;stdcall;function i_pa3500_krnl_storeanalogoutputvalue(w_address:word;b_eraselaststorage
:byte;b_channelnbr:byte;b_polarity:byte;w_valuetowrite:word):integer;far;stdcall;
function i_pa3500_krnl_simulateexternaltrigger(w_address:word):integer;far;stdcall
;function i_pa3500_krnl_triggerwatchdog(w_address:word):integer;far;stdcall;function
i_pa3500_krnl_set1digitaloutputon(w_address:word;b_channel:byte):integer;far;stdcall
;function i_pa3500_krnl_set2digitaloutputon(w_address:word;b_value:byte):integer;
far;stdcall;function i_pa3500_krnl_read1digitalinput(w_address:word;b_channel:byte
;var b_channelvalue:byte):integer;far;stdcall;function i_pa3500_krnl_read2digitalinput
(w_address:word;var b_portvalue:byte):integer;far;stdcall;function i_pa3500_krnl_readexterntriggerinput
(w_address:word;var b_triggervalue:byte):integer;far;stdcall;implementation function
i_pa3500_initcompiler(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL'
;function i_pa3500_setboardinformationwin32(s_identification:string;b_boardoperatingmode
:byte;var b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_closeboardhandle
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_setboardintroutinewin32
(b_boardhandle:byte;b_usercallingmode:byte;l_globalbuffersize:longint;pp_userglobalbuffer
:ppointer;p_functionname:pointer):integer;far;stdcall;external'PA3500.DLL';function
i_pa3500_testinterrupt(var b_boardhandle:byte;var b_interruptmask:byte;var b_lastchannelnumber
:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_resetboardintroutine
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_gethardwareinformation
(b_boardhandle:byte;var w_baseaddress:word;var b_interruptnbr:byte;var b_boardoperatingmode
:byte;var b_nbrofoutput:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_changeboardoperatingmode
(b_boardhandle:byte;b_boardoperatingmode:byte):integer;far;stdcall;external'PA3500.DLL'
;function i_pa3500_write1analogvalue(b_boardhandle:byte;b_channelnbr:byte;b_polarity
:byte;w_valuetowrite:word):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_writemoreanalogvalue
(b_boardhandle:byte;b_firstchannelnbr:byte;b_nbrofchannel:byte;var b_polarityarray
:byte;var w_writevaluearray:word):integer;far;stdcall;external'PA3500.DLL';function
i_pa3500_storeanalogoutputvalue(b_boardhandle:byte;b_eraselaststorage:byte;b_channelnbr
:byte;b_polarity:byte;w_valuetowrite:word):integer;far;stdcall;external'PA3500.DLL'
;function i_pa3500_getexterntriggerstatus(b_boardhandle:byte;var b_externtriggerstatus
:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_simulateexternaltrigger
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_enabletriggerinterrupt
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_disabletriggerinterrupt
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_enablewatchdog
(b_boardhandle:byte;b_interruptflag:byte;b_resetflag:byte):integer;far;stdcall;external
'PA3500.DLL';function i_pa3500_getwatchdogstatus(b_boardhandle:byte;var b_watchdogstatus
:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_triggerwatchdog
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_disablewatchdog
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_setoutputmemoryon
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_setoutputmemoryoff
(b_boardhandle:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_set1digitaloutputon
(b_boardhandle:byte;b_channel:byte):integer;far;stdcall;external'PA3500.DLL';function
i_pa3500_set1digitaloutputoff(b_boardhandle:byte;b_channel:byte):integer;far;stdcall
;external'PA3500.DLL';function i_pa3500_set2digitaloutputon(b_boardhandle:byte;b_value
:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_set2digitaloutputoff
(b_boardhandle:byte;b_value:byte):integer;far;stdcall;external'PA3500.DLL';function
i_pa3500_read1digitalinput(b_boardhandle:byte;b_channel:byte;var b_channelvalue:byte
):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_read2digitalinput(b_boardhandle
:byte;var b_portvalue:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_enabledigitalinputinterrupt
(b_boardhandle:byte;b_channelvalue:byte):integer;far;stdcall;external'PA3500.DLL'
;function i_pa3500_disabledigitalinputinterrupt(b_boardhandle:byte):integer;far;stdcall
;external'PA3500.DLL';function i_pa3500_readexterntriggerinput(b_boardhandle:byte
;var b_triggervalue:byte):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_krnl_write1analogvalue
(w_address:word;b_channelnbr:byte;b_polarity:byte;w_valuetowrite:word):integer;far
;stdcall;external'PA3500.DLL';function i_pa3500_krnl_storeanalogoutputvalue(w_address
:word;b_eraselaststorage:byte;b_channelnbr:byte;b_polarity:byte;w_valuetowrite:word
):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_krnl_simulateexternaltrigger
(w_address:word):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_krnl_triggerwatchdog
(w_address:word):integer;far;stdcall;external'PA3500.DLL';function i_pa3500_krnl_set1digitaloutputon
(w_address:word;b_channel:byte):integer;far;stdcall;external'PA3500.DLL';function
i_pa3500_krnl_set2digitaloutputon(w_address:word;b_value:byte):integer;far;stdcall
;external'PA3500.DLL';function i_pa3500_krnl_read1digitalinput(w_address:word;b_channel
:byte;var b_channelvalue:byte):integer;far;stdcall;external'PA3500.DLL';function 
i_pa3500_krnl_read2digitalinput(w_address:word;var b_portvalue:byte):integer;far;
stdcall;external'PA3500.DLL';function i_pa3500_krnl_readexterntriggerinput(w_address
:word;var b_triggervalue:byte):integer;far;stdcall;external'PA3500.DLL';end.