.TITLE	CRUPAD
	.IDENT	/X01.00/
;
; AUTHOR:	GILBERT J. DELEEUW
; DATE:		MAY 3, 1984
; NAME:		RTWS - REPLACE TABS WITH SPACES
; FUNCTION:	CONVERT TABS TO SPACES
;
;
; PARAMETERS:
;
;	R2 - SIZE OF INPUT RECORD
;	R3 - ADDRESS OF INPUT RECORD
;	R4 - SIZE OF OUTPUT RECORD
;	R5 - ADDRESS OF OUTPUT RECORD
;
;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
CRUPAD::
	MOV	R5,-(SP)		;SAVE BUFFER ADDRESS
	MOV	PDSZ,R4			;GET COUNT
	TST	R2			;TEST FOR ZERO LENGTH INPUT
	BLE	20$			;YES
;
; GET NEXT INPUT CHARACTER
10$:	MOVB	(R3)+,(R5)+		;MOVE CHARACTER
	DEC	R4			;DECREMENT OUTPUT COUNT
	BLE	30$			;JUST TO BE SURE
	SOB	R2,10$			;LOOP
;
; CRUPAD
	MOVB	PDCH,R1			;GET PADD CHARACTER
;
; LOOP
20$:	MOVB	R1,(R5)+		;MOVE PADD CHARACTER
	SOB	R4,20$			;UNTIL DONE
;
; RETURN SIZE AND ADDRESS
30$:	MOV	PDSZ,R2			;RESTORE SIZE
	MOV	(SP)+,R3		;RESTORE ADDRESS
40$:	RTS	PC			;RETURN TO CALLER
;
; End of code
	.END