.TITLE  DATA_TYPE_CONVERSION_ROUTINES
	.IDENT  'Ver 1.0'
;
;*************************************************************************
;
; These routines can be used to convert from one primitive data type to
; another.  In all cases the argument list is the same.
;
;	4(AP) - The value to be converted
;
; The return value is the converted value.
;
;*************************************************************************
;
	.PSECT 	CODE, NOWRT, EXE
;
CVT_UW_L::
	.WORD	^M<>
;
	CLRL	R0
	MOVW	4(AP),	R0
	RET
;
CVT_UB_L::
	.WORD	^M<>
;
	CLRL	R0
	MOVB	4(AP), R0
	RET
;
CVT_W_L::
	.WORD	^M<>
;
	CVTWL	4(AP),	R0
	RET
;
CVT_B_L::
	.WORD	^M<>
;
	CVTBL	4(AP),	R0
	RET
;
CVT_B_W::
	.WORD	^M<>
;
	CVTBW	4(AP),	R0
	RET
;
;
	.END