![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmacros.inc CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / os232sdk / toolkt20 / masm / os2inc|
Return to cmacros.inc CVS log | Up to [OS/2 SDKs] / os232sdk / toolkt20 / masm / os2inc |
1.1 root 1: comment $
2: cmacros - assembly macros for interfacing to hhls
3: (C)Copyright Microsoft Corp. 1984-1990
4: $
5: .xcref
6: .xcref ??_out
7: ??_out macro t
8: ifndef ?QUIET
9: %out t
10: endif
11: endm
12: outif macro name,defval,onmsg,offmsg
13: ifndef name
14: ifb <defval>
15: name=0
16: else
17: name=defval
18: endif
19: endif
20: if name
21: name=1
22: ifnb <onmsg>
23: ??_out <! onmsg>
24: endif
25: else
26: ifnb <offmsg>
27: ??_out <! offmsg>
28: endif
29: endif
30: endm
31: .xcref ??error
32: ??error macro msg
33: %out e r r o r ----- msg
34: .err e r r o r ----- msg
35: endm
36: .xcref ??error2
37: ??error2 macro msg
38: if2
39: %out e r r o r ----- msg
40: .err e r r o r ----- msg
41: endif
42: endm
43: .xcref ?sps,?ps,?rps
44: ?ps=0
45: ?sps macro
46: ?ps=@Cpu
47: endm
48: ?rps macro
49: if ?ps and 80h
50: if ?ps and 08h
51: .386P
52: else
53: if ?ps and 04h
54: .286P
55: else
56: ??error2 <Internal error -- illegal CpuMode>
57: endif
58: endif
59: else
60: if ?ps and 08h
61: .386
62: else
63: if ?ps and 04h
64: .286
65: else
66: if ?ps and 02h
67: .186
68: else
69: if ?ps and 01h
70: .8086
71: else
72: ??error2 <Internal error -- illegal CpuMode>
73: endif
74: endif
75: endif
76: endif
77: endif
78: if ?ps and 800h
79: .387
80: else
81: if ?ps and 400h
82: .287
83: else
84: if ?ps and 100h
85: .8087
86: else
87: ??error2 <Internal error -- illegal CpuMode>
88: endif
89: endif
90: endif
91: endm
92: .xcref ASMpass
93: .xcref memS,memM,memL,memC,memH,memMOD,sizec,sized
94: if1
95: ASMpass=1
96: ifdef ?SMALL
97: memS=1
98: endif
99: ifdef ?MEDIUM
100: memM=1
101: endif
102: ifdef ?COMPACT
103: memC=1
104: endif
105: ifdef ?LARGE
106: memL=1
107: endif
108: ifdef ?HUGE
109: memH=1
110: endif
111: ??_out <cMacros Version 3.08 - 01/15/90>
112: ??_out <Copyright (C) Microsoft Corp. 1984-1990. All rights reserved.>
113: outif memS,0,<Small Model>
114: outif memM,0,<Medium model>
115: outif memL,0,<Large Model>
116: outif memC,0,<Compact Model>
117: outif memH,0,<Huge Model>
118: memMOD= memS + memM + memL + memC + memH
119: if memMOD ne 1
120: if memMOD eq 0
121: memS = 1
122: outif memS,0,<Small model>
123: else
124: ??error <must have only 1 memory model selected>
125: endif
126: endif
127: sizec= memM + memL + memH
128: sized= memL + memC + (memH*2)
129: outif ?DF,0,<No segments or groups will be defined>
130: outif ?TF,0,<Epilog sequences assume valid SP>
131: outif ?WIN,1,<Windows support>
132: outif ?PLM,1,<PL/M calling convention>
133: ifndef ?NODATA
134: ?nodata1=0
135: else
136: ?nodata1=1
137: ??_out <! NODATA module>
138: endif
139: ifndef ?CHKSTK
140: ?chkstk1=0
141: else
142: ?chkstk1=1
143: ifdef ?CHKSTKPROC
144: ??_out <! Private stack checking enabled>
145: else
146: ??_out <! Stack checking enabled>
147: endif
148: endif
149: ifndef DOS5
150: ?DOS5=0
151: else
152: ?DOS5=1
153: ??_out <! DOS5 module>
154: endif
155: ifdef ?PROFILE
156: ??_out <! Native profiling enabled>
157: endif
158: ifdef ATTRPROF
159: ??_out <! Attributed profiling enabled>
160: ?aprof1=1
161: else
162: ?aprof1=0
163: endif
164: ifndef ?NO_BP
165: ?no_bp1=0
166: else
167: ?no_bp1=1
168: ??_out <! NO_BP is default>
169: endif
170: ifndef ?REG32
171: ?bigreg=0
172: else
173: ?bigreg=1
174: ??_out <! 32-bit registers recognized.>
175: endif
176: ifndef ?ENTER
177: ?enter1=0
178: else
179: ?enter1=1
180: ??_out <! ENTER/LEAVE module>
181: endif
182: ifdef ?USE32
183: ?u32=1
184: .xcref ?u32
185: endif
186: ifdef ?USE16
187: ?u32=0
188: .xcref ?u32
189: endif
190: else
191: ASMpass=2
192: endif
193: .xcref ?n,?ax,?ah,?al,?bx,?bh
194: .xcref ?bl,?cx,?ch,?cl,?dx,?dh
195: .xcref ?dl,?si,?di,?es,?ds,?bp
196: .xcref ?sp,?ss,?cs
197: .xcref ?n,?AX,?AH,?AL,?BX,?BH
198: .xcref ?BL,?CX,?CH,?CL,?DX,?DH
199: .xcref ?DL,?SI,?DI,?ES,?DS,?BP
200: .xcref ?SP,?SS,?CS
201: if ?bigreg
202: .xcref ?eax,?ebx,?ecx,?edx,?esi,?edi
203: .xcref ?ebp,?esp,?fs,?gs
204: .xcref ?EAX,?EBX,?ECX,?EDX,?ESI,?EDI
205: .xcref ?EBP,?ESP,?FS,?GS
206: endif
207: .xcref ?rsl,?cpd,?argl,?argc,?ba
208: .xcref ?acb,???,?po
209: .xcref ?pas,?pc
210: .xcref uconcat,mpush,mpop
211: .xcref ?ri,?pp,?pp1,?al1
212: .xcref ?ad,?ap,?atal,?dd,?dd1,?dd2
213: .xcref ?pg,?pg1,?aloc,?cs1,?cs2
214: .xcref ?DF,?TF,?ff,?PLM,?WIN,?ia,?pu,?adj
215: .xcref ?uf,?rp,?nx,?nd,?nodata1,?chkstk1,?aprof1,?aprof2,?DOS5
216: .xcref ?wfp,arg,cCall,cProc,assumes,?cs3,?cs2,?cs1
217: .xcref defgrp,addseg,createSeg
218: .xcref save,outif,errnz,errn$,errnz1
219: .xcref ?PLMPrevParm,?gcc
220: .xcref ?cCall1,?pcc,?no_bp1,?no_bp2,?bigreg,?enter1
221: .xcref ?cbe,?pcbe
222: ?rsl = 0
223: ?cpd = 0
224: ?argl = 0
225: ?argc = 0
226: ?ba = 0
227: ?acb = 0
228: ??? = 0
229: ?po = 0
230: ?pas = 0
231: ?pc = 0
232: ?ia = 0
233: ?pu = 0
234: ?adj = 0
235: ?rp = 0
236: ?uf = 0
237: ?nd = 0
238: ?ent = 0
239: ?nx = 0
240: ?wfp = 0
241: ?ff = 0
242: ?dd2 = 0
243: ?cCall1 = 0
244: ?pcc = ?PLM
245: ?PLMPrevParm = 0
246: ?no_bp2 = ?no_bp1
247: ?cbe = 0
248: ?aprof2 = 0
249: .xcref ?casen
250: if1
251: ?casen = 0
252: endif
253: ?n = 0000000000000000b
254: ?ax = 0000000000000011b
255: ?ah = 0000000000000001b
256: ?al = 0000000000000010b
257: ?bx = 0000000000001100b
258: ?bh = 0000000000000100b
259: ?bl = 0000000000001000b
260: ?cx = 0000000000110000b
261: ?ch = 0000000000010000b
262: ?cl = 0000000000100000b
263: ?dx = 0000000011000000b
264: ?dh = 0000000001000000b
265: ?dl = 0000000010000000b
266: ?si = 0000000100000000b
267: ?di = 0000001000000000b
268: ?es = 0000010000000000b
269: ?ds = 0000100000000000b
270: ?bp = 0001000000000000b
271: ?sp = 0010000000000000b
272: ?ss = 0100000000000000b
273: ?cs = 1000000000000000b
274: if ?bigreg
275: ?sps
276: .386p
277: ?eax = 10000000000000000b
278: ?ebx = 100000000000000000b
279: ?ecx = 1000000000000000000b
280: ?edx = 10000000000000000000b
281: ?esi = 100000000000000000000b
282: ?edi = 1000000000000000000000b
283: ?ebp = 10000000000000000000000b
284: ?esp = 100000000000000000000000b
285: ?fs = 1000000000000000000000000b
286: ?gs = 10000000000000000000000000b
287: ?rps
288: endif
289: ?AX = 0000000000000011b
290: ?AH = 0000000000000001b
291: ?AL = 0000000000000010b
292: ?BX = 0000000000001100b
293: ?BH = 0000000000000100b
294: ?BL = 0000000000001000b
295: ?CX = 0000000000110000b
296: ?CH = 0000000000010000b
297: ?CL = 0000000000100000b
298: ?DX = 0000000011000000b
299: ?DH = 0000000001000000b
300: ?DL = 0000000010000000b
301: ?SI = 0000000100000000b
302: ?DI = 0000001000000000b
303: ?ES = 0000010000000000b
304: ?DS = 0000100000000000b
305: ?BP = 0001000000000000b
306: ?SP = 0010000000000000b
307: ?SS = 0100000000000000b
308: ?CS = 1000000000000000b
309: if ?bigreg
310: ?sps
311: .386p
312: ?EAX = 10000000000000000b
313: ?EBX = 100000000000000000b
314: ?ECX = 1000000000000000000b
315: ?EDX = 10000000000000000000b
316: ?ESI = 100000000000000000000b
317: ?EDI = 1000000000000000000000b
318: ?EBP = 10000000000000000000000b
319: ?ESP = 100000000000000000000000b
320: ?FS = 1000000000000000000000000b
321: ?GS = 10000000000000000000000000b
322: ?rps
323: endif
324: .cref
325: uconcat macro a,b,c,d,e,f,g
326: a&b c&d e&f&g
327: endm
328: mpush macro r
329: if ?bigreg
330: ?sps
331: .386p
332: irp x,<ax,bx,cx,dx,si,di,bp,sp>
333: if (r and ?e&&x)
334: push e&&x
335: else
336: if (r and ?&&x)
337: push x
338: endif
339: endif
340: endm
341: irp x,<es,ds,ss,cs,fs,gs>
342: if (r and ?&&x)
343: push x
344: endif
345: endm
346: ?rps
347: else
348: irp x,<ax,bx,cx,dx,si,di,es,ds,bp,sp,ss,cs>
349: if (r and ?&&x)
350: push x
351: endif
352: endm
353: endif
354: endm
355: mpop macro r
356: if ?bigreg
357: ?sps
358: .386p
359: irp x,<gs,fs,cs,ss,ds,es>
360: if (r and ?&&x)
361: pop x
362: endif
363: endm
364: irp x,<sp,bp,di,si,dx,cx,bx,ax>
365: if (r and ?e&&x)
366: pop e&&x
367: else
368: if (r and ?&&x)
369: pop x
370: endif
371: endif
372: endm
373: ?rps
374: else
375: irp x,<cs,ss,sp,bp,ds,es,di,si,dx,cx,bx,ax>
376: if (r and ?&&x)
377: pop x
378: endif
379: endm
380: endif
381: endm
382: save macro r
383: ?rsl=0
384: ?ri ?rsl,<r>
385: endm
386: ?ri macro n,r
387: irp x,<r>
388: ifdef ?&&x
389: n=n or ?&&x
390: else
391: ??error2 <unknown register x>
392: .err
393: endif
394: endm
395: endm
396: .xcref
397: .xcref parmB,parmW,parmD,parmQ,parmT,parmCP,parmDP,parmH
398: .cref
399: parmB macro n
400: ?pp <n>,<byte>,2,1
401: endm
402: parmW macro n
403: ?pp <n>,<word>,2,2
404: endm
405: parmD macro n
406: ife ?pcc
407: irp x,<n>
408: ?pp <&&x>,<dword>,0,4
409: ?pp <off_&&x>,<word>,2,2
410: ?pp <seg_&&x>,<word>,2,2
411: endm
412: else
413: irp x,<n>
414: ?pp <seg_&&x>,<word>,2,2
415: ?pp <off_&&x>,<word>,2,2
416: ?pp <&&x>,<dword>,0,4
417: endm
418: endif
419: endm
420: parmH macro n
421: ?pp <n>,<word>,4,2
422: endm
423: parmQ macro n
424: ?pp <n>,<qword>,8,8
425: endm
426: parmT macro n
427: ?pp <n>,<tbyte>,10,10
428: endm
429: if sizec
430: parmCP macro n
431: parmD <n>
432: endm
433: else
434: parmCP macro n
435: parmW <n>
436: endm
437: endif
438: if sized
439: parmDP macro n
440: parmD <n>
441: endm
442: else
443: parmDP macro n
444: parmW <n>
445: endm
446: endif
447: ?pp macro n,t,l,s
448: if ?cpd
449: .xcref
450: irp x,<n>
451: .xcref ?t_&&x
452: ?t_&&x=s
453: ife ?pcc
454: ?pp1 x,<t>,,,%(?po+?adj)
455: ?po=?po+l
456: else
457: ?PLMPrevParm=?PLMPrevParm+1
458: ?po=?po+l
459: ?pp1 x,<t>,%?po,%?adj,,%?PLMPrevParm,%(?PLMPrevParm-1)
460: endif
461: endm
462: .cref
463: else
464: ??error2 <parm(s) "&n" declared outside proc def>
465: endif
466: endm
467: ?pp1 macro n,t,o,a,b,cpc,ppc
468: ife ?pcc
469: if ?no_bp2
470: n equ (t ptr [+b])
471: else
472: n equ (t ptr [bp][+b])
473: endif
474: else
475: .xcref
476: .xcref ?PLMParm&cpc
477: .cref
478: if ?no_bp2
479: ?PLMParm&cpc ¯o po
480: uconcat <n>,,<equ>,,<(t ptr [+>,%(a+po-o),<])>
481: ?PLMParm&ppc po
482: purge ?PLMParm&cpc
483: &endm
484: else
485: ?PLMParm&cpc ¯o po
486: uconcat <n>,,<equ>,,<(t ptr [bp][+>,%(a+po-o),<])>
487: ?PLMParm&ppc po
488: purge ?PLMParm&cpc
489: &endm
490: endif
491: endif
492: endm
493: ifndef ?NOPARMR
494: .xcref
495: .xcref ?pr,parmR
496: .cref
497: parmR macro n,r,r2
498: ?pr n,r,r2,%?rp,%(?ia+2)
499: endm
500: ?pr macro n,r,r2,i,o
501: .xcref
502: ifnb <r2>
503: parmR seg_&n,r
504: parmR off_&n,r2
505: if ?no_bp2
506: n equ (dword ptr [-o-2])
507: else
508: n equ (dword ptr [bp][-o-2])
509: endif
510: .xcref ?t_&n
511: ?t_&n=4
512: else
513: .xcref ?rp&i
514: ?rp&i=0
515: ifdef ?&r
516: ?rp&i=?&r
517: endif
518: if ??? or (?cpd eq 0) or (?rp&i eq 0)
519: ??error2 <invalid parmR encountered: &n,&r>
520: exitm
521: endif
522: if ?no_bp2
523: n equ (word ptr [-o])
524: else
525: n equ (word ptr [bp][-o])
526: endif
527: .xcref ?t_&n
528: ?t_&n=2
529: irp x,<bh,ch,dh,bl,cl,dl,ah,al>
530: if ?&&x eq ?&r
531: if ?no_bp2
532: n equ (byte ptr [-o])
533: else
534: n equ (byte ptr [bp][-o])
535: endif
536: ?t_&n=1
537: exitm
538: endif
539: endm
540: ?ia=?ia+2
541: ?rp=?rp+1
542: endif
543: .cref
544: endm
545: endif
546: .xcref
547: .xcref localB,localW,localD,localQ,localT,localCP,localDP,localV
548: .cref
549: localB macro n
550: ?aloc <n>,<byte ptr>,1,1,0
551: endm
552: localW macro n
553: ?aloc <n>,<word ptr>,2,2,1
554: endm
555: localD macro n
556: irp x,<n>
557: ?aloc <seg_&&x>,<word ptr>,2,2,1
558: ?aloc <off_&&x>,<word ptr>,2,2,1
559: ?aloc <&&x>,<dword ptr>,0,4,1
560: endm
561: endm
562: localQ macro n
563: ?aloc <n>,<qword ptr>,8,8,1
564: endm
565: localT macro n
566: ?aloc <n>,<tbyte ptr>,10,10,1
567: endm
568: if sizec
569: localCP macro n
570: localD <n>
571: endm
572: else
573: localCP macro n
574: localW <n>
575: endm
576: endif
577: if sized
578: localDP macro n
579: localD <n>
580: endm
581: else
582: localDP macro n
583: localW <n>
584: endm
585: endif
586: localV macro n,a
587: ?aloc <n>,,%(a),0,1
588: endm
589: ?aloc macro n,t,l,s,a
590: if ?cpd
591: .xcref
592: irp x,<n>
593: ???=???+l
594: if a
595: ???=((??? + 1) and 0fffeh)
596: endif
597: ?al1 x,<t>,%(???+?ia)
598: .xcref ?t_&&x
599: ?t_&&x=s
600: endm
601: .cref
602: else
603: ??error2 <locals "&n" declared outside procedure def>
604: endif
605: endm
606: ?al1 macro n,t,o
607: if ?no_bp2
608: n equ (t [-o])
609: else
610: n equ (t [bp][-o])
611: endif
612: endm
613: ?gcc macro s,i,cc
614: s = i
615: ifnb <cc>
616: ifidn <cc>,<C>
617: s=0
618: endif
619: ifidn <cc>,<PLM>
620: s=1
621: endif
622: ifidn <cc>,<PASCAL>
623: s=1
624: endif
625: endif
626: endm
627: ifndef ?NOGLOBAL
628: .xcref
629: .xcref globalB,globalW,globalD,globalQ,globalT,globalCP,globalDP
630: .cref
631: globalB macro n,i,s,c
632: ?ad <n>,1
633: ?dd n,1,<byte>,<db>,<i>,<s>,<c>
634: endm
635: globalW macro n,i,s,c
636: ?ad <n>,2
637: ?dd n,1,<word>,<dw>,<i>,<s>,<c>
638: endm
639: globalD macro n,i,s,c
640: ?ad <n>,4
641: ?dd n,1,<dword>,<dd>,<i>,<s>,<c>
642: off_&n equ word ptr n[0]
643: seg_&n equ word ptr n[2]
644: endm
645: globalQ macro n,i,s,c
646: ?ad <n>,8
647: ?dd n,1,<qword>,<dq>,<i>,<s>,<c>
648: endm
649: globalT macro n,i,s,c
650: ?ad <n>,10
651: ?dd n,1,<tbyte>,<dt>,<i>,<s>,<c>
652: endm
653: if sizec
654: globalCP macro n,i,s,c
655: globalD n,<i>,<s>,<c>
656: endm
657: else
658: globalCP macro n,i,s,c
659: globalW n,<i>,<s>,<c>
660: endm
661: endif
662: if sized
663: globalDP macro n,i,s,c
664: globalD n,<i>,<s>,<c>
665: endm
666: else
667: globalDP macro n,i,s,c
668: globalW n,<i>,<s>,<c>
669: endm
670: endif
671: endif
672: ifndef ?NOSTATIC
673: .xcref
674: .xcref staticB,staticW,staticD,staticQ,staticT,staticCP,staticDP
675: .cref
676: staticB macro n,i,s
677: ?ad <n>,1
678: ?dd n,0,<byte>,<db>,<i>,<s>,<PLM>
679: endm
680: staticW macro n,i,s
681: ?ad <n>,2
682: ?dd n,0,<word>,<dw>,<i>,<s>,<PLM>
683: endm
684: staticD macro n,i,s
685: ?ad <n>,4
686: ?dd n,0,<dword>,<dd>,<i>,<s>,<PLM>
687: endm
688: staticQ macro n,i,s
689: ?ad <n>,8
690: ?dd n,0,<qword>,<dq>,<i>,<s>,<PLM>
691: endm
692: staticT macro n,i,s
693: ?ad <n>,10
694: ?dd n,0,<tbyte>,<dt>,<i>,<s>,<PLM>
695: endm
696: if sizec
697: staticCP macro n,i,s
698: staticD n,<i>,<s>
699: endm
700: else
701: staticCP macro n,i,s
702: staticW n,<i>,<s>
703: endm
704: endif
705: if sized
706: staticDP macro n,i,s
707: staticD n,<i>,<s>
708: endm
709: else
710: staticDP macro n,i,s
711: staticW n,<i>,<s>
712: endm
713: endif
714: endif
715: ?dd macro n,p,t,d,i,s,c
716: ?gcc ?dd2,%?PLM,<c>
717: ife ?dd2
718: n label t
719: ?dd1 _&n,p,<d>,<i>,<s>
720: else
721: ?dd1 n,p,<d>,<i>,<s>
722: endif
723: endm
724: ?dd1 macro n,p,d,i,s
725: if p
726: public n
727: endif
728: ifb <s>
729: n d i
730: else
731: ifb <i>
732: n d s dup (?)
733: else
734: n d s dup (i)
735: endif
736: endif
737: endm
738: ifndef ?NOEXTERN
739: .xcref
740: .xcref ?ex1,?ex2,externB,externW,externD,externQ,externT
741: .xcref externNP,externFP,externP,externCP,externDP,externA
742: .cref
743: ?ex2 = 0
744: externA macro n,c
745: ?ex1 <n>,40h,<abs>,<c>,<>
746: endm
747: externB macro n,c
748: ?ex1 <n>,1,<byte>,<c>,<>
749: endm
750: externW macro n,c
751: ?ex1 <n>,2,<word>,<c>,<>
752: endm
753: externD macro n,c
754: ?ex1 <n>,4,<dword>,<c>,<>
755: endm
756: externQ macro n,c
757: ?ex1 <n>,8,<qword>,<c>,<>
758: endm
759: externT macro n,c
760: ?ex1 <n>,10,<tbyte>,<c>,<>
761: endm
762: externNP macro n,c
763: ?ex1 <n>,2,<near>,<c>,<cc>
764: endm
765: externFP macro n,c
766: ?ex1 <n>,4,<far>,<c>,<cc>
767: endm
768: if sizec
769: externP macro n,c
770: ?ex1 <n>,4,<far>,<c>,<cc>
771: endm
772: else
773: externP macro n,c
774: ?ex1 <n>,2,<near>,<c>,<cc>
775: endm
776: endif
777: if sizec
778: externCP macro n,c
779: ?ex1 <n>,4,<dword>,<c>,<>
780: endm
781: else
782: externCP macro n,c
783: ?ex1 <n>,2,<word>,<c>,<>
784: endm
785: endif
786: if sized
787: externDP macro n,c
788: ?ex1 <n>,4,<dword>,<c>,<>
789: endm
790: else
791: externDP macro n,c
792: ?ex1 <n>,2,<word>,<c>,<>
793: endm
794: endif
795: ?ex1 macro n,s,d,c,scv
796: ?gcc ?ex2,%?PLM,<c>
797: irp x,<n>
798: .xcref
799: .xcref ?t_&&x
800: .cref
801: ?t_&&x=s
802: ife ?ex2
803: extrn _&&x:&d
804: x equ _&&x
805: else
806: extrn x:&d
807: endif
808: ifidn <scv>,<cc>
809: .xcref
810: .xcref ?CC&&x
811: .cref
812: ?CC&&x=?ex2
813: endif
814: endm
815: endm
816: endif
817: ifndef ?NOLABEL
818: .xcref
819: .xcref ?lb1,?lblpu,?lb2
820: .xcref labelB,labelW,labelD,labelQ,labelT
821: .xcref labelNP,labelFP,labelP,labelCP,labelDP
822: .cref
823: ?lblpu = 0
824: ?lb2 = 0
825: labelB macro n,c
826: ?lb1 <n>,1,<byte>,<c>
827: endm
828: labelW macro n,c
829: ?lb1 <n>,2,<word>,<c>
830: endm
831: labelD macro n,c
832: ?lb1 <n>,4,<dword>,<c>
833: endm
834: labelQ macro n,c
835: ?lb1 <n>,8,<qword>,<c>
836: endm
837: labelT macro n,c
838: ?lb1 <n>,10,<tbyte>,<c>
839: endm
840: labelNP macro n,c
841: ?lb1 <n>,2,<near>,<c>
842: endm
843: labelFP macro n,c
844: ?lb1 <n>,4,<far>,<c>
845: endm
846: if sizec
847: labelP macro n,c
848: ?lb1 <n>,4,<far>,<c>
849: endm
850: else
851: labelP macro n,c
852: ?lb1 <n>,2,<near>,<c>
853: endm
854: endif
855: if sizec
856: labelCP macro n,c
857: ?lb1 <n>,4,<dword>,<c>
858: endm
859: else
860: labelCP macro n,c
861: ?lb1 <n>,2,<word>,<c>
862: endm
863: endif
864: if sized
865: labelDP macro n,c
866: ?lb1 <n>,4,<dword>,<c>
867: endm
868: else
869: labelDP macro n,c
870: ?lb1 <n>,2,<word>,<c>
871: endm
872: endif
873: ?lb1 macro n,s,d,c
874: ?gcc ?lb2,%?PLM,<c>
875: ?lblpu=0
876: irp x,<n>
877: ifidn <x>,<PUBLIC>
878: ?lblpu=1
879: else
880: .xcref
881: .xcref ?t_&&x
882: .cref
883: ?t_&&x=s
884: ife ?lb2
885: if ?lblpu
886: public _&&x
887: endif
888: _&&x label &d
889: x equ _&&x
890: else
891: if ?lblpu
892: public x
893: endif
894: x label &d
895: endif
896: endif
897: endm
898: endm
899: endif
900: ifndef ?NODEF
901: .xcref
902: .xcref defB,defW,defD,defQ,defT,defCP,defDP
903: .cref
904: defB macro n
905: ?ad <n>,1
906: endm
907: defW macro n
908: ?ad <n>,2
909: endm
910: defD macro n
911: ?ad <n>,4
912: endm
913: defQ macro n
914: ?ad <n>,8
915: endm
916: defT macro n
917: ?ad <n>,10
918: endm
919: if sizec
920: defCP macro n
921: defD <n>
922: endm
923: else
924: defCP macro n
925: defW <n>
926: endm
927: endif
928: if sized
929: defDP macro n
930: defD <n>
931: endm
932: else
933: defDP macro n
934: defW <n>
935: endm
936: endif
937: endif
938: ?ad macro n,s
939: irp x,<n>
940: .xcref
941: .xcref ?t_&&x
942: .cref
943: ?t_&&x=s
944: endm
945: endm
946: ifndef ?NOPTR
947: .xcref
948: .xcref regPtr,farPtr
949: .cref
950: regPtr macro n,s,o
951: farPtr n,s,o
952: endm
953: farPtr macro n,s,o
954: .xcref
955: .xcref ?t_&n
956: .cref
957: n ¯o
958: push s
959: push o
960: &endm
961: ?t_&n=80h
962: endm
963: endif
964: arg macro a
965: irp x,<a>
966: ?argc=?argc+1
967: ?atal <x>,%?argc
968: endm
969: endm
970: ?atal macro n,i
971: .xcref
972: .xcref ?ali&i
973: .cref
974: ?ali&i ¯o
975: ?ap <n>
976: &endm
977: endm
978: ?ap macro n
979: ?argl=?argl+2
980: ifdef ?t_&n
981: ife ?t_&n-1
982: push word ptr (n)
983: exitm
984: endif
985: ife ?t_&n-2
986: push n
987: exitm
988: endif
989: ife ?t_&n-4
990: if ?bigreg
991: ?sps
992: .386p
993: push dword ptr (n)
994: ?rps
995: else
996: push word ptr (n)[2]
997: push word ptr (n)
998: endif
999: ?argl=?argl+2
1000: exitm
1001: endif
1002: ife ?t_&n-8
1003: if ?bigreg
1004: ?sps
1005: .386p
1006: push dword ptr (n)[4]
1007: push dword ptr (n)
1008: ?rps
1009: else
1010: push word ptr (n)[6]
1011: push word ptr (n)[4]
1012: push word ptr (n)[2]
1013: push word ptr (n)
1014: endif
1015: ?argl=?argl+6
1016: exitm
1017: endif
1018: if ?t_&n and 80h
1019: n
1020: ?argl=?argl+2
1021: exitm
1022: endif
1023: ife ?t_&n
1024: push word ptr (n)
1025: exitm
1026: endif
1027: endif
1028: push n
1029: endm
1030: cCall macro n,a,c
1031: ifnb <a>
1032: arg <a>
1033: endif
1034: mpush %?rsl
1035: ifdef ?CC&n
1036: ?cCall1=?CC&n
1037: else
1038: ?cCall1=?PLM
1039: endif
1040: ifnb <c>
1041: ?gcc ?cCall1,%?cCall1,<c>
1042: endif
1043: ?argl=0
1044: ife ?cCall1
1045: ?acb=?argc
1046: else
1047: ?acb=1
1048: endif
1049: rept ?argc
1050: uconcat <?ali>,%?acb
1051: uconcat <purge>,,<?ali>,%?acb
1052: ife ?cCall1
1053: ?acb=?acb-1
1054: else
1055: ?acb=?acb+1
1056: endif
1057: endm
1058: call n
1059: if ((?cCall1 eq 0) and (?argl ne 0))
1060: add sp,?argl
1061: endif
1062: mpop %?rsl
1063: ?rsl=0
1064: ?argc= 0
1065: ?argl= 0
1066: endm
1067: cProc macro n,cf,a
1068: if ?cpd
1069: ?utpe
1070: endif
1071: ?cpd=1
1072: ???=0
1073: ?argc=0
1074: ?ba=0
1075: ?po=0
1076: ?pu=0
1077: ?ia=0
1078: ?adj=4
1079: ?rp=0
1080: ?uf=0
1081: ?wfp=?WIN
1082: ?ff=0
1083: ?pas=0
1084: ?pcc=?PLM
1085: ?no_bp2=?no_bp1
1086: ?aprof2=?aprof1
1087: ifnb <a>
1088: ?ri ?pas,<a>
1089: endif
1090: ?pc=sizec
1091: ?nd=?nodata1
1092: ?ent=?enter1
1093: ?nx=0
1094: irp x,<cf>
1095: ifdef ??_cproc_&&x
1096: ??_cproc_&&x
1097: else
1098: ??error2 <e r r o r - unknown keyword x>
1099: .err
1100: endif
1101: endm
1102: if ?pcc
1103: ?PLMPrevParm=0
1104: .xcref
1105: .xcref ?PLMParm0
1106: .cref
1107: ?PLMParm0 ¯o
1108: purge ?PLMParm0
1109: &endm
1110: endif
1111: .xcref
1112: .xcref ?CC&n
1113: .cref
1114: ?CC&n=?pcc
1115: if (?nx eq 1) and (?nd eq 0)
1116: ?nx = 0
1117: ??error2 <ATOMIC specified without NODATA - ATOMIC ignored>
1118: endif
1119: if ?ent
1120: if ?wfp
1121: ?ent = 0
1122: ??error2 <ENTER specified without NONWIN - ENTER ignored>
1123: endif
1124: if ?uf
1125: ?ent = 0
1126: ??error2 <ENTER specified with user frame - ENTER ignored>
1127: endif
1128: if ?chkstk1
1129: ?ent = 0
1130: ??error2 <ENTER specified with stack checking - ENTER ignored>
1131: endif
1132: endif
1133: if ?pc
1134: if ?wfp
1135: ife ?nx
1136: ?ia=2
1137: ?pas = ?pas and (not ?ds)
1138: endif
1139: endif
1140: ?adj=?adj+2
1141: else
1142: ?wfp=0
1143: endif
1144: ?pas = ?pas and (not (?sp+?cs+?ss))
1145: if ?bigreg
1146: ?pas = ?pas and (not (?esp))
1147: endif
1148: if ?uf
1149: ?pas = ?pas and (not (?bp+?si+?di))
1150: if ?bigreg
1151: ?pas = ?pas and (not (?ebp+?esi+?edi))
1152: endif
1153: endif
1154: ife ?pcc
1155: ?pg <_&n>,%?pu,%?pc,%?pas,%?wfp,<n>,%?pcc
1156: else
1157: ?pg <n>,%?pu,%?pc,%?pas,%?wfp,<n>,%?pcc
1158: endif
1159: endm
1160: ?pg macro n,p,c,a,w,nnu,cc
1161: .xcref
1162: if ?uf
1163: if ?nd
1164: ??error2 <NODATA encountered in &n - user frame ignored>
1165: ?uf=0
1166: endif
1167: endif
1168: .xcref cBegin
1169: cBegin ¯o g
1170: .xcref
1171: if cc
1172: uconcat <?PLMParm>,%?PLMPrevParm,%?po
1173: endif
1174: if ?rp
1175: if ?uf
1176: ??error2 <parmR encountered in &n - user frame ignored>
1177: ?uf=0
1178: endif
1179: if ?ent
1180: ??error2 <parmR encountered in &n - ENTER ignored>
1181: ?ent=0
1182: endif
1183: endif
1184: ?pg1 <n>,c,a,%?po,w,%?uf,%?nd,%?rp,cc,<nnu>,%???
1185: ?cpd=0
1186: ?argc=0
1187: ?ba=1
1188: ???=(???+1) and 0fffeh
1189: if p
1190: public n
1191: endif
1192: ife c
1193: n proc near
1194: else
1195: n proc far
1196: endif
1197: ife cc
1198: nnu equ n
1199: endif
1200: ?cbe = 0
1201: ifnb <g>
1202: ?pcbe <g>,<nnu>,<cBegin>
1203: endif
1204: if ?cbe eq 1
1205: if ???+a+?rp
1206: if2
1207: ??_out <cBegin - possibly invalid use of nogen>
1208: endif
1209: endif
1210: else
1211: if ?uf
1212: ?mf c,%???,%?po
1213: mpush a
1214: else
1215: ife ?cbe
1216: if w
1217: ife ?nd
1218: ife ?DOS5
1219: mov ax,ds
1220: nop
1221: else
1222: mov ax,DataBASE
1223: endif
1224: endif
1225: if ?aprof2
1226: call AProfCall
1227: endif
1228: ife ?nx
1229: ife ?DOS5
1230: inc bp
1231: endif
1232: push bp
1233: mov bp,sp
1234: push ds
1235: else
1236: if ?ff+???+?po+?rp
1237: push bp
1238: mov bp,sp
1239: endif
1240: endif
1241: ife ?nd
1242: mov ds,ax
1243: endif
1244: else
1245: if ?aprof2
1246: call AProfCall
1247: endif
1248: if ?ff+???+?po+?rp
1249: ife ?ent
1250: push bp
1251: mov bp,sp
1252: endif
1253: endif
1254: endif
1255: if ?rp
1256: ?uf=0
1257: rept ?rp
1258: uconcat mpush,,?rp,%?uf
1259: ?uf=?uf+1
1260: endm
1261: endif
1262: ife ?ent
1263: if ???
1264: if ?chkstk1
1265: ifdef ?CHKSTKPROC
1266: ?CHKSTKPROC %???
1267: else
1268: mov ax,???
1269: ife cc
1270: call _chkstk
1271: else
1272: call chkstk
1273: endif
1274: endif
1275: else
1276: sub sp,???
1277: endif
1278: endif
1279: else
1280: if ???
1281: enter ???,0
1282: else
1283: push bp
1284: mov bp,sp
1285: endif
1286: endif
1287: else
1288: if ?aprof2
1289: call AProfRet
1290: call AProfCall
1291: endif
1292: if ?rp
1293: ??error2 <cBegin - parmRs encountered with partial frame>
1294: else
1295: if ???
1296: lea sp,[bp][-???-?ia]
1297: endif
1298: endif
1299: endif
1300: mpush a
1301: endif
1302: ifdef ?PROFILE
1303: if c
1304: call StartNMeas
1305: endif
1306: endif
1307: endif
1308: .cref
1309: purge cBegin
1310: &endm
1311: .xcref ?utpe
1312: ?utpe ¯o
1313: ??error2 <unterminated procedure definition: "&n">
1314: &endm
1315: .cref
1316: endm
1317: ?pg1 macro n,c,a,o,w,f,d,r,cc,nnu,lc
1318: .xcref
1319: .xcref cEnd
1320: parm_bytes_&nnu = o
1321: cEnd ¯o g
1322: .xcref
1323: ?ba=0
1324: ?cbe = 0
1325: ifnb <g>
1326: ?pcbe <g>,<nnu>,<cEnd>
1327: endif
1328: if ?cbe eq 1
1329: if a+r+lc
1330: if2
1331: ??_out <cEnd - possibly invalid use of nogen>
1332: endif
1333: endif
1334: else
1335: ifdef ?PROFILE
1336: if c
1337: call StopNMeas
1338: endif
1339: endif
1340: mpop a
1341: if f
1342: db 0c3h
1343: else
1344: if w
1345: ife ?nx
1346: if (?TF eq 0) or (???+r)
1347: lea sp,-2[bp]
1348: endif
1349: pop ds
1350: pop bp
1351: ife ?DOS5
1352: dec bp
1353: endif
1354: else
1355: if (?TF eq 0) or (???+r)
1356: if ???+?po+r
1357: if ?ent
1358: leave
1359: else
1360: mov sp,bp
1361: pop bp
1362: endif
1363: else
1364: mov sp,bp
1365: endif
1366: else
1367: if ???+?po+r
1368: pop bp
1369: endif
1370: endif
1371: endif
1372: else
1373: if ?ff+???+?po+r
1374: if (?TF eq 0) or (???+r)
1375: if ?ent
1376: leave
1377: else
1378: mov sp,bp
1379: pop bp
1380: endif
1381: else
1382: pop bp
1383: endif
1384: endif
1385: endif
1386: if ?aprof2
1387: call AProfRet
1388: endif
1389: if ?cbe ne 4
1390: ife cc
1391: ret
1392: else
1393: ret o
1394: endif
1395: endif
1396: endif
1397: endif
1398: if ?cbe ne 4
1399: n endp
1400: .cref
1401: purge cEnd
1402: else
1403: .cref
1404: endif
1405: &endm
1406: .cref
1407: endm
1408: .xcref
1409: .xcref cleanframe
1410: cleanframe macro
1411: cEnd <??cleanframe??>
1412: endm
1413: .cref
1414: .xcref
1415: .xcref ??_cproc_FAR,??_cproc_NEAR,??_cproc_PUBLIC,??_cproc_SMALL
1416: .xcref ??_cproc_DATA,??_cproc_NODATA,??_cproc_ATOMIC,??_cproc_C
1417: .xcref ??_cproc_PLM,??_cproc_PASCAL,??_cproc_WIN,??_cproc_NONWIN
1418: .xcref ??_cproc_NO_BP,??_cproc_BP,??_cproc_ENTER,??_cproc_NOENTER
1419: .xcref ??_cproc_NO_ATTRPROF,??_cproc_ATTRPROF
1420: .xcref ??_cproc_far,??_cproc_near,??_cproc_public,??_cproc_small
1421: .xcref ??_cproc_data,??_cproc_nodata,??_cproc_atomic,??_cproc_c
1422: .xcref ??_cproc_plm,??_cproc_pascal,??_cproc_win,??_cproc_nonwin
1423: .xcref ??_cproc_no_bp,??_cproc_bp,??_cproc_enter,??_cproc_noenter
1424: .xcref ??_cproc_no_attrprof,??_cproc_attrprof
1425: .cref
1426: ??_cproc_FAR macro
1427: ?pc=1
1428: endm
1429: ??_cproc_NEAR macro
1430: ?pc=0
1431: endm
1432: ??_cproc_PUBLIC macro
1433: ?pu=1
1434: endm
1435: ??_cproc_SMALL macro
1436: ?uf=1
1437: endm
1438: ??_cproc_DATA macro
1439: ?nd=0
1440: endm
1441: ??_cproc_NODATA macro
1442: ?nd=1
1443: endm
1444: ??_cproc_ENTER macro
1445: ?ent=1
1446: endm
1447: ??_cproc_NOENTER macro
1448: ?ent=0
1449: endm
1450: ??_cproc_ATOMIC macro
1451: ?nx=1
1452: endm
1453: ??_cproc_C macro
1454: ?pcc=0
1455: endm
1456: ??_cproc_PLM macro
1457: ?pcc=1
1458: endm
1459: ??_cproc_PASCAL macro
1460: ?pcc=1
1461: endm
1462: ??_cproc_WIN macro
1463: ?wfp=1
1464: endm
1465: ??_cproc_NONWIN macro
1466: ?wfp=0
1467: endm
1468: ??_cproc_NO_BP macro
1469: ?no_bp2=1
1470: endm
1471: ??_cproc_BP macro
1472: ?no_bp2=0
1473: endm
1474: ??_cproc_NO_ATTRPROF macro
1475: ?aprof2=0
1476: endm
1477: ??_cproc_ATTRPROF macro
1478: ?aprof2=1
1479: endm
1480: ??_cproc_far macro
1481: ?pc=1
1482: endm
1483: ??_cproc_near macro
1484: ?pc=0
1485: endm
1486: ??_cproc_public macro
1487: ?pu=1
1488: endm
1489: ??_cproc_small macro
1490: ?uf=1
1491: endm
1492: ??_cproc_data macro
1493: ?nd=0
1494: endm
1495: ??_cproc_nodata macro
1496: ?nd=1
1497: endm
1498: ??_cproc_enter macro
1499: ?ent=1
1500: endm
1501: ??_cproc_noenter macro
1502: ?ent=0
1503: endm
1504: ??_cproc_atomic macro
1505: ?nx=1
1506: endm
1507: ??_cproc_c macro
1508: ?pcc=0
1509: endm
1510: ??_cproc_plm macro
1511: ?pcc=1
1512: endm
1513: ??_cproc_pascal macro
1514: ?pcc=1
1515: endm
1516: ??_cproc_win macro
1517: ?wfp=1
1518: endm
1519: ??_cproc_nonwin macro
1520: ?wfp=0
1521: endm
1522: ??_cproc_no_bp macro
1523: ?no_bp2=1
1524: endm
1525: ??_cproc_bp macro
1526: ?no_bp2=0
1527: endm
1528: ??_cproc_no_attrprof macro
1529: ?aprof2=0
1530: endm
1531: ??_cproc_attrprof macro
1532: ?aprof2=1
1533: endm
1534: ?pcbe macro g,nnu,mt
1535: ifidn <g>,<NOGEN>
1536: ?cbe = 1
1537: else
1538: ifidn <g>,<nogen>
1539: ?cbe = 1
1540: else
1541: ifidn <mt>,<cBegin>
1542: ifidn <g>,<PARTIAL>
1543: ?cbe = 2
1544: else
1545: ifidn <g>,<partial>
1546: ?cbe = 2
1547: else
1548: ifdif <g>,<nnu>
1549: ??error2 <mt - unknown keyword g>
1550: endif
1551: endif
1552: endif
1553: else
1554: ifidn <g>,<??cleanframe??>
1555: ?cbe = 4
1556: else
1557: ifdif <g>,<nnu>
1558: ??error2 <mt - unknown keyword g>
1559: endif
1560: endif
1561: endif
1562: endif
1563: endif
1564: endm
1565: assumes macro s,ln
1566: ifndef ln&_assumes
1567: assume s:ln
1568: else
1569: ln&_assumes s
1570: endif
1571: endm
1572: createSeg macro n,ln,a,co,cl,grp,u
1573: ifnb <u>
1574: ifnb <cl>
1575: n segment a co u '&cl'
1576: else
1577: n segment a co u
1578: endif
1579: else
1580: ifdef ?u32
1581: if ?u32
1582: ?sps
1583: .386p
1584: ifnb <cl>
1585: n segment a co use32 '&cl'
1586: else
1587: n segment a co use32
1588: endif
1589: ?rps
1590: else
1591: ifnb <cl>
1592: n segment a co use16 '&cl'
1593: else
1594: n segment a co use16
1595: endif
1596: endif
1597: else
1598: ifnb <cl>
1599: n segment a co '&cl'
1600: else
1601: n segment a co
1602: endif
1603: endif
1604: endif
1605: n ends
1606: ifnb <grp>
1607: addseg grp,n
1608: else
1609: ln&OFFSET equ offset n:
1610: ln&BASE equ n
1611: ?cs3 <ln>,<n>
1612: endif
1613: ?cs1 <ln>,<n>
1614: endm
1615: addseg macro grp,seg
1616: .xcref
1617: .xcref grp&_def
1618: .cref
1619: ifndef grp&_def
1620: grp&_def=0
1621: endif
1622: if grp&_def ne ASMpass
1623: .xcref
1624: .xcref grp&_add
1625: .cref
1626: grp&_add ¯o s
1627: grp&_in <seg>,s
1628: &endm
1629: .xcref
1630: .xcref grp&_in
1631: .cref
1632: grp&_in ¯o sl,s
1633: ifb <s>
1634: grp group sl
1635: else
1636: grp&_add ¯o ns
1637: grp&_in <sl,s>,ns
1638: &endm
1639: endif
1640: &endm
1641: grp&_def=ASMpass
1642: else
1643: grp&_add seg
1644: endif
1645: endm
1646: defgrp macro grp,ln
1647: addseg grp
1648: ifnb <ln>
1649: irp x,<ln>
1650: ?cs3 <&x>,<grp>
1651: x&&OFFSET equ offset grp:
1652: x&&BASE equ grp
1653: endm
1654: endif
1655: endm
1656: ?cs1 macro ln,n
1657: .xcref
1658: .xcref ln&_sbegin
1659: .cref
1660: ln&_sbegin ¯o
1661: .xcref
1662: .xcref ?mf
1663: .cref
1664: ?curseg equ <&ln>
1665: ?mf &¯o c,l,p
1666: if c
1667: extrn n&_FARFRAME:near
1668: call n&_FARFRAME
1669: else
1670: extrn n&_NEARFRAME:near
1671: call n&_NEARFRAME
1672: endif
1673: db l shr 1
1674: db p shr 1
1675: &&endm
1676: ?cs2 <ln>,<n>
1677: n segment
1678: &endm
1679: endm
1680: ?cs2 macro ln,n
1681: .xcref
1682: .xcref sEnd
1683: .cref
1684: sEnd ¯o
1685: n ends
1686: purge ?mf
1687: purge sEnd
1688: &endm
1689: endm
1690: ?cs3 macro ln,n
1691: .xcref
1692: .xcref ln&_assumes
1693: .cref
1694: ln&_assumes ¯o s
1695: assume s:&n
1696: &endm
1697: endm
1698: .xcref
1699: .xcref sBegin
1700: .cref
1701: sBegin macro ln
1702: ln&_sbegin
1703: endm
1704: ife ?DF
1705: createSeg _TEXT,Code,word,public,CODE
1706: ife ?nodata1
1707: createSeg _DATA,Data,word,public,DATA,DGROUP
1708: defgrp DGROUP,Data
1709: endif
1710: if ?chkstk1
1711: ifndef ?CHKSTKPROC
1712: externp <chkstk>
1713: endif
1714: endif
1715: endif
1716: errnz macro x
1717: if2
1718: if x
1719: errnz1 <x>,%(x)
1720: endif
1721: endif
1722: endm
1723: errnz1 macro x1,x2
1724: = *errnz* x1 = x2
1725: .err
1726: endm
1727: errn$ macro l,x
1728: errnz <offset $ - offset l x>
1729: endm
1730: ifdef ?PROFILE
1731: externFP <StartNMeas,StopNMeas>
1732: endif
1733: if ?aprof1
1734: externFP <AProfCall,AProfRet>,<PLM>
1735: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.