#TITLE	"Serial port driver tester"
	#PAGE	132,66
;
	MODULE	"SIOTST"
;
	TLINK	"X"
;
	#INCLUDE "EQUATE"
        LOC     Data#
BUF:    RES     WORD  32
ATNCHR::BYTE    3

;
	LOC	Code#
;
START:
        CALL    SPINIT#
        MOV     DL,=03
        MOV     CL,=05
        MOV     CH,=00
        CALL    COMDRV#                   ; initialize baud rate
        MOV     DL,=00                    ; get input status
        MOV     CH,=00
        CALL    COMDRV#
        MOV     DL,=04                    ; get baud rate
        MOV     CH,=00
        CALL    COMDRV#
__1:    MOV     DL,=02                    ; output character
        MOV     CH,=00
        MOV     CL,=64
        CALL    COMDRV#
        JMP     __1
;
ALLOC:: LEA     BX,BUF
LNKPOL::
UNLINK::
WAIT::
SIGNAL::
	RET
;
	END	START