Rev 162 | Rev 431 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
425 | victor | 1 | $Revision: 425 $ |
1 | ha | 2 | ;------------------------------------------------------------------ |
3 | ; use "iglobal" for inserting initialized global data definitions. |
||
4 | ;------------------------------------------------------------------ |
||
5 | macro iglobal { |
||
6 | IGlobals equ IGlobals, |
||
7 | macro __IGlobalBlock { } |
||
8 | |||
162 | diamond | 9 | macro iglobal_nested { |
10 | IGlobals equ IGlobals, |
||
11 | macro __IGlobalBlock \{ } |
||
12 | |||
1 | ha | 13 | ;------------------------------------------------------------- |
14 | ; use 'uglobal' for inserting uninitialized global definitions. |
||
15 | ; even when you define some data values, these variables |
||
16 | ; will be stored as uninitialized data. |
||
17 | ;------------------------------------------------------------- |
||
18 | macro uglobal { |
||
19 | UGlobals equ UGlobals, |
||
20 | macro __UGlobalBlock { } |
||
21 | |||
162 | diamond | 22 | macro uglobal_nested { |
23 | UGlobals equ UGlobals, |
||
24 | macro __UGlobalBlock \{ } |
||
25 | |||
1 | ha | 26 | endg fix } ; Use endg for ending iglobal and uglobal blocks. |
162 | diamond | 27 | endg_nested fix \} |
1 | ha | 28 | |
29 | macro IncludeIGlobals{ |
||
30 | macro IGlobals dummy,[n] \{ __IGlobalBlock |
||
31 | purge __IGlobalBlock \} |
||
32 | match I, IGlobals \{ I \} } |
||
33 | |||
34 | |||
35 | macro IncludeUGlobals{ |
||
36 | macro UGlobals dummy,[n] \{ |
||
37 | \common |
||
38 | \local begin, size |
||
39 | begin = $ |
||
40 | virtual at $ |
||
41 | \forward |
||
42 | __UGlobalBlock |
||
43 | purge __UGlobalBlock |
||
44 | \common |
||
45 | size = $ - begin |
||
46 | end virtual |
||
47 | rb size |
||
48 | \} |
||
49 | match U, UGlobals \{ U \} } |
||
50 | |||
51 | macro IncludeAllGlobals { |
||
52 | IncludeIGlobals |
||
53 | IncludeUGlobals |
||
54 | } |
||
55 | |||
56 | iglobal |
||
57 | endg |
||
58 | |||
59 | uglobal |
||
60 | endg |