home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / trs80model2 / trsmssg.mac < prev    next >
Text File  |  1997-03-25  |  2KB  |  48 lines
  1.         subttl  messages (because the assembler is too dumb)
  2.         dseg
  3.         ;
  4.         ;
  5.         ;mssg   to reserve space for a message and it's length
  6.         ;       syntax  mssg    lab,<message>
  7.         ;       where lab is a maximum of four bytes
  8.         ;
  9.         mssg    macro   lab,mess
  10.         .xlist          ;do not list expansion
  11.         public  m_&lab,l_&lab
  12.         m_&lab:
  13.         db      '&mess'
  14.         l_&lab: db      0
  15.                 db      $-m_&lab
  16.         .list
  17.         endm
  18.         ;
  19.         ;       the message that should appear
  20.         ;
  21.         mssg    00,<Kermit (trsdos II, version 1.2)>
  22.         mssg    a0,<aborting due to fatal error>
  23.         mssg    u0,<KERMIT {(S,R),F=filename,B=baud,P=par,L=lrecl,C=channel}>
  24.         mssg    e0,<Kermit exit>
  25.         mssg    db0,<jumping from mjump>
  26.         mssg    db1,<jumping from rfjump>
  27.         mssg    db2,<jumping from rdjump>
  28.         mssg    db3,<entering receive-init>
  29.         mssg    db4,<entering receive-file>
  30.         mssg    db5,<entering receive-data>
  31.         mssg    db6,<entering rpack>
  32.         mssg    db7,<entering spack>
  33.         mssg    db8,<exiting timer call>
  34.         mssg    db9,<entering rp1>
  35.         mssg    db10,<entering rp2>
  36.         mssg    db11,<entering rp3>
  37.         mssg    db12,<entering rp4>
  38.         mssg    db13,<entering rp5>
  39.         mssg    db14,<entering rp6>
  40.         mssg    e3,<invalid word length>
  41.         mssg    e4,<invalid filename>
  42.         mssg    e5,<invalid parity>
  43.         mssg    e6,<unsupported baud rate>
  44.         mssg    e7,<invalid word length>
  45.         mssg    e8,<invalid channel>
  46.         mssg    e9,<invalid parameter>
  47.         end
  48.