.NLIST	TTM 
	.TITLE	SCALH 
	.IDENT	/RICE04/
;
;	CALL SCALH(NHIST,IXSTEP,IX0,IYSTEP,IY0)
;
PCOUNT:	.WORD	0			; Number of params
SCALH::
SCALH2::	MOV	(R5)+,PCOUNT	;PARAMETER COUNT
	CMPB	PCOUNT,#5		;NUMBER OF PARAM OK?
	BLOS	5$
	MOV	#5,PCOUNT
5$:	DECB	PCOUNT			;HIST #?
	BMI	10$			;NONE
	MOV	(R5)+,R0		;PARAM
	CMP	R0,#-1			; Param null?
	BEQ	10$			; Yes, skip it
	MOV	(R0),R0			;HIST #
	BLE	10$			; Bad hist # skip it
	JSR	PC,SWC			;GET THE HIST
	BCS	10$			;NO HIST TO GET
	TST	(R0)+			;HIST SIZE EXISTS?
	BEQ	10$			;NO
	TST	(R0)+			;NOW POINTS TO X SIZE
	MOV	#-1,R2
1$:	DECB	PCOUNT			;PARAM EXIST?
	BMI	10$			;NO MORE
	TST	(R0)+			;NEXT OUTPUT PARAM
	NEG	R2			;ALTERNATE TYPE
	MOV	(R5)+,R1		;GET PARAM ADDRESS
	CMP	R1,#-1			;IS IT OK
	BEQ	1$			;NO GET NEXT
	MOV	(R1),(R0)
	TST	R2			;IS IT STEP
	BMI	1$			;NO
	TST	(R0)			;IS STEP OK?
	BNE	1$			;YES
	INC	(R0)			;NO, SET IT TO 1
	BR	1$
10$:	RETURN				;RETURN 
	.END