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/DEV/DISPLAY/MACROS.INC | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 v4.0/src/DEV/DISPLAY/MACROS.INC

(limited to 'v4.0/src/DEV/DISPLAY/MACROS.INC')

diff --git a/v4.0/src/DEV/DISPLAY/MACROS.INC b/v4.0/src/DEV/DISPLAY/MACROS.INC
new file mode 100644
index 0000000..6e316ac
--- /dev/null
+++ b/v4.0/src/DEV/DISPLAY/MACROS.INC
@@ -0,0 +1,29 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; *** MACROS **** MACROS **** MACROS ****
+;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+IF1                                     ;
+        %OUT .               ®MACROS  .INC¯
+ENDIF                                   ;
+                                        ;
+JUMP    MACRO   LBL                     ;
+        LOCAL   A                       ;
+.XCREF                                  ;
+      IFNDEF LBL&_J                     ; IS THIS FIRST INVOKATION
+A:       JMP     LBL                    ;
+      ELSE                              ;
+         IF (LBL&_J GE $) OR ($-LBL&_J GT 126)
+A:          JMP     LBL                 ; IS THE JUMP TOO FAR AWAY?
+         ELSE                           ;
+A:          JMP     LBL&_J              ; PERFORM SHORT JUMP
+         ENDIF                          ;
+      ENDIF                             ;
+LBL&_J=A                                ;
+.CREF                                   ;
+        ENDM                            ;
+.XCREF JUMP                             ;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;
+; *** MACROS **** MACROS **** MACROS ****
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
\ No newline at end of file
-- 
cgit v1.2.3