; Interface to RS232INT.EXE module
CODESEG SEGMENT PARA PUBLIC 'CODE'
     PUBLIC    REFRESH
     PUBLIC    SETSENSE
     PUBLIC    SENDBREAK
     PUBLIC    BUFSIZE
     PUBLIC    RECEIVE
     PUBLIC    SEND
;
; TABLE OFF ADDRESSES TO BE FILLED FOR JUMPS
SZ   DW      0
FIRST   DW   ?
SB   DW     10H
     DW      ?
BF   DW     20H
     DW      ?
RC   DW     30H
     DW      ?
SN   DW     40H
     DW      ?
REFRESH PROC   FAR
     ASSUME CS:CODESEG
SEGAD   EQU    4F0H  ;ADDRESS IN INTRA AREA OF SEG ADDRESS
CHNAD   EQU    4F2H  ;ADDRESS IN INTRA AREA OF CHAN # OFFSET
     PUSH    AX
     PUSH    BX
     PUSH    DS
     MOV     AX,0   ;SET DS TO 0
     MOV     DS,AX
     MOV     AX,DS:[SEGAD]   ;GET SEG ADDRESS IN AX
     MOV     BX,0
LUPE: MOV     FIRST[BX],AX ;STORE IN ADDR TABLE
     ADD     BX,4
     CMP     BX,20
     JNE     LUPE     ;MODIFY 5 ADDRESSES
     MOV     BX,DS:[CHNAD]     ;GET CHAN # OFFSET IN BX
     MOV     DS,AX          ;NOW SET DATA SEG TO LOADED CODE
     MOV     BYTE PTR [BX],0         ;ZERO CHAN#
     POP     DS
     POP     BX
     POP     AX
     RET
REFRESH      ENDP
;
SETSENSE   PROC  FAR
     JMP   DWORD PTR SZ  ;GO TO LOADED CODE ENTRY POINT
SETSENSE   ENDP
;
SENDBREAK  PROC  FAR
     JMP   DWORD PTR SB   ;GO TO LOADED CODE ENTRY POINT
SENDBREAK  ENDP
;
BUFSIZE    PROC  FAR
     JMP   DWORD PTR BF   ;GO TO LOADED CODE ENTRY POINT
BUFSIZE    ENDP
;
RECEIVE    PROC  FAR
     JMP   DWORD PTR RC   ;GO TO LOADED CODE ENTRY POINT
RECEIVE    ENDP
;
SEND       PROC  FAR
     JMP   DWORD PTR SN   ;GO TO LOADED CODE ENTRY POINT
SEND       ENDP
;
CODESEG    ENDS
           END