MODEL SMALL
CODE
COMADDR DW 3F8H
COMLCR DW 3FBH
COMMCR DW 3FCH
COMIER DW 3F9H
COMLSR DW 3FDH
CONTRL DB 00H
INTSEG DW
INTOFF DW
RCVBYT DB
PUBLIC _ZJCOMSET
PUBLIC _ZJCOMSND
PUBLIC _ZJCOMIST
PUBLIC _ZJCOMRCV
_ZJCOMSET PROC NEAR
MOV DX,COMLCR
MOV AL,80H
OUT DX,AL
MOV DX,COMADDR
MOV AL,30H
OUT DX,AL
INC DX
MOV AL,00H
OUT DX,AL /*设置波特率*/
MOV DX,COMLCR
MOV AL,03H
OUT DX,AL
MOV DX,COMMCR
MOV AL,00H
OUT DX,AL
MOV DX,COMIER
MOV AL,00H
OUT DX,AL
RET
_ZJCOMSET ENDP
_ZJCOMSND PROC NEAR
PUSH BP
MOV BP,SP
L1: MOV DX,COMLSR
IN AL,DX
AND AL,20H
SUB AL,20H
JNZ L1
MOV DX, COMADDR
MOV AL,[BP+4]
OUT DX,AL
POP BP
RET
_ZJCOMSND ENDP
_ZJCOMIST PROC NEAR
PUSH DS
PUSH ES
MOV AL ,0CH
MOV AH,35H
INT 21H
MOV INTOFF ,BX
MOV BX,ES
MOV INTSEG,BX
CLI
MOV AL,0CH
MOV AH,25H
MOV DX,SEG INTSEV
MOV DS,DX
MOV DX,OFFSET INTSEV
INT 21H
POP ES
POP DS