home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / DVD!OMA2.DMS / in.adf / Include1.3.LHA / Include1.3 / exec / ables.i next >
Encoding:
Text File  |  1994-10-12  |  827 b   |  66 lines
  1.  IFND EXEC_ABLES_I
  2. EXEC_ABLES_I EQU 1
  3.  
  4.  IFND EXEC_TYPES_I
  5.  INCLUDE "exec/types.i"
  6.  ENDC
  7.  IFND EXEC_EXECBASE_I
  8.  INCLUDE "exec/execbase.i"
  9.  ENDC
  10.  
  11. INT_ABLES MACRO
  12.  XREF _intena
  13.  ENDM
  14.  
  15. DISABLE MACRO
  16.  IFC '\1',''
  17.  MOVE.W #$4000,_intena
  18.  ADDQ.B #1,IDNestCnt(A6)
  19.  ELSE
  20.  MOVE.L 4,\1
  21.  MOVE.W #$4000,_intena
  22.  ADDQ.B #1,IDNestCnt(\1)
  23.  ENDC
  24.  ENDM
  25.  
  26. ENABLE MACRO
  27.  IFC '\1',''
  28.  SUBQ.B #1,IDNestCnt(A6)
  29.  BGE.S ENABLE\@
  30.  MOVE.W #$C000,_intena
  31. ENABLE\@
  32.  ELSE
  33.  MOVE.L 4,\1
  34.  SUBQ.B #1,IDNestCnt(\1)
  35.  BGE.S ENABLE\@
  36.  MOVE.W #$C000,_intena
  37. ENABLE\@
  38.  ENDC
  39.  ENDM
  40.  
  41. TASK_ABLES MACRO
  42.  XREF _LVOPermit
  43.  ENDM
  44.  
  45. FORBID MACRO
  46.  IFC '\1',''
  47.  ADDQ.B #1,TDNestCnt(A6)
  48.  ELSE
  49.  MOVE.L 4,\1
  50.  ADDQ.B #1,TDNestCnt(\1)
  51.  ENDC
  52.  ENDM
  53.  
  54. PERMIT MACRO
  55.  IFC '\1',''
  56.  JSR _LVOPermit(A6)
  57.  ELSE
  58.  MOVE.L A6,-(SP)
  59.  MOVE.L 4,A6
  60.  JSR _LVOPermit(A6)
  61.  MOVE.L (SP)+,A6
  62.  ENDC
  63.  ENDM
  64.  
  65.  ENDC
  66.