extrn	.couta
;
; Ascii chars
lf	equ	0ah
cr	equ	0dh
;
; cr & lf to console
; a,f
.crlf::	mvi	a,cr
	call	.couta
	mvi	a,lf
	jmp	.couta