home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 245.lha / FastGro_v1.0 / IsMessageWaiting.asm < prev    next >
Encoding:
Assembly Source File  |  1989-04-10  |  518 b   |  27 lines
  1. ; IsMessageWaiting.asm    Copyright ©1987 Doug Houck
  2. ;
  3. ; NAME        IsMessageWaiting        test for message at port
  4. ; 
  5. ; SYNOPSIS
  6. ;        boo = IsMessageWaiting( MsgPort );
  7. ;
  8. ; FUNCTION
  9. ;        return non-zero if a message is waiting
  10. ;
  11. ; INPUT        struct MsgPort *msgport        port to examine
  12. ;
  13. ; RESULT    non-zero if message waiting at port
  14. ;        result in D0
  15. ;
  16.     far    code
  17.     far    data
  18.     public    _IsMessageWaiting
  19.  
  20. _IsMessageWaiting:
  21.     movea.l    4(sp),a0    ; a0 -> MsgPort
  22.     movea.l    $14(a0),a0    ; a0 = lh_Head
  23.     move.l    (a0),d0        ; is head's successor nil?
  24.     rts
  25.  
  26.     END
  27.