54 lines
1.3 KiB
Plaintext
54 lines
1.3 KiB
Plaintext
|
||
; ----------------------------------------------------------
|
||
|
||
PUBLIC $M_MSGSERV_2
|
||
IF1
|
||
%out ... Including message Class 2
|
||
ENDIF
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
$M_CLASS_2_STRUC LABEL BYTE
|
||
$M_CLASS_ID <002H,EXPECTED_VERSION,Class_2_MessageCount>
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
$M_2_FF_STRUC LABEL BYTE
|
||
$M_ID <0FFFFH,$M_2_FF_MSG-$M_2_FF_STRUC>
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
$M_2_FF_MSG LABEL BYTE
|
||
DB $M_2_FF_END-$M_2_FF_MSG-1
|
||
DB "Parse Error %1"
|
||
$M_2_FF_END LABEL BYTE
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
Class_2_MessageCount EQU 1
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
IF FARmsg
|
||
$M_MSGSERV_2 PROC FAR
|
||
ELSE
|
||
$M_MSGSERV_2 PROC NEAR
|
||
ENDIF
|
||
|
||
PUSH CS
|
||
POP ES
|
||
LEA DI,$M_CLASS_2_STRUC
|
||
ADD CX,$-$M_CLASS_2_STRUC
|
||
RET
|
||
|
||
$M_MSGSERV_2 Endp
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
|