(----) OBJECT mlh
(   0)   head:PTR TO mln
(   4)   tail:PTR TO mln
(   8)   tailpred:PTR TO mln
(----) ENDOBJECT     /* SIZEOF=12 */

(----) OBJECT lh
(   0)   head:PTR TO ln
(   4)   tail:PTR TO ln
(   8)   tailpred:PTR TO ln
(  12)   type:CHAR
(  13)   pad:CHAR
(----) ENDOBJECT     /* SIZEOF=14 */

#define IsMsgPortEmpty/1
#define IsListEmpty/1