.TITLE	GET
	.IDENT	/00/
	.PSECT	CODE,RO
 
;
; VERSION 00
;
; TOM GETZINGER  30-DEC-79
;
; THIS ROUTINE GETS A WORD FROM THE OBJECT RECORD
;
; INPUTS:
;	R4 = # OF BYTES LEFT IN THE RECORD
;	R3 -> NEXT BYTE IN THE RECORD
;
; OUTPUTS:
;	R4,3 ARE ADJUSTED
;	R0 CONTAINS THE WORD
;
 
GETWRD::
	CLR	R0		; INITIALIZE VALUE
	BISB	(R3)+,R0	; GET THE LSB
	SWAB	R0		; SAVE IT
	BISB	(R3)+,R0	; GET THE MSB
	SWAB	R0		; PUT BYTES WHERE THEY BELONG
	SUB	#2,R4		; ADJUST THE LENGTH
	RETURN			; AND WE'RE DONE
	.PAGE
;
; GETR50
;
; THIS ROUTINE GETS A RAD50 VALUE FROM THE OBJECT RECORD
;
; INPUTS:
;	R0 -> RAD50 DESTINATION (2 WORDS)
;	R3 -> NEXT BYTE IN THE RECORD
;	R4 = # OF BYTES LEFT
;
; OUTPUTS:
;	R3,R4 ADJUSTED
;
 
GETR50::
	MOVB	(R3)+,(R0)+	; GET THE RAD50 VALUE
	MOVB	(R3)+,(R0)+
	MOVB	(R3)+,(R0)+
	MOVB	(R3)+,(R0)
	SUB	#3,R0		; RESTORE R0
	SUB	#4,R4		; ADJUST THE LENGTH
	RETURN			; AND WE'RE DONE
 
	.END