]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/CMD/RECOVER/RECMACRO.INC

wirehaze git hosting

MZ is back!
[MS-DOS.git] / v4.0 / src / CMD / RECOVER / RECMACRO.INC
1 ;
2 ;******************************************************************************
3 ; Message Macro Definitions
4 ;******************************************************************************
5 ;
6
7 EXTRN Display_Interface:near
8
9
10 ;-----------------------------------------------------------------------------
11
12 Message macro Message_Name ; ;AN000;
13 ;
14 mov dx,offset dg:Message_Name ; ;AN000;
15 call Display_Interface ; ;AN000;
16 endm ; ;AN000;
17
18 ;-----------------------------------------------------------------------------
19
20 Parse_Message macro ; ;AN000;
21
22 ;
23 push ds ; ;AN000;bgb
24 mov dx,dg ; ;AN000;bgb
25 mov ds,dx ; ;AN000;bgb
26 mov word ptr Parse_Error_Msg,ax ; ;AN000;
27 mov dx,offset dg:Parse_Error_Msg ; ;AN000;
28 call Display_Interface ; ;AN000;
29 pop ds ; ;AN000;bgb
30 endm ; ;AN000;
31
32 ;-----------------------------------------------------------------------------
33
34 Extended_Message macro ; ;AN000;
35 ;
36
37 push ds ; ;AN000;bgb
38 mov dx,dg ; ;AN000;bgb
39 mov ds,dx ; ;AN000;bgb
40 mov word ptr Ext_Error_Msg,ax ; ;AN000;
41 mov dx,offset dg:Ext_Error_Msg ; ;AN000;
42 call Display_Interface ; ;AN000;
43 pop ds ; ;AN000;bgb
44 endm ; ;AN000;
45
46 ;
47 ;*****************************************************************************
48 ; General Macro's
49 ;*****************************************************************************
50 ;
51
52 Procedure macro Proc_Name ; ;AN000;
53 ;
54 Public Proc_Name ; ;AN000;
55 Proc_Name proc ; ;AN000;
56 ;
57 endm ; ;AN000;
58 ;-----------------------------------------------------------------------------
59
60 DOS_Call macro Function ; ;AN000;
61 ;
62 mov ah,Function ; ;AN000;
63 int 21h ; ;AN000;
64 ;
65 endm ; ;AN000;
66 ;-----------------------------------------------------------------------------
67
68 Popff macro
69
70 jmp $+3
71 iret
72 push cs
73 call $-2
74
75 endm
76
77
78 ;-----------------------------------------------------------------------------
79
80 Set_Data_Segment macro
81
82 push ax
83 mov ax,dg ;Point to data segment
84 mov ds,ax ;
85 assume ds:dg,es:dg
86 push ds
87 pop es
88 pop ax
89
90
91 endm
92
93
94
95 \1a