subttl  messages (because the assembler is too dumb)
        dseg
        ;
        ;
        ;mssg   to reserve space for a message and it's length
        ;       syntax  mssg    lab,<message>
        ;       where lab is a maximum of four bytes
        ;
        mssg    macro   lab,mess
        .xlist          ;do not list expansion
        public  m_&lab,l_&lab
        m_&lab:
        db      '&mess'
        l_&lab: db      0
                db      $-m_&lab
        .list
        endm
        ;
        ;       the message that should appear
        ;
        mssg    00,<Kermit (trsdos II, version 1.2)>
        mssg    a0,<aborting due to fatal error>
        mssg    u0,<KERMIT {(S,R),F=filename,B=baud,P=par,L=lrecl,C=channel}>
        mssg    e0,<Kermit exit>
        mssg    db0,<jumping from mjump>
        mssg    db1,<jumping from rfjump>
        mssg    db2,<jumping from rdjump>
        mssg    db3,<entering receive-init>
        mssg    db4,<entering receive-file>
        mssg    db5,<entering receive-data>
        mssg    db6,<entering rpack>
        mssg    db7,<entering spack>
        mssg    db8,<exiting timer call>
        mssg    db9,<entering rp1>
        mssg    db10,<entering rp2>
        mssg    db11,<entering rp3>
        mssg    db12,<entering rp4>
        mssg    db13,<entering rp5>
        mssg    db14,<entering rp6>
        mssg    e3,<invalid word length>
        mssg    e4,<invalid filename>
        mssg    e5,<invalid parity>
        mssg    e6,<unsupported baud rate>
        mssg    e7,<invalid word length>
        mssg    e8,<invalid channel>
        mssg    e9,<invalid parameter>
        end