summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/APPEND/SYSMAC.LIB
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/APPEND/SYSMAC.LIB')
-rw-r--r--v4.0/src/CMD/APPEND/SYSMAC.LIB361
1 files changed, 361 insertions, 0 deletions
diff --git a/v4.0/src/CMD/APPEND/SYSMAC.LIB b/v4.0/src/CMD/APPEND/SYSMAC.LIB
new file mode 100644
index 0000000..7a38a59
--- /dev/null
+++ b/v4.0/src/CMD/APPEND/SYSMAC.LIB
@@ -0,0 +1,361 @@
1;
2; SYSTEM MACROS
3;
4; DISPLAY TEXT ON SCREEN
5;
6DISP MACRO TEXT,SEGM
7 IFNB <SEGM>
8 IFDIF <SEGM>,<DS>
9 PUSH DS
10 MOV AX,SEGM
11 MOV DS,AX
12 ENDIF
13 ENDIF
14 IFNB <TEXT>
15 LEA DX,TEXT
16 ENDIF
17 DOS DSTR
18 IFNB <SEGM>
19 IFDIF <SEGM>,<DS>
20 POP DS
21 ENDIF
22 ENDIF
23 ENDM
24;
25DMSG MACRO MSG
26 IFNB <MSG>
27 LEA DX,MSG
28 ENDIF
29 DISP
30 ENDM
31;
32DCHAR MACRO CHAR
33 PUSH DX
34 IFNB <CHAR>
35 MOV DL,CHAR ; SET CHARACTER
36 ELSE
37 MOV DL,AL
38 ENDIF
39 DOS DO
40 POP DX
41 ENDM
42;
43; CLEAR SCREEN
44;
45CLEAR MACRO
46 MOV CX,00H*256+00H ; ROW=00, COL=00
47 MOV DX,24H*256+79H ; ROW=24, COL=79
48 MOV BH,07H ; NORMAL ATTRIBUTE
49 MOV AX,06H*256+00H ; CLEAR WHOLE SCREEN
50 INT 10H
51 ENDM
52;
53POS MACRO ROW,COL,PAGE
54 IFNB <ROW>
55 MOV DX,ROW*256+COL ; SET ROW AND COLUMN
56 ENDIF
57 IFNB <PAGE>
58 MOV BH,PAGE ; SET PAGE
59 ELSE
60 MOV BH,0
61 ENDIF
62 MOV AH,02H ; POSTIION CURSOR
63 INT 10H
64 ENDM
65;
66DEFMSG MACRO ID,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10
67 IFNB <ID>
68ID LABEL BYTE ; DEFINE ESSAGE
69 ENDIF
70 IFNB <T1>
71 DB T1
72 ENDIF
73 IFNB <T2>
74 DB T2
75 ENDIF
76 IFNB <T3>
77 DB T3
78 ENDIF
79 IFNB <T4>
80 DB T4
81 ENDIF
82 IFNB <T5>
83 DB T5
84 ENDIF
85 IFNB <T6>
86 DB T6
87 ENDIF
88 IFNB <T7>
89 DB T7
90 ENDIF
91 IFNB <T8>
92 DB T8
93 ENDIF
94 IFNB <T9>
95 DB T9
96 ENDIF
97 IFNB <T10>
98 DB T10
99 ENDIF
100 DB '$'
101 ENDM
102;
103MOVE MACRO TO,LEN,FROM
104 IFNB <TO>
105 LEA DI,TO ; SET DESTINATION
106 ENDIF
107 IFNB <LEN>
108 MOV CX,LEN ; SET LENGTH
109 ENDIF
110 IFNB <FROM>
111 LEA SI,FROM ; SET SOURCE
112 ENDIF
113 REP MOVS BYTE PTR[DI],BYTE PTR[SI]
114 ENDM
115MOVEZ MACRO TO,FROM
116 IFNB <TO>
117 LEA DI,TO ; SET DESTINATION
118 ENDIF
119 IFNB <FROM>
120 LEA SI,FROM ; SET SOURCE
121 ENDIF
122 CALL MOVZ$
123 ENDM
124;
125SCAN MACRO TO,LEN,VALUE,TYPE
126 IFNB <TO>
127 LEA DI,TO ; SET DESTINATION
128 ENDIF
129 IFNB <LEN>
130 MOV CX,LEN ; SET LENGTH
131 ENDIF
132 IFNB <VALUE>
133 MOV AL,VALUE ; SET SOURCE
134 ENDIF
135 IFB <TYPE>
136 REPZ SCASB
137 ENDIF
138 IFIDN <TYPE>,<EQ>
139 REPZ SCASB
140 ENDIF
141 IFIDN <TYPE>,<Z>
142 REPZ SCASB
143 ENDIF
144 IFIDN <TYPE>,<NE>
145 REPNZ SCASB
146 ENDIF
147 IFIDN <TYPE>,<NZ>
148 REPNZ SCASB
149 ENDIF
150 ENDM
151;
152FILL MACRO TO,LEN,VALUE
153 PUSH DI
154 PUSH CX
155 IFNB <TO>
156 LEA DI,TO ; SET DESTINATION
157 ENDIF
158 IFNB <LEN>
159 MOV CX,LEN ; SET LENGTH
160 ENDIF
161 IFNB <VALUE>
162 MOV AL,VALUE ; SET SOURCE
163 ENDIF
164 REP STOS BYTE PTR[DI]
165 POP CX
166 POP DI
167 ENDM
168;
169COMP MACRO TO,LEN,FROM
170 IFNB <TO>
171 LEA DI,TO ; SET DESTINATION
172 ENDIF
173 IFNB <LEN>
174 MOV CX,LEN ; SET LENGTH
175 ENDIF
176 IFNB <FROM>
177 LEA SI,FROM ; SET SOURCE
178 ENDIF
179 REPE CMPS BYTE PTR[DI],BYTE PTR[SI]
180 ENDM
181COMPZ MACRO TO,FROM
182 IFNB <TO>
183 LEA DI,TO ; SET DESTINATION
184 ENDIF
185 IFNB <FROM>
186 LEA SI,FROM ; SET SOURCE
187 ENDIF
188 CALL CMPZ$
189 ENDM
190;
191XCHGS MACRO O1,O2
192 PUSH O1
193 PUSH O2
194 POP O1
195 POP O2
196 ENDM
197;
198JUMP MACRO COND,TARGET
199 LOCAL LAB
200 IFB <COND>
201 JMP TARGET
202 ENDIF
203 IFIDN <COND>,<A>
204 JNA LAB
205 JMP TARGET
206LAB:
207 ENDIF
208 IFIDN <COND>,<NBE>
209 JBE LAB
210 JMP TARGET
211LAB:
212 ENDIF
213 IFIDN <COND>,<AE>
214 JNAE LAB
215 JMP TARGET
216LAB:
217 ENDIF
218 IFIDN <COND>,<NB>
219 JB LAB
220 JMP TARGET
221LAB:
222 ENDIF
223 IFIDN <COND>,<B>
224 JNB LAB
225 JMP TARGET
226LAB:
227 ENDIF
228 IFIDN <COND>,<NAE>
229 JAE LAB
230 JMP TARGET
231LAB:
232 ENDIF
233 IFIDN <COND>,<C>
234 JNC LAB
235 JMP TARGET
236LAB:
237 ENDIF
238 IFIDN <COND>,<BE>
239 JNBE LAB
240 JMP TARGET
241LAB:
242 ENDIF
243 IFIDN <COND>,<NA>
244 JA LAB
245 JMP TARGET
246LAB:
247 ENDIF
248 IFIDN <COND>,<CXZ>
249 OR CX,CX
250 JNZ LAB
251 JMP TARGET
252LAB:
253 ENDIF
254 IFIDN <COND>,<E>
255 JNE LAB
256 JMP TARGET
257LAB:
258 ENDIF
259 IFIDN <COND>,<Z>
260 JNZ LAB
261 JMP TARGET
262LAB:
263 ENDIF
264 IFIDN <COND>,<G>
265 JNG LAB
266 JMP TARGET
267LAB:
268 ENDIF
269 IFIDN <COND>,<NLE>
270 JLE LAB
271 JMP TARGET
272LAB:
273 ENDIF
274 IFIDN <COND>,<GE>
275 JNGE LAB
276 JMP TARGET
277LAB:
278 ENDIF
279 IFIDN <COND>,<NL>
280 JL LAB
281 JMP TARGET
282LAB:
283 ENDIF
284 IFIDN <COND>,<L>
285 JNL LAB
286 JMP TARGET
287LAB:
288 ENDIF
289 IFIDN <COND>,<NGE>
290 JGE LAB
291 JMP TARGET
292LAB:
293 ENDIF
294 IFIDN <COND>,<LE>
295 JNLE LAB
296 JMP TARGET
297LAB:
298 ENDIF
299 IFIDN <COND>,<NG>
300 JG LAB
301 JMP TARGET
302LAB:
303 ENDIF
304 IFIDN <COND>,<NC>
305 JC LAB
306 JMP TARGET
307LAB:
308 ENDIF
309 IFIDN <COND>,<NE>
310 JE LAB
311 JMP TARGET
312LAB:
313 ENDIF
314 IFIDN <COND>,<NZ>
315 JZ LAB
316 JMP TARGET
317LAB:
318 ENDIF
319 IFIDN <COND>,<NO>
320 JO LAB
321 JMP TARGET
322LAB:
323 ENDIF
324 IFIDN <COND>,<NP>
325 JP LAB
326 JMP TARGET
327LAB:
328 ENDIF
329 IFIDN <COND>,<PO>
330 JPE LAB
331 JMP TARGET
332LAB:
333 ENDIF
334 IFIDN <COND>,<NS>
335 JS LAB
336 JMP TARGET
337LAB:
338 ENDIF
339 IFIDN <COND>,<O>
340 JNO LAB
341 JMP TARGET
342LAB:
343 ENDIF
344 IFIDN <COND>,<P>
345 JNP LAB
346 JMP TARGET
347LAB:
348 ENDIF
349 IFIDN <COND>,<PE>
350 JPO LAB
351 JMP TARGET
352LAB:
353 ENDIF
354 IFIDN <COND>,<S>
355 JNS LAB
356 JMP TARGET
357LAB:
358 ENDIF
359 ENDM
360;
361 \ No newline at end of file
HIC SVNT DRACONES