# hp_gpib_id11.mac
#
# hp 09.08.2000 gpib support for BESSRC 11ID-B
# 
#
#
#
#
#################################################################################
#
# hp_gpib_put
# hp 19.07.2000
#
#
#
#################################################################################
#
def hp_gpib_put ' {
	local _hp_addr,_hp_uuu,_hp_vvv,_hp_addr_sign
	if (GPIB_debug > 10)
		printf("This is macro hp_gpib_put ...\n")
        if ($# != 2) {
                eprint "usage: hp_gpib_put gpib_address string"
                exit
        }
	_hp_vvv = $2
	_hp_uuu = _hp_vvv
	if (_hp_vvv) {
		if (GPIB_eol_character[_hp_addr]>0)
			_hp_uuu = sprintf("%s%c",_hp_vvv,GPIB_eol_character[_hp_addr])
	} else {
		if (GPIB_eol_character[_hp_addr]>0) {
			_hp_uuu = sprintf("%s%c","$2",GPIB_eol_character[_hp_addr])
		} else {
			_hp_uuu = "$2"
		}
	}
	_hp_addr_sign = $1
	_hp_addr      = fabs(_hp_addr_sign)
	gpib_put(_hp_addr,_hp_uuu)
} '
#
#
#
#
#################################################################################
#
# hp_gpib_get
# hp 19.07.2000
# hp 09.08.2000 angepaßt für BESSRC
#
#
#
#################################################################################
#
def hp_gpib_get ' {
	local _hp_addr,_hp_addr_sign
	if (GPIB_debug > 10)
		printf("This is macro hp_gpib_get ...\n")
        if ($# != 1) {
                eprint "usage: hp_gpib_get gpib_address"
                exit
        }
	_hp_addr = $1
	GPIB_val = gpib_get(_hp_addr)
} '
#
#
#
#