home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Devpac Amiga 1 / Lowe_DevpacAmiga1.adf / include / exec / initializers.i < prev    next >
Encoding:
Text File  |  1987-11-09  |  510 b   |  48 lines
  1.     IFND    EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I    SET    1
  3.  
  4.  
  5. INITBYTE    MACRO
  6.     DC.B    $e0
  7.     DC.B    0
  8.     DC.W    \1
  9.     DC.B    \2
  10.     DC.B    0
  11.     ENDM
  12.  
  13. INITWORD    MACRO
  14.     DC.B    $d0
  15.     DC.B    0
  16.     DC.W    \1
  17.     DC.W    \2
  18.     ENDM
  19.  
  20. INITLONG    MACRO
  21.     DC.B    $c0
  22.     DC.B    0
  23.     DC.W    \1
  24.     DC.L    \2
  25.     ENDM
  26.  
  27. INITSTRUCT    MACRO
  28.     DS.W    0
  29.     IFC    '\4',''
  30. COUNT\@    SET    0
  31.     ENDC
  32.     IFNC    '\4',''
  33. COUNT\@    SET    \4
  34.     ENDC
  35. CMD\@    SET    (((\1)<<4)!COUNT\@)
  36.     IFLE    (\2)-255
  37.     DC.B    (CMD\@)!$80
  38.     DC.B    \2
  39.     MEXIT
  40.     ENDC
  41.     DC.B    CMD\@!$0C0
  42.     DC.B    (((\2)>>16)&$0FF)
  43.     DC.W    ((\2)&$0FFFF)
  44.     ENDM
  45.  
  46.     ENDC    !EXEC_INITIALIZERS_I
  47.  
  48.