.title	frmdat
;+
;	subroutine frmdat(in, out)
;-
ap=%5
in=2
out=4
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
frmdat::
	mov	in(ap),r0		; source address
	mov	out(ap),r1		; destination address
	call	twocpy			; copy two characters
	movb	#'-,(r1)+		; copy separator
	mov	#3,r2			; number of characters to copy
	call	ncopy			; copy them
	movb	#'-,(r1)+		; copy separator
	call	twocpy			; copy two characters
	movb	#' ,(r1)+		; copy separator
	call	twocpy			; copy two characters
	movb	#':,(r1)+		; copy separator
	call	twocpy			; copy two characters
	movb	#':,(r1)+		; copy separator
	call	twocpy			; copy two characters
	clrb	(r1)			; terminate with EOS
	return
;
;
twocpy:
	mov	#2,r2			; copy two characters
ncopy:
	movb	(r0)+,(r1)+		; copy next character
	sob	r2,ncopy		; go again if more left
	return
	.end