home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tp_util / nobreak.asm < prev    next >
Encoding:
Assembly Source File  |  1990-04-06  |  3.4 KB  |  157 lines
  1. ;******************************************************
  2. ; 
  3. ; Diese Routine wird in den Tastaturinterrupt (9) eingeklinkt
  4. ; und fängt PAUSE und ctr-alt-Del ab.
  5. ;
  6. ; das Hauptprogramm erhält über die Variablen
  7. ; PAUSEK : BOOLEAN; Pause- Taste gedrückt
  8. ; BREAKK : BOOLEAN; ctrl-alt-Del gedrückt
  9. ; gemeldet
  10. ;
  11. ;******************************************************
  12.  
  13. DATA    SEGMENT    BYTE PUBLIC
  14.  
  15.     EXTRN    PAUSEK : BYTE
  16.     EXTRN    BREAKK : BYTE
  17.  
  18. DATA    ENDS
  19.  
  20. ;******************************************************    Code
  21.  
  22. CODE    SEGMENT    BYTE PUBLIC
  23.  
  24.     ASSUME    CS:CODE, DS:DATA
  25.  
  26.         PUBLIC  InitKbdVectors, RestoreKbdVectors;
  27.     PUBLIC    NewInt09
  28.  
  29. ;CS-relative variables,    easily accessible to interrupt handlers
  30. PrevInt09    LABEL DWORD
  31. PrevInt09Ofs    DW ?
  32. PrevInt09Seg    DW ?
  33.  
  34. ;*********************************************************** NewInt09
  35. ;Handle    hardware keyboard interrupts
  36.  
  37.     BiosShiftFlags    EQU BYTE PTR 17h  ;Addresses in    BIOS data area
  38.     E0FLAG        EQU BYTE PTR 46H
  39.  
  40. NewInt09    PROC FAR
  41.  
  42.     STI                ;Interrupts on
  43.     PUSH    AX            ;Save registers    we use
  44.     PUSH    BX
  45.     PUSH    CX
  46.     PUSH    DS
  47.  
  48.     MOV    AX,0040h
  49.     MOV    DS,AX            ;Point to BIOS data area
  50.     IN    AL,60h            ;Read scan code
  51.     CMP    AL,45H            ; PAUSE ?
  52.     JE    PAUSE            ; JA - ABFANGEN
  53.  
  54.     CMP    AL,46H            ; BEI CTRL-BREAK KOMMT MAKECODE E0 46
  55.     JE    CTRLBR
  56.  
  57.     MOV    AL,DS:BiosShiftFlags    ;Shift status in AL
  58.     AND    AL,00001100b        ;Just Ctrl-Alt bits
  59.     CMP    AL,00001100b        ;Both Ctrl and Alt depressed?
  60.     JE    CTRLALT            ; GGF. Ctrl-Alt-Del ABFANGEN
  61.  
  62. Int09Orig:                ;Let BIOS int 09 handler take care of it
  63.     POP    DS            ;Restore registers
  64.     POP    CX
  65.     POP    BX
  66.     POP    AX
  67.     JMP    PrevInt09        ;Transfer to previous interrupt    09
  68.  
  69. PAUSE:    MOV    AX,SEG DATA
  70.     MOV    DS,AX            ;Point to Turbo    data area
  71.     MOV    PAUSEK,0FFH        ; PAUSE MARKIEREN
  72.     JMP    ZURUECK
  73.  
  74. CTRLBR:    MOV    AL,DS:E0FLAG
  75.     AND    AL,00000010b        ; E0- FLAG GESETZT ?
  76.     JE    INT09ORIG
  77.     JMP    ISBREAK
  78.  
  79. CTRLALT:
  80.     IN    AL,60h            ;Read scan code
  81.     CMP    AL,53H            ;Is it 53h?
  82.     JNE    Int09Orig        ;If not, pass on to BIOS int 09    handler
  83.  
  84. ISBREAK:
  85.     MOV    AL,DS:E0FLAG
  86.     AND    AL,11111101B        ; RESET E0- FLAG
  87.     MOV    DS:E0FLAG,AL
  88.  
  89.     MOV    AX,SEG DATA
  90.     MOV    DS,AX            ;Point to Turbo    data area
  91.     MOV    BREAKK,0FFH        ; CTRL- ALT- DEL MARKIEREN
  92.  
  93. ; TASTATURCODE VERNICHTEN UND ZURÜCK
  94. ZURUECK:
  95.     IN    AL,61h            ;Read control port value
  96.     MOV    AH,AL            ;Save in AH
  97.     OR    AL,80h            ;Set high bit
  98.     OUT    61h,AL            ;Reset keyboard
  99.     MOV    AL,AH            ;Retrieve original value
  100.     OUT    61h,AL            ;Enable    keyboard
  101.     CLI                ;Stop CPU interrupts
  102.     MOV    AL,20h            ;End of    interrupt
  103.     OUT    20h,AL            ;To the    interrupt controller
  104.  
  105.     STI                ;Interrupts on
  106.     POP    DS            ;Restore registers
  107.     POP    CX
  108.     POP    BX
  109.     POP    AX
  110.     IRET                ;Return    to caller
  111.  
  112. NewInt09    ENDP
  113.  
  114. ;*********************************************************** InitKbdVectors
  115.  
  116. ;Save and setup interrupt vectors
  117.  
  118. InitKbdVectors  PROC FAR
  119.  
  120.     MOV    AX,3509h        ;Get current int 9
  121.     INT    21h
  122.     MOV    PrevInt09Ofs,BX        ;Save it in CS-relative    variables
  123.     MOV    PrevInt09Seg,ES
  124.     PUSH    DS
  125.     PUSH    CS
  126.     POP    DS
  127.     MOV    DX,offset NewInt09
  128.     MOV    AX,2509h        ;Install new int 9
  129.     INT    21h
  130.     POP    DS
  131.  
  132.         RET
  133.  
  134. InitKbdVectors  ENDP
  135.  
  136. ;*********************************************************** RestoreKbdVectors
  137.  
  138. ;Restores original vectors for INT's $09 and $16
  139.  
  140. RestoreKbdVectors       PROC FAR
  141.     PUSH    DS
  142.     MOV    AX,PREVINT09SEG
  143.     PUSH    AX
  144.     POP    DS
  145.     MOV    DX,PREVINT09OFS
  146.     MOV    AX,2509h        ;Install new int 9
  147.     INT    21h
  148.     POP    DS
  149.  
  150.         RET
  151.  
  152. RestoreKbdVectors       ENDP
  153.  
  154. CODE    ENDS
  155.     END
  156.  
  157.