home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tshot.asm < prev    next >
Encoding:
Assembly Source File  |  1988-10-02  |  4.5 KB  |  122 lines
  1. IFNDEF TP4
  2.         PAGE 60,132
  3. ;----------------------------------------------------------------------------
  4. SUBTTL  TesSeRact Revision Level 1
  5. ;-----------------------------------------------------------------------------
  6. ;   TesSeRact(tm) -- A Library of Routines for Creating Ram-Resident (TSR)
  7. ;                    programs for the IBM PC and compatible Personal
  8. ;                    Computers.
  9. ;
  10. ;The software, documentation and source code are: 
  11. ; 
  12. ;       Copyright (C) 1986, 1987, 1988 Tesseract Development Team
  13. ;       All Rights Reserved 
  14. ; 
  15. ;       c/o Chip Rabinowitz
  16. ;       Innovative Data Concepts
  17. ;       2084 Woodlawn Avenue
  18. ;       Glenside, PA 19038
  19. ;       1-215-884-3373
  20. ;
  21. ;-----------------------------------------------------------------------------
  22. ;   This product supports the TesSeRact Standard for Ram-Resident Program 
  23. ;   Communication.  For information about TesSeRact, contact the TesSeRact 
  24. ;   Development Team at:
  25. ;       Compuserve:    70731,20
  26. ;       MCIMAIL:       315-5415
  27. ;   This MCIMAIL Account has been provided to the TesSeRact Development
  28. ;   Team by Borland International, Inc.  The TesSeRact Development Team
  29. ;   is in no way associated with Borland International, Inc.
  30. ;-----------------------------------------------------------------------------
  31.  
  32. INCLUDE TESS.INC
  33. IFDEF   ALLPUBLIC
  34. INCLUDE tshot.pub       ;public definitions (uses Periscope PUBLIC.COM /E)
  35. ENDIF
  36.  
  37. .MODEL small
  38. .CODE
  39.  
  40. EXTRN TESS_GLOBALS:byte
  41. EXTRN TESS_USERPARMS:byte
  42.  
  43. PUBLIC _TESSKEYSTAT
  44.  
  45. ENDIF
  46.  
  47. ;---------------------------------------------------------------------
  48. ;                        K E Y S T A T                               ;          
  49. ;---------------------------------------------------------------------
  50. ;
  51. ;       Call the background task if no key is available
  52. ;       Lets each task push a key into duty if none at bios
  53. ;
  54. _TESSKEYSTAT PROC NEAR
  55.                                         ;preserves all registers except
  56.                                         ;AX,SI,DI,DS & flags
  57.         ASSUMEDS
  58.  
  59.         push    cx
  60.         push    bx
  61.          
  62. skip_16:
  63. bios_161:                               ;Call bios Keybrd Status routine
  64.         mov     ah,1                    ;see if character is available
  65.         or      ah,BPTR [NEWKBDFLAG]    ;re-insert new_bios flags 
  66.         pushf                           ;simulate interrupt
  67.         call    DPTR [OLDINT16]
  68.         jnz     exit_161                ;exit if BIOS has a ready key
  69. ;
  70. ;   BIOS indicated it didn't have a key in the buffer; issue
  71. ;   Interrupt 28 (DOS idle) if all other interrupt flags clear
  72. ;
  73. chkdos_161:
  74.         test    WPTR [STATUS],TSRENABLED
  75.         jz      skip28
  76.  
  77.         test    BPTR [SOFTINTFLAGS],NOT ININT16 ;check all but INT16
  78.                                         ;Dont popup if Other interrupts active
  79.         jnz     skip28                  ;dont issue idle interrupt call
  80.  
  81. ChkDos_16_2:            
  82.         push    ds                      ;check if dos critical error in effect
  83.         push    si
  84.         lds     si,DPTR [DOSCRITERR]    ;zero says dos is interruptable
  85.         ASSUMENODS
  86.         lodsb                           ;$ff  says dos is in a critical state
  87.         lds     si,DPTR [INDOSFLAG]     ;if indos then int $28 issued by dos
  88.         or      al,[si]                 ;so we dont have to.
  89.                                         ;account for active interrupts
  90.         or      al,BPTR [INTFLAGS]      ;any flags says we dont issue call
  91.                                         ;to the background.
  92.            
  93.         pop     si
  94.         pop     ds
  95.         ASSUMEDS
  96.  
  97.         jz      do_28                   ;issue the INT if we're not popped
  98.  
  99.         cmp     al,01                   ;if INDOS is not equal to 1 ....
  100.         ja      skip28                  ;dos cannot take an interrupt yet ..lf
  101.  
  102.         test    WPTR [STATUS],TSRACTIVE ;are we currently running?
  103.         jz      skip28                  ;nope -- so don't issue INT 28s
  104.  
  105. do_28:
  106.         inc     BPTR [WAITCOUNT]        ;Add a counter
  107.         cmp     BPTR [WAITCOUNT],08     ;Have 8 counters passed since last
  108.                                         ;int 28h was called
  109.         jb      skip28                  ;Not 8 counters yet
  110.  
  111.         int     28h                     ;call dos idle function (background dispatch).
  112. skip28:
  113.         xor     ax,ax                   ;show  no keycode available
  114. exit_161:
  115.         pop     bx
  116.         pop     cx
  117.         ret
  118.  
  119. _TESSKEYSTAT endp
  120.  
  121. ENDIT
  122.