MZ is back!HEADmain

1 files changed, 32 insertions, 0 deletions

diff --git a/v4.0/src/CMD/CHKDSK/PATHMAC.INC b/v4.0/src/CMD/CHKDSK/PATHMAC.INC
new file mode 100644
index 0000000..17d8aea
--- /dev/null
+++ b/v4.0/src/CMD/CHKDSK/PATHMAC.INC
@@ -0,0 +1,32 @@
+
+;***********************************************************************
+; NAME: pathlabl
+; DESC: creates a public label at the spot it is placed, using the name
+;       given.
+; INPUT: either module name or procedure name
+; OUTPUT: public label
+; LOGIC: if masm is in pass1 (pass2 will gen dup labels)
+;           if this label has not been gen before
+;              then create the label
+;                   - $$A to place at begin of map
+;                   - start means first occurence
+;                   - use module/proc name last
+;                   define this label for creation of 'stop' label
+;              else create stop label
+;                   - same as start except name
+;***********************************************************************
+.LALL
+pathlabl MACRO pnam
+IF1                                     ;if pass 1
+    IFNDEF LBL_&pnam                    ;switch not defined if first creation
+        $$A_START_&pnam:                ;create label
+        PUBLIC $$A_START_&pnam          ;make it public
+        LBL_&pnam = 1                   ;set switch
+    ELSE                                ;start label already created
+        $$A_STOP_&pnam:                 ;create stop label
+        PUBLIC $$A_STOP_&pnam           ;make it public
+    ENDIF
+ENDIF
+ENDM
+
+
\ No newline at end of file