windows-xp/Source/XPSP1/NT/base/mvdm/thunk/penthk0.inc

CodeData equ <THUNK16CodeData>

include thkrp.inc
include cbcheck.inc
include thkframe.inc
include public.inc
include thkmacro.inc
include struc.inc

include cbcid.inc
include pwcbid.inc

externDef PrivateEscape:near16
externDef CALLBACK_BODY_16:far16
externDef Escape:far16
externDef AllocCallback:far16
;externDef MapLS:far16
;externDef UnmapLS:far16
externDef GlobalAlloc:far16
externDef GlobalSize:far16
externDef GlobalFree:far16
externDef GlobalFix:far16
externDef GlobalUnfix:far16
externDef GlobalLock:far16
externDef GlobalUnlock:far16
externDef GetTextExtentPoint:far16
ifdef DEBUG
externDef _wsprintf:far16
externDef OutputDebugString:far16
endif

externDef AllocSelectorArray:far16
externDef SetSelectorBase:far16
externDef SetSelectorLimit:far16
externDef FreeSelector:far16
externDef SelectorAccessRights:far16

fLocalFlag      equ     fLzLog16
MAXHOTSPOT      equ     8

;===========================================================================
body_ADDPENINPUTHRC macro
        local L0, L1, L2, L3, L4, L5
bp_hrc          equ <[bp_top]>    ; bp+40   hrc
bp_rgPnt        equ <[bp_top+4]>  ; bp+44   rgPnt
bp_rgOem        equ <[bp_top+8]>  ; bp+48   rgOem
bp_fuOem        equ <[bp_top+12]> ; bp+52   fuOem
bp_lpsi         equ <[bp_top+16]> ; bp+56   lpsi

        APILOG16        ADDPENINPUTHRC, fApiLog16

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #1   rgPnt
        push    eax                     ; handle param #2   rgPnt
        push    eax                     ; ptr param #3   rgOem
        push    eax                     ; ptr param #4   lpsi
;-------------------------------------
; *** BEGIN parameter packing

; rgPnt
; pointer struct POINT --> struct POINT
        cld                             ; esi, edi will increment

; different pointer types
        mov     eax,bp_rgPnt            ; base address
        or      eax,eax
        jz      L0                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     ecx,dword ptr bp_lpsi   ; lpsi
        push    ds
        mov     ds,cs:THUNK16CodeData   
        mov     es, FlatData
        mov     ecx, es:[ecx+0]           ;lpsi->cPnt
        pop     ds

        or      ecx,ecx
        jle     L0                      ; skip if count negative or zero

        mov     ds,cs:THUNK16CodeData           ; LocalAlloc needs this
        mov     esi,eax

        push    ecx                     ; will get trashed by LocalAlloc
        push    byte ptr 0              ; alloc fixed
        lea     eax,[ecx*4]
        push    ax
        call    LocalAlloc
        pop     ecx
        or      ax,ax                   ; did we get a handle?
        jz      L0

        mov     [bp-8],ax               ; save handle
        MYLOCALLOCK     ax
        or      ax,ax                   ; did we get a near pointer?
        jz      L0

        mov     [bp-4],ax
        mov     [bp-2],ds
        movzx   edi,ax
        mov     es,cs:THUNK16CodeData           ; es:edi == destination
        mov     ds,es:FlatData          ; ds:esi == source
L1:
; x
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; y
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

        loop    L1

        mov     ds,cs:THUNK16CodeData           ; es:edi == destination
L0:

; rgOem
; pointer void --> void
; same pointer types
        mov     eax,bp_rgOem            ; base address
        or      eax,eax
        jz      L2                      ; skip if null

        push    eax
; cod3216x.c, 1003
        call    MapLS
        mov     [bp-12],eax
L2:

; lpsi
; pointer struct STROKEINFO --> struct STROKEINFO
        sub     sp,12                   ; lpsi alloc space on stack

; different pointer types
        mov     eax,bp_lpsi             ; base address
        or      eax,eax
        jz      L3                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     [bp-16],sp              ; save offset to buffer
        mov     [bp-14],ss              ; save selector to buffer

        mov     di,ss
        mov     es,di
        movzx   edi,sp                  ; es:edi == destination address

        mov     esi,eax
        mov     ds,cs:THUNK16CodeData           ; need access to FlatData
        mov     ds,FlatData             ; ds:esi == source address
; cPnt
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cbPnts
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; wPdk
; unsigned short --> unsigned short
        movs    word ptr es:[edi],word ptr ds:[esi]     
; dwTick
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

L3:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; hrc  
        push    dword ptr bp_hrc        ; 

; rgPnt  from: struct POINT
        push    dword ptr [bp-4]        ; to: struct POINT

; rgOem  from: void
        push    dword ptr [bp-12]       ; to: void

; fuOem  from: unsigned long
        push    word ptr bp_fuOem       ; to unsigned short

; lpsi  from: struct STROKEINFO
        push    dword ptr [bp-16]       ; to: struct STROKEINFO

        call    AddPenInputHRC          ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
; *** BEGIN parameter unpacking

        push    eax                     ; save return code

; rgPnt
        mov     ax,[bp-4]               ; get pointer
        or      ax,ax
        jz      L4                      ; no pointer, but might have handle

        push    word ptr [bp-8]         ; push handle
        call    LocalUnlock

L4:
        mov     ax,[bp-8]               ; get handle again
        or      ax,ax
        jz      L5

        push    ax
        call    LocalFree

L5:
        pop     eax                     ; restore return code

; *** END   parameter unpacking
        push    eax
        push    dword ptr [bp - 12]
        call    UnmapLS
        pop     eax
;-------------------------------------
;--- If return value == -1, SetLastError(87)
        ERRCHK_EXIT     -1,87,Exit_20
endm; 


;===========================================================================
body_ADDPOINTSPENDATA macro
        local L0, L1, L2, L3, L4, L5
bp_hpndt        equ <[bp_top]>    ; bp+40   hpndt
bp_lppt         equ <[bp_top+4]>  ; bp+44   lppt
bp_lpvOemData   equ <[bp_top+8]>  ; bp+48   lpvOemData
bp_lpsi         equ <[bp_top+12]> ; bp+52   lpsi

        APILOG16        ADDPOINTSPENDATA, fApiLog16

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #1   lppt
        push    eax                     ; handle param #2   lppt
        push    eax                     ; ptr param #3   lpvOemData
        push    eax                     ; ptr param #4   lpsi
;-------------------------------------
; *** BEGIN parameter packing

; lppt
; pointer struct POINT --> struct POINT
        cld                             ; esi, edi will increment

; different pointer types
        mov     eax,bp_lppt             ; base address
        or      eax,eax
        jz      L0                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     ecx,dword ptr bp_lpsi   ; lpsi
        push    ds
        mov     ds,cs:THUNK16CodeData   
        mov     es, FlatData
        mov     ecx, es:[ecx+0]           ;lpsi->cPnt
        pop     ds

        or      ecx,ecx
        jle     L0                      ; skip if count negative or zero

        mov     ds,cs:THUNK16CodeData           ; LocalAlloc needs this
        mov     esi,eax

        push    ecx                     ; will get trashed by LocalAlloc
        push    byte ptr 0              ; alloc fixed
        lea     eax,[ecx*4]
        push    ax
        call    LocalAlloc
        pop     ecx
        or      ax,ax                   ; did we get a handle?
        jz      L0

        mov     [bp-8],ax               ; save handle
        MYLOCALLOCK     ax
        or      ax,ax                   ; did we get a near pointer?
        jz      L0

        mov     [bp-4],ax
        mov     [bp-2],ds
        movzx   edi,ax
        mov     es,cs:THUNK16CodeData           ; es:edi == destination
        mov     ds,es:FlatData          ; ds:esi == source
L1:
; x
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; y
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

        loop    L1

        mov     ds,cs:THUNK16CodeData           ; es:edi == destination
L0:

; lpvOemData
; pointer void --> void
; same pointer types
        mov     eax,bp_lpvOemData               ; base address
        or      eax,eax
        jz      L2                      ; skip if null

        push    eax
; cod3216x.c, 1003
        call    MapLS
        mov     [bp-12],eax
L2:

; lpsi
; pointer struct STROKEINFO --> struct STROKEINFO
        sub     sp,12                   ; lpsi alloc space on stack

; different pointer types
        mov     eax,bp_lpsi             ; base address
        or      eax,eax
        jz      L3                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     [bp-16],sp              ; save offset to buffer
        mov     [bp-14],ss              ; save selector to buffer

        mov     di,ss
        mov     es,di
        movzx   edi,sp                  ; es:edi == destination address

        mov     esi,eax
        mov     ds,cs:THUNK16CodeData           ; need access to FlatData
        mov     ds,FlatData             ; ds:esi == source address
; cPnt
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cbPnts
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; wPdk
; unsigned short --> unsigned short
        movs    word ptr es:[edi],word ptr ds:[esi]     
; dwTick
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

L3:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; hpndt  
        push    word ptr bp_hpndt       ; UINT conversion

; lppt  from: struct POINT
        push    dword ptr [bp-4]        ; to: struct POINT

; lpvOemData  from: void
        push    dword ptr [bp-12]       ; to: void

; lpsi  from: struct STROKEINFO
        push    dword ptr [bp-16]       ; to: struct STROKEINFO

        call    AddPointsPenData        ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
; *** BEGIN parameter unpacking

        push    eax                     ; save return code

; lppt
        mov     ax,[bp-4]               ; get pointer
        or      ax,ax
        jz      L4                      ; no pointer, but might have handle

        push    word ptr [bp-8]         ; push handle
        call    LocalUnlock

L4:
        mov     ax,[bp-8]               ; get handle again
        or      ax,ax
        jz      L5

        push    ax
        call    LocalFree

L5:
        pop     eax                     ; restore return code

; *** END   parameter unpacking
        push    eax
        push    dword ptr [bp - 12]
        call    UnmapLS
        pop     eax
;-------------------------------------
;--- If return value == -1, SetLastError(87)
        ERRCHK_EXIT     -1,87,Exit_16
endm; 


;===========================================================================
body_INSERTPENDATASTROKE macro
        local L0, L1, L2, L3, L4, L5
bp_hpndt        equ <[bp_top]>    ; bp+40   hpndt
bp_iStrk        equ <[bp_top+4]>  ; bp+44   iStrk
bp_lppt         equ <[bp_top+8]>  ; bp+48   lppt
bp_lpvOemData   equ <[bp_top+12]> ; bp+52   lpvOemData
bp_lpsi         equ <[bp_top+16]> ; bp+56   lpsi

        APILOG16        INSERTPENDATASTROKE, fApiLog16

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #1   lppt
        push    eax                     ; handle param #2   lppt
        push    eax                     ; ptr param #3   lpvOemData
        push    eax                     ; ptr param #4   lpsi
;-------------------------------------
; *** BEGIN parameter packing

; lppt
; pointer struct POINT --> struct POINT
        cld                             ; esi, edi will increment

; different pointer types
        mov     eax,bp_lppt             ; base address
        or      eax,eax
        jz      L0                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     ecx,dword ptr bp_lpsi   ; lpsi
        push    ds
        mov     ds,cs:THUNK16CodeData   
        mov     es, FlatData
        mov     ecx, es:[ecx+0]           ;lpsi->cPnt
        pop     ds

        or      ecx,ecx
        jle     L0                      ; skip if count negative or zero

        mov     ds,cs:THUNK16CodeData           ; LocalAlloc needs this
        mov     esi,eax

        push    ecx                     ; will get trashed by LocalAlloc
        push    byte ptr 0              ; alloc fixed
        lea     eax,[ecx*4]
        push    ax
        call    LocalAlloc
        pop     ecx
        or      ax,ax                   ; did we get a handle?
        jz      L0

        mov     [bp-8],ax               ; save handle
        MYLOCALLOCK     ax
        or      ax,ax                   ; did we get a near pointer?
        jz      L0

        mov     [bp-4],ax
        mov     [bp-2],ds
        movzx   edi,ax
        mov     es,cs:THUNK16CodeData           ; es:edi == destination
        mov     ds,es:FlatData          ; ds:esi == source
L1:
; x
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; y
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

        loop    L1

        mov     ds,cs:THUNK16CodeData           ; es:edi == destination
L0:

; lpvOemData
; pointer void --> void
; same pointer types
        mov     eax,bp_lpvOemData               ; base address
        or      eax,eax
        jz      L2                      ; skip if null

        push    eax
; cod3216x.c, 1003
        call    MapLS
        mov     [bp-12],eax
L2:

; lpsi
; pointer struct STROKEINFO --> struct STROKEINFO
        sub     sp,12                   ; lpsi alloc space on stack

; different pointer types
        mov     eax,bp_lpsi             ; base address
        or      eax,eax
        jz      L3                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     [bp-16],sp              ; save offset to buffer
        mov     [bp-14],ss              ; save selector to buffer

        mov     di,ss
        mov     es,di
        movzx   edi,sp                  ; es:edi == destination address

        mov     esi,eax
        mov     ds,cs:THUNK16CodeData           ; need access to FlatData
        mov     ds,FlatData             ; ds:esi == source address
; cPnt
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cbPnts
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; wPdk
; unsigned short --> unsigned short
        movs    word ptr es:[edi],word ptr ds:[esi]     
; dwTick
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

L3:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; hpndt  
        push    word ptr bp_hpndt       ; UINT conversion

; iStrk 
        push    word ptr bp_iStrk     ; UINT conversion

; lppt  from: struct POINT
        push    dword ptr [bp-4]        ; to: struct POINT

; lpvOemData  from: void
        push    dword ptr [bp-12]       ; to: void

; lpsi  from: struct STROKEINFO
        push    dword ptr [bp-16]       ; to: struct STROKEINFO

        call    InsertPenDataStroke     ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
; *** BEGIN parameter unpacking

        push    eax                     ; save return code

; lppt
        mov     ax,[bp-4]               ; get pointer
        or      ax,ax
        jz      L4                      ; no pointer, but might have handle

        push    word ptr [bp-8]         ; push handle
        call    LocalUnlock

L4:
        mov     ax,[bp-8]               ; get handle again
        or      ax,ax
        jz      L5

        push    ax
        call    LocalFree

L5:
        pop     eax                     ; restore return code

; *** END   parameter unpacking
        push    eax
        push    dword ptr [bp - 12]
        call    UnmapLS
        pop     eax
;-------------------------------------
;--- If return value == -1, SetLastError(87)
        ERRCHK_EXIT     -1,87,Exit_20
endm; 

body_GETPENMISCINFO macro
        local   exit, error_exit, L0, L3
        local   anpfnGPI, MAX_ACTION
        local   thk_PMI_BEDIT                   ;1
;        local   thk_PMI_IMECOLOR                ;2
        local   thk_PMI_CXTABLET                ;3
        local   thk_PMI_CYTABLET                ;4
        local   thk_PMI_COUNTRY                 ;5
        local   thk_PMI_PENTIP                  ;6
        local   thk_PMI_LENS                    ;7
        local   thk_PMI_TIMEOUT                 ;8
        local   thk_PMI_TIMEOUTGEST             ;9
        local   thk_PMI_TIMEOUTSEL              ;10
        local   thk_PMI_SYSFLAGS                ;11
        local   thk_PMI_INDEXFROMRGB            ;12
        local   thk_PMI_RGBFROMINDEX            ;13

bp_uParam       equ     <bp_top>
bp_lParam       equ     <bp_top+4>

;BP=SP upon entry

bp_pTmp equ     <dword ptr [bp-4]>

        mov     bx,word ptr bp_uParam
        cmp     bx,MAX_ACTION
        ja      error_exit

        add     bx,bx
        jmp     word ptr cs:anpfnGPI[bx]

anpfnGPI        label   word
        dw      offset error_exit                      
        dw      offset thk_PMI_BEDIT            ;1
;        dw      offset thk_PMI_IMECOLOR         ;2       
        dw      offset thk_PMI_CXTABLET         ;3       
        dw      offset thk_PMI_CYTABLET         ;4       
        dw      offset thk_PMI_COUNTRY          ;5       
        dw      offset thk_PMI_PENTIP           ;6       
        dw      offset thk_PMI_LENS             ;7       
        dw      offset thk_PMI_TIMEOUT          ;8       
        dw      offset thk_PMI_TIMEOUTGEST      ;9       
        dw      offset thk_PMI_TIMEOUTSEL       ;10       
        dw      offset thk_PMI_SYSFLAGS         ;11       
        dw      offset thk_PMI_INDEXFROMRGB     ;12       
        dw      offset thk_PMI_RGBFROMINDEX     ;13       
MAX_ACTION equ ($ - anpfnGPI)/2

error_exit:
        sub     eax,eax
        jmp     exit

;-----------------------------------------------------------------------;
; uParam = UINT
; lParam = LPUINT
;-----------------------------------------------------------------------;
thk_PMI_COUNTRY:
thk_PMI_CXTABLET:
thk_PMI_CYTABLET:
thk_PMI_LENS:
thk_PMI_SYSFLAGS:
thk_PMI_TIMEOUT:
thk_PMI_TIMEOUTGEST:
thk_PMI_TIMEOUTSEL:


        push    byte ptr 0              ;reserve and init local var
        mov     ax,sp                   ;save addr of local var

        push    word ptr bp_uParam
        mov     esi,bp_lParam
        or      esi,esi
        jz      error_exit

        push    ss
        push    ax

        call    GetPenMiscInfo
        cwde
        pop     cx                      ;recover local var value, clean stack

        mov     es,FlatData
        movzx   ecx,cx
        mov     es:[esi],ecx
        jmp     exit

;-----------------------------------------------------------------------;
; uParam = INT
; lParam = LPSTR
;-----------------------------------------------------------------------;
thk_PMI_PENTIP:
thk_PMI_RGBFROMINDEX:
thk_PMI_INDEXFROMRGB:
        push    word ptr bp_uParam
        push    dword ptr bp_lParam
        call    MapLS
        mov     dword ptr bp_lParam,eax
        push    eax
        call    GetPenMiscInfo
        cwde

        push    eax
        push    dword ptr bp_lParam
        call    UnmapLS
        pop     eax

        jmp     exit

thk_PMI_BEDIT:
;-----------------------------------------------------------------------;
; uParam = INT
; lParam = LPBOXEDITINFO
;-----------------------------------------------------------------------;

; bp+40   lpb

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #1   lpb
;-------------------------------------
; *** BEGIN parameter packing

; lpb
; pointer struct BOXEDITINFO --> struct BOXEDITINFO
        sub     sp,84                   ; lpb alloc space on stack

; different pointer types
        mov     eax,[bp+40]             ; base address
        or      eax,eax
        jz      L0                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     [bp-4],sp               ; save offset to buffer
        mov     [bp-2],ss               ; save selector to buffer

L0:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; lpb  from: struct BOXEDITINFO
        push    dword ptr [bp-4]        ; to: struct BOXEDITINFO

        call    GetPenMiscInfo          ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
; *** BEGIN parameter unpacking

        push    eax                     ; save return code

        cld                             ; esi, edi will increment

; lpb
; pointer struct BOXEDITINFO --> struct BOXEDITINFO
        mov     eax,[bp+40]             ; base address
        or      eax,eax
        jz      L3                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     es,cs:THUNK16CodeData
        mov     es,es:FlatData
        mov     edi,eax                 ; es:edi == destination address
        mov     si,ss
        mov     ds,si
        movzx   esi,word ptr [bp-4]             ; ds:esi == source address

; cxBox
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; cyBox
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; cxBase
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; cyBase
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; cyMid
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; box
; struct BOXLAYOUT --> struct BOXLAYOUT
; cyCusp
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; cyEndCusp
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; style
; unsigned short --> unsigned long
        xor     eax,eax
        lods    word ptr ds:[esi]       
        stos    dword ptr es:[edi]      

; dwReserved1
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

; dwReserved2
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

; dwReserved3
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

; wFlags
; unsigned short --> unsigned short
        movs    word ptr es:[edi],word ptr ds:[esi]     
; szFaceName
; unsigned char[32] --> unsigned char[32]
        mov     ecx,8
        rep     movs    dword ptr es:[edi],dword ptr ds:[esi]   

; wFontHeight
; unsigned short --> unsigned long
        xor     eax,eax
        lods    word ptr ds:[esi]       
        stos    dword ptr es:[edi]      

; rgwReserved
; unsigned char[16] --> unsigned char[16]
        mov     ecx,4
        rep     movs    dword ptr es:[edi],dword ptr ds:[esi]   

L3:
        pop     eax                     ; restore return code

; *** END   parameter unpacking
;-------------------------------------
;--- No error checking.
        jmp     exit

exit:
        mov     sp,bp
endm


body_SETPENMISCINFO macro
        local   exit, error_exit, L0
        local   anpfnGPI, MAX_ACTION
        local   thk_PMI_BEDIT                   ;1
;        local   thk_PMI_IMECOLOR                ;2
        local   thk_PMI_CXTABLET                ;3
        local   thk_PMI_CYTABLET                ;4
        local   thk_PMI_COUNTRY                 ;5
        local   thk_PMI_PENTIP                  ;6
        local   thk_PMI_LENS                    ;7
        local   thk_PMI_TIMEOUT                 ;8
        local   thk_PMI_TIMEOUTGEST             ;9
        local   thk_PMI_TIMEOUTSEL              ;10
        local   thk_PMI_SYSFLAGS                ;11
        local   thk_PMI_INDEXFROMRGB            ;12
        local   thk_PMI_RGBFROMINDEX            ;13

bp_uParam       equ     <bp_top>
bp_lParam       equ     <bp_top+4>

;BP=SP upon entry

bp_pTmp equ     <dword ptr [bp-4]>

        mov     bx,word ptr bp_uParam
        cmp     bx,MAX_ACTION
        ja      error_exit

        add     bx,bx
        jmp     word ptr cs:anpfnGPI[bx]

anpfnGPI        label   word
        dw      offset error_exit                      
        dw      offset thk_PMI_BEDIT            ;1
        dw      offset error_exit               ;2 Deal with IME_COLOR later
;       dw      offset thk_PMI_IMECOLOR         ;2       
        dw      offset thk_PMI_CXTABLET         ;3       
        dw      offset thk_PMI_CYTABLET         ;4       
        dw      offset thk_PMI_COUNTRY          ;5       
        dw      offset thk_PMI_PENTIP           ;6       
        dw      offset thk_PMI_LENS             ;7       
        dw      offset thk_PMI_TIMEOUT          ;8       
        dw      offset thk_PMI_TIMEOUTGEST      ;9       
        dw      offset thk_PMI_TIMEOUTSEL       ;10       
        dw      offset thk_PMI_SYSFLAGS         ;11       
        dw      offset thk_PMI_INDEXFROMRGB     ;12       
        dw      offset thk_PMI_RGBFROMINDEX     ;13       
MAX_ACTION equ ($ - anpfnGPI)/2

error_exit:
        sub     eax,eax
        jmp     exit

;-----------------------------------------------------------------------;
; uParam = UINT
; lParam = LPUINT
;-----------------------------------------------------------------------;
thk_PMI_COUNTRY:
thk_PMI_CXTABLET:
thk_PMI_CYTABLET:
thk_PMI_LENS:
thk_PMI_SYSFLAGS:
thk_PMI_TIMEOUT:
thk_PMI_TIMEOUTGEST:
thk_PMI_TIMEOUTSEL:
thk_PMI_RGBFROMINDEX:
thk_PMI_INDEXFROMRGB:
        mov     eax, bp_lparam
        or      eax,eax
        jz      error_exit
        push    word ptr bp_uParam
        push    eax
        call    SetPenMiscInfo
        cwde
        jmp     exit

;-----------------------------------------------------------------------;
; uParam = INT
; lParam = PENTIP
;-----------------------------------------------------------------------;
thk_PMI_PENTIP:
        push    word ptr bp_uParam
        push    dword ptr bp_lParam
        call    MapLS
        mov     dword ptr bp_lParam,eax
        push    eax
        call    SetPenMiscInfo
        cwde

        push    eax
        push    dword ptr bp_lParam
        call    UnmapLS
        pop     eax

        jmp     exit

thk_PMI_BEDIT:
;-----------------------------------------------------------------------;
; uParam = INT
; lParam = LPBOXEDITINFO
;-----------------------------------------------------------------------;
;===========================================================================

; bp+40   lpb

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #1   lpb
;-------------------------------------
; *** BEGIN parameter packing

; lpb
; pointer struct BOXEDITINFO --> struct BOXEDITINFO
        cld                             ; esi, edi will increment

        sub     sp,84                   ; lpb alloc space on stack

; different pointer types
        mov     eax,[bp+40]             ; base address
        or      eax,eax
        jz      L0                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     [bp-4],sp               ; save offset to buffer
        mov     [bp-2],ss               ; save selector to buffer

        mov     di,ss
        mov     es,di
        movzx   edi,sp                  ; es:edi == destination address

        mov     esi,eax
        mov     ds,cs:THUNK16CodeData           ; need access to FlatData
        mov     ds,FlatData             ; ds:esi == source address
; cxBox
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cyBox
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cxBase
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cyBase
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cyMid
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; box
; struct BOXLAYOUT --> struct BOXLAYOUT
; cyCusp
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cyEndCusp
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; style
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; dwReserved1
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

; dwReserved2
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

; dwReserved3
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

; wFlags
; unsigned short --> unsigned short
        movs    word ptr es:[edi],word ptr ds:[esi]     
; szFaceName
; unsigned char[32] --> unsigned char[32]
        mov     ecx,8
        rep     movs    dword ptr es:[edi],dword ptr ds:[esi]   

; wFontHeight
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; rgwReserved
; unsigned char[16] --> unsigned char[16]
        mov     ecx,4
        rep     movs    dword ptr es:[edi],dword ptr ds:[esi]   

L0:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; lpb  from: struct BOXEDITINFO
        push    dword ptr [bp-4]        ; to: struct BOXEDITINFO

        call    SetPenMiscInfo          ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
;--- No error checking.
        jmp     exit
exit:
        mov     sp,bp
endm

;===========================================================================
body_TARGETPOINTS macro
        local L0, L01, L1, L2, L3, L4, L5
bp_lpTarg       equ <[bp_top]>    ; bp+40   lpTarg
bp_rgPnt        equ <[bp_top+4]>  ; bp+44   rgPnt
bp_rgOem        equ <[bp_top+8]>  ; bp+48   rgOem
bp_fuOem        equ <[bp_top+12]> ; bp+52   fuOem
bp_lpsi         equ <[bp_top+16]> ; bp+56   lpsi

        APILOG16        TARGETPOINTS, fApiLog16

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #2   rgPnt
        push    eax                     ; handle param #2   rgPnt
        push    eax                     ; ptr param #3   rgOem
        push    eax                     ; ptr param #4   lpsi
        push    eax                     ; ptr param #1 lpTarg
;-------------------------------------
; *** BEGIN parameter packing

; rgPnt
; pointer struct POINT --> struct POINT
        cld                             ; esi, edi will increment

; different pointer types
        mov     eax,bp_rgPnt            ; base address
        or      eax,eax
        jz      L0                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     ecx,dword ptr bp_lpsi   ; lpsi
        push    ds
        mov     ds,cs:THUNK16CodeData   
        mov     es, FlatData
        mov     ecx, es:[ecx+0]           ;lpsi->cPnt
        pop     ds

        or      ecx,ecx
        jle     L0                      ; skip if count negative or zero

        mov     ds,cs:THUNK16CodeData           ; LocalAlloc needs this
        mov     esi,eax

        push    ecx                     ; will get trashed by LocalAlloc
        push    byte ptr 0              ; alloc fixed
        lea     eax,[ecx*4]
        push    ax
        call    LocalAlloc
        pop     ecx
        or      ax,ax                   ; did we get a handle?
        jz      L0

        mov     [bp-8],ax               ; save handle
        MYLOCALLOCK     ax
        or      ax,ax                   ; did we get a near pointer?
        jz      L0

        mov     [bp-4],ax
        mov     [bp-2],ds
        movzx   edi,ax
        mov     es,cs:THUNK16CodeData           ; es:edi == destination
        mov     ds,es:FlatData          ; ds:esi == source
L1:
; x
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; y
; long --> short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

        loop    L1

        mov     ds,cs:THUNK16CodeData           ; es:edi == destination
L0:

; lpTarg
; pointer void --> void
; same pointer types
        mov     eax,bp_lpTarg           ; base address
        or      eax,eax
        jz      L01                     ; skip if null

        push    eax
; cod3216x.c, 1003
        call    MapLS
        mov     [bp-20],eax

L01:
; rgOem
; pointer void --> void
; same pointer types
        mov     eax,bp_rgOem            ; base address
        or      eax,eax
        jz      L2                      ; skip if null

        push    eax
; cod3216x.c, 1003
        call    MapLS
        mov     [bp-12],eax

L2:

; lpsi
; pointer struct STROKEINFO --> struct STROKEINFO
        sub     sp,12                   ; lpsi alloc space on stack

; different pointer types
        mov     eax,bp_lpsi             ; base address
        or      eax,eax
        jz      L3                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     [bp-16],sp              ; save offset to buffer
        mov     [bp-14],ss              ; save selector to buffer

        mov     di,ss
        mov     es,di
        movzx   edi,sp                  ; es:edi == destination address

        mov     esi,eax
        mov     ds,cs:THUNK16CodeData           ; need access to FlatData
        mov     ds,FlatData             ; ds:esi == source address
; cPnt
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; cbPnts
; unsigned long --> unsigned short
        lods    dword ptr ds:[esi]      
        stos    word ptr es:[edi]       

; wPdk
; unsigned short --> unsigned short
        movs    word ptr es:[edi],word ptr ds:[esi]     
; dwTick
; unsigned long --> unsigned long
        movs    dword ptr es:[edi],dword ptr ds:[esi]   ; no conversion

L3:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; lpTarg  
        push    dword ptr [bp-20]       ; 

; rgPnt  from: struct POINT
        push    dword ptr [bp-4]        ; to: struct POINT

; rgOem  from: void
        push    dword ptr [bp-12]       ; to: void

; fuOem  from: unsigned long
        push    word ptr bp_fuOem       ; to unsigned short

; lpsi  from: struct STROKEINFO
        push    dword ptr [bp-16]       ; to: struct STROKEINFO

        call    TargetPoints            ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
; *** BEGIN parameter unpacking

        push    eax                     ; save return code

; rgPnt
        mov     ax,[bp-4]               ; get pointer
        or      ax,ax
        jz      L4                      ; no pointer, but might have handle

        push    word ptr [bp-8]         ; push handle
        call    LocalUnlock

L4:
        mov     ax,[bp-8]               ; get handle again
        or      ax,ax
        jz      L5

        push    ax
        call    LocalFree

L5:
        pop     eax                     ; restore return code

; *** END   parameter unpacking
        push    eax
        push    dword ptr [bp - 12]
        call    UnmapLS

        push    dword ptr [bp - 20]     ; lpTarg
        call    UnmapLS
        pop     eax
;-------------------------------------
;--- If return value == -1, SetLastError(87)
        ERRCHK_EXIT     -2,87,Exit_20
endm; 

;===========================================================================
body_GETHOTSPOTSHRCRESULT macro
        local L8, L9, L10, L11, L12, L13, L14
bp_hresult      equ     <[bp_top]>      ; bp+40   hresult
bp_iSyv         equ     <[bp_top+4]>    ; bp+44   iSyv
bp_rgPnt        equ     <[bp_top+8]>    ; bp+48   rgPnt
bp_lphrgnArea   equ     <[bp_top+12]>    ; bp+52   lphrgnArea

        APILOG16        GETHOTSPOTSHRCRESULT, fApiLog16

;-------------------------------------
; Temp storage

        xor     eax,eax
        push    eax                     ; ptr param #1   rgPnt
        push    eax                     ; handle param #2   rgPnt
        push    eax                     ; ptr param #3   lphrgnArea
;-------------------------------------
; *** BEGIN parameter packing

; rgPnt
; pointer struct POINT --> struct POINT
; different pointer types
        mov     eax,bp_rgPnt            ; base address
        or      eax,eax
        jz      L8                      ; skip if null


; structures are not identical
; structures don't have pointers

        mov     ecx,MAXHOTSPOT
        mov     ds,cs:THUNK16CodeData           ; LocalAlloc needs this
        push    ecx                     ; will get trashed by LocalAlloc
        push    byte ptr 0              ; alloc fixed
        lea     eax,[ecx*4]
        push    ax
        call    LocalAlloc
        pop     ecx
        or      ax,ax                   ; did we get a handle?
        jz      L8

        mov     [bp-8],ax               ; save handle
        MYLOCALLOCK     ax
        or      ax,ax                   ; did we get a pointer?
        jz      L8

        mov     [bp-4],ax
        mov     [bp-2],ds
L8:

; lphrgnArea
; pointer unsigned long --> unsigned short
; different pointer types
        mov     eax,bp_lphrgnArea               ; base address
        or      eax,eax
        jz      L9                      ; skip if null

        push    eax
        call    MapLS
        mov     [bp-12],eax
L9:

; *** END   parameter packing
;-------------------------------------
; create new call frame and make the call

; hresult  from: unsigned long
        push    dword ptr bp_hresult    ; to unsigned long

; iSyv  from: unsigned long
        push    word ptr bp_iSyv        ; to unsigned short

; rgPnt  from: struct POINT
        push    dword ptr [bp-4]        ; to: struct POINT

; lphrgnArea  from: unsigned long
        push    dword ptr [bp-12]       ; to: unsigned short

        call    GetHotspotsHRCRESULT            ; call 16-bit version

; return code short --> long
        cwde
;-------------------------------------
; *** BEGIN parameter unpacking

        mov     ecx,eax                 ; get the return count 
        push    eax                     ; save return code

        cld                             ; esi, edi will increment

; rgPnt
; pointer struct POINT --> struct POINT
        mov     eax,bp_rgPnt            ; base address
        or      eax,eax
        jz      L12                     ; skip if null


; structures are not identical
; structures don't have pointers

        or      ecx,ecx                 
        jle     L12                     ; skip if count negative or zero

        mov     edi,eax

        movzx   esi,word ptr [bp-4]
        or      si,si
        jz      L10
        mov     ds,cs:THUNK16CodeData           ; ds:esi = src
        mov     es,FlatData             ; es:edi = dst
L13:
; x
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

; y
; short --> long
        lods    word ptr ds:[esi]       
        cwde
        stos    dword ptr es:[edi]      

        loop    L13

; rgPnt
L10:
        mov     ax,[bp-4]               ; get pointer
        or      ax,ax
        jz      L11                     ; no pointer, but might have handle

        push    word ptr [bp-8]         ; push handle
        call    LocalUnlock

L11:
        mov     ax,[bp-8]               ; get handle again
        or      ax,ax
        jz      L14

        push    ax
        call    LocalFree

L14:
L12:
        pop     eax                     ; restore return code

; *** END   parameter unpacking
        push    eax
        push    dword ptr [bp - 12]
        call    UnmapLS
        pop     eax
;-------------------------------------
;--- No error checking.
        jmp     Exit_16

endm;