;	TITLE	"SBOUT - Syslib 4.0"
	NAME	('BOUT')
;=================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;-----------------------------------------------------------------
; Author  : Harold F. Bower
;		derived from SBOUT.Z80 Ver 1.1 by Richard Conn
; Date    : 4 Jul 89
; Version : 1.3
; Module  : SBOUT
; Abstract: This module contains the routine BOUT which writes
;	a character to the current console device via a BDOS
;	call as opposed to direct BIOS calls used in the SOUT
;	module.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		BOUT

; From SYSLIB Get..

	EXT		@BDOSA

	.Z80
	CSEG
;===============================================================
; NAME - BOUT
; Entry:  A = Character to be printed
; Exit : - Nothing returned, the char is printed to CON:
; Uses : - None
; Special Requirements: None
;===============================================================

BOUT:	PUSH	DE		; Save regs
	PUSH	AF
	LD	E,A		; Place character in E
	LD	A,2		; Print char to CON: Function
	CALL	@BDOSA
	POP	AF		; Restore regs
	POP	DE
	RET

	END