archive
/
windows-nt-4.0
mirror of https://github.com/lianthony/NT4.0
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Windows NT 4.0 source code leak
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
0 Tags
184 MiB
 
 
 
 
 
 
Tree: b4a8d373d8
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'b4a8d373d8'
${ noResults }
windows-nt-4.0/private/os2/os2ses/i386/kbdxlat.asm

2470 lines
145 KiB
Raw Blame History

; SCCSID = @(#)kbdxlat.asm 12.21 89/07/25
;OS2SS- Page 58,132
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;$$
;$$ Module: kbdxlat.asm Version: 1.2 ABIOS
;$$
;$$ History: This module was derived from the 1.2 AT source code.
;$$ ABIOS changes were made according to the deltas between
;$$ the 1.1 ABIOS and 1.1 AT drivers. The 1.1 ABIOS driver
;$$ was done by John Nels Fuller (Wyse). The 1.2 ABIOS
;$$ driver was done by Alan J. Cotterman (NCR).
;$$
;$$ Notes: Wherever possible the original 1.2 AT code is preserved.
;$$ All changes are marked with ";$$".
;$$
;$$ The only modification to this module is in testing for
;$$ keyboard type. References to "IDFlags" have been
;$$ replaced with tests of the contents of "KbdHWIDs".
;$$
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Title KBDXLAT - Translation Process
Name KBDXLAT
;***********************************************************************
;** **
;** Keyboard Device Driver Scan Code Translation **
;** **
;** **
;** This file contains the scan code to character translation process **
;** code. The code in this file is only called once by KBDDD and is **
;** not accessed by anyone else. So the entire translation process **
;** can be replaced by replacing the routine in this file. The data **
;** that is only used by the code in this file is in the file **
;** KBDXDATA.ASM and it too would be replaced if this code is to be **
;** replaced. **
;** **
;** 6/22/93 MJarus line with os2ss were modified by os2ss. **
;***********************************************************************
.386p ;OS2SS-.286
.sall
.xcref
;@@ The following files are included, but xlist'd out:
.xlist
Include struc.inc ;Structured assembly macros.
Include kbddd.inc ;Keyboard Device Driver structures & equates.
Include kbdxlat.inc ;Translation structures & equates.
.list
Extrn _Ow2MiscFlags:Byte ; 704,747,771,931,1188 (EnhancedKbd)
Extrn _Ow2MiscFlags3:Byte ; 1089,1154,1166,...(AltPacket SecAltNumPad PauseLatch E0Packet)
Extrn _Ow2KCBShFlgs:Word ; 2299
Extrn _Ow2KbdHWIDs:Word ;$$ Extrn IDFlags:Word
;Extrn OtherFlags:Byte ; (Test OtherFlags,InterruptTime) moved to [EDI]
;Extrn AltTable:Byte ; 275
;Extrn AltPadMap:Byte ; 562
;Extrn CtlPadMap:Byte ; 601
;Extrn NewExtSC:Byte ; only CheckExtended()
;Extrn NewExtSCLen:ABS ; only CheckExtended()
_TEXT SEGMENT DWORD USE32 PUBLIC 'CODE'
ASSUME CS:FLAT, DS:FLAT, ES:FLAT, SS:NOTHING, FS:NOTHING, GS:NOTHING
AltPadMap Label Byte
db 7,8,9,-1
db 4,5,6,-1
db 1,2,3
db 0,-1
CtlPadMap Label Byte
; db 119,-1,132,-1
; db 115,-1,116,-1
; db 117,-1,118
; db -1,-1
db 119,141,132,142 ;@@ Keypad 7, 8, 9, - (PTM 5024)
db 115,143,116,144 ;@@ Keypad 4, 5, 6, + (PTM 5024)
db 117,145,118 ;@@ Keypad 1, 2, 3 (PTM 5024)
db 146,147 ;@@ Keypad 0, . (PTM 5024)
;*****
;* Translation for keypresses on AlphaKeys with Alt pressed. This
;* translation is ALWAYS indexed by the Char1 value less 96 (which
;* is ascii "a"). The translation value is the scan code that
;* would come in on a regular PC keyboard (or PC/AT keyboard in
;* compatability mode).
;*****
AltTable Label Byte
; a, b, c, d, e, f, g, h, i, j, k, l, m
db 30,48,46,32,18,33,34,35,23,36,37,38,50 ;
; n, o, p, q, r, s, t, u, v, w, x, y, z
db 49,24,25,16,19,31,20,22,47,17,45,21,44 ;
NewExtSC LABEL BYTE
;@@ ALT+
;@@ [ ] ; ' ` \ , . / Tab
db 1Ah,1Bh,27h,28h,29h,2Bh,33h,34h,35h,0Fh
NewExtSCLen equ $-NewExtSC ;@@ Used by interrupt handler.
Even ;Make sure we're an even number of bytes. *
; *
; *
;*** END OF THE TRANSLATION TABLE **********************************
;OS2SS-...
; ULONG
; Ow2KbdXlate(
; ULONG ScanCode,
; PKBD_XLATE_VARS pFlagArea,
; PKBD_MON_PACKAGE pMonitorPack,
; PVOID pTransTable
; );
Public _Ow2KbdXlate@16
_Ow2KbdXlate@16 Proc ;------------------------------------------------------\
push ebp
mov ebp,esp
sub esp,8 ; for local arguments
push ebx
push ecx
push edx
push edi
push esi
;
; now:
;
; ebp-8 Pointer to DD of XlateTable entry for this scan code.
; ebp-4 Pointer to DD holding Offset of top of XlateTable
;
; ebp+0 old ebp
; ebp+4 Return Address
; ebp+8 ScanCode
; ebp+12 pFlagArea
; ebp+16 pMonitorPack
; ebp+20 pTransTable
;
mov eax, [ebp+8]
mov edi, [ebp+12]
mov esi, [ebp+16]
mov ebx, [ebp+20]
; cmp ebx,0
; jnz HaveTable
; ; if no translate table
; mov ebx,Offset XlateTable ; set the default one
;
;HaveTable:
call KbdXlate
mov al,0 ; Error ?
jnc EndXlate ; yes - no packet
test [esi].DDFlags,MultiMake
jnz EndXlate ; ignore multiple make of toggle key
test [edi].XPSGFlags, PrevAccent
jnz EndXlate ; ignore accent char till next keystroke
mov ah,byte ptr [esi].DDFlags
and ah,KeyTypeMask
cmp ah,UndefKey ; Is this key undefined?
je EndXlate ; yes - ignore
cmp byte Ptr [esi+KeyPacketLen].MonFlags,-1 ; do we have two packets?
mov al,1 ; assume not
jnz EndXlate
mov al,2 ; 2 packets
EndXlate:
and eax,0FFh ; returns in al number of packets
pop esi
pop edi
pop edx
pop ecx
pop ebx
mov esp,ebp
pop ebp
ret 16
_Ow2KbdXlate@16 Endp ;-------------------------------------------------------/
KbdXlate Proc ;------------------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: KbdXlate *
;* *
;* Descriptive Name: Keyboard Scan Code Translation *
;* *
;* Function: This routine translates the scan code received from *
;* the keyboard and places it in the Monitor Key Packet. *
;* It also sets all flags that are based on the scan code *
;* received. *
;* *
;* Entry Point: KbdXlate Linkage: Near *
;* *
;* Input: AL=Raw Scan Code EDI = Ptr to translation flag area *
;* ESI = Ptr to Monitor KeyPacket *
;* EBX = Ptr to Translate Table *
;* *
;* Exit-Normal: Monitor Key Packet filled in *
;* AL=Raw scan code if translation successful *
;* *
;* Exit-Error: If found a break of a shift key that had seen no *
;* make, returns 0 and CX hold the unexpected shift bits. *
;* *
;* Effects: All regs except SI, DI and the Seg regs may be altered *
;* Key Packet filled in *
;* *
;* Internal References: *
;* Routines: UnPauseChk *
;* AccCheckout *
;* *
;* External References: *
;* Routines: None. *
;* *
;* *
;***********************************************************************
Or Byte Ptr [ESI].MonFlags,NotInserted ;OS2SS-Key isn't monitor inserted.
And [EDI].XlateFlags,Not NormalAlt ;OS2SS-@@ Turn flag off to start
Mov AH,AL ;Copy scan code into AH
Or AH,AH ;Check if key break bit in
.If <s> ;If it is
Or [ESI].DDFlags,KeyBreak ;OS2SS-Set Flag
And AH,Not BreakBit ;Clear the break bit from the scan code
.Endif ;Endif key break bit on
Mov DL,AL ;OS2SS-Now calculate...
And EDX,07Fh ;OS2SS-...the index into...
Dec EDX ;OS2SS- ...XlateTable for...
IMul EDX,KDefLen ;OS2SS- ...this scan code.
Add EDX,KDefs ;OS2SS-Point past header to keydefs.
Add EDX,EBX ;OS2SS-Add offset into table.
Mov [EBP-8],EDX ;OS2SS-Save Pointer to XlateTable entry for this scan code.
Mov [EBP-4],EBX ;OS2SS-Put table start offset on the stack.
Mov BX,[EDX].XlateOp ;OS2SS-Get Xlate Operation word.
And EBX,ActionMask ;OS2SS-Isolate translate action field.
Mov [ESI].Key.Scan,AH ;OS2SS-Put scan code in key packet
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if saw E0 prefix last time
.If <nz> ;If we did
Or [ESI].DDFlags,SecondaryKey ;OS2SS-@@ Indicate so.
;@@ PTM 4359
.If <AL eq 53> ;@@ If this is '/' on Numpad
Test [ESI].Key.Shift,AltFlag ;OS2SS-@@ PTM 5024
.If <nz> ;@@ If ALT Key is down
Mov [ESI].Key.Scan,0A4h ;OS2SS-@@ Set extended scan code
.Else ;@@ Else no Alt down
Test [ESI].Key.Shift,CtlFlag ;OS2SS-@@ Check if Ctl key down
.If <nz> ;@@ If it is
Mov [ESI].Key.Scan,095h ;OS2SS-@@ Set extended scan code
.Else ;@@ Else no Alt or Ctl key down
Mov [ESI].Key.Char,'/' ;OS2SS-@@ then it is always '/' regardless
Mov [ESI].Key.Scan,OtherKey ;OS2SS-@@ and the scan code is EO
.Endif ;@@ Endif Ctl key down
.Endif ;@@ End PTM 5024
Jmp EndActionCase ;@@ of country/code page.
.Endif
.Endif
;From now on, ES:EDX (;OS2SS-)points to the Xlate table entry. If running in
;3xBox(;OS2SS-can't be), that pointer may have been created by a LOADALL, so don't
;allow interrupts, nor change Seg Regs. Also, the beginning offset
;of the translate table itself is on the top of stack.
Mov CX,Word Ptr [EDX+2] ;OS2SS-@@ Get Char1 and Char2 values.
Mov DX,[ESI].Key.Shift ;OS2SS-Get the current shift status from Key.
.If <BX ne 7> AND ;@@ If not a padkey clear possible Alt-nnn entry.
.If <BX ne 14> ;@@ Don't clear on Alt key, either.
Mov [EDI].XAltKeyPad,0 ;OS2SS-@@ Clear Alt-nnn entry.
.Endif
Mov AL,CL ;Copy Char1 for use later.
.If <BX gt MaxAct> ;@@ Was the action number too big?
Jmp NoXlate ;Yes, so don't try to translate.
.Endif
Shl BX,2 ;Make action number an offset.
Add EBX,Offset XJumpTable ;OS2SS-@@ Point to processor address.
Jmp [EBX] ;OS2SS-Go translate.
;Following is the branch table for the various actions that
;can be performed on a keystroke. Processing re-merges at the
;bottom of this CASE structure, at label "EndActionCase".
Public NoXlate, AlphaKey, SpecKey, SpecKeyC, SpecKeyA, SpecKeyCA
Public FuncKey, PadKey, SpecCtlKey, PrtScr, SysReq, AccentKeyType
Public ShiftKeys, ToggleKey, AltKey, NumLock, CapsLock, ScrollLock
Public XShiftKey, XToggleKey, SpecKeyCS, SpecKeyAS
Even
XJumpTable:
dd NoXlate ;0 Invalid action code, no translate done.
dd AlphaKey ;1 Alphabetical character key.
dd SpecKey ;2 Special non-alpha key, no CAPSLOCK or ALT.
dd SpecKeyC ;3 Special non-alpha key, with CAPSLOCK.
dd SpecKeyA ;4 Special non-alpha key, with ALT.
dd SpecKeyCA ;5 Special non-alpha key, w/CAPSLOCK and ALT.
dd FuncKey ;6 Function keys.
dd PadKey ;7 Numeric keypad keys.
dd SpecCtlKey ;8 Keys that do special things with CTL.
dd PrtScr ;9 The print screen key.
dd SysReq ;A The system request key.
dd AccentKeyType ;B A key that affects the NEXT key (dead key).
dd ShiftKeys ;C The LSHIFT, RSHIFT, and CTL keys.
dd ToggleKey ;D General Toggle key.
dd AltKey ;E The ALT key.
dd NumLock ;F The NUMLOCK key.
dd CapsLock ;10 The CAPSLOCK key.
dd ScrollLock ;11 The SCROLL LOCK key.
dd XShiftKey ;12 Extended shift key (for DBCS use).
dd XToggleKey ;13 Extended toggle key (for DBCS use).
dd SpecKeyCS ;14 Special key for NLS support.
dd SpecKeyAS ;15 Special key for NLS support.
; On entering the following routines, the following regs are set:
;
; CL = Char1 and CH = Char2 (both from XlateTable entry)
; DX = ShiftFlags (same as in Key CharData record)
; AL = Char1 also AH = Received scan code (Breakbit cleared)
;OS2SS- ESI = Pointer to Key Packet
;OS2SS- EDI = Pointer to current PSG
;OS2SS- [EBP-8] = Pointer to XlateTable entry for this scan code.
;OS2SS- [EBP-4] = Pointer to Offset of top of XlateTable
;
; Also, Key.Scan = AH and Key.Char = 0 on entry to the routines.
AlphaKey: ;Alphabetical character key.
ifdef JAPAN
; MSKK Aug.15.1993 V-AkihiS
; Support SBCS katakana
Test [ESI].Key.DShift, Katakana ;OS2SS Check if Katakana or not
.If <nz>
Mov EBX,[EBP-8] ;OS2SS-
Mov AL,[EBX].Char4 ;OS2SS-Get Char4 and Char5 values.
Mov CX,Word Ptr [EBX+5] ;OS2SS-
.Endif
endif
Test DL,AltFlag ;Check if Alt key is pressed.
.If <nz> ;Is it?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
Xor EBX,EBX ;OS2SS-Yes, so make Char1 an offset.
Mov BL,AL ;OS2SS-Now make it the base.
Mov AH,[AltTable+EBX-"a"] ;OS2SS-Fetch Alt-[] mapped code.
Mov [ESI].Key.Scan,AH ;OS2SS-Put in Key record.
Xor AL,AL ;Set `extended char' code.
.Endif
Jmp NewLbl1
.Endif ;OS2SS- (A2053)## Endif Alt is down.
;OS2SS- .Else
Test DL,CtlFlag ;Else, check if Ctl key is pressed.
;@@ for this KCB
;@@ PTM 5992 - Begin
.If <nz> OR ;@@ Is it OR?
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
.If <nz> ;&& translations are independent.
;@@ PTM 5992 - End
;Check limit on char1 value!
Sub AL,"a"-1 ;Yes, so convert Char1 to control code.
.If <CL eq 'c'> ;Is this Ctrl-C?
;@@ Tell dd it's the PSUEDO-BREAK KEY.
Or [ESI].DDFlags,PSBreakKey ;OS2SS-
Jmp NoPauseCheck ;@@ Do not check if paused, Ctl-C
;@@ has priority over resuming output
.ElseIf <CL eq 'p'> ;Is this Ctrl-P?
;@@ Tell dd it's PSUEDO-PRTECHO KEY.
Or [ESI].DDFlags,PSPrintEchoKey ;OS2SS-
Jmp NoPauseCheck ;@@ Do not check if paused, Ctl-P
;@@ has priority over resuming output
.ElseIf <CL eq 's'> ;Is this Ctrl-S?
;1.3-## PTR b790266
Test [ESI].DDFlags,KeyBreak ;OS2SS-1.3-## Make sure it isn't key break
.If <z> AND ;1.3-## If zero, then its a make
.If <[EDI].XInputMode eq 0> ;OS2SS-@@ Right, are we in cooked mode?
;@@ Yes, tell dd it's PSUEDO-PAUSE KEY.
Or [ESI].DDFlags,PSPauseKey ;OS2SS-
.Endif
.Endif
.Else ;Check for regular shifts/capslock.
ifdef JAPAN
; MSKK Aug.15.1993 V-AkihiS
; When Mode is katakana, CapsLock has no affect on this key.
Test [ESI].Key.DShift, Katakana ;OS2SS Check if Katakana or not
.If <nz> ;OS2SS
Mov BL,0 ;OS2SS indicate that CapsTogl has no
;OS2SS affect on this key.
.Else
Mov BL, CapsTogl ;OS2SS Set indicator that CapsLock and
;OS2SS ShiftLock affect key.
.Endif
else
Mov BL, CapsTogl ;## Set indicator that CapsLock and
;## ShiftLock affect key.
endif
Call CapsCheck ;## Determine the shifting of the char.
.Endif ;## Endif Ctrl or Interrupt time.
;OS2SS- .Endif ;## Endif Alt is down.
NewLbl1: ;OS2SS-
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
NoPauseCheck:
Mov [ESI].Key.Char,AL ;OS2SS-Put xlated character into Key rec.
;&& PTM 2217 BEGIN:
Test [ESI].DDFlags,KeyBreak ;OS2SS-&& Check if this a break or make.
.If <z> ;&& If it isn't then go and check accent.
;@@ PTM 6860 - Begin
Call AccCheckout ;Go check if accent combo going on.
;@@ PTM 6860 - End
.Endif ;&& Endif this is a make.
;&& PTM 2217 END:
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
SpecKey: ;Special non-alpha key, no CAPSLOCK or ALT.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;Check if Alt key is pressed.
.If <nz> ;Is it?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-## Check if it's the AltGraph
.If <z> ;## If alt key is AltGraph
;## which is undefined for this key
Mov [ESI].Key.Char,AL ;OS2SS-## put it in CDR
Call AccCheckout ;## Go check if acc. combo going on.
Jmp EndActionCase ;## Go to bottom of Xlate Action
.Endif ;## case table
Jmp NoXlate ;## then Key combo is undefined
.Endif ;@@ Endif Alt Key down
;## PTM 2287: BEGIN
Mov EBX,[EBP-8] ;OS2SS-## Put it in BX
Test [EBX].XTFlags1,ShiftLock ;OS2SS-## Check if SHIFTLOCK keyboard.
.If <nz> ;## If it is
Mov BL,CapsTogl ;## Indicate a CAPSLOCK check.
.Endif ;## PTM 2287: END
Test DL, CtlFlag ;## Check if Ctrl key down.
.If <nz> ;## If so ...
Call SKCtlCheck ;## check if char has special
;## control code.
.Else ;## Else Ctrl key not down,
Mov BL,0 ;1.3-@@ PTR B713838 Clear ShifLock Flag
Call CapsCheck ;## Check for shifting.
.Endif ;## Endif Ctrl down.
Mov [ESI].Key.Char,AL ;OS2SS-## Put Char in Key rec.
Call AccCheckout ;## PTR B705184
Jmp EndActionCase ;## Go to bottom of Xlate Action.
SpecKeyC: ;Special non-alpha key, with CAPSLOCK.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;Check if Alt key is pressed.
.If <nz> ;Is it?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
Mov EBX,[EBP-8] ;OS2SS-
.If <[EBX].Char4 eq 0> ;OS2SS-@@ then check if char 4 is 0
;@@ PTM 5024 - Begin
Call CheckExtended ;@@ See if new extended code
;@@ is defined
.If <c> ;## If it is defined.
Call AccCheckout ;## Go check if acc. combo going on.
Jmp EndActionCase ;## Go to bottom of Xlate Action
.Endif ;@@ PTM 5024 - End
Jmp NoXlate ;## the key combo is undefined
.Else ;@@ else if char 4 isn't 0
Mov AL,[EBX].Char4 ;OS2SS-@@ then use it
.Endif ;@@ Endif Char 4 is 0
.Endif ;@@ Endif Alt key is normal Alt.
Jmp SpecAccent ;@@ Go check if this is an accent
.Endif ;@@ Endif Alt Key down
Test DL, CtlFlag ;## Check if Ctrl key down.
.If <nz> ;## If so ...
Call SKCtlCheck ;## check if char has special
;## control code.
.Else ;## Else Ctrl is not down.
;## PTR B704944 CapsCheck in Else
Mov BL,CapsTogl ;Indicate check CAPSLOCK.
Call CapsCheck ;## Check for shifting.
.Endif
SpecAccent:
.If <AL b 8> ;@@ Indicate this is unprocessed
Or [ESI].DDFlags,AccentKey ;OS2SS-@@ accent.
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check for the key BREAK.
.If <z> ;@@ Is it?
And [EDI].XPSGFlags,Not PrevAccent ;OS2SS-@@ No, clear previous
;@@ accent number.
Or Byte Ptr [EDI].XPSGFlags,AL ;OS2SS-&& Save accent number
;&& for the next key.
.Endif
Jmp EndActionCase ;## Go to bottom of Xlate Action case table.
.Endif
Mov [ESI].Key.Char,AL ;OS2SS-## Put Char in Key rec.
Call AccCheckout ;## PTR B705184
Jmp EndActionCase ;@@ Go to bottom of Xlate Action case table.
SpecKeyA: ;Special non-alpha key, with ALT.
ifdef JAPAN
; MSKK Aug.15.1993 V-AkihiS
; Support SBCS katakana
Test [ESI].Key.DShift, Katakana ;OS2SS Check if Katakana or not
.If <nz>
Mov EBX,[EBP-8] ;OS2SS-
Mov AL,[EBX].Char4 ;OS2SS-Get Char4 and Char5 values.
Mov CX,Word Ptr [EBX+5] ;OS2SS-
.Endif
endif
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
;## PTM 2287: BEGIN
Mov EBX,[EBP-8] ;OS2SS-## Put it in BX
Test [EBX].XTFlags1,ShiftLock ;OS2SS-## Check if SHIFTLOCK keyboard.
.If <nz> ;## If it is
Mov BL,CapsTogl ;## Indicate a CAPSLOCK check.
.Endif ;## PTM 2287: END
Test DL, AltFlag ;## Check if Alt is down,
.If <nz> ;## If it is...
Call SKAltCheck ;## Check for extended code.
.Else ;## If it is not down,
.if <bit dl nz CtlFlag> ;## PTM 3327 start
Call SKCtlCheck ;## Check for spec. Ctrl code.
.else
Mov BL,0 ;1.3-@@ PTR B713838 Clear ShifLock Flag
Call CapsCheck ;## Check for Shifting.
.endif ;## PTM 3327 end
Mov [ESI].Key.Char,AL ;OS2SS-## Put Char in Key rec.
.Endif ;## Endif Alt is down.
Call AccCheckout ;## PTM 3126 fix stand alone accent
Jmp EndActionCase ;## Go to bottom of Xlate Action.
SpecKeyCA: ;Special non-alpha key, w/CAPSLOCK and ALT.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Mov BL,CapsTogl ;Indicate check CAPSLOCK.
Test DL, AltFlag ;## Check if Alt is down,
.If <nz> ;## If it is...
Call SKAltCheck ;## Check for extended code.
.Else ;## If it is not down,
Call CapsCheck ;## Check for Shifting.
Test DL, CtlFlag ;## Check if Ctrl is down,
.If <nz> ;## If it is then...
Call SKCtlCheck ;## Check for spec. Ctrl code.
.Endif ;## Endif Ctrl is down.
.Endif ;## Endif Alt is down.
Mov [ESI].Key.Char,AL ;OS2SS-## Put Char in Key rec.
Jmp EndActionCase ;## Go to bottom of Xlate Action.
FuncKey: ;Function keys.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;Check Alt Key.
.If <nz> ;Is it down?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
.If <CL gt 10> ;Yes, so check if F11 or F12.
Add CL,128 ;If so, extended code is 139 or 140
.Else
Add CL,103 ;Extended code is range 104-113.
.Endif ;@@
.Else ;@@ Else ALt key was Atl-Graph
;@@ PTM 6860 - Begin
Mov [ESI].Key.Char,AL ;OS2SS-@@ Move char 3 to key packet
Mov CL,[ESI].Key.Scan ;OS2SS-@@ Move scan to CL
;@@ PTM 6860 - End
.Endif ;@@ Endif Alt or AltGraph check
.Else ;@@ Endif no Alt key down
Test DL,CtlFlag ;Check Ctl Key.
.If <nz> ;Is it down?
.If <CL gt 10> ;Yes, so check if F11 or F12.
Add CL,126 ;If so, extended code is 137 or 138.
.Else
Add CL,93 ;Extended code is range 94-103.
.Endif
.Else
Test DL,RShiftFlag+LShiftFlag ;Check Shift Keys.
.If <nz> ;Is one down?
.If <CL gt 10> ;Yes, so check if F11 or F12.
Add CL,124 ;If so, extended code is 135 or 136.
.Else
Add CL,83 ;Extended code is range 84-93.
.Endif
.Else ;Else this is a non-shifted FKey.
.If <CL gt 10> ;Check if F11 or F12.
Add CL,122 ;If so, extended code is 133 or 134.
.Else
Add CL,58 ;Extended code is range 59-68.
.Endif
.Endif
.Endif
.Endif
Mov [ESI].Key.Scan,CL ;OS2SS-Put code in CharData rec.
;@@ PTM 6860 - Begin
Call AccCheckout ;Go check if accent combo going on.
;@@ PTM 6860 - End
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
PadKey: ;Numeric keypad keys.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Xor EBX,EBX ;OS2SS-Clear for use later.
Test DL,AltFlag ;Check if Alt key down.
.If <nz> NEAR ;Are we entering Alt-nnn?
;Maybe. First check for reboot request.
.If <CL eq 12> AND ;@@ And is current key mapped to Del?
;@@ PTM 6350 - Begin
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check if this a break
.If <z> AND ;@@ If it isn't (only reboot on make of Del)
;@@ PTM 6350 - End
Test DL,CtlFlag ;Maybe. First check for reboot request.
.If <nz> OR ;Is Ctl down too
;@@ for this KCB OR
;@@ PTM 5992 - Begin
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
.If <nz> ;&& translations are independent.
;@@ PTM 5992 - End
;@@ Tell dd it's the REBOOT KEY.
;OS2SS-BUGBUG shouldn't get here
Or [ESI].DDFlags,RebootKey ;OS2SS-@@
Jmp EndActionCase ;Quit now.
.Endif
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
;@@ PTM 5024 - BEGIN
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if secondary key
.If <nz> ;@@ If it is
Add [ESI].Key.Scan,50h ;OS2SS-@@ Make scan extended code
Mov [ESI].Key.Char,0 ;OS2SS-@@ Make char extended code
.Else ;@@ Else primary pad key
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check if is a key break.
.If <z> ;Is it?
Mov BL,CL ;No, so make Char1 value the index.
Mov CL,[EBX+AltPadMap] ;OS2SS-Get numeric value of the key.
Or CL,CL ;Check if value is -1.
.If <s> ;Is it.
Mov [EDI].XAltKeyPad,0 ;OS2SS-@@ Not numeric, reset.
.If <AH eq 83> ;@@ If this is DEL key
Jmp NoXlate ;@@ No extended value, undefined
.Else ;@@ Else extended char
Jmp EndActionCase ;@@ Mark char defined
.Endif ;@@ Endif Extended Char exists
.Else
Mov AL,10 ;Else multiply old...
Mul [EDI].XAltKeyPad ;OS2SS-@@ ...accumulator by 10.
Add AL,CL ;And add new key.
Mov [EDI].XAltKeyPad,AL ;OS2SS-@@ Save modified accum.
Jmp NoXlate ;Mark keystroke undefined
.Endif
.Else ;@@ PTM 6860 - Begin Else a break
Jmp NoXlate ;@@ Mark keystroke undefined
.Endif
.Endif ;@@ Endif primary or secondary key
;@@ End PTM 5024
.Else ;@@
Mov [ESI].Key.Char,AL ;OS2SS-@@ Put Char into Key rec.
Test [ESI].DDFlags,SecondaryKey ;OS2SS-@@ Check if G keyboard dup key.
.If <nz> ;@@ Is it?
Mov [ESI].Key.Scan,OtherKey ;OS2SS-@@ Yes, so mark it so.
.Endif ;@@
.Endif ;@@ Endif normal ALT
.Else NEAR ;No Alt key down.
;@@ PTM 5024
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if secondary key
.If <nz> ;@@ If it is
Mov AL,OtherKey ;@@ Set Char to E0
.Else ;@@ Else regular pad key
Xor AL,AL ;@@ Set Char to "extended"
.Endif ;@@ End PTM 5024
Test DL,CtlFlag ;Check if Ctl key down.
.If <nz> ;Is it?
Mov BL,CL ;Yes, so make Char1 value the index.
Mov AH,[EBX+CtlPadMap] ;OS2SS-Get extended value of the key.
Mov [ESI].Key.Scan,AH ;OS2SS-Set extended code for this key.
.Else ;Not Alt- or Ctl-, so figure out Num status.
.If <CL eq 3> OR ;Is this the minus key?
.If <CL eq 7> ;Or is this the plus key?
Mov AL,CH ;Yes, so use Char2 regarless of shifts.
.Else
Test DL,RShiftFlag+LShiftFlag ;Check for shift key.
.If <nz> ;Is one down?
Or BL,NumTogl ;Yes, so set NumLock bit.
.Endif
And DL,NumTogl ;Clear all shift bits but NumLock.
Xor DL,BL ;Flip it if shift key was down.
.If <nz> ;Is the case Num Lock?
Mov AL,CH ;Yes, so use Char2.
.Endif
;@@ PTM 7358 - Begin
.If <z> OR ;@@ If we should not shift
Test [ESI].DDFlags,SecondaryKey ;OS2SS-@@ if G keyboard dup key.
.If <nz> ;@@ If it is
.If <CL eq 11> ;Is this the Ins key?
Test [ESI].DDFlags,KeyBreak ;OS2SS-Yes check if key BREAK.
.If <nz> ;Is it?
And [EDI].ToggleFlags,Not InsKeyDown ;OS2SS-@@ Yes clear latch.
.Else ;Not Ins Key Break.
Test [EDI].ToggleFlags,InsKeyDown ;OS2SS-@@ Check if seen Ins.
.If <z> ;Have we?
Or [EDI].ToggleFlags,InsKeyDown ;OS2SS-@@ No, so set latch.
Xor Byte Ptr [ESI].Key.Shift,InsTogl ;OS2SS-Toggle in CDR
.Else ;Otherwise this is a repeat of the make.
Or [ESI].DDFlags,MultiMake ;OS2SS-So indicate so.
.Endif
.Endif
.Endif
.Endif ;@@ Endif we should set/clear insert toggle
;@@ PTM 7358 - End
.Endif
.Endif
Mov [ESI].Key.Char,AL ;OS2SS-Put character value in Key rec.
Test [ESI].DDFlags,SecondaryKey ;OS2SS-Check if G keyboard dup key.
.If <nz> ;Is it?
Mov [ESI].Key.Char,OtherKey ;OS2SS-Yes, so mark it so.
.Endif
.Endif ;Endif Alt key down or not check
;@@ PTM 6860 - Begin
Call AccCheckout ;Go check if accent combo going on.
;@@ PTM 6860 - End
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
SpecCtlKey: ;Keys that do special things with CTL.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;Check if Alt key down.
.If <nz> ;Is it?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
;@@ PTM 5024 - Begin
Xor AL,AL ;@@ Set Char to be extended
.If <AH eq 1Ch> AND ;@@ If this is the Enter key
Test [ESI].DDFlags,SecondaryKey ;OS2SS-
.If <nz> ;@@ on the pad keys
;&& PTM 1270 - Don't overwrite scan
Mov [ESI].Key.Scan,0A6h ;OS2SS-@@ Set extended code
.Endif
.Endif ;@@ PTM 5024 End
Jmp SetCharField ;&& PTM 1520 now go set char field
.Endif
;&& PTM 1270 - Begin
Test [ESI].DDFlags,SecondaryKey ;OS2SS-@@ Check if G keyboard dup key.
.If <nz> ;@@ Is it?
Mov [ESI].Key.Scan,OtherKey ;OS2SS-@@ Yes, so mark it so.
.Endif
Test DL,CtlFlag ;Check if Ctl key down.
.If <nz> ;Is it?
Mov AL,CH ;Yes, so use Char2.
.Endif
SetCharField: ;&& PTM 1520 Alt should have
;&& precedence when Ctrl and Alt
;&& are down.
Mov [ESI].Key.Char,AL ;OS2SS-Put Char into Key rec.
;&& PTM 1270 - End
;@@ PTM 6860 - Begin
Call AccCheckout ;Go check if accent combo going on.
;@@ PTM 6860 - End
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
;OS2SS-BUGBUG-shouldn't get here
PrtScr: ;The print screen key.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;Check if Alt key down.
.If <nz> ;Is it?
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if secondary key
.If <nz> OR ;@@ If it is OR...
Test _Ow2MiscFlags,EnhancedKbd ;@@ Check if enhanced kbd
.If <z> OR ;@@ OR...If it's a regular kbd
;$$
;$$ 'IDFlags' does not exist in the 1.2 ABIOS
;$$ version. We need to get this information from KbdHWIDs.
;$$
;$$ Test IDFlags, SuperSport ;## Check if it is a 122 kbd
.If < _Ow2KbdHWIDs e 0AB85h > ;$$ If it is a 122 kbd
Test DL,CtlFlag ;@@ Check if Ctl key is down
.If <nz> OR ;@@ If it is
;@@ for this KCB
;@@ PTM 5992 - Begin
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
.If <nz> ;&& translations are independent.
;@@ PTM 5992 - End
Or [ESI].DDFlags,PrintFlushKey ;OS2SS-@@ Indicate this is FlushPrtbuf
Jmp EndActionCase ;@@ Go to bottom of Xlate Action
;@@ case table.
.Endif
Jmp NoXlate ;Else that's undefined for this key.
;@@ PTM 5024 begin
.Else ;@@ Else it Pad Key * on G kbd
Xor AL,AL ;@@ Set extended code
.Endif ;@@ Endif PrtScr or *
.Else NEAR ;@@ Else no Alt key down
Test DL,CtlFlag ;Check if Ctl key down.
;@@ for this KCB
;@@ PTM 5992 - Begin
.If <nz> OR ;@@ Is it OR?
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
;@@ PTM 5992 - End
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if secondary key
.If <nz> OR ;@@ If it is OR...
Test _Ow2MiscFlags,EnhancedKbd ;@@ Check if enhanced kbd
.If <z> OR ;@@ OR...If it's a regular kbd
;$$
;$$ 'IDFlags' does not exist in the 1.2 ABIOS
;$$ version. We need to get this information from KbdHWIDs.
;$$
;$$ Test IDFlags, SuperSport ;## Check if it is a 122 kbd
.If < _Ow2KbdHWIDs e 0AB85h > ;$$ If it is a 122 kbd
Xor AL,AL ;Yes so set extended code...
Mov [ESI].Key.Scan,CH ;OS2SS-...for the Ctl-PrSc combination.
Or [ESI].DDFlags,PrintEchoKey ;OS2SS-@@ Tell dd it's the PRINT
;@@ ECHO KEY.
;@@ PTM 5024 - Begin
.Else ;@@ Else its the keypad *
Xor AL,AL ;@@ so set extended code...
Mov [ESI].Key.Scan,96h ;OS2SS-@@ for scan and char
.Endif ;@@ PTM 5024 - end
.Else ;@@ Else Ctrl key not down.
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if secondary key
.If <nz> OR ;@@ If it is OR...
Test DL,RShiftFlag+LShiftFlag ;@@ Check if a shift flag down.
.If <nz> AND ;@@ If a shift key is down AND...
Test _Ow2MiscFlags,EnhancedKbd ;@@ Check if enhanced kbd
.If <z> OR ;@@ AND...If it's a regular kbd
;$$ Test IDFlags, SuperSport ;## Check if it is a 122 kbd
;$$
;$$ 'IDFlags' does not exist in the 1.2 ABIOS
;$$ version. We need to get this information from KbdHWIDs.
;$$
.If < _Ow2KbdHWIDs e 0AB85h > ;$$ If it is a 122 kbd
Xor AL,AL ;Yes, so clear char code.
Or [ESI].DDFlags,PrtScrKey ;OS2SS-@@ Tell dd it's PRINT SCREEN KEY.
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check for the key BREAK.
.If <nz> ;Is it?
And [EDI].XlateFlags,Not PSKeyDown ;OS2SS-@@ Yes, clear PS Key latch
.Else
Test [EDI].XlateFlags,PSKeyDown ;OS2SS-@@ Check if seen PS key yet.
.If <z> ;Have we?
Or [EDI].XlateFlags,PSKeyDown ;OS2SS-@@ No, set latch saying have.
.Else ;Otherwise this is a repeat of the make.
Or [ESI].DDFlags,MultiMake ;OS2SS-So indicate so.
.Endif ;Endif no PS key yet check
.Endif ;Endif Key break or not check
.Else ;@@ PTM 2606: Shift keys not
;@@ down or not enhanced kbd.
Test [ESI].DDFlags, KeyBreak ;OS2SS-@@ If this is a break of the
.If < nz > ;@@ PrtScr key,
And [EDI].XlateFlags,Not PSKeyDown ;OS2SS-@@ Ensure latch is
;@@ cleared.
.Endif ;@@ Endif PrtScr break.
.Endif ;Endif shift key down
.Endif ;Endif Ctl down or not check
.Endif ;@@ Endif Alt key down check
Mov [ESI].Key.Char,AL ;OS2SS-Put character in Key rec.
;@@ PTM 6860 - Begin
Call AccCheckout ;Go check if accent combo going on.
;@@ PTM 6860 - End
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
AccentKeyType: ;A key that affects the NEXT key (dead key).
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;Check if ALT down.
.If <nz> ;Is one?
Or [EDI].XlateFlags,Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ check if it was Altgraph key
.If <z> ;@@ If it was AltGraph key
.If <CL a 7> ;@@ If char 3 wasn't accent
Mov [ESI].Key.Char,CL ;OS2SS-@@ Put char in CDR
Mov [ESI].Key.Scan,AH ;OS2SS-@@ Put scan in CDR
Call AccCheckOut ;@@ Go check if accent combo (p6860)
Jmp EndActionCase ;@@ And quit now
.Else ;@@ Else char3 was an accent or 0
.If <CL eq 0> ;@@ If Char 3 was 0
Jmp NoXlate ;@@ Mark Key packet undefined
.Else ;@@ Else it was an accent
Xor BH,BH ;@@ Flag no shift check
Jmp ShiftAccent
.Endif ;@@ Endif Char3 was 0 or not
.Endif ;@@ Endif Char3 accent or not
.Endif ;@@ Endif Altgraph key down
.Endif ;@@ Endif ANY Alt key down
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> OR ;@@ If alt key is normal Alt
Test DL,CtlFlag
.If <nz> ;@@ OR CTL key is down
Mov EBX,[EBP-8] ;OS2SS-
Mov CL,[EBX].Char5 ;OS2SS-@@ Get accent entry index
;@@ for CTL or ALT character
XOR EBX,EBX ;OS2SS-
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
Mov EBX,AltAcChar ;OS2SS-@@ So get Alt-Accent offset.
.Endif
Test DL,CtlFlag
.If <nz> ;@@ If its the CTL key
Mov EBX,CtlAcChar ;OS2SS-@@ So get Ctl-Accent offset.
.Endif
And ECX,0FFh ;OS2SS-Make accent number a word.
Dec ECX ;OS2SS-Accent 1 is offset zero.
IMul ECX,AccEntryLen ;OS2SS-Set offset of accent table entry.
Add ECX,Accents ;OS2SS-Add offset of accent entries.
Add ECX,EBX ;OS2SS-@@ Add offset for Ctl or Alt
;@@ accent
Add ECX,[EBP-4] ;OS2SS-Point into translate table.
Mov EBX,ECX ;OS2SS-Put pointer in base reg.
Mov BX,Word Ptr [EBX] ;OS2SS-Fetch char and scan.
Or BX,BX ;Check if a Scan/Char mapping for this key.
.If <z> ;Is there?
Jmp NoXlate ;No, so go mark untranslated.
.Endif ;Else, use the mapping.
Mov Word Ptr [ESI].Key.Char,BX ;OS2SS-Put them into Key.
;@@ PTM 6860
Call AccCheckout ;Go check if accent combo going on
Jmp EndActionCase ;Quit now.
.Endif
;## PTR B700738 Move 0 into BL to
Mov BL,0 ;## indicate that CapsTogl has no
;## affect on this key.
Call CapsCheck ;## Determine shifting of character.
ShiftAccent: ;@@ Merge here for accent process
.If <nz> ;@@ If we should shift
Mov CL,CH
.Endif
.If <CL a 7> ;@@ Is translate table entry
;@@ actually a character
Mov [ESI].Key.Char,CL ;OS2SS-@@ Put character in CDR
.IF <bit [ESI].DDFlags z KeyBreak> ;OS2SS-## PTM 3324 start
Call AccCheckOut ;@@ Go check if accent combo
.ENDIF ;## PTM 3324 end
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
.Else ;@@ Else actually an accent
Or CL,CL ;@@ check if accent defined.
.If <z> ;@@ Is it?
Jmp NoXlate ;@@ No, so go mark undefined.
.Endif
Xor CH,CH ;Make accent number a word.
Mov BX,[EDI].XPSGFlags ;OS2SS-&& Get the translation flags
And BX,PrevAccent ;&& Clear all bits but previous
;&& accent number (in BL)
Mov AL,CL ;@@ Save accent number
.If <BL eq CL> AND ;@@ If this is same accent number
;@@ as last time AND
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check if this is a BREAK
.If <z> AND ;@@ AND it is not a break
Mov EBX,[EBP-8] ;OS2SS-
Mov BX,[EBX].XlateOp ;OS2SS-@@ Get accent flags
Mov CL,7 ;@@ Set highest accent number
Sub CL,AL ;@@ Subtract actual accent number
Shl BX,CL ;@@ Put accent flag in high bit
.If <s> ;@@ AND if an accent is defined
Mov DX,[ESI].Key.Shift ;OS2SS-@@ Get the current shift status from Key.
Call AccCheckOut ;@@ Go process this key
.Endif
;Indicate this is an unprocessed accent.
Or [ESI].DDFlags,AccentKey ;OS2SS-@@
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check for the key BREAK.
.If <z> NEAR ;Is it?
And [EDI].XPSGFlags,Not PrevAccent ;OS2SS-@@ No, clear prev accent
Or Byte Ptr [EDI].XPSGFlags,AL ;OS2SS-&& Save accent number for next
;&& key.
.Endif
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
.Endif ;@@
SysReq: ;The system request key.
;@@ PTM 4247 - the PrtScr key on an Enhanced Keyboard
;@@ sends the SysReq scan code if the Alt Key is down
;@@ which it must be for the Print Buffer flush key combo
;@@ (Ctl-Alt-PrtScr). Therefore we must check for it here.
Test _Ow2MiscFlags,EnhancedKbd ;@@ Check if enhanced kbd
.If <nz> AND ;@@ If it is AND....
Test [ESI].DDFlags,KeyBreak ;@@ Check if this is a break
.If <z> AND ;@@ ...AND If it's NOT (a make)
Test DL,AltFlag ;@@ Check if Alt key down.
.If <nz> AND ;@@ If it is AND....
Test DL,CtlFlag ;@@ Check if Ctl key is down
;@@ for this KCB
;@@ PTM 5992 - Begin
.If <nz> OR ;@@ Is it OR?
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz> ;@@ PTM 5992 - End
;@@ No, so make sure this shift key's flag is set.
Or [ESI].Key.Shift,CX ;OS2SS-
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Or [EDI].XHotKeyShift,CX ;OS2SS-@@ Also set in hot key shift state
.Endif
;@@ Indicate this is Flush Prt buf
Or [ESI].DDFlags,PrintFlushKey ;OS2SS-
Jmp EndActionCase ;@@ Go to bottom of Xlate Action
;@@ case table.
.Else ;@@ Else (PTM 4990)
Or [ESI].DDFlags,SysReqKey ;OS2SS-@@ Indicate this is SysReq key
.Endif
ShiftKeys: ;The LSHIFT, RSHIFT, and CTL keys.
AltKey: ;And the ALT key.
Test [EDI].XlateFlags,E1Prefix ;OS2SS-@@ CHeck if scan code proceeded
.If <nz> AND ;@@ by E1, if so AND
Test CX,CtlFlag ;@@ check if this is Ctrl key
.If <nz> ;@@ AND if it is Ctrl
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check if this is a break
.If <z> ;@@ if it is not
Or [EDI].XlateFlags,PseudoCtl ;OS2SS-@@ Flag this as not actually
;@@ a Ctrl key but a code
;@@ sent by Enhanced Kbd
.Endif
Jmp NoXlate ;@@ Mark key packet undefined
.Endif
;&& PTM 3002 BEGIN:
;&& Setup alternate shift bits
;&& before checking for MultiMake.
Mov EBX,[EBP-8] ;OS2SS-Put XlateTable offset into a base reg.
Mov AH,[EBX].Char3 ;OS2SS-Get alternate shift bits from entry.
Mov EBX,[EBP-4] ;OS2SS-
Mov BX,[EBX].XTFlags1 ;OS2SS-@@ Get the XT header flags
Test [ESI].DDFlags,SecondaryKey ;OS2SS-Check if G keyboard dup key.
.If <nz> ;Is it?
Test CX,RShiftFlag+LShiftFlag ;@@ Is the key a shift key
.If <nz> ;@@ If so....
;@@ If it is then this is coming from a "G" keyboard secondary
;@@ pad key, and NUMLOCK is on. This combination sends
;@@ the following scan codes: E0, left shift make, E0,
;@@ pad key make, E0, pad key break, E0, left shift break.
;@@ In this case, we don't want to change the shift flags
;@@ anywhere.
Jmp NoXlate ;@@ Mark key packet undefined
.Endif ;@@ Endif shift key
Xchg CH,AH ;Yes, so swap shift bit mask with alternate.
.Endif ;&& PTM 3002 END:
;@@ PTM 6446 - BEGIN
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check if this is a MAKE
.If <z> ;@@ If it is
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz> AND
Test Byte Ptr [EDI].XHotKeyShift+1,CH ;OS2SS-@@ Check if this key down
;@@ In the system already
;@@ for Ctl and Alt
.If <nz> OR ;@@ If it is OR
Test CX,RShiftFlag+LShiftFlag ;@@ Is the key a shift key
.If <nz> AND ;@@ If so AND....
Test [ESI].DDFlags,SecondaryKey ;OS2SS-@@ And if this is NOT a secondary
.If <z> AND ;@@ shift key code sent by a pad
;@@ key (PTM 7506)
Test Byte Ptr [EDI].XHotKeyShift,CL ;OS2SS-@@ Check if this key down
.If <nz> ;@@ If it is
;@@ In the system already
;@@ PTM 3138 BEGIN: Flag as shift
;@@ key also, do not put in KIB.
Or [ESI].DDFlags,MultiMake+ShiftMask ;OS2SS-@@ Indicate so and do not
;@@ update shift state.
;@@ PTM 3138 END:
Jmp EndActionCase ;@@ Complete translation
.Endif ;@@ Endif this is a multimake
.Endif ;@@ Endif this is a key make
;@@ PTM 6446 - END
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check if this is key break.
.If <nz> AND ;If it is AND...
Test DX,CX ;And is a key make pending for this shift flag?
.If <z> ;If not, this key belongs in another SG.
Xor AL,AL ;Indicate not our keystroke.
ClC ;Differentiate from other key-break return above.
Ret ;Quit now.
.Endif
Test CX,RShiftFlag+LShiftFlag+SysRqFlag ;Is the key other...
.If <nz> ;...than Ctl or Alt?
And [EDI].XlateFlags,NOT DumpKeyOnce ;OS2SS-@@ Cancel Dump sequence.
.Endif
Or [ESI].DDFlags,ShiftMask ;OS2SS-@@ Indicate this is a shift key.
Test BX,ShiftLock ;@@ ShiftLock keyboard?
.If <nz> AND ;Is it shift lock and...
Test BX,ShiftToggle ;@@ ShiftToggle Kbd?
.If <z> AND ;@@ Is it NOT shift toggle and..
Test CL,RShiftFlag+LShiftFlag ;...is this key one of..
.If <nz> AND ; ...two shift keys?
Test [ESI].DDFlags,KeyBreak ;Check for the key BREAK.
.If <z> ;If not, make sure ShiftLock is off.
And DL,Not CapsTogl ;Turn it off.
;@@ Turn it off in the interrupt driven shift state for
;@@ hot keys also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
And Byte Ptr [EDI].XHotKeyShift+1,Not CapsTogl ;OS2SS-
.Endif
.Endif
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check for the key BREAK.
.If <z> ;Is it?
Test CX,DX ;@@ No, its a MAKE
.If <nz> ;@@ So check if we've seen it
Or [ESI].DDFlags,MultiMake ;@@ If we have, indicate so.
.Endif ;@@ Endif Multimake
Or DX,CX ;No, so make sure this shift key's flag is set.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Or [EDI].XHotKeyShift,CX ;OS2SS-@@ Also set in hot key shift state
.Endif
jmp NewLbl2
.Endif ;OS2SS- (A2053)## Endif Alt is down.
;OS2SS- .Else ;Else process key-break.
.If <AL eq AltFlag> ;Check is this the AltKey?
Xor AL,AL ;@@ Clear out a reg
Xchg AL,[EDI].XAltKeyPad ;OS2SS-@@ Swap with the ALT-nnn accumulator.
Or AL,AL ;Check if any accumulation going on.
.If <nz> ;Was there?
Mov [ESI].Key.Char,AL ;OS2SS-Yes so make a Char from total.
Mov [ESI].Key.Scan,0 ;OS2SS-And make the scan code zero.
;## PTR AK00370
Test [ESI].DDFlags,SecondaryKey ;OS2SS-## If this isn't an AltPad seq.
.If <z> ;## with right (secondary) Alt key.
And [ESI].DDFlags,Not (KeyBreak+KeyTypeMask) ;OS2SS-Fix flags.
.Endif ;## Endif right Alt key.
;## PTR AK00370
Or _Ow2MiscFlags3,AltPacket ;&& DCR 1713 : Indicate that
;&& we will send two packets.
;@@ PTM 6860 - Begin
Call AccCheckout ;@@ check if accent combo going on.
;@@ PTM 6860 - End
.Endif ;Endif accumulation going on
.Endif ;@@ Endif this was an ALT key
Mov BX,CX ;Save shift key values
Not CX ;Make shift flags into a mask.
;@@ PTM 3905 - Topview does not send cursor key scan codes through
;@@ and if this is a Ferrari keyboard, we only get E0s from the
;@@ secondary cursor keys. Then if the left ALT is pressed
;@@ to remove the popup, we think the ALT make was actually
;@@ the right alt make because it was preceded by an E0 from a
;@@ cursor key. And the break does not clear things up.
Test BL,RShiftFlag+LShiftFlag ;...is this key one of..
.If <z> ; ...two shift keys?
Test DH,BH ;@@ Check if this key is actually
;@@ the one that's down
.If <z> ;@@ If it isn't
And DH,CL ;@@ Clear bit for key actually down
.Else ;@@ Else we've got the right key
And DH,CH ;Clear upper byte shift flag for this shift key.
.Endif
Test DH,AH ;Check if other shift key is down.
.If <z> ;Is primary or secondary shift key still down?
And DL,CL ;No, so clear lower byte shift flag.
.Endif
;@@ PTM 4075 - A system wide word for the shift state
;@@ must be maintained that is only modified by interrupts
;@@ and is only used for Hot Key Checking
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent. ;&& translations are independent.
.If <nz>
Push EDX ;OS2SS-@@ Save new key packet shift
Mov DX,[EDI].XHotKeyShift ;OS2SS-@@ Get hot key shift state
Test DH,BH ;@@ Check if this key is actually
;@@ the one that's down
.If <z> ;@@ If it isn't
And DH,CL ;@@ Clear bit for key actually down
.Else ;@@ Else we've got the right key
And DH,CH ;Clear upper byte shift flag for this shift
.Endif
Test DH,AH ;Check if other shift key is down.
.If <z> ;Is primary or secondary shift key still down?
And DL,CL ;No, so clear lower byte shift flag.
.Endif
Mov [EDI].XHotKeyShift,DX ;OS2SS-
Pop EDX ;OS2SS-
.Endif
.Else
And DL,CL ;No, so clear lower byte shift flag.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
And Byte Ptr [EDI].XHotKeyShift,CL ;OS2SS-
.Endif
.Endif
;OS2SS- .Endif
NewLbl2: ;OS2SS-
Mov [ESI].Key.Shift,DX ;OS2SS-Also save in Key rec.
Test _Ow2MiscFlags3,AltPacket ;&& DCR 1713 BEGIN: Check to see if an
;&& Alt-Num operation was completed.
.If <nz> ;&& If so then..
;## PTR AK00370: BEGIN
Test [ESI].DDFlags,SecondaryKey ;OS2SS-## If this is an AltPad seq.
.If <z> ;## with Left (normal) Alt key.
Call AltPadPacket ;&& setup second of two packets for
;&& Alt-Numpad sequence.
.Else ;## Else this is an AltPad seq. with
;## the right (secondary) Alt key.
Test [ESI].DDFlags,KeyBreak ;OS2SS-## If this is a break for the right
.If <nz> ;## Alt key then...
Or _Ow2MiscFlags3, SecAltNumPad ;## Flag that we will have to send an
.Endif ;## accumulation packet after break
;## of the Alt key in Int Handler.
.Endif ;## PTR AK00370: END
.Endif ;&& DCR 1713: END
;## AltPadPacket is only called for
;## AltNumPad seq. with left Alt. key.
;## PTR AK00370: END
Jmp EndActionCase ;Go to bottom of Xlate Action case table.
ScrollLock: ;The SCROLL LOCK key.
;@@ This is special case of ToggleKeys because of Ctl-Break.
;@@ On an Enhanced keyboard, the Ctl-Break sends the following
;@@ set of scan codes:
;@@ Ctrl make-E0-ScrollLock make-E0-ScrollLock break-Ctrl break
;@@ so we must check if it was an AT keyboard or preceded by EO
;@@ before identifying it as Ctl-Break.
And [EDI].XlateFlags,NOT DumpKeyOnce ;OS2SS-@@ Cancel Dump sequence.
Test [EDI].XlateFlags,SecPrefix ;OS2SS-@@ Check if secondary key
.If <nz> OR ;@@ If it is OR...
Test _Ow2MiscFlags,EnhancedKbd ;@@ Check if enhanced kbd
.If <z> OR ;@@ OR...If it's a regular kbd
;$$
;$$ 'IDFlags' does not exist in the 1.2 ABIOS
;$$ version. We need to get this information from KbdHWIDs.
;$$
;$$ Test IDFlags, SuperSport ;## Check if it is a 122 kbd
.If < _Ow2KbdHWIDs e 0AB85h > ;$$ If it is a 122 kbd
Test DL,CtlFlag ;Check if Ctl also pressed.
;@@ for this KCB
;@@ PTM 5992 - Begin
.If <nz> OR ;@@ Is it OR?
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
;@@ PTM 5992 - End
Mov [ESI].Key.Scan,0 ;OS2SS-Set Ctl-Break extended code.
;Tell dev driver it's the BREAK KEY.
Or [ESI].DDFlags,BreakKey ;OS2SS-@@
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check if this is the key break.
.If <nz> ;If so, clear Scroll Lock down bit in Packet & PSG.
And Byte Ptr [ESI].Key.Shift+1,Not (ScrollFlag ShR 8)
;OS2SS-@@ Clear bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
And Byte Ptr [EDI].XHotKeyShift+1,Not (ScrollFlag ShR 8) ;OS2SS-
.Endif
.Else ;Set Scroll Lock down bit in packet & PSG.
Or Byte Ptr [ESI].Key.Shift+1,(ScrollFlag ShR 8)
;OS2SS-@@ Set bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Or Byte Ptr [EDI].XHotKeyShift+1,(ScrollFlag ShR 8) ;OS2SS-
.Endif
.Endif
Jmp EndActionCase ;@@ PTM 4106: Leave translation.
.Else ;Not Ctl-Break, fall thru to ToggleKey processing.
Jmp ToggleKey ;@@
.Endif
.Else ;Not Ctl-Break, fall thru to ToggleKey processing.
Jmp ToggleKey ;@@
.Endif
NumLock: ;The NUMLOCK key.
;@@ We must check if this is the Enhanced keyboard
;@@ which will emulate Ctrl being down (PseudoCtl Flag
;@@ will be set) for the PAUSE key or an AT kbd w/ Ctl down.
Test [EDI].XlateFlags,PseudoCtl ;OS2SS-@@ Check if secondary kbd
;@@ emuating the Ctl key
.If <nz> OR ;@@ If it is OR...
;## PTM 3128 BEGIN:
.If <_Ow2KbdHWIDs ne FERRARI_P> AND ;## If it's not an 88/89 AND
.If <_Ow2KbdHWIDs ne FERRARI_G> AND ;## If it's not a 101/102 AND
.If <BX ne JAGUAR> AND ;1.3-## If it's not a 122 Key JAGUAR
;## PTM 3128 END:
Test DL,CtlFlag ;@@ Check if Ctl also pressed.
;@@ for this KCB
;@@ PTM 5992 - Begin
.If <nz> OR ;@@ Is it OR?
Test [EDI].XHotKeyShift,CtlFlag ;OS2SS-@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
;@@ PTM 5992 - End
;@@ PTM 4004:
Test DL, AltFlag ;@@ Check for Alt key down.
.If < z > ;@@ No alt key, process Ctl-NumLk,
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check if this is a key break
.If <nz>
And [EDI].XlateFlags,Not PseudoCtl ;OS2SS-@@ Clear flag
Test _Ow2MiscFlags3,PauseLatch ;&& PTM 2344 BEGIN: If the NumLock
;&& make preceded the Ctrl make
.If <z> ;&& then this is not the break of
;&& of a Pause. Therefore do not
;&& throw the key away. Treat it
Jmp ToggleKey ;&& as a normal shift break.
.Endif ;&& Endif this was not the Pause.
And _Ow2MiscFlags3,Not PauseLatch ;&& Reset the Pause sequence flag.
;&& PTM 2344 END:
Jmp NoXlate ;@@ Mark Key Packet undefined
.Else ;@@ Else it's a make scan code
Or [ESI].DDFlags,PauseKey ;OS2SS-@@ So tell dd it's the PAUSE KEY.
Or _Ow2MiscFlags3,PauseLatch ;&& PTM 2344: Flag the make of the
;&& NumLock to be used as a latch.
Jmp EndActionCase ;@@ Completed translation
.Endif ;@@ Endif key break or not
.Else ;&& PTM 2383: Else Alt is down
And [EDI].XlateFlags,Not PseudoCtl ;OS2SS-@@ Clear flag
Test DL,CtlFlag ;&& so test if Ctrl is also down.
.If <z> ;&& If Ctrl is not down then the
Jmp NoXlate ;&& key sequence Alt-Pause Key
;&& is undefined.
.Endif ;&& Endif Ctrl is down with Alt.
.Endif ;@@ End alt key down check. PTM 4004
.Endif
Test DL,CtlFlag ;Check if Ctl also pressed.
;@@ for this KCB
;@@ PTM 5992 - Begin
.If <nz> OR ;@@ Is it OR?
Test [EDI].XHotKeyShift,CtlFlag ;@@ Also check in interrupt shift
;@@ state
.If <nz> AND ;@@ Is it being held down at all
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
;@@ PTM 5992 - End
Test DL,AltFlag ;Yes, check Alt key also.
.If <nz> ;Is it?
Test [EDI].XlateFlags,DumpKeyOnce ;OS2SS-@@ Yes check if second time.
.If <nz> ;Is it?
Or [ESI].DDFlags,DumpKey ;OS2SS-@@ So tell dd it's the DUMP KEY.
.Else
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check if this's key break.
.If <nz> ;Is it?
Or [EDI].XlateFlags,DumpKeyOnce ;OS2SS-@@ Yes indicate seen once.
.Endif
.Endif
.Endif
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check if this's the key break.
.If <nz> ;If so, clear Num Lock down bit in Packet & PSG.
And Byte Ptr [ESI].Key.Shift+1,Not (NumFlag ShR 8)
;@@ Clear bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
And Byte Ptr [EDI].XHotKeyShift+1,Not (NumFlag ShR 8) ;OS2SS-
.Endif
Test [EDI].XlateFlags,DumpKeyOnce ;OS2SS-@@ PTM 7078 - Begin
.If <z> ;@@ If this wasn't the dump key
Or [ESI].DDFlags,ShiftMask ;OS2SS-@@ PTM 6937
;@@ Indicate this is a shift key.
.Endif ;@@ PTM 7078 - End
Test _Ow2MiscFlags3,PauseLatch ;&& PTM 2344 BEGIN: If the NumLock
;&& make preceded the Ctrl make
.If <z> ;&& then this is not the break of
;&& of a Pause. Therefore do not
;&& throw the key away. Treat it
Jmp ToggleKey ;&& as a normal shift break.
.Endif ;&& Endif this was not the Pause.
And _Ow2MiscFlags3,Not PauseLatch ;&& Reset the Pause sequence flag.
;&& PTM 2344 END:
.Else ;Set Num Lock down bit in packet & PSG.
Or Byte Ptr [ESI].Key.Shift+1,(NumFlag ShR 8) ;OS2SS-
;@@ Set bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Or Byte Ptr [EDI].XHotKeyShift+1, (NumFlag ShR 8) ;OS2SS-
.Endif
Test [EDI].XlateFlags,DumpKeyOnce ;OS2SS-@@ PTM 7078 - Begin
.If <z> ;@@ If this wasn't the dump key
Or [ESI].DDFlags,ShiftMask ;OS2SS-@@ PTM 6937
;@@ Indicate this is a shift key.
.Endif ;@@ PTM 7078 - End
Or _Ow2MiscFlags3,PauseLatch ;&& PTM 2344: Flag the make of the
;&& NumLock to be used as a latch.
.Endif
.Else NEAR ;Not Ctl-Numlock, fall thru to common Toggle key check.
CapsLock: ;The CapsLock key itself.
ToggleKey: ;Or any general Toggle key.
Mov EBX,[EBP-8] ;OS2SS-Get translate table offset.
Test [ESI].DDFlags,SecondaryKey ;OS2SS-Check if G kbd dup key.
.If <nz> ;Is it?
Mov CH,[EBX].Char3 ;OS2SS-Yes, so get mask for that key.
.Endif
And [EDI].XlateFlags,NOT DumpKeyOnce ;OS2SS-@@ Cancel Dump sequence.
Mov EBX,[EBP-4] ;OS2SS-Get translate table offset.
Or [ESI].DDFlags,ShiftMask ;OS2SS-@@ Indicate this is a shift key.
Test Word Ptr [EBX+XTFlags1],ShiftLock ;OS2SS-ShiftLock type?
.If <nz> AND ;Is it shift lock and...
Test Word Ptr [EBX+XTFlags1],ShiftToggle ;OS2SS-@@ ShiftLock Toggle?
.If <z> AND ;@@ Is it shift lock latch and...
.If <AL eq CapsTogl> ;...is it the CapsLock key?
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check for the key BREAK.
.If <z> ;If not, set ShiftLock on.
Or [ESI].Key.Shift,CX ;OS2SS-And in the Key rec.
;@@ Set bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Or [EDI].XHotKeyShift,CX ;OS2SS-
.Endif
.Else ;On key-break, only clear DOWN bit.
Not CX ;Make shift bits a mask.
And Byte Ptr [ESI].Key.Shift+1,CH ;OS2SS-And in the Key rec.
;@@ Clear bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
And Byte Ptr [EDI].XHotKeyShift+1,CH ;OS2SS-
.Endif
.Endif
.Else ;This is not a shift-lock keyboard.
Test [ESI].DDFlags,KeyBreak ;OS2SS-Check for the key BREAK.
.If <nz> ;Is it?
Not CX ;Yes, so make shift bits a mask.
And Byte Ptr [ESI].Key.Shift+1,CH ;OS2SS-And in the Key rec.
;@@ Clear bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
And Byte Ptr [EDI].XHotKeyShift+1,CH ;OS2SS-
.Endif
And [EDI].ToggleFlags,CL ;OS2SS-@@ Clear latch for this key.
.Else
Or Byte Ptr [ESI].Key.Shift+1,CH ;OS2SS-And in the Key rec.
;@@ Set bit in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Or Byte Ptr [EDI].XHotKeyShift+1,CH ;OS2SS-
.Endif
Test [EDI].ToggleFlags,CL ;OS2SS-@@ Check if seen this key yet.
.If <z> ;Have we?
Or [EDI].ToggleFlags,CL ;OS2SS-@@ No so set latch saying we have.
Xor Byte Ptr [ESI].Key.Shift,CL ;OS2SS-And in the Key rec.
;@@ Set Latch in hot key shift status also
Test [EDI].OtherFlags,InterruptTime ;OS2SS-&& PTM 3191: Make sure KBDXlate
;&& translations are independent.
.If <nz>
Xor Byte Ptr [EDI].XHotKeyShift,CL
.Endif
.Else ;Otherwise this is a repeat of the make.
Or [ESI].DDFlags,MultiMake ;OS2SS-So indicate so.
.Endif
.Endif
.Endif
.Endif ;Endif from NumLock plus Ctl test above.
Jmp EndActionCase ;Go bottom of Xlate Action case table.
SpecKeyCS: ;@@ Special key for NLS support.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;@@ Check if Alt key down.
.If <nz> ;@@ Is it?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
;@@ PTM 5024 - Begin
Call CheckExtended ;@@ See if new extended code
;@@ is defined
.If <c> ;## If it is ...
Jmp EndActionCase ;## the key combo is defined
.Endif ;## Endif there was one defined
Jmp NoXlate ;## get out now.
.Endif ;## Endif normal Alt.
Jmp SKCSEnd ;##
.Else NEAR ;@@ Else no Alt key down
Test DL,RShiftFlag+LShiftFlag ;@@ Is a shift key down
Mov EBX,[EBP-8] ;OS2SS-Get translate table offset.
.If <nz> ;@@ Yes so,
Test DL,CapsTogl ;@@ See if capslock is on
.If <nz> ;@@ If it is
Mov AL,[EBX].Char5 ;OS2SS-@@ Use character 5
.Else ;@@ If it is not then...
Mov AL,CH ;@@ Use char 2
.Endif ;@@ Endif CapsLock is on.
.Else NEAR ;@@ Else no shift key down
Test DL,CapsTogl ;@@ See if capslock is on
.If <nz> ;@@ If it is
Mov AL,[EBX].Char4 ;OS2SS-@@ Use character 4
.Endif
.Endif ;## Endif shift key down.
Test DL, CtlFlag ;## Check if Ctrl is down,
.If <nz> ;## If it is then...
Call SKCtlCheck ;## Check for spec. Ctrl code.
.Endif ;## Endif Ctrl is down.
.Endif ;## Endif Alt is down.
SKCSEnd:
.If <AL b 8> AND ;## If this was an accent key index
.If <AL a 0> ;##
Or [ESI].DDFlags,AccentKey ;OS2SS-## Indicate this is an
;## unprocessed accent.
Test [ESI].DDFlags,KeyBreak ;OS2SS-## Check for the key BREAK.
.If <z> ;## Is it?
And [EDI].XPSGFlags,Not PrevAccent;OS2SS-## No, clear prev accent num
Or Byte Ptr [EDI].XPSGFlags,AL ;OS2SS-## Save accent num for next key
.Endif
.Else ;## Else this is not an accent table entry
Mov [ESI].Key.Char,AL ;OS2SS-## Put character into key packet
Call AccCheckOut ;## Check for valid accent
.Endif ;## Endif this is an accent index.
Jmp EndActionCase ;## Go to bottom of Xlate Action case table.
SpecKeyAS: ;@@ Special key for NLS support.
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <nz> ;@@
Call UnPauseChk ;Go check if in pause state.
.Endif ;@@
Test DL,AltFlag ;@@ Check if Alt key down.
.If <nz> ;@@ Is it?
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
Mov EBX,[EBP-8] ;OS2SS-Get translate table offset.
Mov AL,[EBX].Char4 ;OS2SS-@@ Use char4
Mov [ESI].Key.Scan,AL ;OS2SS-@@ Put it in the scan code field to
Jmp SpecKeyEnd ;@@ Go to merge
.Endif
.Else ;@@ Else no Alt key down
Test DL,RShiftFlag+LShiftFlag ;@@ Is a shift key down
.If <nz> ;@@ Yes so,
Mov AL,CH ;@@ Use char 2
Jmp SpecKeyEnd ;@@ Go to merge
.Endif ;@@ Else no shift key down
.Endif ;## Endif Alt key down.
Test DL, CtlFlag ;## Check if Ctrl is down
.If <nz> ;## If it is then...
Call SKCtlCheck ;## Check for special control code.
.Endif ;## Endif Ctrl is down
SpecKeyEnd:
.If <AL b 8> AND ;@@ If this was an accent key index
.If <AL a 0>
Or [ESI].DDFlags,AccentKey ;OS2SS-@@ Indicate this is an
;@@ unprocessed accent.
Test [ESI].DDFlags,KeyBreak ;OS2SS-@@ Check for the key BREAK.
.If <z> ;@@ Is it?
And [EDI].XPSGFlags,Not PrevAccent ;OS2SS-## No, clear prev accent num
Or Byte Ptr [EDI].XPSGFlags,AL ;OS2SS-## Save accent num for next key
.Endif
.Else ;## Else this is not an accent table entry
Mov [ESI].Key.Char,AL ;OS2SS-## Put character into key packet
Call AccCheckOut ;## Check for vaild accent.
.Endif ;## Endif this is an accent table entry.
Jmp EndActionCase ;## Go to bottom of Xlate Action case table.
XShiftKey: ;Extended shift key (for DBCS use).
XToggleKey: ;Extended toggle key (for DBCS use).
NoXlate: ;Invalid action code, no translate done.
And [EDI].XlateFlags,NOT DumpKeyOnce ;OS2SS-@@ Cancel Dump sequence.
Or [ESI].DDFlags,UndefKey ;OS2SS-@@ Mark this key undefined.
EndActionCase: ;*** This is the end of the Xlate Action case table ***.
Test [ESI].DDFlags, UndefKey ;OS2SS-## DCR 357: BEGIN
.If <z> AND ;## This logic tests to see if the
Test _Ow2MiscFlags3, AltPacket ;## current keypacket is for an
.If <z> ;## extended keystroke or not.
Mov BL,[ESI].Key.Char ;OS2SS-## If it is then bit 1 of the Status
.If <BL eq 0> OR ;## field in the keypacket is turned
Test [EDI].XlateFlags, SecPrefix ;OS2SS-## on.
.If <nz> ;##
Or [ESI].Key.Status, EXTENDEDCODE ;OS2SS-## Turn the bit on in the Status.
.Endif ;##
.Endif ;## DCR 357: END
;## PTR B702484: BEGIN
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
;## create an extra packet for the E0.
.If <nz> AND ;## PTR B702484: END
Test [EDI].XlateFlags,SecPrefix ;OS2SS-&& PTM 2382: Test to see if an E0 or E1
;&& came before this packet.
.If <nz> AND ;&& If E0 or E1 did precede then,
Test [EDI].XlateFlags, E1Prefix ;OS2SS-&& Check to see if it was an E0.
.If <z> ;&& If it was the E0 then,
Or _Ow2MiscFlags3, E0Packet ;&& signal an E0 packet coming up.
Call MakeE0Packet ;&& Call MakeE0Packet to manufacture an
;&& extra packet to precede this one.
.Endif ;&& Endif an E0 preceded this packet.
Mov BX,[ESI].DDFlags ;OS2SS-&& PTM 965 - Always zero out
.If <BX eq ShiftMask> OR ;&& char and scan fields for
.If <BX eq ShiftMask+KeyBreak> OR ;&& shift packets
.If <BX eq ShiftMask+SecondaryKey> OR
.If <BX eq ShiftMask+KeyBreak+SecondaryKey>
Mov Word Ptr [ESI].Key.Char, 0 ;OS2SS-@@ PTM 2244: Zero out Character/
;@@ Scan Code fields in CharData
;@@ Record for Japan compatability.
And [ESI].Key.Status, NOT EXTENDEDCODE
;OS2SS-## DCR 357: Do NOT indicate that this
;## is an extended scan instead of
;## an E0 char., if this is a shift pac.
Test [EDI].XInputMode,SHIFTREPORT ;OS2SS-&& (P13303) Are we in Shift rep. mode?
.If <nz> ;@@ If so......
Or [ESI].Key.Status,1 ;OS2SS-@@ Flag as shift report packet
.Endif ;@@ Endif Shift Report
.Endif ;@@ Endif Shift Report
And [EDI].XlateFlags,Not SecPrefix+E1Prefix ;OS2SS-Clear indicator.
Mov AL,Byte Ptr [ESI].MonFlags+1 ;OS2SS-Get the original scan code back.
Stc ;OS2SS-
Ret
KbdXlate Endp ;-------------------------------------------------------/
Public CapsCheck
CapsCheck Proc ;-----------------------------------------------------\
;************** START OF SPECIFICATIONS ********************************
;* *
;* Subroutine Name: CapsCheck *
;* *
;* Descriptive Name: Check IF character should be shifted *
;* *
;* Function: This routine checks IF a characer should be shifted. *
;* It checks IF CapsLock, ShiftLock or the shift key *
;* effect this key. IF the char should be shifted, *
;* then it places Char2 in AL. *
;* *
;* Notes: *
;* *
;* Entry Point: CapsCheck Linkage: Near *
;* *
;* Input: AL = CHAR1 from translate table *
;* CH = CHAR2 from translate table *
;* DX = ShiftFlags *
;* AH = Scan code w/ break bit cleared *
;* BX = SHIFTLOCK & CAPSLOCK effect indicators *
;* *
;* Exit-Normal: AL = ASCII character after shift checking *
;* *
;* Exit-Error: None *
;* *
;* Effects: AX, BX, registers, carry flag changed. *
;* *
;* Internal References: *
;* Routines: None *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
Xor BH,BH ;## Prepare a byte.
Test DL,RShiftFlag+LShiftFlag ;## Check if Shift key down.
.If <nz> ;## Is one of them?
Or BH,CapsTogl ;## Yes, so prepare to check Capslock.
.Endif ;## Endif a shift key is down
And DL,BL ;## Isolate Capslock flag.
Push EBX ;OS2SS-## Save BX for now
Mov EBX,[EBP-4] ;OS2SS-## And put it in BX
Test [EBX].XTFlags1,ShiftLock ;OS2SS-## Check if Shiftlock kbd
Pop EBX ;OS2SS-## Restore BX
.If <nz> ;## If it is then...
Test BL, CapsTogl ;## Check if shift lock effects key type.
.If <nz> ;## If it does then...
Or BH,DL ;## either Capslock, Shift,
;## or both will cause shifting
.Else ;## If it does not
Or BH,BH ;## fix the zero flag.
.Endif ;## Endif shift lock effects key type.
.Else ;## Else its a CapsLock kbd
Test BL, CapsTogl ;## Check if CapsLock effects key type.
.If <nz> ;## If it does then...
Xor BH,DL ;## Add Capslock & ShiftFlag to decide state.
.Else ;## If it does not
Or BH,BH ;## fix the zero flag.
.Endif ;## Endif CapsLock effects key type.
.Endif ;## Endif shift lock keyboard.
.If <nz> ;## Should key be capitalized?
Mov AL,CH ;## Yes, so use Char2.
.Endif ;##
Ret
CapsCheck Endp ;-------------------------------------------------------/
Public SKCtlCheck
SKCtlCheck Proc ;-----------------------------------------------------\
;************** START OF SPECIFICATIONS ********************************
;* *
;* Subroutine Name: SKCtlCheck *
;* *
;* Descriptive Name: Check IF character has special control code *
;* *
;* Function: This routine checks IF a character or scan code has a *
;* special control code associated with it. *
;* IF it does then it sets the appropriate ASCII/scan *
;* codes. *
;* *
;* Notes: Ctl key is already known to be down *
;* *
;* Entry Point: SKCtlCheck Linkage: Near *
;* *
;* Input: AH = Scan code w/ break bit cleared *
;* *
;* Exit-Normal: AL = ASCII character after special control code check *
;* *
;* Exit-Error: None *
;* *
;* Effects: AX *
;* *
;* Internal References: *
;* Routines: None *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
.If <AH eq 3> ;@@ Is this Ctl-2?
Xor AL,AL ;@@ Yes, so set extended code.
.ElseIf <AH eq 7> ;@@ Is this Ctl-6?
Mov AL,30 ;@@ Yes, so set ASCII "RS" code.
;@@ PTR B702484 and PTM 5024 - Begin
.ElseIf <AH eq 15> ;@@ Is this Ctl-Tab?
Xor AL,AL ;@@ Yes, so set extended code.
Mov [ESI].Key.Scan,94h ;OS2SS-@@ Yes, so set extended code.
;@@ PTR B702484 and PTM 5024 - End
.ElseIf <AH eq 26> ;@@ Is this Ctl-[?
Mov AL,27 ;@@ Yes, so set "Esc" code.
.ElseIf <AH eq 27> ;@@ Is this Ctl-]?
Mov AL,29 ;@@ Yes, so set ASCII "GS" code.
.ElseIf <AH eq 43> ;@@ Is this Ctl-\?
Mov AL,28 ;@@ Yes, so set ASCII "FS" code.
.ElseIf <AL eq "-"> ;@@ Is this Ctl-dash?
Mov AL,31 ;@@ Yes, so set ASCII "US" code.
;1.3-## PTR 4862 BEGIN:
.ElseIf <AH eq 12> ;1.3-## Is this the key for scan code 12.
Mov AL,31 ;1.3-## Yes, so set ASCII "US" code.
;1.3-## PTR 4862 END.
.ElseIf <AL eq " "> ;@@ Is this the space key?
;Value in AL is correct. ;@@ Yes, so leave as is.
.Else ;@@ If here, combo is undefined.
Mov AL, -1 ;@@ Go mark Undefined.
Or [ESI].DDFlags,UndefKey ;OS2SS-## PTR B702142 Mark this key undefined.
.Endif ;@@
Ret ;@@ Endif Ctl key down check
SKCtlCheck Endp ;-------------------------------------------------------/
Public SKAltCheck
SKAltCheck Proc ;-----------------------------------------------------\
;************** START OF SPECIFICATIONS ********************************
;* *
;* Subroutine Name: SKAltCheck *
;* *
;* Descriptive Name: Check IF character has extended code *
;* *
;* Function: This routine checks IF a characer or scan code has a *
;* special extended code associated with it. *
;* IF it does then it sets the appropriate ASCII/scan *
;* codes. *
;* *
;* Notes: Alt key is already known to be down *
;* *
;* Entry Point: SKAltCheck Linkage: Near *
;* *
;* Input: DI = Per Session Data Area Address *
;* SI = Key Packet Address *
;* DX = ShiftFlags *
;* AH = Scan code w/ break bit cleared *
;* *
;* Exit-Normal: AL = ASCII character after special control code check *
;* *
;* Exit-Error: None *
;* *
;* Effects: AX, BX, registers, carry flag changed. *
;* *
;* Internal References: *
;* Routines: AltGraphCheck CheckExtended *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
And [EDI].XlateFlags,Not Use3Index ;OS2SS-@@ Use Char3 if AltGraph
Call AltGraphCheck ;@@ Process if AltGraph
Test [EDI].XlateFlags,NormalAlt ;OS2SS-@@ Check if it's not the AltGraph
.If <nz> ;@@ If alt key is normal Alt
.If <AL eq " "> ;@@ Is this the space key?
Mov [ESI].Key.Char,AL ;OS2SS-@@ Yes, so leave as is.
;@@ PTM 5024 - Begin
.Else ;@@ Set extended code for others
Call CheckExtended ;@@ Go check if this is new extended
;@@ scan code
.If <nc> ;@@ If it is, everything is set up
;@@ otherwise it's old so
Add AH,118 ;@@ calculate extended code.
Mov [ESI].Key.Scan,AH ;OS2SS-@@ Put extended code in Key rec.
.Endif
;@@ PTM 5024 - End
.Endif
.Else ;@@ else it was AltGraph
Mov [ESI].Key.Char,AL ;OS2SS-@@ Yes, so leave as is.
.Endif ;@@ Endif UNDEFINED or normal ALT
Ret
SKAltCheck Endp ;-----------------------------------------------------/
Public AccCheckOut
AccCheckout Proc ;-----------------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: AccCheckout *
;* *
;* Descriptive Name: Check and Process Valid Accents *
;* *
;* Function: This routine is called from KbdXlate and checks if an *
;* accent key was hit prior to the current key. If so, *
;* a check is made to see if the key is affected by that *
;* accent and if it is *
;* the value specified by the accent table entry is put in *
;* the key packet and control returns to KbdXlate. *
;* If the key is not affected by that accent, then it is *
;* put in a seperate keypacket and control returns to *
;* KbdXlate to process the current key. *
;* *
;* Entry Point: AccCheckout Linkage: Near *
;* *
;* Input: Beginning offset of translate table on the stack *
;* *
;* Exit-Normal: Monitor Key Packet filled in *
;* *
;* Exit-Error: N/A *
;* *
;* Effects: BX *
;* *
;* Internal References: *
;* Routines: BadAccent *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
;Check if last key seen was an accent key.
Push EBX ;OS2SS-@@ Save BX
Mov BX,[EDI].XPSGFlags ;OS2SS-&& Get flags from PSG.
And BX,PrevAccent ;&& Isolate previous accent number
;&& field.
.If <nz> NEAR ;Was there one?
Push EDI ;OS2SS-Yes, save index reg for now.
;Translate table offset now four words back on the stack.
And EBX,0FFh ;OS2SS-Clear upper byte of accent number.
Mov EDI,EBX ;OS2SS-Put accent number in index reg.
Dec EDI ;OS2SS-Accent entry 1 has offset zero.
IMul EDI,AccEntryLen ;OS2SS-Set offset of correct accent table entry.
Add EDI,Accents ;OS2SS-Set offset within overall translate table.
Add EDI,[EBP-4] ;OS2SS-Add offset of translate table itself.
Push ECX ;OS2SS-And save...
Push EDX ;OS2SS-..other regs.
Mov EDX,[EBP-8] ;OS2SS-Get Xlate Operation word.
Mov DX,[EDX].XlateOp ;OS2SS-Get Xlate Operation word.
Mov CL,7 ;Set # of bits to highest accent no.
Sub CL,BL ;Subtract actual accent number.
Mov EBX,EDI ;OS2SS-Save accent table entry offset.
Or DX,DX ;## PTM 2329: Make sure that if the max. number
;## of accents are used that the flags bits are
;## correctly for DX.
Shl DX,CL ;Shift Accent Flags left by calculated count.
.If <ns> ;So is this key affected by the previous accent?
Mov ECX,[EBP-4] ;OS2SS-@@ Get the XT header
Mov CX,[ECX].XTFlags1 ;OS2SS-@@ Get the XT header flags.
Mov EDI,[ESP+8] ;OS2SS- Restore OtherFlag index.
Call BadAccent ;No! Go take care of things.
.Else ;Accent flags say this key is accented.
Pop EDX ;OS2SS-Restore shift flags for now.
Push EDX ;OS2SS-But leave them saved.
Push EAX ;OS2SS-Save AX for now.
Mov AL,[ESI].Key.Char ;OS2SS-@@ PTM 6860
Mov ECX,20 ;OS2SS-Set max pairs in Accent table entry.
Add EDI,AcMap1 ;Point to first pair in accent table entry.
TLoop: ;Top of loop looking for current scan code in accent table entry.
Mov DX,[EDI] ;OS2SS-Pick up next pair.
.If <DX eq 0> ;@@ PTM 6860 - Begin If we are at the end
;@@ of the list
Mov ECX,1 ;OS2SS-@@ Set end of loop condition
.ElseIf <AL eq DL> ;@@ Else Have we found a match?
Jmp Short XLoop ;Yes, so exit from loop.
.Endif
Add EDI,2 ;Increment our pointer.
Loop TLoop ;Repeat.
XLoop: Or CX,CX ;Check if no match before end of entry.
.If <z> ;Is that true?
Mov ECX,[EBP-4] ;OS2SS-@@ Get the XT header
Mov CX,[ECX].XTFlags1 ;OS2SS-@@ Get the XT header flags.
Mov EDI,[ESP+12] ;OS2SS- Restore OtherFlag index.
Call BadAccent ;No! Go take care of things.
.Else ;Else we found our accented character value!
Mov [ESI].Key.Char,DH ;OS2SS-Put it in CharData rec.
; Mov [ESI].Key.Scan,0 ;OS2SS-Zero scan code for accented chars.
Or [ESI].DDFlags,AccentedKey ;OS2SS-Indicate accent affected key.
.Endif
Pop EAX ;Restore AX.
.Endif
Pop EDX ;Restore the...
Pop ECX ;..altered regs.
Pop EDI ;Restore PSG index.
And [EDI].XPSGFlags,Not PrevAccent ;OS2SS-@@ Clear previous accent field.
.Endif
Pop EBX ;@@ Restore BX
Test [ESI].DDFlags,AccentedKey ;OS2SS-Check if accent affected key.
.If <nz> OR ;Did it?
.If <[ESI].DDFlags e BadKeyCombo> ;OS2SS-@@ check if this was an invalid combo?
Pop EBX ;OS2SS-Throw away original return address.
Jmp EndActionCase ;And quit now.
.Endif
Ret ;Else return.
AccCheckout Endp ;-----------------------------------------------------/
Public BadAccent
BadAccent Proc ;------------------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: BadAccent *
;* *
;* Descriptive Name: Process an Accent that does Not Apply to a Char *
;* *
;* Function: Set up a KeyPacket that must be passed as a standalone *
;* character *
;* *
;* Entry Point: BadAccent Linkage: Near *
;* *
;* Input: SI = @ of KeyPacket *
;* Empty KeyPacket2 immediately follows KeyPacket *
;* ES:BX = @ of Accent Table Entry for accent to pass *
;* CX = Translate Table Header Flags *
;* *
;* Exit-Normal: Monitor Key Packet filled in *
;* *
;* Exit-Error: N/A *
;* *
;* Effects: CX *
;* *
;* Internal References: *
;* Routines: CopyPacket *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
Push ESI ;OS2SS-
Push EDI ;OS2SS-
Test CX,AccentPass ;@@ Check if key packets should be passed
.If <z> OR ;@@ If not... OR
Test [EDI].OtherFlags,InterruptTime ;OS2SS-@@ If it's interrupt time
.If <z> ;@@ Tell Int Handler to beep
Mov [ESI].DDFlags,BadKeyCombo ;OS2SS-@@ or strategy proc to return invalid parm.
.Else ;@@ Else key packets should be passed
Call CopyPacket ;&& PTM 2382: Make a copy of the first
;&& packet into the extra packet.
;Now ESI has incremented to point to KeyPacket2.
Mov Byte Ptr [ESI].MonFlags+1,0 ;OS2SS-Zero the original scan code field.
Mov [ESI].DDFlags,AccentedKey+AccentKey ;OS2SS-@@ Indicate printable accent char.
Mov CX,[EBX] ;OS2SS-Get char/scan to pass from accent entry.
Mov Word Ptr [ESI].Key.Char,CX ;OS2SS-Put in KeyPacket2.
Mov Byte Ptr [ESI].MonFlags,-1 ;OS2SS-Tell KBDDD to pass two packets.
.Endif
Pop EDI
Pop ESI
Ret
BadAccent Endp ;------------------------------------------------------/
Public AltPadPacket
AltPadPacket Proc ;---------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: AltPadPacket *
;* *
;* Descriptive Name: Set up a KeyPacket for the Break of the Alt Key *
;* *
;* Function: A monitor packet is set up so that on Alt-Numpad *
;* sequences the break of the Alt key is not lost. *
;* *
;* Entry Point: AltPadPacket Linkage: Near *
;* *
;* Input: SI = @ of KeyPacket *
;* Empty KeyPacket2 immediately follows KeyPacket *
;* *
;* Exit-Normal: Monitor Key Packet filled in *
;* *
;* Exit-Error: N/A *
;* *
;* Effects: None, Registers are preserved. *
;* *
;* Internal References: *
;* Routines: CopyPacket *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
;&& DCR 1713 BEGIN:
Push ESI ;OS2SS-&& Save the registers
Push EDI ;OS2SS-&& that we will use here
Push ECX ;OS2SS-&& to duplicate the first packet.
Call CopyPacket ;&& PTM 2382: Make a copy of the first
;&& packet into the extra packet.
;&& Now ESI has been incremented to point to KeyPacket2.
Or [ESI].DDFlags,ShiftMask+KeyBreak ;OS2SS-&& Indicate that this is shift packet.
Mov word ptr [ESI].Key.Char,0 ;OS2SS-&& Zero out the original char field.
Mov Byte Ptr [ESI].MonFlags,-1 ;OS2SS-&& Tell KBDDD to pass two packets.
Pop ECX ;OS2SS-&& Restore registers.
Pop EDI ;OS2SS-&&
Test [EDI].XInputMode,SHIFTREPORT ;OS2SS-&& Are we in shift report mode ?
.If <nz> ;&& If so then...
Or [ESI].Key.Status,1 ;OS2SS-&& flag this as a shift report packet.
.Endif ;&& Endif a shift report packet.
Pop ESI ;OS2SS-&&
Ret ;&& DCR 1713 END:
AltPadPacket Endp ;------------------------------------------------------/
Public MakeE0Packet
MakeE0Packet Proc ;---------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: MakeE0Packet *
;* *
;* Descriptive Name: Set up a KeyPacket for the E0 scan code *
;* *
;* Function: A monitor packet is set up for the E0 scan code packet *
;* that should have preceded the current scan code. *
;* *
;* Note: This routine added for CP111 PTM 2382. An E0 keypacket *
;* is now manufactured and passed in combination with the *
;* packet that follows the E0 scan code. This change was *
;* made in order to ensure that the E0 packet would always *
;* end up in the correct screen group. *
;* *
;* Entry Point: MakeE0Packet Linkage: Near *
;* *
;* Input: SI = @ of KeyPacket *
;* Empty KeyPacket2 immediately follows KeyPacket *
;* *
;* Exit-Normal: Monitor Key Packet filled in *
;* *
;* Exit-Error: N/A *
;* *
;* Effects: None, Registers are preserved. *
;* *
;* Internal References: *
;* Routines: CopyPacket *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
;&& PTM 2382 BEGIN:
Push ESI ;OS2SS-&& Save the registers
Push EDI ;OS2SS-&& that we will use here
Push ECX ;OS2SS-&& to duplicate the first packet.
Call CopyPacket ;&& PTM 2382: Make a copy of the first
;&& packet into the extra packet.
;&& Now ESI has been incremented to point to KeyPacket2.
Mov Byte Ptr [ESI].MonFlags,0 ;OS2SS-&& Init monitor flags low byte to zero.
Mov Byte Ptr [ESI].MonFlags+1,OtherKey ;OS2SS-&& Put Scan Code in MonFlags high byte.
Mov [ESI].DDFlags, 0 ;OS2SS-&& Clear the flag bits for new packet.
Or [ESI].DDFlags, SecPrefixCode ;OS2SS-&& Indicate this is a secondary prefix.
Mov CX, [_Ow2KCBShFlgs] ;&& Get the saved Shift Flags.
Mov [ESI].Key.Shift,CX ;OS2SS-&& Put Shift Flags in packet.
Mov [ESI].Key.Char,0 ;OS2SS-&& Zero out the original char field.
Mov [ESI].Key.Scan,0 ;OS2SS-&& Zero out the original Scan field.
Mov Byte Ptr [ESI].MonFlags,-1 ;OS2SS-&& Tell KBDDD to pass two packets.
Pop ECX ;OS2SS-&& Restore registers.
Pop EDI ;OS2SS-&&
Pop ESI ;OS2SS-&&
Ret ;&& PTM 2382 END:
MakeE0Packet Endp ;------------------------------------------------------/
Public CopyPacket
CopyPacket Proc ;-----------------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: CopyPacket *
;* *
;* Descriptive Name: Copy KeyPacket1 to KeyPacket2 *
;* *
;* Function: This routine is called from BadAccent, AltPadPacket, *
;* and MakeE0Packet. It's purpose is to duplicate the *
;* first keypacket to the extra keypacket which follows *
;* the first. This is done so that the Interrupt Handler *
;* can pass both keypackets on the same interrupt. *
;* *
;* Entry Point: CopyPacket Linkage: Near *
;* *
;* Input: SI = @ of KeyPacket *
;* Empty KeyPacket2 immediately follows KeyPacket *
;* *
;* Exit-Normal: Monitor Key Packet copyed *
;* *
;* Exit-Error: N/A *
;* *
;* Effects: *
;* *
;* Internal References: *
;* Routines: None *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
Mov ECX,KeyPacketLen ;OS2SS-&& Set length of packets.
Mov EDI,ESI ;OS2SS-&& Point to...
Add EDI,ECX ;OS2SS-&& ...KeyPacket2.
CopyLoop: ;&& Loop copying packet.
Mov CH,[ESI] ;OS2SS-&& Get byte from first packet.
Mov [EDI],CH ;OS2SS-&& Put in Packet2.
Xor CH,CH ;&& Fix counter reg.
Inc ESI ;OS2SS-&& Increment source ptr.
Inc EDI ;OS2SS-&& Increment dest ptr.
Loop CopyLoop ;&& Repeat for all bytes.
Ret
CopyPacket Endp ;------------------------------------------------------/
Public UnPauseChk
UnPauseChk Proc ;-----------------------------------------------------\
;***********************************************************************
;* *
;* Subroutine Name: UnPauseChk *
;* *
;* Descriptive Name: Check For Key to End Pause Mode *
;* *
;* Function: Checks if key signalled the end of Pause mode. *
;* If it did, this routine resets the flag and *
;* returns to the the end of KbdXlate. Otherwise *
;* it just returns *
;* *
;* Entry Point: UnPauseChk Linkage: Near *
;* *
;* Input: None *
;* *
;* Exit-Normal: Nothing affected *
;* *
;* Exit-Error: N/A *
;* *
;* Effects: Nothing *
;* *
;* Internal References: *
;* Routines: None *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
And [EDI].XlateFlags,NOT DumpKeyOnce ;OS2SS-@@ If here, also cancels Dump sequence.
Test [EDI].XPSGFlags,NowPaused ;OS2SS-@@ Check if in paused state.
.If <nz> AND ;Are we?
Test [ESI].DDFlags,KeyBreak ;OS2SS-Yes, and is this a key Make?
.If <z> ;Is it?
And [ESI].DDFlags, NOT KeyTypeMask ;OS2SS-&& PTM 3940: Indicate Wake-Up key.
Or [ESI].DDFlags,WakeUpKey ;OS2SS-&& PTM 3940:
Pop ECX ;OS2SS-Purge return address.
Jmp EndActionCase ;That's all.
.Endif
Ret
UnPauseChk Endp ;-----------------------------------------------------/
Public AltGraphCheck
AltGraphCheck Proc ;@@ ------------------------------------------\
;@@ B
;************** START OF SPECIFICATIONS ********************************
;* *
;* Subroutine Name: AtlGraphCheck *
;* *
;* Descriptive Name: Process an Alt-Graph character input *
;* *
;* Function: This routine processes a key type that is affected *
;* by Alt-Graph if an Alt key is down. If the Alt key *
;* down is not the Alt-Graph key or the Alt-Graph combo, *
;* it will set the carry and return. *
;* *
;* Notes: Upon entry to this routine, an Alt key is known to be *
;* down *
;* *
;* Entry Point: AltGraphCheck Linkage: Near *
;* *
;* Input: DI = Per Session Data Area Address *
;* SI = Key Packet Address *
;* ES = Translate Table Selector *
;* SS:SP+2 = Offset of translate table *
;* BP = Offset of scan code entry in translate table *
;* DX = ShiftFlags *
;* CharToUse = Which character to use if Alt-Graph is down *
;* *
;* Exit-Normal: Carry set = process as normal Alt key down *
;* Carry clear = key has been processed *
;* AL= ASCII character to use *
;* OR *
;* CharToUse = UNDEFINED *
;* Exit-Error: None *
;* *
;* Effects: AX, registers, carry flag changed. *
;* *
;* Internal References: *
;* Routines: None *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
;@@ E
Push EBX ;OS2SS-
Push ESI ;OS2SS-
Mov EBX, [EBP-8] ;OS2SS-Pointer to XlateTable entry for this scan code.
Mov ESI, [EBP-4] ;OS2SS-Pointer to XlateTable top
.If <[EBX].Char3 eq 0> ;OS2SS-@@ If Char 3 is 0
Or [EDI].XlateFlags,NormalAlt ;OS2SS-@@ indicate that only Normal ALT is down
.Else NEAR ;@@ Else Alt-Graph character is defined
Mov AL,[EBX].Char3 ;OS2SS-@@ Get Char3 from translate table
.If <[ESI].XTKbdType eq ATKbd> ;OS2SS-@@ If an AT kbd translate table
Test [ESI].XTFlags1,ShftAlt ;OS2SS-@@ check if we should use Shift-Alt as
.If <nz> ;@@ as the Alt-Graph combo, if so...
Test DL,RShiftFlag+LShiftFlag ;@@ Check if a shift key is down
.If <nz> ;@@ If it is
And [EDI].XlateFlags,Not NormalAlt ;OS2SS-@@ specify to caller
;@@ that it's Alt-Graph
Test [EDI].XlateFlags,Use3Index ;OS2SS-@@ if we're supposed to use it
.If <nz> ;@@ as an index
Mov CL,AL
Xor AL,AL
.Endif
.Else ;@@ supposed to use Shift-Alt combo, but shift isn't down
Mov AL,[EBX].Char1 ;OS2SS-@@ Restore Char1
Or [EDI].XlateFlags,NormalAlt ;OS2SS-@@ indicate that only Normal ALT is down
.Endif ;@@ Endif shift key down check
.Else ;@@ Shift-Alt is not Alt-Graph combo, so it is Ctl-Alt
Test DL,CtlFlag ;@@ Check if a ctl key is down
.If <nz> ;@@ If it is
And [EDI].XlateFlags,Not NormalAlt ;OS2SS-@@ specify to caller
;@@ that it's Alt-Graph
Test [EDI].XlateFlags,Use3Index ;OS2SS-@@ if we're supposed to use it
.If <nz> ;@@ as an index
Mov CL,AL
Xor AL,AL
.Endif
.Else ;@@ supposed to use Ctl-Alt combo, but Ctl isn't down
Or [EDI].XlateFlags,NormalAlt ;OS2SS-@@ indicate only Normal ALT is down
Mov AL,[EBX].Char1 ;OS2SS-@@ Restore Char1
.Endif ;@@ Endif Ctlt key down check
.Endif ;@@ Endif Shift-Alt is Alt-Graph combo or not check
.Else ;@@ Else it's an Enhanced Keyboard
Test [ESI].XTFlags1,AltGrafL ;OS2SS-@@ check if we should use Left Alt key
.If <nz> ;@@ as the Alt-Graph key, if so...
Test DX,LAltFlag ;@@ Check if left Alt key is down
.If <nz> ;@@ If it is
And [EDI].XlateFlags,Not NormalAlt ;OS2SS-@@ specify to caller
;@@ that it's Alt-Graph
Test [EDI].XlateFlags,Use3Index ;OS2SS-@@ if we're supposed to use it
.If <nz> ;@@ as an index
Mov CL,AL
Xor AL,AL
.Endif
.Else ;@@ supposed to use Left Alt key, but it isn't the one down
Or [EDI].XlateFlags,NormalAlt ;OS2SS-@@ indicate that only
;@@ Normal ALT is down
Mov AL,[EBX].Char1 ;OS2SS-@@ Restore Char1
.Endif ;@@ Endif Left Alt key down check
.Else ;@@ Left Alt Key is not Alt-Graph key, so check if it is Right
Test [ESI].XTFlags1,AltGrafR ;OS2SS-@@ check if we should use Right Alt key
.If <nz> ;@@ as the Alt-Graph key, if so...
Test DX,RAltFlag ;@@ Check if right Alt Key is down
.If <nz> ;@@ If it is
And [EDI].XlateFlags,Not NormalAlt ;OS2SS-@@ specify that it's Alt-Graph
Test [EDI].XlateFlags,Use3Index ;OS2SS-@@ if we're supposed to use it
.If <nz> ;@@ as an index
Mov CL,AL
Xor AL,AL
.Endif
.Else ;@@ supposed to use Right Alt Key, but it isn't down
Or [EDI].XlateFlags,NormalAlt ;OS2SS-@@ indicate that only Normal
Mov AL,[EBX].Char1 ;@@ Restore Char1
.Endif ;@@ Endif Right Alt Key down check
.Else ;@@ Else Alt-Graph is neither Left nor Right Alt Key
Or [EDI].XlateFlags,NormalAlt ;OS2SS-@@ indicate that only Normal
Mov AL,[EBX].Char1 ;@@ Restore Char1
.Endif ;@@ Endif Right key is Alt-Graph or not check
.Endif ;@@ Endif Left ALt key is Alt-Graph or not check
.Endif ;@@ Endif At or Enhanced Keyboard
.Endif ;@@ Endif Char 3 is 0 or not
Pop ESI ;OS2SS-
Pop EBX ;OS2SS-
Ret
AltGraphCheck Endp ;@@-------------------------------------------/
Public CheckExtended
CheckExtended Proc ;@@ ------------------------------------------\
;@@ B
;************** START OF SPECIFICATIONS ********************************
;* *
;* Subroutine Name: CheckExtended *
;* *
;* Descriptive Name: Checks for extended codes. *
;* *
;* Function: This routine checks if a scan code has an associated *
;* extended scan code that goes with it. If it does, *
;* it sets the appropriate fields (scan & char) in the *
;* key packet and returns. *
;* *
;* Notes: Upon entry to this routine, an Alt key is known to be *
;* down *
;* *
;* Entry Point: CheckExtended Linkage: Near *
;* *
;* Input: DI = Per Session Data Area Address *
;* SI = Key Packet Address *
;* DX = ShiftFlags *
;* AH = Scan code w/ break bit cleared *
;* *
;* Exit-Normal: Carry set = Key has new extended code associated w/ it *
;* Carry clear = Key does not have new extended code *
;* *
;* Exit-Error: None *
;* *
;OS2SS- Effects: AX, registers, carry flag changed. *
;* *
;* Internal References: *
;* Routines: None *
;* *
;* External References: *
;* Routines: None *
;* *
;***********************************************************************
Push EBX ;OS2SS-
;@@ PTM 5024 - BEGIN
Mov EBX, Offset NewExtSC ;OS2SS-@@ Get the offset of the table that
;@@ contains the scan codes that have new
;@@ extended codes associated with them
Mov CX,0 ;@@ Start at beginning of table
.While <CX ne NewExtSCLen> ;@@ While we haven't searched entire table
.If <AH eq [EBX]> ;OS2SS-@@ If we found the scan code
Mov [ESI].Key.Char,0 ;OS2SS-@@ Say its an extended
Mov CX,NewExtSCLen ;@@ Set end of loop condition
Mov EBX,0 ;OS2SS-@@ Set found indicator
.Else ;@@ Else this isn't the scan code
Inc CX ;@@ Increment loop counter
Inc EBX ;OS2SS-@@ Increment pointer into table
.Endif ;@@ Endif found scan code we're looking for
.EndWhile ;@@ EndWhile we haven't searched entire table
.If <EBX eq 0> ;OS2SS-@@ If we found the scan code
.If <AH eq 0Fh> ;@@ If it's the tab key
Mov [ESI].Key.Scan,0A5h ;OS2SS-@@ Set extended code for tab key
.Endif ;@@ Endif it's the tab key
Stc ;@@ Tell caller extended char. exists.
.Else ;@@ Else we didn't find Scan code in table
Clc ;@@ tell caller
.Endif ;@@
Pop EBX ;OS2SS-
Ret ;@@
;@@ PTM 5024 - END
;@@ E
CheckExtended Endp ;@@-------------------------------------------/
_TEXT ends
End