ideal
model tiny
CODESEG
org 100h
proc Install
mov [byte 5Fh],0
mov dx,offset Mesg
mov ah,9
int 21h
mov es,[2Ch] ;Umgebungsvariablen
mov ah,49h
int 21h ;freigeben
mov ax,3509h
int 21h
mov [word LOW OldInt09],bx
mov [word HIGH OldInt09],es
mov si,offset NewInt09
push ds
pop es
mov di,60h
mov cx,(NewInt09_Size+1) / 2
cld
rep movsw
mov dx,60h
mov ax,2509h
int 21h
mov dx,60h+NewInt09_Size
int 27h
endp
proc NewInt09
push ax es bx
in al,60h
test [byte cs:5Fh],1
jz @@1
mov bx,40h
mov es,bx
mov bx,96h
cmp al,92
jne @@2
or [byte es:bx],8
@@2: cmp al,220
jne @@1
and [byte es:bx],not 8
@@1: and [byte cs:5Fh],not 1
cmp al,224
jne @@3
or [byte cs:5Fh],1
@@3: pop bx es ax
db 0EAh ;JMP
OldInt09 dd 0
NewInt09_Size=$-NewInt09
endp
Mesg db 'Rechte Windows95-Taste entspricht AltGR (henni)',13,10,'$'
END Install
Detected encoding: ASCII (7 bit) | 2
|