.TITLE	CBTA
	.LIST	ME,TTM
	.MCALL	CBTA$,CBTO$,CBTD$,CBTH$
 
START:	CBTO$	#BUFFER,#1234,8.,1,1,1,5
 
	CBTH$	#BUFFER,#12345,16.,0,1,1,4
 
	CBTO$	,,,,,,3
 
	CBTD$	,#0,WIDTH=6
 
	CBTO$	#NEWBUF,FRED
 
	CBTO$	RADIX=50.
 
	CBTA$	,FRED,SIGNED=1
 
	CBTA$	WIDTH=64.,ZSUP=1,BLKFIL=2,RADIX=17.
 
BUFFER:	.BLKB	10.
NEWBUF:	.BLKB	10.
FRED:	0
 
	.END	START