home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oakland CPM Archive
/
oakcpm.iso
/
cpm
/
packet
/
rli120.ark
/
MBFILE.MAC
< prev
next >
Wrap
Text File
|
1987-05-11
|
1KB
|
86 lines
; 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