From 2d04cacc5322951f187bb17e017c12920ac8ebe2 Mon Sep 17 00:00:00 2001
From: Mark Zbikowski
Date: Thu, 25 Apr 2024 21:24:10 +0100
Subject: MZ is back!

---
 v4.0/src/CMD/FORMAT/FORMACRO.INC | 102 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100644 v4.0/src/CMD/FORMAT/FORMACRO.INC

(limited to 'v4.0/src/CMD/FORMAT/FORMACRO.INC')

diff --git a/v4.0/src/CMD/FORMAT/FORMACRO.INC b/v4.0/src/CMD/FORMAT/FORMACRO.INC
new file mode 100644
index 0000000..63f17cf
--- /dev/null
+++ b/v4.0/src/CMD/FORMAT/FORMACRO.INC
@@ -0,0 +1,102 @@
+
+
+
+
+
+
+
+;
+;******************************************************************************
+; Message Macro Definitions
+;******************************************************************************
+;
+
+      EXTRN Display_Interface:near
+
+
+;-----------------------------------------------------------------------------
+
+Message macro   Message_Name                    ;                               ;AN000;
+                                                ;
+        mov     dx,offset data:Message_Name     ;                               ;AN000;
+        call    Display_Interface               ;                               ;AN000;
+        endm                                    ;                               ;AN000;
+
+;-----------------------------------------------------------------------------
+
+Parse_Message macro                             ;                               ;AN000;
+
+                                                ;
+        push    ds
+        mov     dx,data
+        mov     ds,dx
+        mov     word ptr Parse_Error_Msg,ax     ;                               ;AN000;
+        mov     dx,offset Parse_Error_Msg       ;                               ;AN000;
+        call    Display_Interface               ;                               ;AN000;
+        pop     ds                              ;
+        endm                                    ;                               ;AN000;
+
+;-----------------------------------------------------------------------------
+
+Extended_Message macro                          ;                               ;AN000;
+                                                ;
+
+        push    ds
+        mov     dx,data
+        mov     ds,dx
+        mov     word ptr Extended_Error_Msg,ax       ;                               ;AN000;
+        mov     dx,offset data:Extended_Error_Msg    ;                               ;AN000;
+        call    Display_Interface               ;                               ;AN000;
+        pop     ds
+        endm                                    ;                               ;AN000;
+
+;
+;*****************************************************************************
+; General Macro's
+;*****************************************************************************
+;
+
+Procedure       macro   Proc_Name
+
+Public  Proc_Name
+Proc_Name    proc
+
+        endm
+;-----------------------------------------------------------------------------
+
+DOS_Call        macro   Function
+
+        mov     ah,Function
+        int     21h
+
+        endm
+;-----------------------------------------------------------------------------
+
+Popff   macro
+
+        jmp     $+3
+        iret
+        push    cs
+        call    $-2
+
+        endm
+
+
+;-----------------------------------------------------------------------------
+
+Set_Data_Segment     macro
+
+        push    ax
+        mov     ax,data                         ;Point to data segment
+        mov     ds,ax                           ;
+        push    ds
+        pop     es
+        pop     ax
+
+assume  ds:data,es:data
+
+        endm
+
+
+
+
\ No newline at end of file
-- 
cgit v1.2.3