standard.mac

   1 ;; --------------------------------------------------------------------------
   2 ;;
   3 ;;   Copyright 1996-2009 The NASM Authors - All Rights Reserved
   4 ;;   See the file AUTHORS included with the NASM distribution for
   5 ;;   the specific copyright holders.
   6 ;;
   7 ;;   This program is free software; you can redistribute it and/or modify
   8 ;;   it under the terms of the GNU Lesser General Public License as
   9 ;;   published by the Free Software Foundation, Inc.,
  10 ;;   51 Franklin St, Fifth Floor, Boston MA 02110-1301, USA; version 2.1,
  11 ;;   or, at your option, any later version, incorporated herein by
  12 ;;   reference.
  13 ;;
  14 ;;   Patches submitted to this file are required to be dual licensed
  15 ;;   under the LGPL 2.1+ and the 2-clause BSD license:
  16 ;;
  17 ;;   Copyright 1996-2009 the NASM Authors - All rights reserved.
  18 ;;
  19 ;;   Redistribution and use in source and binary forms, with or without
  20 ;;   modification, are permitted provided that the following
  21 ;;   conditions are met:
  22 ;;
  23 ;;   * Redistributions of source code must retain the above copyright
  24 ;;     notice, this list of conditions and the following disclaimer.
  25 ;;   * Redistributions in binary form must reproduce the above
  26 ;;     copyright notice, this list of conditions and the following
  27 ;;     disclaimer in the documentation and/or other materials provided
  28 ;;     with the distribution.
  29 ;;
  30 ;;     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
  31 ;;     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
  32 ;;     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  33 ;;     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  34 ;;     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
  35 ;;     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  36 ;;     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  37 ;;     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  38 ;;     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  39 ;;     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  40 ;;     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  41 ;;     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  42 ;;     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  43 ;;
  44 ;; --------------------------------------------------------------------------
  45
  46 ; Standard macro set for NASM -*- nasm -*-
  47
  48 ; Macros to make NASM ignore some TASM directives before the first include
  49 ; directive.
  50
  51     %idefine IDEAL
  52     %idefine JUMPS
  53     %idefine P386
  54     %idefine P486
  55     %idefine P586
  56     %idefine END
  57
  58 ; This is a magic token which indicates the end of the TASM macros
  59 *END*TASM*MACROS*
  60
  61 ; Note that although some user-level forms of directives are defined
  62 ; here, not all of them are: the user-level form of a format-specific
  63 ; directive should be defined in the module for that directive.
  64
  65 ; These three need to be defined, though the actual definitions will
  66 ; be constantly updated during preprocessing.
  67 %define __FILE__
  68 %define __LINE__
  69 %define __BITS__
  70
  71 %define __SECT__                ; it ought to be defined, even if as nothing
  72
  73 %imacro section 1+.nolist
  74 %define __SECT__ [section %1]
  75           __SECT__
  76 %endmacro
  77 %imacro segment 1+.nolist
  78 %define __SECT__ [segment %1]
  79           __SECT__
  80 %endmacro
  81
  82 %imacro absolute 1+.nolist
  83 %define __SECT__ [absolute %1]
  84           __SECT__
  85 %endmacro
  86
  87 %imacro struc 1-2.nolist 0
  88 %push
  89 %define %$strucname %1
  90 [absolute %2]
  91 %$strucname:                    ; allow definition of `.member' to work sanely
  92 %endmacro
  93 %imacro endstruc 0.nolist
  94 %{$strucname}_size equ ($-%$strucname)
  95 %pop
  96 __SECT__
  97 %endmacro
  98
  99 %imacro istruc 1.nolist
 100 %push
 101 %define %$strucname %1
 102 %$strucstart:
 103 %endmacro
 104 %imacro at 1-2+.nolist
 105           times (%1-%$strucname)-($-%$strucstart) db 0
 106           %2
 107 %endmacro
 108 %imacro iend 0.nolist
 109           times %{$strucname}_size-($-%$strucstart) db 0
 110 %pop
 111 %endmacro
 112
 113 %imacro align 1-2+.nolist nop
 114           times (((%1) - (($-$$) % (%1))) % (%1)) %2
 115 %endmacro
 116 %imacro alignb 1-2+.nolist
 117           %ifempty %2
 118                 resb (((%1) - (($-$$) % (%1))) % (%1))
 119           %else
 120                 times (((%1) - (($-$$) % (%1))) % (%1)) %2
 121           %endif
 122 %endmacro
 123
 124 %imacro extern 1-*.nolist
 125 %rep %0
 126 [extern %1]
 127 %rotate 1
 128 %endrep
 129 %endmacro
 130
 131 %imacro bits 1+.nolist
 132 [bits %1]
 133 %endmacro
 134
 135 %imacro use16 0.nolist
 136 [bits 16]
 137 %endmacro
 138 %imacro use32 0.nolist
 139 [bits 32]
 140 %endmacro
 141 %imacro use64 0.nolist
 142 [bits 64]
 143 %endmacro
 144
 145 %imacro global 1-*.nolist
 146 %rep %0
 147 [global %1]
 148 %rotate 1
 149 %endrep
 150 %endmacro
 151
 152 %imacro common 1-*.nolist
 153 %rep %0
 154 [common %1]
 155 %rotate 1
 156 %endrep
 157 %endmacro
 158
 159 %imacro cpu 1+.nolist
 160 [cpu %1]
 161 %endmacro
 162
 163 %define __FLOAT_DAZ__ nodaz
 164 %define __FLOAT_ROUND__ near
 165 ; __FLOAT__ contains the whole floating-point configuration so it can
 166 ; be saved and restored
 167 %define __FLOAT__ __FLOAT_DAZ__,__FLOAT_ROUND__
 168 %imacro float 1-*.nolist
 169 %rep %0
 170 [float %1]
 171 %ifidni %1,daz
 172 %define __FLOAT_DAZ__ daz
 173 %elifidni %1,nodaz
 174 %define __FLOAT_DAZ__ nodaz
 175 %elifidni %1,near
 176 %define __FLOAT_ROUND__ near
 177 %elifidni %1,up
 178 %define __FLOAT_ROUND__ up
 179 %elifidni %1,down
 180 %define __FLOAT_ROUND__ down
 181 %elifidni %1,zero
 182 %define __FLOAT_ROUND__ zero
 183 %elifidni %1,default
 184 %define __FLOAT_DAZ__ nodaz
 185 %define __FLOAT_ROUND__ near
 186 %endif
 187 %rotate 1
 188 %endrep
 189 %endmacro
 190
 191 %imacro default 1+.nolist
 192 [default %1]
 193 %endmacro
 194
 195 %imacro incbin 1-2+.nolist 0
 196 %push
 197 %pathsearch %$dep %1
 198 %depend %$dep
 199         %? %$dep,%2
 200 %pop
 201 %endmacro