bdos	equ	5
;
; dos call a, preserve registers, set flags
; a,f
.dos::	push b	! push d ! push h
	mov	c,a
	call	bdos ! ora a
	pop h	! pop d ! pop b
	ret
;
	end