.TITLE	MUL60
	.IDENT	/V7.01/

;+
;
; *** - MUL.60 - MULTIPLY SINGLE PRECISION NUMBER BY 60.
;
; INPUT:
;	R0 - NUMBER TO BE MULTIPLIED
; OUTPUT:
;	R0 - RESULT
;	ALL OTHER REGISTERS ARE PRESERVED.
;	OVERFLOW IS NOT DETECTED BY THIS ROUTINE, SINCE IT IS
;	USED IN SITUATIONS WHERE THIS IS NOT NECESSARY.
;
; VERSION:	V6	NOVEMBER 1978
; VERSION:	V7	SAME AS V6, JAN 1981
;
;	STEVE THOMPSON	SCHOOL OF CHEMICAL ENGINEERING
;			OLIN HALL
;			CORNELL UNIVERSITY
;			ITHACA NY 14853
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAME FROM $MUL60
;				TO MUL.60
;
;-

MUL.60::ASL	R0		; MULTIPLY BY 2
	ASL	R0		; AND BY TWO AGAIN
	MOV	R0,-(SP)	; SAVE 4X ON STACK
	ASL	R0		; TIMES 2 AGAIN
	ADD	R0,(SP)		; COMPUTE 12 TIMES ON STACK
	ASL	R0		; TIMES 2 AGAIN
	ADD	R0,(SP)		; COMPUTE 28 TIMES ON STACK
	ASL	R0		; TIMES 2 AGAIN
	ADD	(SP)+,R0	; COMPUTE 60 TIMES IN R0
	RETURN			;

	.END