home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: AssemPro For Development Amiga Driver / Lowe_AssemProForDevelopmentAmigaDriver.adf / Includes / exec / initializers.i < prev    next >
Encoding:
Text File  |  1978-06-06  |  1.5 KB  |  61 lines
  1.     IFND EXEC_INITIALIZERS_I@
  2. EXEC_INITIALIZERS_I@ = 1
  3. ;********************************************************************
  4. ;
  5. ;   Commodore Amiga -- ROM Operating System Executive Include File
  6. ;
  7. ;*********************************************************************
  8. ;
  9. ;   Source Control:
  10. ;
  11. ;       $Header: initializers.i,v 1.0 85/08/28 15:09:29 carl Exp $
  12. ;
  13. ;       $Locker:  $
  14. ;
  15. ;*********************************************************************
  16.  
  17.  
  18. INITBYTE        MACRO   $\1, $\2 ; &offset,&value
  19.                 DC.B    $e0
  20.                 DC.B    0
  21.                 DC.W    \1
  22.                 DC.B    \2
  23.                 DC.B    0
  24.                 ENDM
  25.  
  26. INITWORD        MACRO   $\1, $\2  ; &offset,&value
  27.                 DC.B    $d0
  28.                 DC.B    0
  29.                 DC.W    \1
  30.                 DC.W    \2
  31.                 ENDM
  32.  
  33. INITLONG        MACRO   $\1, $\2  ; &offset,&value
  34.                 DC.B    $c0
  35.                 DC.B    0
  36.                 DC.W    \1
  37.                 DC.L    \2
  38.                 ENDM
  39.       
  40. INITSTRUCT  MACRO   $\1,$\2,$\3,$\4  ; &size,&offset,&value,&count
  41.             DS.W    0
  42.             IFND     \4
  43. COUNT\@     =     0
  44.             ELSE
  45. COUNT\@     =     \4
  46.             ENDIF
  47. CMD\@       =     (((\1)<<4)|COUNT\@)
  48.             IFLE    (\2)-255
  49.             DC.B    (CMD\@)|$80
  50.             DC.B    \2
  51.             MEXIT
  52.             ENDIF
  53.             DC.B    CMD\@|$0C0
  54.             DC.B    (((\2)>>16)&$0FF)
  55.             DC.W    ((\2)&$0FFFF)
  56.             ENDM
  57.  
  58.     ENDIF
  59.     END
  60.