;+
; NAME:
;	I2BYT
; PURPOSE:
;	splits integer*2 word into two bytes
; CATEGORY:
; CALLING SEQUENCE:
;	barr = i2byt(intin)
; INPUTS:
;	intin		input integer
; OPTIONAL INPUT PARAMETERS:
; KEYWORD PARAMETERS:
; OUTPUTS:
;	barr		byte pair out
; OPTIONAL OUTPUT PARAMETERS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; PROCEDURE:
; MODIFICATION HISTORY:
;	RDB  Autumn-91
;-

function	i2byt,intin

byt = byte(intin,0,2)

return, byt
end