.TITLE	MG11..	REPEAT CHARACTER TRANSFER PREPROCESSOR FOR V$TX
	.IDENT	/MG11../
	.PAGE
	.SBTTL	REPEAT CHARACTER TRANSFER
;
;
V$TXC::				;REPEAT CHARACTER TRANSFER
;
;	ENTRY CONDITIONS
;	LOCATION AFTER CALL HOLDS BOTH CHARACTER AND REPEAT COUNT
;
;	EXIT CONDITIONS
;	NONE
;
	MOV @(SP),110$		;HOLD DATA AND REPEAT COUNT
	ADD #2,@SP		;GROTT RETURN ADDRESS TO PASS DATA
	SAVE R0,R1		;PROTECT REGISTERS
	MOV 110$,R1		;HOLD COUNT AND CHARACTER
	BIC #177400,R1		;SHAVE OFF REPEAT COUNT ONLY
	SWAB 110$		;FUDGE DATA INTO CORRECT POSITION
	MOV #100$,R0		;HOLD ADDRESS OF DATA STRING
10$:	CALL V$TX		;OUTPUT A CHARACTER
	SOB R1,10$		;LOOP REPEAT COUNTS
	UNSAVE R0,R1		;PUT REGISTERS BACK INTO ORDER
	RETURN			;BACK TO CALLING PROGRAM IF GROTTING OK
;
;
100$:	.WORD	1		;STRING LENGTH = ONE ONLY
110$:	.WORD	0		;CHARACTER STORE AREA
;
;
;
;
;
	.END
;