home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / GLOBAL.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1000 b   |  47 lines
  1.  
  2. *DEFINE GLOBAL VARS
  3. *
  4. *      GLOBAL VAR-LIST
  5. *
  6. *      VAR-LIST:=VAR-ITEM|VAR-ITEM,VAR-LIST
  7. *      VAR-ITEM:=VAR|(VAR,SIZE)
  8. *      VAR IS VARIABLE SYMBOL
  9. *      SIZE IS NUMBER OF WORDS TO ALLOCATE
  10.  
  11. GLOBAL $MACRO  A1,A2,A3,A4,A5,A6,A7,A8
  12.        DSEG              DATA SEG
  13.        $IF     A1.L#=0
  14.        $GLB3   :A1:
  15.        $ENDIF
  16.        $IF     A2.L#=0
  17.        $GLB3   :A2:
  18.        $ENDIF
  19.        $IF     A3.L#=0
  20.        $GLB3   :A3:
  21.        $ENDIF
  22.        $IF     A4.L#=0
  23.        $GLB3   :A4:
  24.        $ENDIF
  25.        $IF     A5.L#=0
  26.        $GLB3   :A5:
  27.        $ENDIF
  28.        $IF     A6.L#=0
  29.        $GLB3   :A6:
  30.        $ENDIF
  31.        $IF     A7.L#=0
  32.        $GLB3   :A7:
  33.        $ENDIF
  34.        DEND              DATA END
  35.        $IF     A8.L#=0
  36.        GLOBAL  :A8:
  37.        $ENDIF
  38.        $END
  39.  
  40. $GLB3  $MACRO   A,B
  41.        DEF  :A:
  42.        $IF  B.L#=0
  43. :A:    BSS  :B:          :B: WORDS NAME :A:
  44.        $ELSE
  45. :A:    BSS  1            1 WORD NAMED :A:
  46.        $ENDIF
  47.        $END