2025-04-27 07:49:33 -04:00

50 lines
1.1 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

; ----------------------------------------------------------
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
; ----------------------------------------------------------