; MBFILE.MAC - 5/11/87 - MailBox file structure.

	entry	mfhs,mnext,mfhd,mlhd,mffree,mlfree,mnr,mvers
	entry	mfree,mcnt,mfhsl,mudt,mutm,mumnr
	entry	tmfhs,tmnext,tmfhd,tmlhd,tmffree,tmlfree,tmnr,tmvers
	entry	tmfree,tmcnt
	entry	mhprev,mhcur,msgnr
	entry	mmhs,mhtitl,mhfmsg,mhlmsg,mhnext,mhnr,mhsize,mhtype
	entry	mhstat,mhto,mhfrom,mhdate,mhtime,mhread,mhtit,mtitle
	entry	mhbbs,mhext
	entry	mmts,mtnext,mttext

	dseg

;; Mail file header sector.

mfhs:
mnext:	dw	1
mfhd:	dw	0
mlhd:	dw	0
mffree:	dw	0
mlfree:	dw	0
mnr:	dw	1
mvers:	db	2
mfree:	dw	0
mcnt:	dw	0
mudt:	db	'000000'
mutm:	db	'0000'
mumnr:	dw	0
mfhsl	equ	$-mfhs
	rept	99
	db	0
	endm
;; Copy of mfhs
tmfhs:
tmnext:	ds	2
tmfhd:	ds	2
tmlhd:	ds	2
tmffree:	ds	2
tmlfree:	ds	2
tmnr:	ds	2
tmvers:	ds	1
tmfree:	ds	2
tmcnt:	ds	2
tmudt:	ds	6
tmutm:	ds	4
tmumnr:	ds	2

mhcur:	ds	2		; Current header
msgnr:	ds	2		; Message number

;; Message header sector.

mhtitl	equ	80	;; Length of title
mmhs:
mhfmsg:	dw	0
mhlmsg:	dw	0
mhnext:	dw	0
mhnr:	dw	0
mhsize:	dw	0
mhtype:	db	' '
mhstat:	db	'N'
mhto:	db	'      '
mhfrom:	db	'      '
mhdate:	db	'      '
mhtime:	db	'    '
mhext:	dw	0
mhread:	dw	0
mhprev:	dw	0
mhbbs:	db	'      '
	dw	0
mhtit:	rept	mhtitl
	db	' '
	endm
mtitle:	ds	mhtitl

;; Message text sector.

mmts:
mtnext:	dw	0
mttext:	rept	126
	db	' '
	endm
	end