
	.TITLE FNEW
	.GLOBL .NEWF
   .GLOBL EFUN3
   .GLOBL .AW
FPOW=000000
FADD=100000
FSUB=200000
FMUL=300000
FDIV=400000
FGET=500000
FPUT=600000
FNOR=700000
FXIT=000000
.NEWF .NEWFE-.-1/2\777777+1
  .SIXBT /RDM/
	JMP	RANDOM
.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
  .END
