Posted By: rk (Vesela kaminka) on 'CZprogram'
Title:     Re: TSR v PAS & ASM
Date:      Mon Mar 17 14:49:49 1997


Programek na cvakani pri stisku klavesy. (asm 3.0)
--------------------------------------------------

IDEAL
MODEL TINY

DATASEG
D_Start:

OldKeyInt DD ?
D_Size = $ - D_Start

CODESEG
C_Start:

ORG 100h
         STARTUPCODE
         MOV AX,3509h
         INT 21h
         MOV [WORD OldKeyInt],BX
         MOV [WORD OldKeyInt+2],ES

         MOV DX,OFFSET NewKeyInt
         MOV AX,2509h
         INT 21h

         MOV DX,(D_Size+C_Size)/16+1
         MOV AX,3100h
         INT 21h

PROC NewKeyInt FAR
         PUSHF
         PUSH AX
         in al,60h
         CMP al,80h
         JNC NoPress
         IN  AL,61h
         OR  AL,3
         OUT 61h,AL
         MOV AL,0B6h
         OUT 43h,AL
         XOR AL,AL
         OUT 42h,AL
         INC AL
         OUT 42h,AL
         MOV AX,3000
@@Loop:  DEC AX
         JNZ @@Loop
         IN  AL,61h
         AND AL,0FCh
         OUT 61h,AL
NoPress: POP AX
         POPF
         JMP [CS:OldKeyInt]
ENDP

C_Size = $ - C_Start

END






vecne nespokojeny rk
-------------------------------------------------------------------------------
Where do foxes give Good night?