EJECT XLIST	/ LIST PSCLRE.PA
XLIST		/ TURN LISTING ON
ENPUNCH		/ IF YOU WANT A BINARY

/ PATCH TO RANDOMIZE PASCAL-S 'RANDOM'
/ COULD BE POKED IN WITH FUTIL.
/
/ THIS VERSION FOR  E T O S .
/
/ ANOTHER FOLLOWS, FOR OMNI-8.  A STAND-ALONE SYSTEM
/ WITH REAL-TIME CLOCK COULD DO SIMILAR THINGS.

FIELD	0

*START
	JMS	INIRAN	/REPLACES 7300
*C400+1
INIRAN,	0		/FREE: 6136--6157
	CLA CLL IAC	/'TAD (TOD'
	MQL
	TAD	INIRN	/POINT TO LOCN.-1
	6200		/TRANSFER 4 TIME-WORDS
	TAD I	INIRN1	/GET HIGH MANTISSA
	CIA		/MAKE PLUS (MAX. 1130(8))
	CLL RTL
	STL RTR		/SET BIT 1 (NORMALIZE)
	DCA I	INIRN1
	DCA I	INALFA	/CLEAR 4TH TIME-WORD OUT
	JMP I	INIRAN	/...FROM POOR 'ALFA'

INIRN,	RN
INIRN1,	RN+1
INALFA,	ALFA

/ ASSEMBLED THUS: (A) FILE WITH  XLIST  AND  NOPUNCH
/ (B) PASCAL.PA  (C) THIS FILE.  PASCAL.PA HAS NO FINAL
/ DOLLAR SIGN, WHICH IS LUCKY FOR US.  USE /S TO SUP-
/ PRESS THE LONG SYMBOL TABLE LISTING.

/ TIME-SHARING SYSTEMS USUALLY HAVE THEIR OWN WAY
/ OF HONORING BREAK REQUESTS (^C, ETC.).  THE
/ FOLLOWING WILL SAVE TIME:

*XBREAK+1
	NOP		/KILL 'KSF' (6031)