home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
trs80model2.tar.gz
/
trs80model2.tar
/
trsmssg.mac
< prev
next >
Wrap
Text File
|
1997-03-26
|
2KB
|
48 lines
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