home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / COM3_4.ZIP / PORTS-4.ZIP / SET2.ASM < prev   
Encoding:
Assembly Source File  |  1986-05-05  |  1.4 KB  |  54 lines
  1.     page    66,132
  2.     name    SET232
  3.     title    SET232 - Set RS232 for COM2 from COBOL program
  4. ; (C) Copywrite 1986 - SoftWeir and Associates - Don Weir
  5. prog    group    code,data,stack
  6.  
  7. data    segment para
  8. data ends
  9.  
  10. stack    segment para
  11. stack ends
  12.  
  13. code    segment para
  14.     assume    cs:code,ds:data,ss:stack
  15.  
  16. ;************************************************************************
  17. ;*                                    *
  18. ;*    The parameters are taken from the stack as 4-byte absolute    *
  19. ;*    machine addresses - segment & offset                *
  20. ;*                                    *
  21. ;************************************************************************
  22.  
  23. SET232:
  24.     pop    bp            ; return segment addr (replaced on stack)
  25.     pop    cx            ; return segment offset (also replaced)
  26.     pop    si            ; init parameter address
  27.     pop    bx            ;    "           segment
  28.     push    cx            ; return address back on stack - far ret
  29.     push    bp
  30.     MOV    DS,BX
  31.     MOV    ES,BX
  32.     MOV    DL,1   ;WHICH COMM PORT  1=COM2, 0=COM1
  33.     MOV    DH,0
  34.     MOV    AH,0   ;SET TO INITIALIZE RS232
  35.     MOV    AL,BYTE PTR ES:[SI]  ;Contains RS232 parm byte
  36.     INT    14H
  37.  
  38.                 ; and drop through to return to COBOL
  39.  
  40.  
  41. ;************************************************************************
  42. ;*                                    *
  43. ;*    the ret is a FAR RETURN using a segment/offset - 4 bytes    *
  44. ;*                                    *
  45. ;************************************************************************
  46.  
  47.  
  48. return    proc    far
  49.     ret                ; and return to caller
  50. return    endp
  51.  
  52. code    ends
  53.     end
  54.