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?