home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / s / s001 / 1.ddi / TS / ASM / GUC.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-08-09  |  665 b   |  33 lines
  1. ;                  ***********
  2. ;                  * GUC.asm *
  3. ;               *******************************************
  4. ;               * Copyright TimeSlice, Inc. 1985, 86, 87. *
  5. ;               *******************************************
  6. include ts.inc
  7. ;
  8. start_data
  9. end_data
  10. ;
  11. start_code
  12. ;
  13. extrn    __gus:far
  14. ;
  15. ;***
  16. ;* GUC()
  17. ;* Give Up Control : the task calling guc is immediately preempted by the
  18. ;* switcher if it is awake.
  19. ;***
  20. routine    guc
  21.     pushf            ;save flags
  22.     cli            ;hold timer interrupt
  23.     mov    ax,1
  24.     mov    _volguc,al    ;set voluntary-give-up-control flag
  25.     mov    _timcnt,ax    ;force process switching
  26.     call    __gus
  27. ;                ;one popf done by iret after slicer
  28. return    guc
  29. ;
  30. end_code
  31.  
  32.  
  33.