/FMTRUL -- WRITE RULERS 0-9 TO FLOPPY 0 AND CLEAR FIRST BLOCK OF CUT-PAST AREA


	/ ********************************************************************
	/ E D I T   H I S T O R Y	C O M M E N T S
	/ ********************************************************************
	/
	/ 001	EJL	20-JUN-84	EXPAND RULER SIZE FORM 160 TO 238
	/
	/ ******************* END EDIT HISTORY *******************************

	*RXLDLS
	RXEWT;0;RXQBLK
	.
	DLRLRE;200;CDF 20;-DSRLRE
	DLCUTB;400;CDF 0;-1
	0

	*200
	SKP CLA
	JMP I	(7605)

	TAD	(177)
	DCA	X0		/ INIT PTR
	TAD	(-12)
	DCA	T1		/ INIT RULER COUNT
	CDF 20			/ SET DATA FIELD 2

A1,	TAD	(COSCNT)
	DCA I	X0		/ SET COS COUNT WORD
	TAD	(501)
	DCA I	X0		/ SET L=1
	TAD	(-37)
	DCA	T2		/ SET COUNT =62

	TAD	(101)
	DCA I	X0
	ISZ	T2
	JMP	.-3		/ 62 NULS

	TAD	(601)
	DCA I	X0		/ SET R=65
	TAD	(42-170)	/ M001 Fill out page
	DCA	T2		/ SET CNT TO CLEAR REST OF RULER

	TAD	(101)
	DCA I	X0
	ISZ	T2
	JMP	.-3

	DCA I	X0		/ SET 0 FOR STOPPER
	AC0001
	DCA I	X0		/ SET LEFT MARGIN VALUE
	TAD	(101)
	DCA I	X0		/ SET RIGHT MARGIN VALUE

	TAD	(173-200)	/ M001
	DCA	T2		/ CLEAR REST OF STORAGE
	DCA I	X0
	ISZ	T2
	JMP	.-2
	ISZ	T1
	JMP	A1		/ LOOP FOR ALL RULERS

	CDF 0			/ RESET DATA FIELD
	JMP I	(RXLOAD)	/ JUMP TO WRITE OUT ROUTINE

PAGE

ZBLOCK 400			/ EMPTY BLOCK FOR CUT-PAST AREA

���������������������������������������������������������������������������������������������������������������������������������������������������������������������