home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPPOP18C.ZIP / CRIT.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-01  |  586 b   |  46 lines
  1. .MODEL LARGE
  2.  
  3. DATA  SEGMENT
  4.  
  5. EXTRN  inoutres:WORD
  6.  
  7. DATA  ENDS
  8.  
  9. .CODE
  10.  
  11. CODE  SEGMENT
  12.       ASSUME cs:CODE
  13.  
  14. PUBLIC CriticalHandler
  15.  
  16. CriticalHandler PROC FAR
  17.  
  18.          sti
  19.          push   di
  20.          push   ax
  21.          push   ds
  22.  
  23.          and    di,1Fh
  24.          add    di,96h
  25.          mov    ax,SEG DATA
  26.          mov    ds,ax
  27.  
  28.          ASSUME ds:DATA
  29.  
  30.          mov    [inoutres],di
  31.          pop    ds
  32.  
  33.          ASSUME DS:nothing
  34.  
  35.          pop    ax
  36.          pop    di
  37.          xor    al,al
  38.          iret
  39.  
  40. CriticalHandler ENDP
  41.  
  42. CODE ENDS
  43.  
  44. END
  45.  
  46.