extrn	.dos
;
@cout	equ	2
;
; console output (a)
; a,f
.couta::
	push	d
	mov	e,a
	mvi	a,@cout
	call	.dos
	pop	d
	ret