|
|
;-------------------------------; CVT.INC MUST BE INCLUDED FIRST;-------------------------------
include cvt.inc
;==============================================================================; repack TEXTMETRIC from 32-bit to 16-bit;;==============================================================================PACK_TEXTMETRIC_32_16 macro fEmbedded
lodsd ;tmHeight stosw
lodsd ;tmAscent stosw
lodsd ;tmDescent stosw
lodsd ;tmInternalLeading stosw
lodsd ;tmExternalLeading stosw
lodsd ;tmAveCharWidth stosw
lodsd ;tmMaxCharWidth stosw
lodsd ;tmWeight stosw
add esi,(4+4+4)
;32-bit order --> 16-bit order;--------------------------------------;tmFirstChar tmItalic;tmLastChar tmUnderlined;tmDefaultChar tmStruckOut;tmBreakChar tmFirstChar;tmItalic tmLastChar;tmUnderlined tmDefaultChar;tmStruckOut tmBreakChar;tmPitchAndFamily tmPitchAndFamily;tmCharSet tmCharSet
mov eax,[esi+4] stosd ;;only three bytes valid dec edi mov eax,[esi+0] stosd mov ax,[esi+7] stosw
sub esi,(4+4+4)
lodsd ;tmOverhang stosw
lodsd ;tmDigitizedAspectX stosw
lodsd ;tmDigitizedAspectY stosw
ifnb <fEmbedded>;;Keep esi in sync since this macro is embedded in another. add esi,9 endifendm
;==============================================================================; repack TEXTMETRIC from 16-bit to 32-bit;;==============================================================================PACK_TEXTMETRIC_16_32 macro fEmbedded lodsw ;tmHeight cwde stos dword ptr es:[edi]
lodsw ;tmAscent cwde stos dword ptr es:[edi]
lodsw ;tmDescent cwde stos dword ptr es:[edi]
lodsw ;tmInternalLeading cwde stos dword ptr es:[edi]
lodsw ;tmExternalLeading cwde stos dword ptr es:[edi]
lodsw ;tmAveCharWidth cwde stos dword ptr es:[edi]
lodsw ;tmMaxCharWidth cwde stos dword ptr es:[edi]
lodsw ;tmWeight cwde stos dword ptr es:[edi]
add esi,9
lodsw ;tmOverhang cwde stos dword ptr es:[edi]
lodsw ;tmDigitizedAspectX cwde stos dword ptr es:[edi]
lodsw ;tmDigitizedAspectY cwde stos dword ptr es:[edi]
sub esi,(2+2+2+9)
;16-bit order --> 32-bit order;--------------------------------------;tmItalic tmFirstChar;tmUnderlined tmLastChar;tmStruckOut tmDefaultChar;tmFirstChar tmBreakChar;tmLastChar tmItalic;tmDefaultChar tmUnderlined;tmBreakChar tmStruckOut;tmPitchAndFamily tmPitchAndFamily;tmCharSet tmCharSet
mov eax,[esi+3] ;First Last Default Break-char stos dword ptr es:[edi] mov eax,[esi+0] ; stos dword ptr es:[edi] ;Italic Underlined StruckOut dec edi ; mov ax,[esi+7] stos word ptr es:[edi] ;Pitch CharSet
ifnb <fEmbedded>;;Keep esi in sync since this macro is embedded in another. add esi,(2+2+2+9) endifendm
;==============================================================================;==============================================================================PACK_POINT_16_32 macro ncopysx 2endm
;==============================================================================;==============================================================================PACK_RECT_32_16 macro ncopyt 4endm
PACK_RECT_16_32 macro ncopysx 4endm
;==============================================================================;==============================================================================PACK_PANOSE_16_32 macro;copy ten bytes;;;; sub eax,eax;;;; stos dword ptr es:[edi] ;!!! kirko says this will disappear
lodsd stos dword ptr es:[edi] lodsd stos dword ptr es:[edi] lodsw stos word ptr es:[edi]endm
;==============================================================================; repack OUTLINETEXTMETRIC from 16-bit to 32-bit;; Requirements:; DS:ESI --> source (16-bit); ES:EDI --> dest (32-bit);==============================================================================
OUTLINETEXTMETRIC16_SIZE equ 114OUTLINETEXTMETRIC32_SIZE equ 212
PACK_OUTLINETEXTMETRIC_16_32 macro
COPY_STRING macro local loop_top loop_top: lodsb stos byte ptr es:[edi] or al,al jnz loop_top endm
COPY_OTM_STRING macro last mov cx,si ;;save source ptr into struct mov si,[si] ;;get offset to chars add si,bx ;;add in base COPY_STRING ;;copy characters mov si,cx ;;restore source ptr into struct ifb <last> add si,2 ;;next offset in struct endif endm
COPY_ADJUSTED_OFFSET macro lodsw movzx eax,ax add eax,OUTLINETEXTMETRIC32_SIZE - OUTLINETEXTMETRIC16_SIZE stos dword ptr es:[edi] endm
mov bx,si ;;save copy for strings at end
COPY_ADJUSTED_OFFSET ;otmSize
PACK_TEXTMETRIC_16_32 embedded ;otmTextMetrics
lodsb ;otmFiller stosb es:[edi] ;
add edi, 3 ;DWORD align otmPanoseNumber
PACK_PANOSE_16_32 ;otmPanoseNumber
add edi, 1 ;DWORD align otmfsSelection
UMAP_WORDTODWORD ;otmfsSelection; UMAP_WORDTODWORD ;otmfsType; UMAP_WORDTODWORD ;otmsCharSlopeRise; UMAP_WORDTODWORD ;otmsCharSlopeRun; UMAP_INTTOLONG ;otmItalicAngle; UMAP_WORDTODWORD ;otmEMSquare; UMAP_WORDTODWORD ;otmAscent; UMAP_INTTOLONG ;otmDescent; UMAP_INTTOLONG ;otmLineGap; UMAP_WORDTODWORD ;otmXHeight; UMAP_WORDTODWORD ;otmCapEmHeight; PACK_RECT_16_32 ;otmrcFontBox; UMAP_INTTOLONG ;otmMacAscent; UMAP_INTTOLONG ;otmMacDescent; UMAP_WORDTODWORD ;otmMacLineGap; UMAP_WORDTODWORD ;otmusMinimumPPEM; PACK_POINT_16_32 ;otmptSubscriptSize; PACK_POINT_16_32 ;otmptSubscriptOffset; PACK_POINT_16_32 ;otmptSuperscriptSize; PACK_POINT_16_32 ;otmptSuperscriptOffset; UMAP_WORDTODWORD ;otmsStrikeoutSize; UMAP_INTTOLONG ;otmsStrikeoutPosition;
; Need to flip otmUnderscorePosition and otmUnderscoreSize
movzx eax, word ptr [si+2] ; otmUnderscoreSize stosd es:[edi] ; movsx eax, word ptr [si] ; otmUnderscorePosition stosd es:[edi] ; add si, 4 ;
COPY_ADJUSTED_OFFSET ;otmpFamilyName; COPY_ADJUSTED_OFFSET ;otmpFaceName; COPY_ADJUSTED_OFFSET ;otmpStyleName; COPY_ADJUSTED_OFFSET ;otmpFullName;
;;Rewind source to first of string offsets sub si,2*4
COPY_OTM_STRING COPY_OTM_STRING COPY_OTM_STRING COPY_OTM_STRING last
purge COPY_STRING purge COPY_OTM_STRING purge COPY_ADJUSTED_OFFSETendm
;==============================================================================; repack NEWTEXTMETRIC from 16-bit to 32-bit;;==============================================================================PACK_NEWTEXTMETRIC_16_32 macro PACK_TEXTMETRIC_16_32 embedded
add edi,3 ;padding bytes
lodsd ;ntmFlags stos dword ptr es:[edi]
sub eax,eax
lodsw ;ntmSizeEM stos dword ptr es:[edi]
lodsw ;ntmCellHeight stos dword ptr es:[edi]
lodsw ;ntmAvgWidth stos dword ptr es:[edi]endm
;==============================================================================; repack LOGFONT from 32-bit to 16-bit;;==============================================================================PACK_LOGFONT_32_16 macro lodsd ;lfHeight stosw lodsd ;lfWidth stosw lodsd ;lfEscapement stosw lodsd ;lfOrientation stosw lodsd ;lfWeight stosw
;These are all BYTE fields:;lfItalic;lfUnderline;lfStrikeOut;lfCharSet;lfOutPrecision;lfClipPrecision;lfQuality;lfPitchAndFamily;lfFaceName[32]
mov ecx,40/4 rep movsdendm
;==============================================================================; repack LOGFONT from 16-bit to 32-bit;;==============================================================================PACK_LOGFONT_16_32 macro lodsw ;lfHeight cwde stosd lodsw ;lfWidth cwde stosd lodsw ;lfEscapement cwde stosd lodsw ;lfOrientation cwde stosd lodsw ;lfWeight cwde stosd
;These are all BYTE fields:;lfItalic;lfUnderline;lfStrikeOut;lfCharSet;lfOutPrecision;lfClipPrecision;lfQuality;lfPitchAndFamily;lfFaceName[32]
mov ecx,40/4 rep movsdendm
;==============================================================================; Convert MLOGFONT 32->16;;==============================================================================PACK_MLOGFONT_32_16 macro ncopyt 5 ncopyd 40/4endm
;==============================================================================; Convert MLOGFONT 16->32;;==============================================================================PACK_MLOGFONT_16_32 macro ncopysx 5 ncopyd 40/4endm
;==============================================================================; repack ENUMLOGFONT from 16-bit to 32-bit;;==============================================================================PACK_ENUMLOGFONT_16_32 macro lodsw ;lfHeight cwde stos dword ptr es:[edi] lodsw ;lfWidth cwde stos dword ptr es:[edi] lodsw ;lfEscapement cwde stos dword ptr es:[edi] lodsw ;lfOrientation cwde stos dword ptr es:[edi] lodsw ;lfWeight cwde stos dword ptr es:[edi]
;These are all BYTE fields:;lfItalic;lfUnderline;lfStrikeOut;lfCharSet;lfOutPrecision;lfClipPrecision;lfQuality;lfPitchAndFamily;lfFaceName[32];elfFullName[64];elfStyle[32]
mov ecx,136/4 rep movs dword ptr es:[edi],dword ptr ds:[esi]endm
;==============================================================================; repack BITMAP from 32-bit to 16-bit;;==============================================================================PACK_BITMAP_32_16 macro lodsd ;bmType stosw
lodsd ;bmWidth stosw
lodsd ;bmHeight stosw
lodsd ;bmWidthBytes stosw
lodsw ;bmPlanes stosb
lodsw ;bmBitsPixel stosb
movsd ;bmBitsendm
;-----------------------------------------------------------------------;; Printer api thunk stuff;-----------------------------------------------------------------------;DEVMODECOMMON struc dmDeviceName db 32 dup (?) dmSpecVersion dw ? dmDriverVersion dw ? dmSize dw ? dmDriverExtra dw ? dmFields dd ? dmOrientation dw ? dmPaperSize dw ? dmPaperLength dw ? dmPaperWidth dw ? dmScale dw ? dmCopies dw ? dmDefaultSource dw ? dmPrintQuality dw ? dmColor dw ? dmDuplex dw ? dmYResolution dw ? dmTTOption dw ?DEVMODECOMMON ends
DEVMODE16 struc dmCommon db size DEVMODECOMMON dup (?)DEVMODE16 ends
DEVMODE32 struc dmCommon db size DEVMODECOMMON dup (?) dmCollate dw ? dmFormName db 32 dup (?) dmUnusedPadding dw ? dmBitsPerPel dw ? dmPelsWidth dd ? dmPelsHeight dd ? dmDisplayMode dd ?DEVMODE32 ends
;-----------------------------------------------------------------------;; REPACK_DEVMODE_32_16;; Entry:; DS:ESI --> 32-bit source (ESI might be flat offset); ES:EDI --> 16-bit destination (EDI is zero-extended from DI); direction flag cleared;-----------------------------------------------------------------------;REPACK_DEVMODE_32_16 macro local done
;Move the common part as a single block move. MoveBytes <(size DEVMODECOMMON)>
;Update the dmSize field mov es:[di].(dmSize - (size DEVMODECOMMON)),size DEVMODE16
;!!!Clear out any win32-only flags ;and es:[di].(dmFields - (size DEVMODECOMMON)),0FFFFh
;Insert win16-only fields. EDI points to the byte after ;DEVMODECOMMON. Afterwards, will point to byte after DEVMODE16. ;ZeroBytes <((size DEVMODE16) - (size DEVMODECOMMON))>
;Skip over the extra win32 fields. ESI still points to the byte ;after DEVMODECOMMON. add esi,(size DEVMODE32) - (size DEVMODECOMMON)
;Move the driver-dependent part. EDI points to the byte after ;DEVMODE16. mov cx,es:[di].(dmDriverExtra - (size DEVMODE16)) jcxz done
movzx ecx,cx mov edx,ecx shr cx,2 and dx,3 rep movs dword ptr es:[edi],dword ptr ds:[esi] mov cx,dx rep movs byte ptr es:[edi],byte ptr ds:[esi]done:endm
;-----------------------------------------------------------------------;; REPACK_DEVMODE_16_32;; Entry:; DS:ESI --> 16-bit destination (ESI is zero-extended from SI); ES:EDI --> 32-bit source (EDI might be flat offset); direction flag cleared;-----------------------------------------------------------------------;REPACK_DEVMODE_16_32 macro local done
;Move the common part as a single block move. MoveBytes <(size DEVMODECOMMON)>
;Update the dmSize field mov es:[edi].(dmSize - (size DEVMODECOMMON)),size DEVMODE32
;Insert the win32-only fields (advances EDI to end of DEVMODE32) ZeroBytes <((size DEVMODE32) - (size DEVMODECOMMON))>
;Move the driver-dependent part. SI points to the byte after ;DEVMODECOMMON. movzx ecx,[si].(dmDriverExtra - (size DEVMODECOMMON)) jcxz done
mov edx,ecx shr cx,2 and dx,3 rep movs dword ptr es:[edi],dword ptr ds:[esi] mov cx,dx rep movs byte ptr es:[edi],byte ptr ds:[esi]done:endm
OLETARGETDEVICE16 strucotd16DeviceNameOffset dw ?otd16DriverNameOffset dw ?otd16PortNameOffset dw ?otd16ExtDevmodeOffset dw ?otd16ExtDevmodeSize dw ?otd16EnvironmentOffset dw ?otd16EnvironmentSize dw ?;otd16Data[1] db 1 dup (?)OLETARGETDEVICE16 ends
OLETARGETDEVICE32 strucotd32DeviceNameOffset dd ?otd32DriverNameOffset dd ?otd32PortNameOffset dd ?otd32ExtDevmodeOffset dd ?otd32ExtDevmodeSize dd ?otd32EnvironmentOffset dd ?otd32EnvironmentSize dd ?;otd32Data[1] db 1 dup (?)OLETARGETDEVICE32 ends
;-----------------------------------------------------------------------;; REPACK_OLETARGETDEVICE_32_16;; Entry:; DS:ESI --> 32-bit source (ESI might be flat offset); ES:EDI --> 16-bit destination (EDI is zero-extended from DI); direction flag cleared;-----------------------------------------------------------------------;REPACK_OLETARGETDEVICE_32_16 macro
; Entry:; DS:ESI --> 32-bit source (ESI might be flat offset); ES:EDI --> 16-bit destination (EDI is zero-extended from DI); ES:BX --> 16-bit structure base; direction flag cleared;; Exit:; DS:ESI preserved; ES:EDI updated; ES:BX preserved
MOVE_STRING macro foo local loop_top
push esi ;save original source
add esi,[esi].otd32&foo&Offset add esi,size OLETARGETDEVICE32
mov ax,di ;current offset sub ax,bx ;offset from base sub ax,size OLETARGETDEVICE16 ;offsets start from end mov es:[bx].otd16&foo&Offset,ax ;store new offset
loop_top: mov al,[esi] mov es:[di],al inc esi inc di or al,al jnz loop_top
pop esiendm
; Entry:; DS:ESI --> 32-bit source (ESI might be flat offset); ES:EDI --> 16-bit destination (EDI is zero-extended from DI); ES:BX --> 16-bit structure base; direction flag cleared;; Exit:; DS:ESI preserved; ES:EDI updated; ES:BX preserved
MOVE_DEVMODE macro foo local exit, empty_fields
mov eax,[esi].otd32&foo&Size or eax,eax jz empty_fields
push esi ;save original source push bx ;base pointer
add esi,[esi].otd32&foo&Offset add esi,size OLETARGETDEVICE32
mov ax,di ;current offset sub ax,bx ;offset from base sub ax,size OLETARGETDEVICE16 ;offsets start from end mov es:[bx].otd16&foo&Offset,ax ;store new offset
REPACK_DEVMODE_32_16
pop bx ;restore base pointer pop esi
mov ax,di sub ax,es:[bx].otd16&foo&Offset mov es:[bx].otd16&foo&Size,ax ;store new size jmp short exit
empty_fields: mov es:[bx].otd16&foo&Offset,ax ;store null offset mov es:[bx].otd16&foo&Size,ax ;store null size
exit:endm
mov bx,di add di,size OLETARGETDEVICE16 ;put first string here
MOVE_STRING DeviceName MOVE_STRING DriverName MOVE_STRING PortName MOVE_DEVMODE ExtDevmode MOVE_DEVMODE Environment
purge MOVE_STRING purge MOVE_DEVMODEendm
;-----------------------------------------------------------------------;; REPACK_OLETARGETDEVICE_16_32;; Entry:; DS:ESI --> 16-bit source (ESI is zero-extended from SI); ES:EDI --> 32-bit destination (EDI might be flat offset); direction flag cleared;-----------------------------------------------------------------------;REPACK_OLETARGETDEVICE_16_32 macro
; Entry:; DS:ESI --> 16-bit source (ESI is zero-extended from DI); ES:EDI --> 32-bit destination (EDI might be flat offset); ES:EBX --> 32-bit structure base; direction flag cleared;; Exit:; DS:ESI preserved; ES:EDI updated; ES:EBX preserved
MOVE_STRING macro foo local loop_top
push si ;save original source
add si,[si].otd16&foo&Offset add si,size OLETARGETDEVICE16
mov eax,edi ;current offset sub eax,ebx ;offset from base sub eax,size OLETARGETDEVICE32 ;offsets start from end mov es:[ebx].otd32&foo&Offset,eax ;store new offset
loop_top: mov al,[si] mov es:[edi],al inc si inc edi or al,al jnz loop_top
pop siendm
; Entry:; DS:ESI --> 16-bit source (ESI is zero-extended from DI); ES:EDI --> 32-bit destination (EDI might be flat offset); ES:EBX --> 32-bit structure base; direction flag cleared;; Exit:; DS:ESI preserved; ES:EDI updated; ES:EBX preserved
MOVE_DEVMODE macro foo local exit, empty_fields
mov ax,[si].otd16&foo&Size or ax,ax jz empty_fields
push si ;save original source push ebx ;base pointer
add si,[si].otd16&foo&Offset add si,size OLETARGETDEVICE16
mov eax,edi ;current offset sub eax,ebx ;offset from base sub eax,size OLETARGETDEVICE32 ;offsets start from end mov es:[ebx].otd32&foo&Offset,eax ;store new offset
REPACK_DEVMODE_16_32
pop ebx ;restore base pointer pop si
mov eax,edi sub eax,es:[ebx].otd32&foo&Offset mov es:[ebx].otd32&foo&Size,eax ;store new size jmp short exit
empty_fields: sub eax,eax mov es:[ebx].otd32&foo&Offset,eax ;store null offset mov es:[ebx].otd32&foo&Size,eax ;store null size
exit:endm
mov ebx,edi add edi,size OLETARGETDEVICE32 ;put first string here
MOVE_STRING DeviceName MOVE_STRING DriverName MOVE_STRING PortName MOVE_DEVMODE ExtDevmode MOVE_DEVMODE Environment
purge MOVE_STRING purge MOVE_DEVMODEendm
|
