1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
; This Macro was removed from sysmsg.inc. We had to remove this
; macro and put it into it's own include file in order to clear up
; some assembly errors. MS MASM will not allow a public declaration
; during the second pass of the assembler. IBM MASM will allow this.
;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; $M_DECLARE Macro
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
$M_DECLARE macro numcls ;
$M_DCOUNT = 0 ;
REPT numcls ;
$M_DCOUNT = $M_DCOUNT + 1 ;
$M_DECLARE2 %$M_DCOUNT ;
ENDM ;
IF COMR
IFNDEF $M_RT2 ; If Resident table is not in this assembly,
EXTRN $M_RT2:BYTE ; Must be external
ELSE
PUBLIC $M_RT2
ENDIF ;
ELSE
IFNDEF $M_RT ; If Resident table is not in this assembly,
EXTRN $M_RT:BYTE ; Must be external
ELSE
PUBLIC $M_RT
ENDIF ;
ENDIF
$M_CHECK $M_GET_MSG_ADDRESS ; If this subroutine is not in this assembly,
$M_CHECK $M_MSGSERV_1 ; If this subroutine is not in this assembly,
$M_CHECK $M_MSGSERV_2 ; If this subroutine is not in this assembly,
ENDM ;
;
$M_DECLARE2 macro innum ;
IF NOT COMR ; IF Not resident COMMAND.COM
IF NOT COMT ; IF Not transient COMMAND.COM
IFNDEF $M_CLS_&innum ; IF class is not in this assembly,
IF FARmsg ;
EXTRN $M_CLS_&innum:FAR ; Must be external
ELSE ;
EXTRN $M_CLS_&innum:NEAR ; Must be external
ENDIF ;
ELSE ; ELSE
PUBLIC $M_CLS_&innum ; Label PUBLIC
ENDIF ;
ELSE ; ELSE
IFDIF <$M_CLS_&innum>,<$M_CLS_1> ; IF NOT $M_CLS_1 or
IFDIF <$M_CLS_&innum>,<$M_CLS_2> ; IF NOT $M_CLS_2 then
IFNDEF $M_CLS_&innum ; IF class is not in this assembly,
IF FARmsg ;
EXTRN $M_CLS_&innum:FAR ; Must be external
ELSE ;
EXTRN $M_CLS_&innum:NEAR ; Must be external
ENDIF ;
ELSE ; ELSE
PUBLIC $M_CLS_&innum ; Label PUBLIC
ENDIF ;
ENDIF ;
ENDIF ;
ENDIF ;
ELSE ; ELSE
IFDIF <$M_CLS_&innum>,<$M_CLS_1> ; IF NOT $M_CLS_1 or
IFDIF <$M_CLS_&innum>,<$M_CLS_2> ; IF NOT $M_CLS_2 then
IFNDEF $M_CLS_&innum ; IF class is not in this assembly,
IF FARmsg ;
EXTRN $M_CLS_&innum:FAR ; Must be external
ELSE ;
EXTRN $M_CLS_&innum:NEAR ; Must be external
ENDIF ;
ELSE ; ELSE
PUBLIC $M_CLS_&innum ; Label PUBLIC
ENDIF ;
ENDIF ;
ENDIF ;
ENDIF ;
ENDM ;
;
$M_CHECK macro parm ;
IFNDEF parm ; IF class is not in this assembly,
IF FARmsg ;
EXTRN parm:FAR ; Must be external
ELSE ;
EXTRN parm:NEAR ; Must be external
ENDIF ;
ELSE
IF COMR
ELSE
PUBLIC parm
ENDIF
ENDIF ;
ENDM ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
IF1 ;
$M_DECLARE %$M_NUM_CLS ; Declare any class not in this assembly
ENDIF ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
