;*********************************************************************
;
;	SUBROUTINE FOR BYTE MANIPULATION
;
;	PURPOSE: GET THE VALUE OF A SPECIFIED BYTE OF AN ARRAY
;		 STORE A VALUE IN A SPECIFIED BYTE OF AN ARRAY
;
;	USAGE:   I=IGBYTE(ARRAY,POSITION)
;		 CALL PBYTE(ARRAY,POSITION,IVALUE)
;
;
;	OCTOBER 1979
;	S.P. LIE AND J.H.C. REIBER
;	THORAXCENTER, ERASMUS UNIVERSITY ROTTERDAM
;
;*********************************************************************
;
	.GLOBL IGBYTE,PBYTE
;
IGBYTE:	MOV	2(R5),R0	;GET ARRAY OFFSET ADDRESS
	ADD	@4(R5),R0	;GET BYTE ADDRESS
	DEC	R0		;CORRECT BYTE ADDRESS
	MOVB	(R0),R0		;GET BYTE
	BIC	#177400,R0	;CORRECT SIGN
	RTS	PC
;
PBYTE:	MOV	2(R5),R0	;GET ARRAY OFFSET ADDRESS
	ADD	@4(R5),R0	;GET BYTE ADDRESS
	DEC	R0		;CORRECT BYTE ADDRESS
	MOVB	@6(R5),(R0)	;STORE BYTE
	RTS	PC
;
	.END