home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / UTINTOFF.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  1.9 KB  |  110 lines
  1. ;
  2. ; Name        utintoff -- Disable maskable hardware interrupts
  3. ;        (Formerly called PCINTOFF.)
  4. ;
  5. ; Synopsis    were_on = utintoff();
  6. ;
  7. ;        int were_on        1 if interrupts were enabled before
  8. ;                      the call, 0 if not.
  9. ;
  10. ; Description    This function disables hardware interrupts.
  11. ;
  12. ; Returns    were_on         1 if interrupts were enabled before
  13. ;                      the call, 0 if not.
  14. ;
  15. ; Version    3.0 (C)Copyright Blaise Computing Inc. 1983,1984,1985,1986
  16.  
  17.      name       utintoff
  18.  
  19.      LONGPROG  = 0            ; initialize constants for
  20.      LONGDATA  = 0            ; Pass1 of the assembler
  21.  
  22.      include   compiler.mac     ; Specifies the C compiler
  23.  
  24.      if LAT200 or LAT210 or LAT300
  25.      include  dos.mac
  26.      LONGPROG = LPROG
  27.      LONGDATA = LDATA
  28.  
  29.      pseg
  30.      public   utintoff
  31.      if      LPROG
  32.      x   equ  6            ; parameter offset
  33. utintoff proc      far
  34.      else
  35.      x   equ  4
  36. utintoff proc      near
  37.      endif
  38.      endif
  39.  
  40.      if CI201A
  41.      include  model.h
  42.      include  prologue.h
  43.      LONGPROG = @bigmodel
  44.      LONGDATA = @bigmodel
  45.  
  46.      public   utintoff
  47.      if      @bigmodel
  48.      x   equ  6            ; parameter offset
  49. utintoff proc      far
  50.      else
  51.      x   equ  4
  52. utintoff proc      near
  53.      endif
  54.      endif
  55.  
  56.      if MSC300
  57.      include  dos.mac
  58.      LONGPROG = LPROG
  59.      LONGDATA = LDATA
  60.  
  61.      pseg      utintoff
  62.      public   _utintoff
  63.      if      LPROG
  64.      x   equ  6            ; parameter offset
  65. _utintoff proc       far
  66.      else
  67.      x   equ  4
  68. _utintoff proc       near
  69.      endif
  70.      endif
  71.  
  72.      pushf                ; Examine previous interrupt
  73.      pop    ax            ; state:  bit 9 of flags
  74.      test    ah,2
  75.      jnz    ints_on
  76.  
  77.      xor    ax,ax            ; Interrupts were disabled
  78.      jmp    short done
  79.  
  80. ints_on:
  81.      mov    ax,1            ; Interrupts were enabled
  82.      cli                ; Disable interrupts.
  83.  
  84. done:
  85.      if MSC300
  86.      cld                ; Expected by MS C 3.0.
  87.      endif
  88.  
  89.      ret
  90.  
  91.      if MSC300
  92. _utintoff endp
  93.      else
  94. utintoff endp
  95.      endif
  96.  
  97.      if LAT200 or LAT210 or LAT300
  98.      endps
  99.      endif
  100.  
  101.      if CI201A
  102.      include  epilogue.h
  103.      endif
  104.  
  105.      if MSC300
  106.      endps      utintoff
  107.      endif
  108.  
  109.      end
  110.