home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / lib / PowerD / CtrlD.ass < prev    next >
Encoding:
Text File  |  1999-09-18  |  220 b   |  17 lines
  1.  
  2.     xdef    _CtrlD
  3.  
  4. _CtrlD    moveq    #0,d0
  5.     moveq    #0,d1
  6.     movea.l    $4.w,a6
  7.     jsr    -306(a6)        ; SetSignal()
  8.     btst    #13,d0
  9.     beq.s    .no
  10.     moveq    #0,d0
  11.     move.l    #8192,d1
  12.     jsr    -306(a6)        ; SetSignal()
  13. .yes    moveq    #-1,d0
  14.     rts
  15. .no    moveq    #0,d0
  16.     rts
  17.