home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / UTINTON.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  1.9 KB  |  110 lines
  1. ;
  2. ; Name        utinton -- Enable maskable hardware interrupts
  3. ;        (Formerly called PCINTON.)
  4. ;
  5. ; Synopsis    were_on = utinton();
  6. ;
  7. ;        int were_on        1 if interrupts were enabled before
  8. ;                      the call, 0 if not.
  9. ;
  10. ; Description    This function enables 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       utinton
  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   utinton
  31.      if      LPROG
  32.      x   equ  6            ; parameter offset
  33. utinton  proc      far
  34.      else
  35.      x   equ  4
  36. utinton  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   utinton
  47.      if      @bigmodel
  48.      x   equ  6            ; parameter offset
  49. utinton  proc      far
  50.      else
  51.      x   equ  4
  52. utinton  proc      near
  53.      endif
  54.      endif
  55.  
  56.      if MSC300
  57.      include  dos.mac
  58.      LONGPROG = LPROG
  59.      LONGDATA = LDATA
  60.  
  61.      pseg      utinton
  62.      public   _utinton
  63.      if      LPROG
  64.      x   equ  6            ; parameter offset
  65. _utinton proc      far
  66.      else
  67.      x   equ  4
  68. _utinton 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.      jz    ints_off
  76.  
  77.      mov    ax,1            ; Interrupts were enabled
  78.      jmp    short done
  79.  
  80. ints_off:
  81.      xor    ax,ax            ; Interrupts were disabled
  82.      sti                ; Enable 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. _utinton endp
  93.      else
  94. utinton  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      utinton
  107.      endif
  108.  
  109.      end
  110.