xref: /original-bsd/old/pcc/ccom.vax/VMS/jeql.mar (revision e1db577d)
1.MACRO	JEQL	LABLE,?AROUND
2	BNEQ	AROUND
3	BRW	LABLE
4AROUND:
5	.ENDM	JEQL
6
7
8.MACRO	JNEQ	LABLE,?AROUND
9	BEQL	AROUND
10	BRW	LABLE
11AROUND:
12	.ENDM	JNEQ
13
14
15.MACRO	JEQLU	LABLE,?AROUND
16	BNEQ	AROUND
17	BRW	LABLE
18AROUND:
19	.ENDM	JEQLU
20
21
22.MACRO	JNEQU	LABLE,?AROUND
23	BEQL	AROUND
24	BRW	LABLE
25AROUND:
26	.ENDM	JNEQU
27
28
29.MACRO	JLEQ	LABLE,?AROUND
30	BGTR	AROUND
31	BRW	LABLE
32AROUND:
33	.ENDM	JLEQ
34
35
36.MACRO	JGTR	LABLE,?AROUND
37	BLEQ	AROUND
38	BRW	LABLE
39AROUND:
40	.ENDM	JGTR
41
42
43.MACRO	JLSS	LABLE,?AROUND
44	BGEQ	AROUND
45	BRW	LABLE
46AROUND:
47	.ENDM	JLSS
48
49
50.MACRO	JGEQ	LABLE,?AROUND
51	BLSS	AROUND
52	BRW	LABLE
53AROUND:
54	.ENDM	JGEQ
55
56
57.MACRO	JLSSU	LABLE,?AROUND
58	BGEQU	AROUND
59	BRW	LABLE
60AROUND:
61	.ENDM	JLSSU
62
63
64.MACRO	JGTRU	LABLE,?AROUND
65	BLEQU	AROUND
66	BRW	LABLE
67AROUND:
68	.ENDM	JGTRU
69
70
71.MACRO	JGEQU	LABLE,?AROUND
72	BLSSU	AROUND
73	BRW	LABLE
74AROUND:
75	.ENDM	JGEQU
76
77
78.MACRO	JLEQU	LABLE,?AROUND
79	BGTRU	AROUND
80	BRW	LABLE
81AROUND:
82	.ENDM	JLEQU
83
84
85.MACRO	JVS	LABLE,?AROUND
86	BVC	AROUND
87	BRW	LABLE
88AROUND:
89	.ENDM	JVS
90
91
92.MACRO	JVC	LABLE,?AROUND
93	BVS	AROUND
94	BRW	LABLE
95AROUND:
96	.ENDM	JVC
97
98
99.MACRO	JCC	LABLE,?AROUND
100	BCS	AROUND
101	BRW	LABLE
102AROUND:
103	.ENDM	JCC
104
105
106.MACRO	JCS	LABLE,?AROUND
107	BCC	AROUND
108	BRW	LABLE
109AROUND:
110	.ENDM	JCS
111
112.MACRO	JLBS	SRC,LABLE,?AROUND
113	BLBC	SRC,AROUND
114	BRW	LABLE
115AROUND:
116	.ENDM	JLBS
117
118
119.MACRO	JLBC	SRC,LABLE,?AROUND
120	BLBS	SRC,AROUND
121	BRW	LABLE
122AROUND:
123	.ENDM	JLBC
124
125
126.MACRO	JBS	POS,SRC,LABLE,?AROUND
127	BBC	POS,SRC,AROUND
128	BRW	LABLE
129AROUND:
130	.ENDM	JBS
131
132
133.MACRO	JBC	POS,SRC,LABLE,?AROUND
134	BBS	POS,SRC,AROUND
135	BRW	LABLE
136AROUND:
137	.ENDM	JBC
138
139
140.MACRO	JBSS	POS,SRC,LABLE,?AROUND
141	BBCS	POS,SRC,AROUND
142	BRW	LABLE
143AROUND:
144	.ENDM	JBSS
145
146
147.MACRO	JBCS	POS,SRC,LABLE,?AROUND
148	BBSS	POS,SRC,AROUND
149	BRW	LABLE
150AROUND:
151	.ENDM	JBCS
152
153
154.MACRO	JBSC	POS,SRC,LABLE,?AROUND
155	BBCC	POS,SRC,AROUND
156	BRW	LABLE
157AROUND:
158	.ENDM	JBSC
159
160
161.MACRO	JBCC	POS,SRC,LABLE,?AROUND
162	BBSC	POS,SRC,AROUND
163	BRW	LABLE
164AROUND:
165	.ENDM	JBCC
166
167
168.MACRO	JBR	LABLE
169	BRW	LABLE
170	.ENDM	JBR
171
172
173.MACRO	.DATA	SEGMENT=0
174	.PSECT	C$_DATA'SEGMENT',-
175		NOEXE,LONG
176	.ENDM
177
178
179.MACRO	.TEXT	SEGMENT=0
180	.PSECT	C$_TEXT'SEGMENT',-
181		NOWRT,LONG
182	.ENDM
183
184
185.MACRO	.COMM	NAME,LENGTH=4
186	.SAVE
187	.PSECT	'NAME',-
188		NOEXE,LONG,GBL,OVR
189.=0
190NAME==.
191	.BLKB	LENGTH
192	.RESTORE
193	.ENDM
194
195
196.MACRO	.LCOMM	NAME,LENGTH=4
197	.SAVE
198	.PSECT	CLV$_'NAME',-
199		NOEXE,LONG,GBL,OVR
200.=0
201NAME=.
202	.BLKB	LENGTH
203	.RESTORE
204	.ENDM
205
206
207.MACRO	.SET	NAME,VALUE
208NAME=VALUE
209	.ENDM
210
211
212.MACRO	.ORG	VALUE
213.=VALUE
214	.ENDM
215
216
217.MACRO	.SPACE	VALUE
218.	=	.+VALUE
219	.ENDM	.SPACE
220