home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source / clearxof.mod < prev    next >
Encoding:
Text File  |  1988-01-24  |  1.7 KB  |  43 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Clear_XOFF_Received -- Clear XOFF received flag              *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Clear_XOFF_Received;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Clear_XOFF_Received                                  *)
  10. (*                                                                      *)
  11. (*     Purpose:    Clears XOFF received flag and restarts serial output *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Clear_XOFF_Received;                                          *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    Port_Val : BYTE;
  21.  
  22. BEGIN (* Clear_XOFF_Received *)
  23.  
  24.    IF Async_XOff_Received THEN
  25.       BEGIN
  26.                                    (* Clear XOFF received flag *)
  27.  
  28.          Async_XOff_Received := FALSE;
  29.  
  30.                                    (* Clear status line *)
  31.          IF Do_Status_Line THEN
  32.             Write_To_Status_Line( '             ', 65 );
  33.  
  34.                                    (* Start up serial output again *)
  35.  
  36.          Port_Val := PORT[ Async_Uart_Ier ];
  37.  
  38.          IF ( ( Port_Val AND 2 ) = 0 ) THEN
  39.             PORT[ Async_Uart_Ier ] := ( Port_Val OR 2 );
  40.  
  41.       END;
  42.  
  43. END   (* Clear_XOFF_Received *);