.TITLE  RANDOM
	.IDENT  /V 1.0/
	.GLOBL  RANDOM
RANDOM: SEC             ;SET CARRY BIT
	RETURN
	.END