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

wirehaze git hosting

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