;
; Command & Conquer Red Alert(tm)
; Copyright 2025 Electronic Arts Inc.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;***************************************************************************
;** C O N F I D E N T I A L --- W E S T W O O D A S S O C I A T E S **
;***************************************************************************
;* *
;* Project Name : Westwood 32 bit Library *
;* (Mouse Routines)
;* *
;* File Name : KEYIREAL.ASM *
;* *
;* Programmer : Philip W. Gorrow *
;* *
;* Start Date : May 21, 1992 *
;* *
;* Last Update : July 13, 1994 [PWG] *
;* *
;* This file sort of breaks the standard of keeping all of the keyboard *
;* and mouse routines isolated. This is done because the mouse and *
;* the keyboard share data, and the best way to do this is to put *
;* them in the same segment. This should probably be split into several *
;* include files to help make the code clearer once it is finally put *
;* together. *
;* *
;*-------------------------------------------------------------------------*
;* Functions: *
;* KeyNum_Translate -- Translates extended keynums to normal keynums *
;* Stuff_Key_Word -- Stuffs a word of data into keyboard buffer *
;* Stuff_Key_Num -- Stuffs a key num code into the circular buffer *
;* Keystroke_Interrupt -- Real mode handler of input from the keyboard *
;* Break_Interrupt -- Handles the break key interrupt *
;* Call_Interrupt_Chain -- Function PM calls to call RM interrupt chain *
;* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
;* *
;* Keyboard driver -- 8086 Assembly portion; *
;* updated by: Phil Gorrow for 32 bit Protected Mode *
;***************************************************************************
;---------------------------------------------------------------------------
; Set the assembly directives
;---------------------------------------------------------------------------
IDEAL ; the product runs in ideal mode
P386N ; use 386 real mode instructions
MODEL TINY ; code must be tiny so it fits
LOCALS ?? ; ?? is the symbol for a local
WARN ; generate all warnings we can
JUMPS ; optimize jumps if possible
;---------------------------------------------------------------------------
; Include all of the keyboard specific defines
;---------------------------------------------------------------------------
INCLUDE "keyboard.inc"
CONDHIDE EQU 08000H ; bit for testing conditional region
CONDHIDDEN EQU 04000H ; bit for testing conditional hidden
RESTORE_VISIBLE_PAGE EQU 0
STORE_VISIBLE_PAGE EQU 1
GLOBAL set_vesa_page :near
GLOBAL set_vesa_window :near
GLOBAL get_vesa_window :near
GLOBAL next_vesa_page :near
ECHOON equ 0
;---------------------------------------------------------------------------
; WARNING!!!! All of the following code segment variables are shared by
; the protected mode interrupt. Do not change these unless you make the
; proper changes to KEYSTRUC.INC. If you do not know what you are doing,
; find someone who does!!!
;---------------------------------------------------------------------------
CODESEG
;---------------------------------------------------------------------------
; Begin definition of Keyboard specific variables
;---------------------------------------------------------------------------
SoundOn DW 1 ; toggled by alt S
MusicOn DW 1 ; toggled by alt M
KeyFlags DD REPEATON+CTRLALTTURBO ; all but repeat for now
Break DW 0
KeyMouseMove DB -1,0,1
DB -16,0,16
ScreenEdge DW 320/2,0 ; North
DW 319,0 ; North-East
DW 319,138/2 ; East
DW 319,137 ; South-East
DW 320/2,137 ; South
DW 0,137 ; South-West
DW 0,138/2 ; West
DW 0,0 ; North-West
DW 320/2,138/2 ; Center
Bits DB 01H,02H,04H,08H,10H,20H,40H,80H
CondPassKey DW 0220H, 0320H, 060CH, 070DH, 066AH
DW 0669H, 0230H, 0330H, 007DH, 017DH
DW 025AH, 035AH, 0200H, 0410H, 046EH
DW 026EH, 007CH
CondPassCond DW CTRLSON, CTRLSON, CTRLALTTURBO, CTRLALTTURBO, CTRLALTTURBO
DW CTRLALTTURBO, CTRLCON, CTRLCON, SCROLLLOCKON, SCROLLLOCKON
DW PAUSEON, PAUSEON, BREAKON, TASKSWITCHABLE, TASKSWITCHABLE
DW TASKSWITCHABLE, BREAKON
EscRoutine DD 0 ; vector to execute on esc key press (0=none)
; Extended raw keycodes to be converted to Westwood keycodes.
ExtCodes DB 038H,01DH,052H,053H,04BH,047H,04FH,048H,050H,049H
DB 051H,04DH,035H,01CH,037H
DB 046H
; The matching Westwood keycodes.
ExtNums DB 62, 64, 75, 76, 79, 80, 81, 83, 84, 85
DB 86, 89, 95, 108, 124, 0
; If extended mapping is disabled, then these codes really are...
ExtRemap DB 60, 58, 99, 104, 92, 91, 93, 96, 98, 101
DB 103, 102, 55, 43, 124, 0
ExtRemapEnd DB 0
ExtKeyboard DB 0 ; flag for 101/102-key keyboard
KeyBuffer DW 128 DUP(0) ; set to empty
KeyBufferHead DD 0 ; set to first entry
KeyBufferTail DD 0 ; set to head for empty buffer
KeyLock DW 0 ; num and caps lock bits
KeyNums DB 127,110,002,003,004,005,006,007,008,009,010,011,012,013,015,016
DB 017,018,019,020,021,022,023,024,025,026,027,028,043,058,031,032
DB 033,034,035,036,037,038,039,040,041,001,044,029,046,047,048,049
DB 050,051,052,053,054,055,057,100,060,061,030,112,113,114,115,116
DB 117,118,119,120,121,090,125,091,096,101,105,092,097,102,106,093
DB 098,103,099,104,127,127,127,122,123
KeysCapsLock DB 0,0,0FEH,087H,0FFH,0C0H,01FH,0,0,0,0,0,0,0,0,0
KeysNumLock DB 0,0,0,0,0,0,0,0,0,0,0,038H,0EFH,1,0,0
KeysUpDown DB 16 DUP(0) ; set to all keys up
KeyStream DB 16 DUP(0) ; set to all keys up
PassCount DW 0
KeyStreamIndex DW 0
LastKeyE0 DB 0
LastKeyE1 DB 0
;
; Westwood key number values of keys to pass through
;
; CAPS, LEFT_SHIFT, RIGHT_SHIFT, LEFT_CTRL, LEFT_ALT,
; RIGHT_ALT, RIGHT_CTRL, NUM_LOCK, UNKNOWN
PassAlways DB 30, 44, 57, 58, 60, 62, 64, 90, 128, 128
PassAlwaysEnd DB 128 ; invalid code to END PassAlways
CtrlFlags DB 0
Buffer DW ?
Time DW ?
ADJUST = 1 ; do not modify DRD
XYAdjust DB -ADJUST, -ADJUST ; 91 -> upleft
DB -ADJUST, 0 ; 92 -> left
DB -ADJUST, ADJUST ; 93 -> downleft
DB 0, 0 ; 94 illegal
DB 0, 0 ; 95 illegal
DB 0, -ADJUST ; 96 -> up
DB 0, 0 ; 97 illegal (center)
DB 0, ADJUST ; 98 -> down
DB 0, 0 ; 99 illegal
DB 0, 0 ; 100 illegal
DB ADJUST, -ADJUST ; 101 -> upright
DB ADJUST, 0 ; 102 -> right
DB ADJUST, ADJUST ; 103 -> downright
EdgeConv DW 8,2,8,6,4,3,8,5,8,8,8,8,0,1,8,7
MouseUpdate DW 0
MouseX DW 0,0
LocalMouseX DW 0
MouseY DW 0,0
LocalMouseY DW 0
IsExtKey DB 0
ExtIndex DW 0
KeyOldRMI DD 0 ; The origianl RM interrupt seg:off.
KeyOldPMIOffset DD 0 ; The origianl PM interrupt offset
KeyOldPMISelector DD 0 ; The original PM interrupt segment.
KeyCodeOffset DW RM_Keystroke_Interrupt ; Offset of the code in the RM stuff.
CallKeyRMIntOffset DW Call_Interrupt_Chain ; Offset of function to call DOS timer interrupt.
CallKeyRMIntAddr DD 0 ; PM address of CallRealIntOffset for speed.
PMIssuedKeyInt DD 0
BrkOldRMI DD 0 ; The origianl RM interrupt seg:off.
BrkOldPMIOffset DD 0 ; The origianl PM interrupt offset
BrkOldPMISelector DD 0 ; The original PM interrupt segment.
BrkCodeOffset DW RM_Break_Interrupt ; Offset of the code in the RM stuff.
CallBrkRMIntOffset DW 0
CallBrkRMIntAddr DD 0 ; PM address of CallRealIntOffset for speed.
PMIssuedBrkInt DD 0
KeyIntDisabled DD 0
DbgOldPMIOffset DD 0 ; The origianl PM interrupt offset
DbgOldPMISelector DD 0 ; The original PM interrupt segment.
;---------------------------------------------------------------------------
; Begin definition of Mouse Specific Variables for real mode
;---------------------------------------------------------------------------
Button DB 0 ; current value of the mouse button
MDisabled DB 0 ; Is the mouse driver disabled
MInput DB 1 ; Defaults to mouse input allowed.
Adjust DW 0 ; flag to adjust coordinates if necessary
MouseStepX DW 0 ; step values if the mouse moves at
MouseStepY DW 0 ; more than one pixel at a time
MouseOffsetX DW 0 ; Fractional step values used if a mouse
MouseOffsetY DW 0 ; moves at less than one pixel at a time
MState DW 0,0 ; Tracks if mouse is hidden (TRUE) or not (FALSE)
MouseXOld DW 0 ; Holds last MouseX and MouseY to determine if
MouseYOld DW 0 ; mouse needs to be redrawn
MCState DW 0 ; Tracks if mouse conditional hidden (TRUE) or not
MouseCXLeft DW 0,0 ; Conditional hide mouse left x position
MouseCYUpper DW 0,0 ; Conditional hide mouse top y position
MouseCXRight DW 0,0 ; Conditional hide mouse right x position
MouseCYLower DW 0,0 ; Conditional hide mouse lower y position
MouseCursor DD 0 ; Pointer to the mouse cursor to draw
MouseCursorSize DW 0 ; Pointer to buffer mouse is saved in
MouseBuffer DD 0 ; Pointer to buffer mouse is saved in
MouseXHot DW 0,0 ; Offset to mouse's x hot spot
MouseYHot DW 0,0 ; Offset to mouse's y hot spot
MouseBuffX DW 0,0 ; X position background was saved at
MouseBuffY DW 0,0 ; Y position background was saved at
MouseBuffW DW 0,0 ; Width of the region saved for mouse
MouseBuffH DW 0,0 ; Height of the region saved for mouse
MouseWidth DW 0,0 ; Mouse cursor theoretical width
MouseHeight DW 0,0 ; Mouse cursor theoretical height
MouseCodeOffset DW RM_Mouse_Interrupt ; Offset of the code in the RM stuff.
MouseRight DW 0,0
MouseBottom DW 0,0
ShadowPtr dw 0
DrawMousePtr dw 0
VGAMouseDraw dw VGA_Draw_Mouse
VGAMouseShadow dw VGA_Mouse_Shadow_Buffer
VESAMouseDraw dw VESA_Draw_Mouse
VESAMouseShadow dw VESA_Mouse_Shadow_Buffer
VesaPtr dd 0
banktable dd 8 dup ( 0 )
Adjust_XPos dw 0 , 0
Adjust_YPos dw 0 , 0
align 2
Keyboard_App_Stack_ES dw 0 ; This the System Stack Offsset
Keyboard_App_Stack_SS dw 0 ; This the System Stack Selector
Keyboard_StackPointer dw 0DEADh ; We Create a Local Application
Keyboard_Stack dw 255 dup (0)
Keyboard_StackStart dw 0
Mouse_State dw 0 ; Mouse Temp Variable
Mouse_Cond dw 0 ; Mouse Temp Variable
Mouse_App_Stack_ES dw 0 ; This the System Stack Offsset
Mouse_App_Stack_SS dw 0 ; This the System Stack Selector
Mouse_StackPointer dw 0DEADh ; We Create a Local Application
Mouse_Stack dw 255 dup (0)
Mouse_StackStart dw 0
current_page dw 0
;***************************************************************************
;* KEYNUM_TRANSLATE -- Translates extended keynums to normal keynums *
;* *
;* INPUT: UWORD the keynum to translate *
;* *
;* OUTPUT: WORD the translated keynum *
;* *
;* PROTO: UWORD KeyNum_Translate(UWORD keynum); *
;* *
;* HISTORY: *
;* 07/11/1994 PWG : Created. *
;*=========================================================================*
GLOBAL KeyNum_Translate:FAR
PROC KeyNum_Translate C FAR
USES cx,di,es,ds
ARG keycode:WORD
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
mov es,ax ; set es up for scansb
mov ax,[keycode]
test [WORD PTR KeyFlags],TRACKEXT
jne short ??fini
mov cx,ExtRemap-ExtNums
mov di,OFFSET ExtNums
repne scasb
jcxz short ??fini ; No match found.
mov di,OFFSET ExtRemapEnd
dec di
sub di,cx
mov al,[es:di]
??fini:
ret
ENDP KeyNum_Translate
;***************************************************************************
;* STUFF_KEY_WORD -- Stuffs a word of data into keyboard buffer *
;* *
;* INPUT: WORD the code to stick into the circular buffer *
;* *
;* OUTPUT: WORD !=0 is sucessful, ==0 is not enough room *
;* *
;* PROTO: VOID Stuff_Key_WORD(WORD code); *
;* *
;* HISTORY: *
;* 07/11/1994 PWG : Created. *
;*=========================================================================*
GLOBAL C Stuff_Key_WORD:FAR
PROC Stuff_Key_WORD C FAR
USES si,bx,ds
ARG code:WORD
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
mov ax,[WORD PTR KeyBufferTail]
mov si,ax
add ax,2
and ax,0FFh ; New KeyBufferTail value.
cmp [WORD PTR KeyBufferHead],ax
je short ??noroom
mov bx,[code]
mov [KeyBuffer+si],bx ; Record the keystroke.
mov [WORD PTR KeyBufferTail],ax
xor ax,ax
ret
??noroom:
mov ax,1
ret
ENDP Stuff_Key_WORD
;***************************************************************************
;* STUFF_KEY_NUM -- Stuffs a key num code into the circular buffer *
;* *
;* INPUT: WORD the keycode to stuff *
;* *
;* OUTPUT: WORD !=0 is sucessful, ==0 is not enough room *
;* *
;* PROTO: VOID Stuff_Key_Num(WORD keynum); *
;* *
;* HISTORY: *
;* 07/11/1994 PWG : Created. *
;*=========================================================================*
GLOBAL C Stuff_Key_Num:FAR
PROC Stuff_Key_Num C FAR
USES bx,cx,dx,di,si,ds
ARG keycode:WORD
LOCAL tail:WORD ; Original keybuffer tail (safety copy).
LOCAL size:WORD ; Size of write.
pushf
cli ; disable interrupts
; Abort key recognition if in record mode and unable
; to output key due to simultaneous DOS operation.
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
; Record the mouse position to be stuffed into buffer.
mov ax,[MouseX]
mov [LocalMouseX],ax
mov ax,[MouseY]
mov [LocalMouseY],ax
??cando:
mov ax,[keycode] ; get the code
or ax,ax ; Null keycodes are not recorded.
jne short ??validkey
jmp ??exit
??validkey:
test [WORD PTR KeyFlags],KEYMOUSE ; is the numeric keypad moving the mouse?
je ??no_pad_move
; ALT-cursor keys are undefined. Pass them on to the program.
test ah,ALTPRESS ; is either alt key down?
jne ??no_pad_move
test [WORD PTR KeyFlags],SIMLBUTTON ; are we simulating left mouse presses
je short ??chkinsert
cmp al,KN_RETURN
je short ??forceleft
cmp al,KN_SPACE
je short ??forceleft
cmp al,KN_KEYPAD_RETURN
je short ??forceleft
??chkinsert:
cmp al,KN_INSERT
jne short ??regular
??forceleft:
mov al,KN_LMOUSE
or [Button],1 ; Left mouse bit.
test ah,KEYRELEASE
je ??mousefake
and [Button],NOT 1
jmp ??mousefake
??regular:
cmp al,KN_DELETE
jne short ??regular2
mov al,KN_RMOUSE
or [Button],2 ; Right mouse bit.
test ah,KEYRELEASE
je ??mousefake
and [Button],NOT 2
jmp ??mousefake
??regular2:
; DRD correction to ignore key releases for key mouse movement
test ah,KEYRELEASE
jne ??no_pad_move
cmp al,KN_CENTER
je short ??pad_move
cmp al,KN_UPLEFT ; less than upleft?
jb ??no_pad_move ; yes, then it isn't a keypad key
cmp al,KN_DOWNRIGHT ; greater than downright?
ja ??no_pad_move ; yes, then it isn't a keypad key
cmp al,KN_DOWNLEFT ; is it UPLEFT, LEFT, or DOWNLEFT?
jbe short ??pad_move
cmp al,KN_UPRIGHT ; is it UPRIGHT, RIGHT, or DOWNRIGHT?
jae short ??pad_move
cmp al,KN_UP ; up?
je short ??pad_move
cmp al,KN_DOWN ; down?
jne ??no_pad_move
??pad_move:
; DRD correction to use ch for ah
mov ch,ah ; save shift-ctrl-alt-rlse status
xor ah,ah ; get rid of any bits
sub al,KN_UPLEFT ; get a number between 0 and 12
mov bx,ax
shl bx,1 ; double for WORD index
add bx,OFFSET XYAdjust
mov ax,[bx] ; get x,y add value
mov bl,ah
cbw
xchg ax,bx
cbw
xchg ax,bx ; AX = mouse x delta, BX = mouse y delta
; DRD correction to use ch
; The CTRL key moves the mouse to the edge of the screen.
test ch,CTRLPRESS ; is either ctrl key down?
jne short ??ctrlon ; if so, ctrl is on
; DRD correction to use ch
; use fast speed of the mouse move if the shift key is held down.
mov dx,1 ; for slow speed
test ch,SHIFTPRESS ; is either shift key down?
je short ??normspeed ; if not then neither shift is down
??doublespeed:
add dx,3 ; for fast speed
??normspeed:
add bx,dx ; add speed for y index
mov bl,[KeyMouseMove+bx] ; get speed for y delta
xchg ax,bx ; swap with ax to extend sign
cbw
xchg ax,bx
xchg bx,dx ; save mouse y delta
add bx,ax ; add speed for x index
mov al,[KeyMouseMove+bx] ; get speed for x delta
cbw
xchg bx,dx ; restore mouse y delta
jmp short ??ctrloff
??ctrlon:
; Table lookup method for determining hotkey positions for CTRL
; cursor combination. This algorithm is hard coded for an ADJUST
; value of 3. If this value changed, then this section will also
; have to be modified.
and bx,011b ; Y = 1, 0, 3
and ax,011b ; X = 1, 0, 3
; Table lookup method for determining hotkey positions for CTRL
; cursor combination. This algorithm is hard coded.
; -1, 0, 1
and bx,011b ; Y = 3, 0, 1
and ax,011b ; X = 3, 0, 1
shl bx,1
shl bx,1
or bx,ax ; Lookup index.
; Convert raw index into logical (clockwise) index.
shl bx,1
mov bx,[EdgeConv+bx]
shl bx,1
shl bx,1
mov ax,[ScreenEdge+bx] ; New absolute X
mov bx,[ScreenEdge+bx+2] ; New absolute Y
mov [LocalMouseX],ax
mov [LocalMouseY],bx
??set_xyz:
mov ax,[LocalMouseX] ; get new mouse x,y
mov bx,[LocalMouseY]
jmp short ??set_xy
; Process a normal faked mouse move.
??ctrloff:
; DRD change
add [LocalMouseX],ax ; save it in our local
jns short ??not_negative_x
xor ax,ax
mov [LocalMouseX],ax ; clear our local
??not_negative_x:
; DRD change
add [LocalMouseY],bx ; save it in our local
jns short ??not_negative_y
xor bx,bx
mov [LocalMouseY],bx ; clear our local
??not_negative_y:
mov ax,[LocalMouseX] ; get new mouse x,y
mov bx,[LocalMouseY]
cmp ax,MAX_X_PIXEL ; bigger than
jle short ??check_y
mov ax,MAX_X_PIXEL
??check_y:
cmp bx,MAX_Y_PIXEL ; bigger than
jle short ??set_xy
mov bx,MAX_Y_PIXEL
??set_xy:
mov [LocalMouseX],ax
mov [LocalMouseY],bx
mov [MouseX],ax
mov [MouseY],bx
cmp [MouseUpdate],0 ; wait until mouse interrupt is done
jne short ??noshow
call Low_Hide_Mouse
call Low_Show_Mouse
??noshow:
mov ax,KN_MOUSE_MOVE
??mousefake:
mov [keycode],ax ; Fake a MOUSE_MOVE event.
??no_pad_move:
; Fetch working pointers to the keyboard ends.
mov si,[WORD KeyBufferTail]
mov [tail],si ; Safety record.
mov di,[WORD PTR KeyBufferHead]
; Record the base keycode (if there is room).
push ax
call Stuff_Key_WORD
add sp,2
or ax,ax
jne short ??jmpnoroom
; Also record the mouse coordinates if necessary.
mov ax,[keycode] ; get key code
cmp al,KN_MOUSE_MOVE ; mouse move?
je short ??recordmouse ; yes? then record the mouse cooordinates
cmp al,KN_LMOUSE
je short ??recordmouse
cmp al,KN_RMOUSE
je short ??recordmouse
jmp short ??ok
??jmpnoroom:
jmp ??noroom
; Record mouse coordinate X.
??recordmouse:
push [LocalMouseX]
call Stuff_Key_WORD
add sp,2
or ax,ax
jne ??jmpnoroom
add [size],2
; Record mouse coordinate Y.
push [LocalMouseY]
call Stuff_Key_WORD
add sp,2
or ax,ax
jne ??jmpnoroom
add [size],2
??ok:
; If PASSBREAKS is not active and this is a keyboard
; break AND it is not a mouse event, then don't put
; it into the buffer.
mov bx,0101h ; Bit control tools.
mov ax,[keycode]
cmp al,KN_MOUSE_MOVE
je short ??notreal
cmp al,127
je short ??notreal
test ah,KEYRELEASE
je short ??real
xor bl,bl
test [WORD PTR KeyFlags],PASSBREAKS
jne short ??real
cmp al,KN_LMOUSE
je short ??real
cmp al,KN_RMOUSE
je short ??real
??notreal:
mov [WORD PTR KeyBufferTail],si ; Nullify any KeyBufferTail changes.
??real:
; Update the KeysUpDown bit array.
mov di,ax
and di,07Fh
mov cl,3
shr di,cl ; DI = Byte offset into bit table.
mov cl,al
and cl,0111b ; CL = Bit offset into bit table byte.
shl bx,cl
not bh
; If this is a reapeat key and the key is already being held
; down, then don't stuff it into the keyboard buffer.
test bl,[KeysUpDown+di]
je short ??notalready
test [WORD PTR KeyFlags],REPEATON
jne short ??notalready
mov [WORD PTR KeyBufferTail],si ; Nullify any KeyBufferTail changes.
??notalready:
and [KeysUpDown+di],bh ; Force key bit to zero.
or [KeysUpDown+di],bl ; Insert key bit as appropriate.
;??notreal:
; Successful keybuffer stuff could result in a
??norecord:
mov ax,1
jmp short ??exit
; Unsuccessful keybuffer stuff.
??noroom:
mov ax,[tail]
mov [WORD PTR KeyBufferTail],ax
xor ax,ax ; Signal an error.
??exit:
popf
ret
ENDP Stuff_Key_Num
;***********************************************************
;***************************************************************************
;* KEYSTROKE_INTERRUPT -- Handles input that comes from the keyboard *
;* *
;* This routine intercepts the key codes on their way to the *
;* BIOS. With the adjustment of the Flags described above *
;* you can get a wide variety of effects. *
;* *
;* INPUT: none *
;* *
;* OUTPUT: none *
;* *
;* WARNINGS: This is an interrupt function *
;* *
;* HISTORY: *
;* 07/13/1994 PWG : Created. *
;*=========================================================================*
label RM_Keystroke_Interrupt
GLOBAL C Keystroke_Interrupt:FAR
PROC Keystroke_Interrupt C FAR
IF 0
push ax
inc ax
pop ax
iret
ELSE
push ax
push bx
push cx
push di
push ds
push dx
push es
push si
cld
mov ax,cs ; set ds to cs to avoid cs overide
mov ds,ax
; At this point we do not know if the SS selector is a
; System Stack or the Application Stack pointer.
; Soo to be in the safe side we create our own local
; Stack Pointer Selector Relative to DS
; Note Do not try this trick in a reentrant interrupt
mov cx, ss ; get SS
mov [Keyboard_App_Stack_ES], sp ; Protect ES
mov [Keyboard_App_Stack_SS], cx ; Protect SS
lea dx, [Keyboard_StackStart ] ; Compute Local Stack size
and dx, -2;
cli ; Disable All interrupts
mov ss, ax ; Set new SS Selector
mov sp, dx ; Set new Stack Offset
sti ; Enable Interrupts
cmp [WORD PTR PMIssuedKeyInt],0; Check to see if PM made Int call.
mov [WORD PTR PMIssuedKeyInt],0; Make it false.
jne ??passcode ; if so, just call Int Chain.
mov dx,[WORD PTR KeyFlags]
;*** The following fix allows proper caps and num lock tracking on Tandy
; 10-6-89 LJC, DRD
and [KeyLock],NOT (NUMLOCK OR CAPSLOCK); assume caps and num inactive
mov ax,040H ; BIOS segment
mov es,ax ; put in es
test [BYTE PTR es:017H],040H ; test Caps lock bit in BIOS
je short ??bioscapsoff ; skip activate code
or [KeyLock],CAPSLOCK ; Caps Lock active
??bioscapsoff:
test [BYTE PTR es:017H],020H ; test Num lock bit in BIOS
je short ??biosnumoff ; skip activate code
or [KeyLock],NUMLOCK ; Num Lock active
??biosnumoff:
mov [ExtKeyboard],TRUE ; assume 101/102-key keyboard
test [BYTE PTR es:096H],010H ; test for 101/102-key keyboard
jne short ??extkeyboard ; skip deactivate code
mov [ExtKeyboard],FALSE ; no 101/102-key keyboard
??extkeyboard:
mov ax,cs ; set ds to cs to avoid cs overide
mov es,ax
cld ; clear direction flag for strings
xor ah,ah ; clear ctrl flags to 0
mov bx,0101H ; set key to a make by default
in al,KEYDATA ; get a code from the keyboard
;
; New CODE to montior key stream
;
mov bx,[KeyStreamIndex]
mov [KeyStream+bx],al
inc bx
and bx,15
mov [KeyStreamIndex],bx
mov bx,0101H ; set key to a make by default
;
; END OF SEQUENCE
;
;
; Handle the PAUSE key being pressed. If it is pressed, then
; signal that the next two input codes are to be thrown out.
;
cmp al,0E1H ; see if this is a pause/break
jne short ??notpcode ; not a pause/break start code
mov [LastKeyE1],3 ; absorb this and next two codes
??notpcode:
cmp [LastKeyE1],0 ; are we in a pause/break code
je short ??notpause ; no, just keep going
dec [LastKeyE1] ; yes, dec the count
test dx,PAUSEON ; should it pass these codes
jne ??passcode ; pass the code
jmp ??absorbcode ; don't pass code
??notpause:
;
; Record any extended key codes that arrive. They will be
; taken into account with the next code.
;
cmp al,0E0H ; is it an extended code
jne short ??notextcode ; if not skip to handle key
mov [LastKeyE0],TRUE ; set the extended code to 1
??jmppasscode:
jmp ??passcode ; always pass E0s
??notextcode:
;
; Check and acknowledge if the key is a make or a break.
;
test al,080H ; test for high bit
je short ??make ; if off its a make
xor bl,bl ; set make/break to break
and al,07FH ; clear high bit
or ah,KEYRELEASE ; CDY NEW -- ABSENT IN OLD CODE
??make:
;
; Translate the raw keycode into the Westwood keycode.
;
cmp [LastKeyE0],FALSE ; was the prev byte an E0?
je short ??normal ; if not it is a normal key
mov [LastKeyE0],FALSE ; if so clear for next read
mov [IsExtKey],TRUE ; it is an extended key
mov di,OFFSET ExtCodes ; get offset of extended codes table
mov cx,(ExtNums-ExtCodes) ; get number of entrys in ext table
repne scasb ; look for a match
jcxz ??absorbcode ; Not recognized, so throw it away.
mov al,[(ExtNums - ExtCodes) - 1 + di] ; get the match
mov [IsExtKey],FALSE ; it is not an extended key
jmp short ??notext
??normal:
cmp al,07Ah
jne short ??normok
mov al,128
jmp short ??notext
??normok:
mov di,ax ; use code as an index
and di,007Fh ; Mask off any release bit.
mov al,[KeyNums+di] ; get the key number of this key
??notext:
;
; Test and set the CTRL bit.
;
test [KeysUpDown+8],001H ; is the right ctrl down?
jne short ??ctrlon ; if so, ctrl is on
test [KeysUpDown+7],004H ; is the left ctrl down?
je short ??ctrloff ; if not, neither are down, no ctrl
; DRD
; check for CTRL-NUMLOCK for pause on some keyboards
cmp al,KN_NUMLOCK ; check for CTRL-NUMLOCK
jne short ??ctrlon
cmp [ExtKeyboard],TRUE ; if 101/102-key keyboard it is ok
je short ??ctrlon
test dx,PAUSEON ; should it pass these codes
jne short ??ctrlon ; pass the code
jmp ??absorbcode ; don't pass code
??ctrlon:
or ah,CTRLPRESS ; or on the ctrl bit in flags
??ctrloff:
;
; Test and set the ALT bit.
;
test [KeysUpDown + 7],050H ; is either alt key down?
je short ??altoff
or ah,ALTPRESS ; or on the alt bit in flags
??altoff:
;
; Remap the keyboard keys if this is requested. (Do not set DGROUP
; as it is unecessary)
push ax
call KeyNum_Translate
add sp,2
;------ Set the shift bit if necessary.
test [KeysUpDown+5],010H ; is the left shift down?
jne short ??shifton ; if so the shift is on
test [KeysUpDown+7],002H ; is the right shift down?
je short ??shiftoff ; if not then neither shift is down
??shifton:
or ah,SHIFTPRESS ; or on the shift bit in flags
??shiftoff:
;
;------ Toggle the shift state if the caps lock key is on (if necessary).
;
mov di,ax
and di,07Fh
shr di,1
shr di,1
shr di,1
mov bx,ax
and bx,07Fh
and bl,0111b
mov ch,[Bits+bx] ; get the bit to test
test [KeyLock],CAPSLOCK ; is the caps lock on?
je short ??capsoff ; if not don't worry about it
test ch,[KeysCapsLock+di] ; get code for keycaps
je short ??capsoff ; its not effected
xor ah,SHIFTPRESS ; toggle the shift flag
??capsoff:
;
;------ Toggle the shift state if the num-lock key is on (if necessary).
;
test [KeyLock],NUMLOCK ; is the num lock key on?
je short ??numlockoff ; if not don't worry about it
test ch,[KeysNumLock+di] ; get code for numlock
je short ??numlockoff ; if not effected skip toggle
xor ah,SHIFTPRESS ; toggle the shift flag if effected
??numlockoff:
;------ Remember the current control/shift/alt bit settings for later use.
;??noshiftever:
mov [CtrlFlags],ah ; save off shift-ctrl-alt flags
; for the mouse and joystick routines
; to use in stuffing key into the
; keyboard buffer.
test dx,DEBUGINT
jz ??not_toggle
IF DEBUG
cmp [KeyIntDisabled],1
jne ??not_currently_disabled
cmp ax,115 ; is it the F4 key
je ??disable
cmp ax,118 ; is it less then F7 key
jb ??justpass
cmp ax,120 ; is it greater than F9 key
ja ??justpass
??disable:
mov [KeyIntDisabled],0
??justpass:
jmp ??passcode
??not_currently_disabled:
cmp ax,125
jne ??not_toggle
mov [KeyIntDisabled],1
jmp ??absorbcode
ENDIF
??not_toggle:
;------ The CTRL-ALT-DEL key combination always gets passed to the system.
cmp ax,0668H ; is it ctrl alt del?
je ??passcode
cmp ax,064CH ; is it ctrl alt ext del?
je ??passcode ; if so don't add it to the buffer
;------ Special Ctrl-C check.
cmp ax,0230h
je short ??breaker
cmp ax,027Eh
jne short ??nobreak
??breaker:
mov [Break],1
??nobreak:
;------ Check for Music and Sound control keys.
cmp ax,0420H ; is this an alt s
jne short ??checkmusic ; toggle the Sound variable
push ax
mov ax,[SoundOn]
xor ax,01H
push ax
add sp,2
pop ax
??checkmusic:
cmp ax,0434H ; is this an alt m
jne short ??esc ; toggle the Music variable
push ax
mov ax,[MusicOn]
xor ax,01H
push ax
add sp,2
pop ax
??esc:
push ax
call Stuff_Key_Num
pop ax
??skipstuff:
;------ Do the special ESC routine if necessary.
cmp al,110 ; is this the esc key?
jne short ??noroutine ; if not goto the pass always
cmp [WORD PTR EscRoutine+2],0 ;if vector is 0 don't jump
je short ??noroutine
push ax
call [EscRoutine]
pop ax
??noroutine:
;------ Check to see if the key is to be passed to the system or not.
mov di,OFFSET PassAlways ; get offset to table
mov cx,(PassAlwaysEnd - PassAlways) ; get number of pass always CDY JLB MOD 7/11 was +1
repne scasb ; look for a match
or cx,cx ; see if there was no match
jne ??passcode ; CDY JLB 7/11 optimization
??passalways:
; now check for conditional passes
mov di,OFFSET CondPassKey ; get offset to cond key table
mov cx,(CondPassCond-CondPassKey) ; get number of entries
shr cx,1 ; cut in half for words
repne scasw ; look for a match
jcxz short ??notcondpass ; OPTIMIZATION CDY JLB
mov bx,[(CondPassCond - CondPassKey) - 2 + di]
and bx,dx ; are the conditions met?
je short ??notcondpass ; NO... check normally.
jmp short ??passcode ; YES... pass back to system.
;
;------ Last check before passing keycode back to the system.
;
??notcondpass:
test dx,FILTERONLY ; is the filter only flag on?
je short ??absorbcode ; if not, absorb the code.
??passcode:
inc [cs:PassCount]
;mov ax , 0B000h
;mov es, ax
;inc [BYTE PTR es : 40h]
; Now it is time to set up for the call to the System Keyboard
; interrupt handler.
; 1 -Restore System Stack Pointer Selector before exit Interrupt
; 2- We Create a Returning Point from Interrupt by Push A
; Interupt Stack Frame into the Stack Pointer
; 3- We make a Far jump to the interuupt handler
cmp [Keyboard_StackPointer],0DEADh
je ??stackok
push cx
push di
push ax
push es
mov ax,0A000h
mov es,ax
xor di,di
mov cx,64000
mov ax,1
rep stosb
pop es
pop ax
pop di
pop cx
??stackok:
cli ; disable Interrupts
mov dx, [Keyboard_App_Stack_SS]
mov ss, dx ; Get System Stack Selector
mov sp, [Keyboard_App_Stack_ES] ; Get System Stack offset
sti ; Enable Interrupts
lea dx, [??Call_Back_Keyboard] ; Get Return address offset
pushf ; push flags
push cs ; push Code segment
push dx ; push Offset
; Now we need to simulate an interrup call by using ired
; because we still want to come back here from the
; Old Keyboard interrupt handle.
pushf
push [word ptr KeyOldRMI + 2] ; push orig segment.
push [word ptr KeyOldRMI] ; push orig offset.
iret ; call interrupt
??absorbcode:
;mov ax , 0B000h
;mov es, ax
;inc [BYTE PTR es : 0h]
in al,KEYCTRL ; get the control port
mov ah,al
or al,080H ; reset bit for keyboard
out KEYCTRL,al
xchg ah,al ; get orig control data
out KEYCTRL,al ; restore control data
mov ax,040h ; BIOS paragraph is always @ 040h
mov es,ax ; put in es as BIOS paragraph
mov al,[es:96h] ; get extended keys
and al,0FDh ; turn off last key e0 flag
mov [es:96h],al ; set extended keys
mov al,CLEARISR ; value to clear In Service Register
out INTCHIP0,al ; 8259 interrupt chip controller 0
cmp [Keyboard_StackPointer],0DEADh
je ??stackok2
push cx
push di
push ax
push es
mov ax,0A000h
mov es,ax
xor di,di
mov cx,64000
mov ax,1
rep stosb
pop es
pop ax
pop di
pop cx
??stackok2:
; Restore System Stack Pointer Selector before exit Interrupt
mov dx, [Keyboard_App_Stack_SS]
cli ; disable Interrupts
mov ss, dx ; Get Syatem Stack Selector
mov sp, [Keyboard_App_Stack_ES] ; Get Syatem Stack offset
sti ; Enable Interrupts
??Call_Back_Keyboard:
pop si
pop es
pop dx
pop ds
pop di
pop cx
pop bx
pop ax
iret
ENDIF
ENDP Keystroke_Interrupt
;***************************************************************************
;* Break interrupt routines begin here!
;***************************************************************************
;***************************************************************************
;* BREAK_INTERRUPT -- Handles the break key interrupt *
;* *
;* INPUT: none *
;* *
;* OUTPUT: none *
;* *
;* WARNINGS: This is an interrupt routine. *
;* *
;* HISTORY: *
;* 07/13/1994 PWG : Created. *
;*=========================================================================*
label RM_Break_Interrupt
GLOBAL C Break_Interrupt:FAR
PROC Break_Interrupt C FAR
pushf
push ax
push es
mov ax,0B000h ; ES:DI = Mono RAM address.
mov es,ax
inc [BYTE PTR es:0]
pop es
pop ax
popf
iret
ENDP Break_Interrupt
;**************************************************************************
;* CALL_INTERRUPT_CHAIN -- Function PM calls to call the RM interrupt chain*
;* *
;* *
;* INPUT: none *
;* *
;* OUTPUT: none *
;* *
;* HISTORY: *
;* 07/08/1994 SKB : Created. *
;*=========================================================================*
Call_Interrupt_Chain:
pushf
call Keystroke_Interrupt ;[KeyOldRMI]
retf
;----------------------------------------------------------------------------
; LOW_HIDE_MOUSE:
;
; This function hides the mouse cursor on the screen if it was shown. It
; will not hide the mouse if it is already hidden.
;
; PROTOTYPE:
;
; VOID Low_Hide_Mouse(VOID);
;
; NOTE: does not check if mouse is currently being updated.
;
;----------------------------------------------------------------------------
GLOBAL C Low_Hide_Mouse:FAR
PROC Low_Hide_Mouse C FAR
USES ax,bx,cx,dx,ds
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
cmp [MDisabled],0 ; check if mouse is disabled
jne short ??end
cmp [MState],0 ; check if it was hidden before
jne short ??endnodraw ; no need to hide again
;------ Move the saved graphic buffer to the seenpage to hide the mouse.
; call Buffer_To_Page C,[buffx],[buffy],[buffw],[buffh],[MouseBuffer],SEENPAGE
mov ax,RESTORE_VISIBLE_PAGE
push ax
push cs
call [ ShadowPtr ]
add sp,2
;------ Record that the mouse has been hidden.
??endnodraw:
add [MState],1
adc [MState],0
??end:
ret
ENDP Low_Hide_Mouse
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
; LOW_SHOW_MOUSE:
;
; This function displays the mouse cursor on the screen if it was hidden.
;
; PROTOTYPE:
; VOID Low_Show_Mouse(VOID);
;
; NOTE: does not check if mouse is currently being updated.
;----------------------------------------------------------------------------
GLOBAL C Low_Show_Mouse:FAR
PROC Low_Show_Mouse C FAR
USES ax,bx,cx,dx,si,di,ds,es
LOCAL mousex:WORD ; Draw X position.
LOCAL mousey:WORD ; Draw Y position.
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
;----- Don't show the mouse if it is not hidden, disabled.
cmp [MDisabled],0 ; is the mouse disabled
jne ??exit ; if so then exit
cmp [MState],0 ; is the mouse already visible
je ??exit ; if so then exit
dec [MState]
cmp [MState],0 ; can the mouse be shown
jne short ??exit
;------ Determine the drawing position of the mouse.
mov cx,[MouseWidth] ; Theoretical buffer width (pixel).
mov dx,[MouseHeight] ; Theoretical buffer height (pixel).
mov ax,[MouseX]
; sub ax,[MouseXHot]
mov [mousex],ax ; Draw X pixel.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IF 0
; jns short ??xnotneg
; add cx,ax ; Reduce width accordingly.
; mov ax,0
??xnotneg:
ENDIF
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov bx,[MouseY]
; sub bx,[MouseYHot]
mov [mousey],bx ; Draw Y pixel.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IF 0
; jns short ??ynotneg
; add dx,bx ; Reduce height of mouse accordingly.
; mov bx,0
??ynotneg:
ENDIF
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;------ Determine the theoretical coordinates and dimensions of the
; area the mouse shape will be rendered upon.
mov [MouseBuffX],ax
mov [MouseBuffY],bx
mov [MouseBuffW],cx
mov [MouseBuffH],dx
;------ Move the area that will be drawn upon, to the graphic buffer.
mov ax,STORE_VISIBLE_PAGE
push ax
push cs
call [ ShadowPtr ]
add sp,2
;------ Draw the mouse shape to the seenpage.
push [mousey]
push [mousex]
push cs
call [ DrawMousePtr ]
add sp,4
??exit:
ret
ENDP Low_Show_Mouse
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
GLOBAL C Mouse_KeyNum:FAR
PROC Mouse_KeyNum C FAR
USES bx
ARG state:WORD ; Current mouse state.
LOCAL keynum:WORD ; Determined keynum.
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
mov [keynum],KN_MOUSE_MOVE ; Presume just a mouse move.
mov bx,[state]
mov ax,bx
xor bl,[Button] ; Bits of state change.
je short ??fini
mov [Button],al ; Record new mouse state.
test bl,0010b
je short ??notright
mov [keynum],KN_RMOUSE
test al,0010b
jne short ??notright
or [keynum],0800h ; Release bit on.
??notright:
; DRD
; note: the left mouse button has priority over the right mouse button
; this should be changed at a later date to process them independently
test bl,0001b
je short ??notleft
mov [keynum],KN_LMOUSE
test al,0001b
jne short ??notleft
or [keynum],0800h ; Release bit on.
??notleft:
??fini:
mov ax,[keynum]
ret
ENDP Mouse_KeyNum
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
; MOUSE_INT:
;
; This routine is called automatically when the Mouse_Int is installed. It
; automatically updates the global variables stored in the code segment so
; that the mouse information is automatically known at all times.
;
; INPUTS (from int): AX = condition mask ( bit 0 == cursor position chg,
; bit 1 == left button press,
; bit 2 == left button release,
; bit 3 == right button press,
; bit 4 == right button release,
; 5-15 == not used )
; BX = button state ( bit 0 == left button down,
; bit 1 == right button down,
; bit 2 == middle button down.
; 3-15 == not used )
; CX = cursor coordinate (horizontal axis)
; DX = cursor coordinate (vertical axis)
; DI = horizontal mouse count (mickeys)
; SI = vertical mouse count (mickeys)
;
; RETURNS: none
;
; MODIFIES: modifies the variables _Button, _ButtonChange,
; _MouseX,_MouseY,_ButtonLatch
;
; PROTOTYPE:
; This routine is called from an interrupt.
;----------------------------------------------------------------------------
label RM_Mouse_Interrupt
PROC Mouse_Int C FAR
USES ax,bx,cx,dx,ds,si,es,di
LOCAL cond:WORD ; Local copy of mouse event.
LOCAL state:WORD ; Local copy of button state.
mov [cs:Mouse_State],bx
mov [cs:Mouse_Cond],ax
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
; At this point we do not know if the SS selector is a
; System Stack or the Application Stack pointer.
; Soo to be in the safe side we create our own local
; Stack Pointer Selector Relative to DS
; Note Do not try this trick in a reentrant interrupt
mov bx, ss ; get SS
mov [Mouse_App_Stack_ES], sp ; Protect ES
mov [Mouse_App_Stack_SS], bx ; Protect SS
lea bx, [Mouse_StackStart ] ; Compute Local Stack size
and bx, -2;
cli ; Disable All interrupts
mov ss, ax ; Set new SS Selector
mov sp, bx ; Set new Stack Offset
sti ; Enable Interrupts
;------ Process the mouse interrupt only if the mouse is enabled (whether
; present or not).
cmp [MDisabled],0
jne ??exit
cmp [MInput],0
je ??exit
;------ This was added because of missing mouse presses and
; releases during a mouse update.
mov ax,[Mouse_Cond]
and ax,0001EH ; bits for left and right press and release
jne short ??dopress_release
cmp [MouseUpdate],0 ; if mouse move and mouse updating exit
jne ??exit
??dopress_release:
;------ In EEGA mode mouse X coordinates as 0..639. Make adjustment
; to keep within 0..319 range.
cmp [Adjust],1 ; if the x coordinate is returned
jne short ??noadjust ; incorrectly then
shr cx,1 ; adjust x coord from 640 pixel screen
??noadjust:
; scale mouse posX and PosY
; cmp [Adjust_XPos] , 0
; jz short ??no_scaleX
; push dx
; mov ax , [MouseRight]
; imul cx
; idiv [Adjust_XPos]
; mov cx , ax
; pop dx
??no_scaleX:
; cmp [Adjust_YPos] , 0
; jz short ??no_scaleY
; mov ax , [MouseBottom]
; imul dx
; idiv [Adjust_YPos]
; mov dx , ax
??no_scaleY:
;------ Keep mouse within screen bounds.
cmp cx,[MouseRight] ; in EGAMODE, the mouse may go to 320
jb short ??boundX_ok ; force it to stay at least one pixel
mov cx,[MouseRight] ; on the screen
dec cx
??boundX_ok:
cmp dx,[MouseBottom] ; in EGAMODE, the mouse may go to 320
jb short ??boundY_ok ; force it to stay at least one pixel
mov dx,[MouseBottom] ; on the screen
dec dx
??boundY_ok:
IF 0
;------ Remap the middle button to equal the right button.
test bx,04h
je ??noremap
or bx,0010b ; Set the right button bit.
??noremap:
ENDIF
mov [MouseX],cx ; and store in mouse x
mov [MouseY],dx ; store y coord in mouse y
test [KeyFlags],KEYMOUSE
jne short ??nostuffit
call Mouse_KeyNum C,[Mouse_State] ; Convert mouse state to key number code.
call Stuff_Key_Num C,ax ; Record mouse keynumber code.
??nostuffit:
;------ The check for Mouse in the middle of updating CAN NOT BE MOVED
; any farther up because mouse presses and releases will be LOST!!
cmp [MouseUpdate],0
jne ??exit
;??jexit:
; jmp ??exit
christopher:
??chkxy:
;------ Signal that no mouse updating can occur at this time.
; cmp [_MouseUpdate],0
; jne ??exit
; mov [_MouseUpdate],1
;------ Perform any X movement grid adjustment.
cmp [MouseStepX],0 ; are we stepping on the X?
je short ??no_x_step ; no x
mov ax,cx ; get current x_pixel
mov cx,dx ; save dx - it is trashed by idiv
sub ax,[MouseOffsetX] ; get offset difference
mov bx,[MouseStepX] ; get step in bx for idiv
cwd ; extend ax -> dx:ax
idiv bx ; divide by Step X
imul bx ; ax = div * Step X
add ax,[MouseOffsetX] ; normalize to region offset
mov dx,cx ; restore dx (new MouseY)
mov cx,ax ; set cx (new MouseX)
??no_x_step:
;------ Perform any Y movement grid adjustment.
cmp [MouseStepY],0 ; are we stepping on the Y
je short ??no_step ; no y
mov ax,dx ; get current y_pixel
sub ax,[MouseOffsetY] ; get offset difference
mov bx,[MouseStepY] ; get step in bx for idiv
cwd ; extend ax -> dx:ax
idiv bx ; divide by Step Y
imul bx ; ax = div * Step Y
add ax,[MouseOffsetY] ; normalize to region offset
mov dx,ax ; set dx (new MouseY)
??no_step:
;------ Here is where we store the new MouseX and MouseY values
; mov [MouseX],cx ; and store in mouse x
; mov [MouseY],dx ; store y coord in mouse y
;------ If the mouse is hidden or its position hasn't changed, then
; perform no action.
cmp [MState],0
jne short ??updateend
cmp [MouseXOld],cx
jne short ??doit
cmp [MouseYOld],dx
je short ??updateend
??doit:
;------ At this point we KNOW the mouse has moved.
mov ax,[MCState]
and ax,CONDHIDE+CONDHIDDEN
cmp ax,CONDHIDE+CONDHIDDEN
je short ??condcheck ; If already hidden.
;------ We know that the mouse is visible, we must hide it
; before we update its position.
call Low_Hide_Mouse
;------ Conditional region check goes here. If the mouse falls within the
; conditional region, it gets marked as hidden and no other processing
; occurs.
test [MCState],CONDHIDE
je short ??condok
??condcheck:
cmp cx,[MouseCXLeft] ; check adjusted x region
jb short ??condok
cmp cx,[MouseCXRight]
ja short ??condok
cmp dx,[MouseCYUpper] ; check adjusted y region
jb short ??condok
cmp dx,[MouseCYLower]
ja short ??condok
or [MCState],CONDHIDDEN ; flag as conditional hidden
jmp short ??updateend
;------ The mouse coordinates and flags pass all of the tests, proceed
; with rendering the mouse.
??condok:
call Low_Show_Mouse
;------ Final clean up and exit.
??updateend:
mov [MouseXOld],cx
mov [MouseYOld],dx
??exit:
cmp [Mouse_StackPointer],0DEADh
je ??mouse_stk_ok
push cx
push di
push ax
push es
mov ax,0A000h
mov es,ax
xor di,di
mov cx,64000
mov ax,1
rep stosb
pop es
pop ax
pop di
pop cx
??mouse_stk_ok:
; Restore System Stack Pointer Selector before exit Interrupt
mov ax, [Mouse_App_Stack_SS]
cli ; disable Interrupts
mov ss, ax ; Get Syatem Stack Selector
mov sp, [Mouse_App_Stack_ES] ; Get Syatem Stack offset
sti ; Enable Interrupts
ret
ENDP Mouse_Int
;***************************************************************************
;***************************************************************************
;***************************************************************************
;* MOUSE_SHADOW_BUFFER -- Handles storing and restoring the mouse buffer *
;* *
;* INPUT: int store - indicates whether we are storing the buffer or *
;* not. *
;* *
;* OUTPUT: none *
;* *
;* PROTO: Asm callable only! *
;* *
;* HISTORY: *
;* 10/27/1994 PWG : Created. *
;*=========================================================================*
GLOBAL C VGA_Mouse_Shadow_Buffer:FAR
PROC VGA_Mouse_Shadow_Buffer C FAR
USES ax,bx,cx,dx,di,si,ds,es
ARG store:WORD
local x0 : word
local y0 : word
local x1 : word
local y1 : word
local buffx0 : word
local buffy0 : word
;*=========================================================================*
;* Since we are in tiny model point ds to cs
;*=========================================================================*
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
;*=========================================================================*
; Direction flag must be forward in this routine.
;*=========================================================================*
cld
;*===================================================================
;* Copy of X, Y, Width and Height into local registers
;*===================================================================
mov ax,[MouseBuffX]
mov bx,[MouseBuffY]
sub ax , [ MouseXHot ]
sub bx , [ MouseYHot ]
mov [ x0 ] , ax
mov [ y0 ] , bx
add ax , [MouseBuffW]
add bx , [MouseBuffH]
mov [ x1 ] , ax
mov [ y1 ] , bx
mov [ buffx0 ] , 0
mov ax , [ word ptr MouseBuffer ]
mov [ buffy0 ] , ax
;*===================================================================
;* Bounds check source X. Y.
;*===================================================================
xor ax , ax
xor dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
sub cx , [ MouseRight ]
sub bx , [ MouseRight ]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
sub cx , [MouseBottom]
sub bx , [MouseBottom]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
xor al , 5
xor dl , 5
mov ah , al
test dl , al
jnz ??out
or al , dl
jz ??acepted
test ah , 1000b
jz ??scr_left_ok
mov bx , [ x0 ]
neg bx
mov [ buffx0 ] , bx
mov [ x0 ] , 0
??scr_left_ok:
test ah , 0010b
jz ??scr_bottom_ok
push dx
mov ax , [ y0 ]
neg ax
mul [MouseBuffW]
add [ buffy0 ] , ax
mov [ y0 ] , 0
pop dx
??scr_bottom_ok:
test dl , 0100b
jz ??scr_right_ok
mov ax , [MouseRight] ; get width into register
mov [ x1 ] , ax
??scr_right_ok:
test dl , 0001b
jz ??acepted
mov ax , [MouseBottom] ; get width into register
mov [ y1 ] , ax
??acepted:
;*===================================================================
;* Get the offset into the screen.
;*===================================================================
mov ax,0A000h
mov es,ax
mov ax , [ y0 ]
mul [ MouseRight ]
mov dx , [MouseRight]
mov di , ax
add di , [ x0 ]
;*===================================================================
;* Adjust the source for the top clip.
;*===================================================================
mov bx , [ MouseWidth ] ; turn this into an offset
lds si , [ MouseBuffer ]
mov si , [ buffy0 ] ; edx points to source
add si , [ buffx0 ] ; plus clipped lines
;*===================================================================
;* Calculate the bytes per row add value
;*===================================================================
mov ax , [ x1 ]
mov cx , [ y1 ]
sub ax , [ x0 ]
jle ??out
sub cx , [ y0 ]
jle ??out
sub dx , ax
sub bx , ax
push bp
cmp [store],RESTORE_VISIBLE_PAGE ; are we restoring page?
jne ??store_entry ; if not the go to store
;*===================================================================
;* Handle restoring the buffer to the visible page
;*===================================================================
mov bp , cx
??restore_loop:
mov cx,ax ; get number to really write
rep movsb ; store them into the buffer
add si,bx ; move past right clipped pixels
add di,dx ; adjust dest to next line
dec bp ; decrement number of rows to do
jnz ??restore_loop ; if more to do, do it
pop bp
IF ECHOON
mov ax , 0b000h
mov di , 12 * 80 + 10
mov es, ax
mov al , 'V'
mov [es:di],al
mov al,2
mov [es:di+1],al
ENDIF
ret
;*===================================================================
;* Handle soting the visible page into the Mouse Shadow Buffer
;*===================================================================
??store_entry:
xchg si,di ; xchg the source and the dest
mov bp , cx
push es ; need to swap es and ds but
push ds ; cant xchg so pop them on the
pop es ; stack and pop them off the
pop ds ; wrong way intentionally.
??store_loop:
mov cx,ax ; get number to really write
rep movsb ; store them into the buffer
add si,dx ; move past right clipped pixels
add di,bx ; adjust dest to next line
dec bp ; decrement number of rows to do
jnz ??store_loop ; if more to do, do it
pop bp
??out:
IF ECHOON
mov ax , 0b000h
mov di , 12 * 80 + 12
mov es, ax
mov al , 'G'
mov [es:di],al
mov al,2
mov [es:di+1],al
ENDIF
ret
ENDP VGA_Mouse_Shadow_Buffer
;***************************************************************************
GLOBAL C VGA_Draw_Mouse:FAR
PROC VGA_Draw_Mouse C FAR
USES ax,bx,cx,dx,di,si,ds,es
ARG mousex:WORD
ARG mousey:WORD
local x0 : word
local y0 : word
local x1 : word
local y1 : word
local buffx0 : word
local buffy0 : word
;*=========================================================================*
;* Since we are in tiny model point ds to cs
;*=========================================================================*
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
;*===================================================================
;* Pre-initialize the left, right and topclip values to zero.
;*===================================================================
mov ax, [ mousex ]
mov bx , [ mousey ]
sub ax , [ MouseXHot ]
sub bx , [ MouseYHot ]
mov [ x0 ] , ax
mov [ y0 ] , bx
add ax, [ MouseWidth ]
add bx, [ MouseHeight ]
mov [ x1 ] , ax
mov [ y1 ] , bx
mov [ buffx0 ] , 0
les ax , [ MouseCursor ]
mov [ buffy0 ] , ax
;*===================================================================
;* Bounds check source X. Y.
;*===================================================================
xor ax , ax
xor dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
sub cx , [ MouseRight ]
sub bx , [ MouseRight ]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
sub cx , [MouseBottom]
sub bx , [MouseBottom]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
xor al , 5
xor dl , 5
mov ah , al
test dl , al
jnz ??out
or al , dl
jz ??acepted
test ah , 1000b
jz ??scr_left_ok
mov bx , [ x0 ]
neg bx
mov [ buffx0 ] , bx
mov [ x0 ] , 0
??scr_left_ok:
test ah , 0010b
jz ??scr_bottom_ok
push dx
mov ax , [ y0 ]
neg ax
mul [MouseWidth]
add [ buffy0 ] , ax
mov [ y0 ] , 0
pop dx
??scr_bottom_ok:
test dl , 0100b
jz ??scr_right_ok
mov bx , [MouseRight] ; get width into register
mov [ x1 ] , bx
??scr_right_ok:
test dl , 0001b
jz ??acepted
mov bx , [MouseBottom] ; get width into register
mov [ y1 ] , bx
??acepted:
mov ax , [ y0 ]
mul [ MouseRight ]
mov dx , [MouseRight]
mov di , ax
add di , [ x0 ]
;*===================================================================
;* Adjust the source for the top clip.
;*===================================================================
mov bx , [MouseWidth] ; turn this into an offset
mov si , [ buffy0 ] ; edx points to source
add si , [ buffx0 ] ; plus clipped lines
;*===================================================================
;* Calculate the bytes per row add value
;*===================================================================
mov ax , 0a000h
mov ds , ax
mov ax , [ x1 ]
mov cx , [ y1 ]
sub ax , [ x0 ]
jle ??out
sub cx , [ y0 ]
jle ??out
sub dx , ax
sub bx , ax
;*===================================================================
;* Handle restoring the buffer to the visible page
;*===================================================================
??top_loop:
mov ah,al
??inner_loop:
mov ch , [es:si]
inc esi
or ch,ch
jz ??inc_edi
mov [di],ch
??inc_edi:
inc di
dec ah
jnz ??inner_loop
add si,bx ; move past right clipped pixels
add di,dx ; adjust dest to next line
dec cl ; decrement number of rows to do
jnz ??top_loop ; if more to do, do it
??out:
IF ECHOON
mov ax , 0b000h
mov di , 12 * 80 + 14
mov es, ax
mov al , 'A'
mov [es:di],al
mov al,2
mov [es:di+1],al
ENDIF
ret
ENDP VGA_Draw_Mouse
;***************************************************************************
;***************************************************************************
;***************************************************************************
;* MOUSE_SHADOW_BUFFER -- Handles storing and restoring the mouse buffer *
;* *
;* INPUT: int store - indicates whether we are storing the buffer or *
;* not. *
;* *
;* OUTPUT: none *
;* *
;* PROTO: Asm callable only! *
;* *
;* HISTORY: *
;* 10/27/1994 PWG : Created. *
;*=========================================================================*
GLOBAL C VESA_Mouse_Shadow_Buffer:FAR
PROC VESA_Mouse_Shadow_Buffer C FAR
USES ax,bx,cx,dx,di,si,ds,es
ARG store:WORD
local x0 : word
local y0 : word
local x1 : word
local y1 : word
local buffx0 : word
local buffy0 : word
;*=========================================================================*
;* Since we are in tiny model point ds to cs
;*=========================================================================*
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
call get_vesa_window
mov [ app_vesa_window ] , dx
;*=========================================================================*
; Direction flag must be forward in this routine.
;*=========================================================================*
cld
;*===================================================================
;* Copy of X, Y, Width and Height into local registers
;*===================================================================
mov ax,[MouseBuffX]
mov bx,[MouseBuffY]
sub ax , [ MouseXHot ]
sub bx , [ MouseYHot ]
mov [ x0 ] , ax
mov [ y0 ] , bx
add ax , [MouseBuffW]
add bx , [MouseBuffH]
mov [ x1 ] , ax
mov [ y1 ] , bx
mov [ buffx0 ] , 0
mov ax , [ word ptr MouseBuffer ]
mov [ buffy0 ] , ax
;*===================================================================
;* Bounds check source X. Y.
;*===================================================================
xor ax , ax
xor dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
sub cx , [ MouseRight ]
sub bx , [ MouseRight ]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
sub cx , [MouseBottom]
sub bx , [MouseBottom]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
xor al , 5
xor dl , 5
mov ah , al
test dl , al
jnz ??out
or al , dl
jz ??acepted
test ah , 1000b
jz ??scr_left_ok
mov bx , [ x0 ]
neg bx
mov [ buffx0 ] , bx
mov [ x0 ] , 0
??scr_left_ok:
test ah , 0010b
jz ??scr_bottom_ok
push dx
mov ax , [ y0 ]
neg ax
mul [MouseBuffW]
add [ buffy0 ] , ax
mov [ y0 ] , 0
pop dx
??scr_bottom_ok:
test dl , 0100b
jz ??scr_right_ok
mov ax , [MouseRight] ; get width into register
mov [ x1 ] , ax
??scr_right_ok:
test dl , 0001b
jz ??acepted
mov ax , [MouseBottom] ; get width into register
mov [ y1 ] , ax
??acepted:
;*===================================================================
;* Get the offset into the screen.
;*===================================================================
mov ax,0A000h
mov es,ax
mov ax , [ y0 ]
mul [ MouseRight ]
add ax , [ x0 ]
adc dx , 0
mov di , ax
call set_vesa_page
mov dx , [MouseRight]
;*===================================================================
;* Adjust the source for the top clip.
;*===================================================================
mov bx , [ MouseWidth ] ; turn this into an offset
lds si , [ MouseBuffer ]
mov si , [ buffy0 ] ; edx points to source
add si , [ buffx0 ] ; plus clipped lines
;*===================================================================
;* Calculate the bytes per row add value
;*===================================================================
mov ax , [ x1 ]
mov cx , [ y1 ]
sub ax , [ x0 ]
jle ??out
sub cx , [ y0 ]
jle ??out
sub dx , ax
sub bx , ax
cmp [store],RESTORE_VISIBLE_PAGE ; are we restoring page?
jne ??store_entry ; if not the go to store
;*===================================================================
;* Handle restoring the buffer to the visible page
;*===================================================================
??restore_loop:
mov ah,al
??res_inner_loop:
mov ch , [si]
mov [es:di],ch
inc si
inc di
jnz ??res_same_page
call next_vesa_page
??res_same_page:
dec ah
jnz ??res_inner_loop
add si,bx ; move past right clipped pixels
add di,dx ; adjust dest to next line
jnc ??res_same_page1
call next_vesa_page
??res_same_page1:
dec cl ; decrement number of rows to do
jnz ??restore_loop
IF ECHOON
mov ax , 0b000h
mov di , 10 * 80 + 10
mov es,ax
mov al ,'v'
mov [es:di],al
mov al,2
mov [es:di+1],al
ENDIF
jmp ??out
;*===================================================================
;* Handle soting the visible page into the Mouse Shadow Buffer
;*===================================================================
??store_entry:
mov ah,al
??store_inner_loop:
mov ch , [es:di]
mov [si],ch
inc si
inc di
jnz ??store_same_page
call next_vesa_page
??store_same_page:
dec ah
jnz ??store_inner_loop
add si,bx ; move past right clipped pixels
add di,dx ; adjust dest to next line
jnc ??store_same_page1
call next_vesa_page
??store_same_page1:
dec cl ; decrement number of rows to do
jnz ??store_entry
??out:
IF ECHOON
mov ax , 0b000h
mov di , 10 * 80 + 14
mov es,ax
mov al ,'e'
mov [es:di],al
mov al,2
mov [es:di+1],al
ENDIF
mov dx , [ app_vesa_window ]
call set_vesa_window
ret
ENDP VESA_Mouse_Shadow_Buffer
;***************************************************************************
GLOBAL C VESA_Draw_Mouse:FAR
PROC VESA_Draw_Mouse C FAR
USES ax,bx,cx,dx,di,si,ds,es
ARG mousex:WORD
ARG mousey:WORD
local x0 : word
local y0 : word
local x1 : word
local y1 : word
local buffx0 : word
local buffy0 : word
local app_vesa_window : word
;*=========================================================================*
;* Since we are in tiny model point ds to cs
;*=========================================================================*
mov ax,cs ; since we are in tiny model
mov ds,ax ; set cs = ds
call get_vesa_window
mov [ app_vesa_window ] , dx
;*===================================================================
;* Pre-initialize the left, right and topclip values to zero.
;*===================================================================
mov ax, [ mousex ]
mov bx , [ mousey ]
sub ax , [ MouseXHot ]
sub bx , [ MouseYHot ]
mov [ x0 ] , ax
mov [ y0 ] , bx
add ax, [ MouseWidth ]
add bx, [ MouseHeight ]
mov [ x1 ] , ax
mov [ y1 ] , bx
mov [ buffx0 ] , 0
les ax , [ MouseCursor ]
mov [ buffy0 ] , ax
;*===================================================================
;* Bounds check source X. Y.
;*===================================================================
xor ax , ax
xor dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ x0 ]
mov bx , [ x1 ]
sub cx , [ MouseRight ]
sub bx , [ MouseRight ]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
mov cx , [ y0 ]
mov bx , [ y1 ]
sub cx , [MouseBottom]
sub bx , [MouseBottom]
dec cx
dec bx
add cx , cx
adc ax , ax
add bx , bx
adc dx , dx
xor al , 5
xor dl , 5
mov ah , al
test dl , al
jnz ??out
or al , dl
jz ??acepted
test ah , 1000b
jz ??scr_left_ok
mov bx , [ x0 ]
neg bx
mov [ buffx0 ] , bx
mov [ x0 ] , 0
??scr_left_ok:
test ah , 0010b
jz ??scr_bottom_ok
push dx
mov ax , [ y0 ]
neg ax
mul [MouseWidth]
add [ buffy0 ] , ax
mov [ y0 ] , 0
pop dx
??scr_bottom_ok:
test dl , 0100b
jz ??scr_right_ok
mov ax , [MouseRight] ; get width into register
mov [ x1 ] , ax
??scr_right_ok:
test dl , 0001b
jz ??acepted
mov ax , [MouseBottom] ; get width into register
mov [ y1 ] , ax
??acepted:
mov ax , [ y0 ]
mul [ MouseRight ]
add ax , [ x0 ]
adc dx , 0
mov di , ax
call set_vesa_page
mov dx , [MouseRight]
;*===================================================================
;* Adjust the source for the top clip.
;*===================================================================
mov bx , [MouseWidth] ; turn this into an offset
mov si , [ buffy0 ] ; edx points to source
add si , [ buffx0 ] ; plus clipped lines
;*===================================================================
;* Calculate the bytes per row add value
;*===================================================================
mov ax , 0a000h
mov ds , ax
mov ax , [ x1 ]
mov cx , [ y1 ]
sub ax , [ x0 ]
jle ??out
sub cx , [ y0 ]
jle ??out
sub dx , ax
sub bx , ax
;*===================================================================
;* Handle restoring the buffer to the visible page
;*===================================================================
??top_loop:
mov ah,al
??inner_loop:
mov ch , [es:si]
inc si
or ch,ch
jz ??inc_edi
mov [di],ch
??inc_edi:
inc di
jnz ??same_page
call next_vesa_page
??same_page:
dec ah
jnz ??inner_loop
add si,bx ; move past right clipped pixels
add di,dx ; adjust dest to next line
jnc ??same_page1
call next_vesa_page
??same_page1:
dec cl ; decrement number of rows to do
jnz ??top_loop ; if more to do, do it
??out:
IF ECHOON
mov ax , 0b000h
mov di , 10 * 80 + 14
mov es, ax
mov al , 's'
mov [es:di],al
mov al,2
mov [es:di+1],al
mov di , 10 * 80 + 16
mov al , 'a'
mov [es:di],al
mov al,2
mov [es:di+1],al
ENDIF
mov dx , [ app_vesa_window ]
call set_vesa_window
ret
ENDP VESA_Draw_Mouse
;************************************************************************
PROC get_vesa_window C near
uses ax,bx
mov ax , 04f05h
mov bh , 1
mov bl , 0
call [ dword ptr cs: VesaPtr ]
ret
ENDP
;************************************************************************
PROC set_vesa_window C near
uses ax,bx,dx
mov ax , 04f05h
mov bh , 0
mov bl , 0
call [ dword ptr cs: VesaPtr ]
ret
ENDP
;***************************************************************************
PROC set_vesa_page C near
USES ax,bx,dx
mov bx , dx
shl bx , 2
mov [ cs: current_page ] , bx
mov dx , [ word ptr cs:banktable + bx ]
mov ax , 04f05h
mov bh , 0
mov bl , 0
call [ dword ptr cs: VesaPtr ]
ret
ENDP set_vesa_page
PROC next_vesa_page C near
USES ax,bx,dx
mov bx , [ cs: current_page ]
add bx , 4
mov [ cs:current_page ] , bx
mov dx , [ word ptr cs:banktable + bx ]
mov ax , 04f05h
mov bh , 0
mov bl , 0
call [ dword ptr cs: VesaPtr ]
ret
ENDP next_vesa_page
;***********************************************************
END