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 >
Wrap
Assembly Source File
|
1989-04-09
|
518b
|
27 lines
; IsMessageWaiting.asm Copyright ©1987 Doug Houck
;
; NAME IsMessageWaiting test for message at port
;
; SYNOPSIS
; boo = IsMessageWaiting( MsgPort );
;
; FUNCTION
; return non-zero if a message is waiting
;
; INPUT struct MsgPort *msgport port to examine
;
; RESULT non-zero if message waiting at port
; result in D0
;
far code
far data
public _IsMessageWaiting
_IsMessageWaiting:
movea.l 4(sp),a0 ; a0 -> MsgPort
movea.l $14(a0),a0 ; a0 = lh_Head
move.l (a0),d0 ; is head's successor nil?
rts
END