home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S1.ARC / HANGUP.MOD < prev    next >
Encoding:
Text File  |  1988-01-23  |  3.9 KB  |  88 lines
  1. (*----------------------------------------------------------------------*)
  2. (*                   HangUpPhone  --- Hang up the phone                 *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE HangUpPhone;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  HangUpPhone                                          *)
  10. (*                                                                      *)
  11. (*     Purpose:    Hangs up the phone.                                  *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        HangUpPhone;                                                  *)
  16. (*                                                                      *)
  17. (*                                                                      *)
  18. (*     Calls:                                                           *)
  19. (*                                                                      *)
  20. (*        DELAY                                                         *)
  21. (*        Send_Modem_Command                                            *)
  22. (*        Async_Close                                                   *)
  23. (*        Async_Open                                                    *)
  24. (*        Async_Purge_Buffer                                            *)
  25. (*                                                                      *)
  26. (*     Remarks:                                                         *)
  27. (*                                                                      *)
  28. (*        First a hangup is tried by dropping DTR.  If that fails, and  *)
  29. (*        if a modem command delay string and a modem hang-up string    *)
  30. (*        are specified, they are used.                                 *)
  31. (*                                                                      *)
  32. (*----------------------------------------------------------------------*)
  33.  
  34. VAR
  35.    Open_Flag    : BOOLEAN;
  36.    Save_XonXoff : BOOLEAN;
  37.    Save_XonOV   : BOOLEAN;
  38.  
  39. BEGIN (* HangUpPhone *)
  40.                                    (* Make sure to clear XOFF received  *)
  41.                                    (* flag.                             *)
  42.  
  43.    Save_XonXoff     := Async_Do_XonXoff;
  44.    Async_Do_XonXoff := FALSE;
  45.  
  46.    Save_XonOV       := Async_OV_XonXoff;
  47.    Async_OV_XonXoff := FALSE;
  48.  
  49.    IF ( Async_XOff_Received ) THEN
  50.       Clear_XOFF_Received;
  51.  
  52.                                    (* Try hanging up by dropping DTR.   *)
  53.                                    (* We do this by closing port with   *)
  54.                                    (* DTR drop request.                 *)
  55.    Async_Close( TRUE );
  56.                                    (* Wait a second for DTR drop.       *)
  57.    DELAY( One_Second_Delay );
  58.                                    (* Re-open the port.                 *)
  59.  
  60.    Open_Flag := Async_Open( Comm_Port, Baud_Rate, Parity, Data_Bits,
  61.                             Stop_Bits );
  62.  
  63.                                    (* If modem hang-up command given,     *)
  64.                                    (* use it if dropping DTR didn't work. *)
  65.    IF Async_Carrier_Detect THEN
  66.       IF ( Modem_Hang_Up <> '' ) THEN
  67.          BEGIN
  68.  
  69.             DELAY( Modem_Escape_Time );
  70.  
  71.             Send_Modem_Command( Modem_Escape );
  72.  
  73.             DELAY( Modem_Escape_Time );
  74.  
  75.             Send_Modem_Command( Modem_Hang_Up );
  76.  
  77.             DELAY( Modem_Escape_Time );
  78.  
  79.          END;
  80.                                    (* Swallow any garbage characters *)
  81.    Async_Purge_Buffer;
  82.                                    (* Restore previous Xon/Xoff status *)
  83.  
  84.    Async_Do_XonXoff := Save_XonXoff;
  85.    Async_OV_XonXoff := Save_XonOV;
  86.  
  87. END   (* HangUpPhone *);
  88.