开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
hpib_1.imp
资源名称：pascal2c.tar.Z　[点击查看]
上传用户：upcnvip
上传日期：2007-01-06
资源大小：474k
文件大小：1k
源码类别：

编译器/解释器

开发平台：

C/C++

hpib_1.imp：源码内容
  3. {IncludeFrom=hpib_1 <p2c/hpib_1.h>}
  6. {*VarStrings=0} {*ExportSymbol=P_%s} {*Export_Symbol=%s}
  9. MODULE hpib_1 ;        
  11.         { by      Tim Mikkelsen
  12.           date    07/16/81
  13.           update  08/03/83 by J Schmidt
  14.           
  15.           purpose This module contains the LEVEL 1 HPIB GROUP procedures.   
  16.                 
  17.         }
  20. IMPORT    iodeclarations ;  
  21.   
  22. EXPORT
  23.   
  24.                           
  25.   PROCEDURE send_command( select_code : type_isc ;
  26.                           command     : CHAR );
  27.   FUNCTION  my_address  ( select_code : type_isc)
  28.                         : type_hpib_addr ;
  29.   FUNCTION  active_controller
  30.                         ( select_code : type_isc)
  31.                         : BOOLEAN;
  32.   FUNCTION  system_controller
  33.                         ( select_code : type_isc)
  34.                         : BOOLEAN;
  35.   FUNCTION  addr_to_talk( device      : type_device)
  36.                         : type_isc;
  37.   FUNCTION  addr_to_listen
  38.                         ( device      : type_device)
  39.                         : type_isc;
  40.   FUNCTION  set_to_talk ( device      : type_device)
  41.                         : type_isc;
  42.   FUNCTION  set_to_listen 
  43.                         ( device      : type_device)
  44.                         : type_isc;
  45.   FUNCTION  end_set     ( select_code : type_isc )
  46.                         : BOOLEAN;
  47.   
  48.   
  49.   
  50. END.    { of hpib_1 }