v4.0/src/CMD/RECOVER/PATHMAC.INC

   1
   2 ;***********************************************************************
   3 ; NAME: pathlabl
   4 ; DESC: creates a public label at the spot it is placed, using the name
   5 ;       given.
   6 ; INPUT: either module name or procedure name
   7 ; OUTPUT: public label
   8 ; LOGIC: if masm is in pass1 (pass2 will gen dup labels)
   9 ;           if this label has not been gen before
  10 ;              then create the label
  11 ;                   - $$A to place at begin of map
  12 ;                   - start means first occurence
  13 ;                   - use module/proc name last
  14 ;                   define this label for creation of 'stop' label
  15 ;              else create stop label
  16 ;                   - same as start except name
  17 ;***********************************************************************
  18 .LALL
  19 pathlabl MACRO pnam
  20 IF1                                     ;if pass 1
  21     IFNDEF LBL_&pnam                    ;switch not defined if first creation
  22         $$A_START_&pnam:                ;create label
  23         PUBLIC $$A_START_&pnam          ;make it public
  24         LBL_&pnam = 1                   ;set switch
  25     ELSE                                ;start label already created
  26         $$A_STOP_&pnam:                 ;create stop label
  27         PUBLIC $$A_STOP_&pnam           ;make it public
  28     ENDIF
  29 ENDIF
  30 ENDM
  31
  32 \1a