home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / ckermit5a190 / ck9asm.a < prev    next >
Text File  |  2020-01-01  |  1KB  |  70 lines

  1.     psect
  2.  
  3. sigmask:
  4.         link a5,#$0000
  5.         move.l d1,-(a7)
  6.         move.l d0,d1
  7.         moveq #0,d0
  8.         os9 F$SigMask
  9.         bcs.s sigerr
  10.         moveq #0,d0
  11. sigret
  12.         move.l (a7)+,d1
  13.         unlk a5
  14.         rts
  15. sigerr
  16.         move.l d1,errno(a6)
  17.         moveq #-1,d0
  18.         bra.s sigret
  19.  
  20. remove_alarm:
  21.         link a5,#$0000
  22.         movem.l d1,-(a7)
  23.         moveq.l #0,d0
  24.         move.w  #A$Delete,d1
  25.         os9     F$Alarm
  26.         exg     d0,d1
  27.         movem.l (a7)+,d1
  28.         bcc.s   return_success
  29.         bra.s   return_error
  30.  
  31. add_alarm:
  32.         link a5,#$0000
  33.         movem.l d1-d3,-(a7)
  34.         move.l  d0,d3
  35.         move.l  d1,d2
  36.         moveq.l #0,d0
  37.         move.w  #A$Set,d1
  38.         lsl.l   #8,d3                   times 256
  39.         bset.l  #31,d3                  1/256 seconds
  40.         os9     F$Alarm
  41.         exg     d0,d1
  42.         movem.l (a7)+,d1-d3
  43.         bcc.s   return_success
  44.  
  45. return_error
  46.         move.l  d0,errno(a6)
  47.         moveq   #-1,d0
  48.         bra.s   ret
  49. return_success
  50.         moveq #0,d0
  51. ret
  52.         unlk a5
  53.         rts
  54.  
  55. *int    send_break(path) int path;
  56. * sends a break on path using the SS_break setstat call to the driver
  57. * return 0 on success, -1 on error with appropriate errorcode in errno
  58. send_break:
  59.         link a5,#$0000
  60.         movem.l d1,-(a7)
  61.         move.w  #SS_Break,d1
  62.         os9     I$SetStt
  63.         exg     d0,d1
  64.         movem.l (a7)+,d1
  65.         bcc.s   return_success
  66.         bra.s   return_error
  67.  
  68.  
  69.     ends
  70.