home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Devpac Amiga 1 / Lowe_DevpacAmiga1.adf / include / exec / ables.i next >
Encoding:
Text File  |  1987-11-09  |  865 b   |  63 lines
  1.     IFND    EXEC_ABLES_I
  2. EXEC_ABLES_I    SET 1
  3.  
  4.  
  5.     IFND    EXEC_EXECBASE_I
  6.     INCLUDE    "exec/execbase.i"        for IDNestCnt
  7.     ENDC    !EXEC_EXECBASE_I
  8.  
  9.  
  10.  
  11. INT_ABLES    MACRO
  12.     XREF.L    _intena        needs linker mode
  13.     ENDM
  14.  
  15.  
  16. DISABLE    MACRO
  17.     IFC      '\1',''
  18.     MOVE.W  #$04000,_intena     *(NOT IF_SETCLR)+IF_INTEN
  19.     ADDQ.B  #1,IDNestCnt(A6)
  20.     ENDC
  21.     IFNC    '\1',''
  22.     MOVE.L  4,\1
  23.     MOVE.W  #$04000,_intena     *(NOT IF_SETCLR)+IF_INTEN
  24.     ADDQ.B  #1,IDNestCnt(\1)
  25.     ENDC
  26.     ENDM
  27.  
  28.  
  29. ENABLE    MACRO
  30.     IFC      '\1',''
  31.     SUBQ.B  #1,IDNestCnt(A6)
  32.     BGE.S   ENABLE\@
  33.     MOVE.W  #$0C000,_intena     *IF_SETCLR+IF_INTEN
  34. ENABLE\@:
  35.     ENDC
  36.     IFNC    '\1',''
  37.     MOVE.L  4,\1
  38.     SUBQ.B  #1,IDNestCnt(\1)
  39.     BGE.S   ENABLE\@
  40.     MOVE.W  #$0C000,_intena
  41. ENABLE\@:
  42.     ENDC
  43.     ENDM
  44.  
  45.  
  46.  
  47. TASK_ABLES    MACRO
  48.     XREF.L    _LVOPermit        changed
  49.     ENDM
  50.  
  51.  
  52. FORBID    MACRO
  53.     ADDQ.B  #1,TDNestCnt(A6)
  54.     ENDM
  55.  
  56.  
  57. PERMIT    MACRO
  58.     JSR      _LVOPermit(A6)
  59.     ENDM
  60.  
  61.     ENDC    !EXEC_ABLES_I
  62.  
  63.