
	.TITLE FNEW
	.GLOBL .NEWF
	.GLOBL	EFUN3
	.GLOBL	.AW
	.GLOBL	XSPNOR
	.GLOBL	FUNERR
	.GLOBL	UTRA
	.GLOBL	EVAL
	.GLOBL	XPUSHJ
	.GLOBL	.AX
.NEWF .NEWFE-.-1/2\777777+1
	.SIXBT	/RDM/
	JMP	RANDOM
	.SIXBT	/DPY/
	JMP	DISPLAY
.NEWFE=.
RANDOM	LAW	-6
	DAC	SIXCNT#
CALL	JMS	RAND
	ISZ	SIXCNT#
	JMP	.-2
	DAC	CHI#
	AND	(400077
	SNA
	JMP	CALL
	RCL
	LAC	CHI
	AND	(77
	SZL
	TCA
	JMS*	.AW
	JMP*	EFUN3
RAND	0
%BEGIN	LAC	RNNO
	AND	(400100
	SNA
	JMP	%LAC2
	SAD  (400100
	JMP	%LAC2
	LAC	RNNO
	RCL
	IAC!CLL
	JMP	%DAC1
%LAC2   LAC	RNNO
	RCL
%DAC1	DAC	RNNO
	JMP*	RAND
RNNO	3
ENA=701521
ENB=701541
XFR=701564
DISPLAY	JMS*	.AX
	AND	(777000
	SWHA
	DAC	HOR#
	JMS	GETARG
	JMS*	.AX
	AND	(777000
	TAD	HOR
	ENA
	ENB
	XFR
	JMP*	EFUN3
GETARG	0
	JMS*	XSPNOR
	SAD	(254
	JMP	.+3
	.DEC
	LAW	1
	.OCT
	JMP*	FUNERR
	JMS*	UTRA
	LAC	EVAL
	DAC	.+2
	JMS*	XPUSHJ
	XX
	JMP*	GETARG
	.END
T
P 10
