home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CTASK20.ARJ / TSKPRTI.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-12-20  |  918 b   |  58 lines
  1. ;
  2. ;    --- Version 2.0 89-12-13 17:58 ---
  3. ;
  4. ;    CTask - Printer interrupt handler (IBM specific)
  5. ;
  6. ;    Public Domain Software written by
  7. ;        Thomas Wagner
  8. ;        Patschkauer Weg 31
  9. ;        D-1000 Berlin 33
  10. ;        West Germany
  11. ;
  12. ;    This file is new with version 1.2.
  13. ;
  14. ;    To avoid stack overflows while processing printer interrupts in
  15. ;    the tskprt module, all printer interrupts are routed through the
  16. ;    "envelope" routines defined here.
  17. ;
  18.     name    tskprti
  19.     .model    large,c
  20. ;
  21.     include    tsk.mac
  22. ;
  23.     public    tskprt_int0
  24.     public    tskprt_int1
  25.     public    tskprt_int2
  26. ;
  27. prtint    macro    num
  28. ;
  29. tskprt_int&num    proc    far
  30.         call    tsk_switch_stack
  31.     mov    ax,num
  32.     push    ax
  33.     call    tsk_prt_int
  34.     add    sp,2
  35.         cli
  36.     mov    al,20h
  37.     out    20h,al
  38.     iret
  39. ;
  40. tskprt_int&num    endp
  41. ;
  42.     endm
  43. ;
  44. ;
  45.     .tsk_code
  46. ;
  47.         extrn   tsk_switch_stack: near
  48.     extrn    tsk_prt_int: near
  49. ;
  50.     prtint    0
  51.     prtint    1
  52.     prtint    2
  53. ;
  54.     .tsk_ecode
  55.     end
  56.  
  57.  
  58.