50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
|
||
; ----------------------------------------------------------
|
||
|
||
PUBLIC $M_CLS_2
|
||
IF1
|
||
%out ... Including message Class 4
|
||
ENDIF
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
$M_CLASS_4_STRUC LABEL BYTE
|
||
$M_CLASS_ID <0FFH,EXPECTED_VERSION,Class_4_MessageCount>
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
|
||
$M_4_0FFFFH_STRUC LABEL BYTE
|
||
$M_ID <0FFFFH,$M_4_0FFFFH_MSG-$M_4_0FFFFH_STRUC>
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
|
||
$M_4_0FFFFH_MSG LABEL BYTE
|
||
DB $M_4_0FFFFH_END-$M_4_0FFFFH_MSG-1
|
||
DB "Parse Error %1",CR,LF
|
||
$M_4_0FFFFH_END LABEL BYTE
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
Class_4_MessageCount EQU 1
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
IF FARmsg
|
||
$M_CLS_2 PROC FAR
|
||
ELSE
|
||
$M_CLS_2 PROC NEAR
|
||
ENDIF
|
||
|
||
PUSH CS
|
||
POP ES
|
||
LEA DI,$M_CLASS_4_STRUC
|
||
ADD CX,$-$M_CLASS_4_STRUC
|
||
RET
|
||
|
||
$M_CLS_2 ENDP
|
||
|
||
; ----------------------------------------------------------
|
||
|
||
|