home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / ucsdterak / sendb.text < prev    next >
Text File  |  1984-04-10  |  980b  |  33 lines
  1. ;                    ------------------------------
  2. ;                    .  SENDS TTY Output Routine  .
  3. ;                    ------------------------------
  4. ;
  5. ;     SENDBRK is a routine to send a continuous break to an IBM mainframe.
  6. ;     The appropriate PASCAL declaration is:
  7. ;
  8. ;         PROCEDURE SENDBRK; EXTERNAL;  (*to send a break*)
  9. ;
  10. ;
  11. XDB       .EQU   177526        ; absolute address, transmit data buffer
  12. XSR       .EQU   177524        ; absolute address, transmit status register
  13. ;
  14. ;
  15.           .PROC  SENDBRK
  16. ;
  17. SNDB1:    BIT    #200,@#XSR    ; wait for previous char to complete
  18.           BEQ    SNDB1
  19. ;
  20.           MOV    #1,@#XSR      ; transmit continuous break
  21.           MOV    #310,R1       ; wait 200 (=310 octal) milliseconds
  22. SNDB2:    MOV    #124,R0
  23. SNDB3:    SUB    #1,R0
  24.           BNE    SNDB3
  25.           SUB    #1,R1
  26.           BNE    SNDB2
  27.           MOV    #0,@#XSR      ; clear continuous break
  28. ;
  29.           RTS    PC            ; and return
  30. ;
  31.           .END
  32.  
  33.