OS/2 Shareware BBS: 11 Util/11-Util.zip/MKHOOK1.ZIP/DOSWIN32.MAC

Text File | 1992-08-29 | 13KB | 422 lines

;--------------------------------------------------------------------
;doswin32.mac  Begun:Sat  08-22-1992  Revised:Fri  08-28-1992
;
;These Macros are more general purpose in definition and serve both
;DOS and WIN calls
;
;--------------------------------------------------------------------

;equates related to message structure
hwnd           equ   quemsg.qmsg_hwnd
msg            equ   quemsg.qmsg_msg
mp1            equ   quemsg.qmsg_mp1
mp2            equ   quemsg.qmsg_mp2

HWND_DESKTOP   equ   1               ;needed for  WinErrorMessage macro
msgBoxErrStyle equ   (MB_ERROR OR MB_CANCEL)

;---------------- I/O DOS Calls Only---------------
stdin          equ   0
stdout         equ   1
stderr         equ   2

;---------------- Useful ---------------
cr             equ   0dh
lf             equ   0ah
nl             equ   0dh,0ah   ;cr+lf
BEL            equ   07h
NULL           equ   0000h

;External declarations for DOS (Control Program) Functions (Used So Far)
EXTRN    DosAllocMem:near,DosAllocSharedMem:near,DosBeep:near,DosClose:near
EXTRN    DosCreateThread:near,DosDevConfig:near,DosDevIOCtl:near
EXTRN    DosExecPgm:near,DosExit:near,DosFreeMem:near,DosFreeModule:near
EXTRN    DosGetInfoBlocks:near,DosGetNamedSharedMem:near,DosKillThread:near
EXTRN    DosLoadModule:near,DosOpen:near,DosPutMessage:near
EXTRN    DosQueryModuleHandle:near,DosQueryModuleName:near,DosQueryProcAddr:near
EXTRN    DosQueryProcType:near,DosRead:near,DosSleep:near,DosSetFilePtr:near
EXTRN    DosStartSession:near,DosWrite:near

;External declarations for Window (PM) Functions (Used So Far)
EXTRN    WinAlarm:near,WinBeginPaint:near,WinBroadcastMsg:near,WinChangeSwitchEntry:near
EXTRN    WinCreateMsgQueue:near,WinCreateStdWindow:near,WinDefWindowProc:near
EXTRN    WinDestroyMsgQueue:near,WinDestroyWindow:near,WinDispatchMsg:near
EXTRN    WinDrawText:near,WinEndPaint:near,WinFillRect:near,WinFocusChange:near
EXTRN    WinFreeErrorInfo:near
EXTRN    WinGetCurrentTime:near,WinGetErrorInfo:near,WinGetKeyState:near
EXTRN    WinGetMsg:near,WinGetLastError:near,WinInitialize:near,WinMessageBox:near
EXTRN    WinOpenWindowDC:near,WinPostMsg:near
EXTRN    WinQueryDesktopWindow:near,WinQueryFocus:near,WinQueryMsgTime:near
EXTRN    WinQuerySwitchList:near,WinQueryWindowRect:near
EXTRN    WinRegisterClass:near,WinReleaseHook:near,WinReleasePS:near
EXTRN    WinSetFocus:near,WinSetHook:near,WinSendMsg:near,WinTerminate:near

;----------------------------------------------------------
;DEFINE Macros for DATA SEgment

;Define Buffers used for Storage and for Num conversion
$DefineNumBufs  MACRO
    B_Buf       BYTE  3 dup(?)
    W_Buf       BYTE  5 dup(?)
    DW_Buf      BYTE 10 dup(0)
    Bit8Str     BYTE  8 dup(?)
    Bit16Str    BYTE  16 dup(?)
    Bit32Str    BYTE  32 dup(?)
    ten        DWORD  10         ;used for AsciiToWord
    lth        DWORD  ?          ;used for AsciiToWord
    errId      DWORD  ?
ENDM

;some standard strings and other vars for Data segment
$DOSErrorMessages  MACRO
    DosErrorMsg     BYTE   " Error calling Dos CP Function "
    DosErrOpts      BYTE   "Enter Q to Quit Program - Any other Key to Continue"
    DosReadErr      BYTE   ?,?    ;required for DOS read
    newline         BYTE   13,10
    nwritten       DWORD   ?      ;required for DOS Write
ENDM

;This macro allows the calling of any function subject only to the fact
;that it has no more than 10 parameters and that all are either DWORD
;long or are 32 bit offsets - i.e. it is a Full PUSH
;Enter Arguments in same order as listed in OS/2 2.0 Technical Library
$Call MACRO fname,arg0,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9
    ctr = 0
    IFNB <arg9>
       push  arg9
       ctr = ctr + 4
    ENDIF
    IFNB <arg8>
       push  arg8
       ctr = ctr + 4
    ENDIF
    IFNB <arg7>
       push  arg7
       ctr = ctr + 4
    ENDIF
    IFNB <arg6>
       push  arg6
       ctr = ctr + 4
    ENDIF
    IFNB <arg5>
       push  arg5
       ctr = ctr + 4
    ENDIF
    IFNB <arg4>
       push  arg4
       ctr = ctr + 4
    ENDIF
    IFNB <arg3>
       push  arg3
       ctr = ctr + 4
    ENDIF
    IFNB <arg2>
       push  arg2
       ctr = ctr + 4
    ENDIF
    IFNB <arg1>
       push  arg1
       ctr = ctr + 4
    ENDIF
    IFNB <arg0>
       push  arg0
       ctr = ctr + 4
    ENDIF
    call   fname
    add    esp,ctr
ENDM

$Alarm  MACRO     ;Makes a nice up and down sound
    $Call DosBeep,300,300
    $Call DosBeep,600,300
    $Call DosBeep,300,300
ENDM

; Concantenate String S2 to end of String S1 and place at S3
; S3 buffer must be long enough to hold S1+S2. S3 is 0 terminated
; copy S1 to buffer S3 and then add S2 at end
$ConcantS1andS2toS3  MACRO  S1,S2,S3
     pusha
     mov     edi,offset S3
     mov     esi,offset S1
     mov     ecx,LENGTHOF S1
     rep     movsb
     mov     esi,offset S2
     mov     ecx,LENGTHOF S2
     rep     movsb
     inc     edi
     mov     byte ptr [edi],0    ;NULL Terminate
     popa
ENDM

;This is useful for BEEPING
$DosBeep equ  $Call DosBeep,500,500   ;frequency,duration

;Useful for exiting
$DosExit equ  $Call DosExit,1,0  ;return 0 and all threads

;useful for Carriage ReturnLine Feeds - requires newline definition in .DATA
$NewLine equ  $Call DosWrite,stdout,offset newline,LENGTHOF newline,offset nwritten

;Used for Displaying Error Messages forDOS functions
;Called right after a $Call call of a DOS function if Error trapping desired
;The user passes the FuncName to be displayed
;It should be the Name of the Function used in $Call
;If error is detected, after displaying error number and function
;User is offered option of exiting or continuing
$DosErrMsg  MACRO  FuncName   ;FuncName passed in calling macros
    local  exitDEM,  msgFuncName
    .IF  eax == 0
        jmp  exitDEM
    .ENDIF
    IFNDEF  FuncName
      .DATA
       msgFuncName   BYTE FuncName
      .CODE
    ENDIF
    $DWordToAscii eax,DW_Buf
    $NewLine
    $Call DosWrite,stdout,offset DW_Buf,LENGTHOF DW_BUF,offset nwritten
    $Call DosWrite,stdout,offset DosErrorMsg,LENGTHOF DosErrorMsg,offset nwritten
    $Call DosWrite,stdout,offset msgFuncName,LENGTHOF msgFuncName,offset nwritten
    $DosBeep
    $NewLine
    $Call DosWrite,stdout,offset DosErrOpts,LENGTHOF DosErrOpts,offset nwritten
    $Call DosRead,stdin,offset DosReadErr,1,offset nwritten
    mov    al,DosReadErr
.IF     al == 'q' || al == 'Q'
     $DosExit
.ENDIF
exitDEM:
ENDM

$WinDebugMessage MACRO arg      ;Display Message = arg # in eax before call
    pusha
    $DWordToAscii eax,DW_Buf
    $Alarm
    $ConcantS1andS2ToS3 DW_Buf,arg,Concanted
    $Call WinMessageBox,HWND_DESKTOP,HWND_DESKTOP,offset Concanted,offset msgInfo,0,MB_ENTER    ;msgBoxErrStyle
    popa
ENDM

;Error Message for PM applications - Pass the Function name as String in ""
$WinErrMsg MACRO FuncName      ;sound alarm and display error box
    local   msgFuncName
    $Call WinGetLastError,hab    ;gets error number for code
    IFNDEF  FuncName
      .DATA
       msgFuncName   BYTE FuncName
    ENDIF
   .CODE
    $DWordToAscii eax,DW_Buf
    $Alarm
    $ConcantS1andS2ToS3 DW_Buf,msgFuncName,Concanted
    $Call WinMessageBox,HWND_DESKTOP,HWND_DESKTOP,offset Concanted,NULL,0,msgBoxErrStyle
ENDM

IFDEF NUMBUFS
;---------- Binary -> Ascii and Ascii -> Binary Conversions  ---------------
;Is Passed buffer name - tests to see if all characters in buffer are digits
;If not returns error message and aborts else returns number in eax
;skips over leading and trailing spaces
$GetNumDigits MACRO  digbuf
    push     esi
    push     edi
    mov      esi,offset digbuf
    mov      edi,0
    .WHILE 1
        .WHILE byte ptr [esi] == 32    ;skip over leading spaces
            inc esi
        .ENDW
        .IF  byte  ptr [esi] >= 30h
            .IF byte ptr [esi] <= 39h
                inc edi
                inc esi
             .ELSE
                .BREAK
            .ENDIF
         .ELSE
            .BREAK
         .ENDIF
    .ENDW           ;on exit edi has number of bytes read
    .IF edi == 0    ;no valid input
         $DosBeep 500,500
         IFDEF NOWIN    ;not a PM application
             $NewLine
             $Call DosWrite,"Invalid Input for ASCIIToDWord - Aborting"
             $NewLine
             $DosExit
         ELSE
             mov   eax,0
             $WinDebugMessage
             call ExitWin
             $DosExit
         ENDIF
    .ENDIF
    mov    eax,edi
    pop    edi
    pop    esi
ENDM

;Convert DWORD to ASCII string at 10 BYTE buffer at digits
;Number to convert moved into EAX, esi points to buffer
$DWordToAscii MACRO  num,buf
    pusha
    mov      eax,num
    mov      esi,offset buf
    call     DWordToAscii
    popa
ENDM

;Convert DWORD to Hex string at 10 BYTE buffer at digits
;Number to convert moved into EAX, esi points to buffer
$DWordToHex MACRO  num,buf
    pusha
    mov      eax,num
    mov      esi,offset buf
    call     DWordToHex
    popa
ENDM

;convert string representing BYTE in BUFF to numeric DWORD
;result returned in EAX)
$AsciiToDWord  MACRO  Buff
    $GetNumDigits Buff  ;checks on validity of characters in buffer as well
    mov      lth,eax
    push     ebx
    push     ecx
    push     edx
    push     edi
    push     esi
    mov      esi,offset Buff
    call     AsciitoDWord
    pop      esi
    pop      edi
    pop      edx
    pop      ecx
    pop      ebx
ENDM

;Convert BYTE to Binary Bit String
;Byte to convert in AL
$ByteToBitString MACRO
    pusha
    mov     edi,offset Bit8Str
    call    ByteToBitString
    popa
ENDM

;Byte to convert in AX
$WordToBitString MACRO
    pusha
    mov     edi,offset Bit16Str
    call    WordToBitString
    popa
ENDM

;----------- Procedures here ---------------

.CODE
;--- Call with esi pointing to buffer to store digit string
DWordToAScii  Proc
    mov      edi,10
    xor      edx,edx
    mov      ecx,10
d0: div      edi
    add      edx,30h
    push     edx          ;save on stack
    xor      edx,edx
    loop     d0           ;on exit top of stack has first digit, etc.
    mov      ecx,10
d1: pop      edx
    mov      [esi],dl     ;esi has address of buffer
    inc      esi
    loop     d1
    ; now get rid of leading 0's
    sub      esi,10       ;back to start of string
    mov      ecx,10
    .WHILE   byte ptr [esi] == "0"
         mov byte ptr [esi]," "
         inc esi
         dec ecx
    .ENDW
    .IF  cx == 0          ; all spaces
         dec esi
         mov byte ptr [esi] ,'0'
    .ENDIF
     ret
DWordToAscii   endp

AsciiToDWord  proc
    mov      eax,1
    xor      edi,edi
    xor      ebx,ebx
    mov      ecx,lth
    dec      lth
    add      esi,lth       ;offset is lnth -1 from 0
w0: push     eax
    sub      byte ptr [esi],30h
    mov      bl,[esi]
    mul      bl            ;result in EAX
    add      edi,eax
    pop      eax
    mul      ten        ;10 x previous value in AX now
    dec      esi
    loopd    w0
    mov      eax,edi
    ret
AsciiToDWord  endp

;--- Call with esi pointing to buffer to store digit string
DWordToHex  Proc
    mov      edi,16
    xor      edx,edx
    mov      ecx,8
d0: div      edi
    .IF      edx <= 9
        add      edx,30h
    .ELSE
        add      edx,55   ;use caps
    .ENDIF
    push     edx          ;save on stack
    xor      edx,edx
    loop     d0           ;on exit top of stack has first digit, etc.
    mov      ecx,8
d1: pop      edx
    mov      [esi],dl     ;esi has address of buffer
    inc      esi
    loop     d1
    mov      byte ptr [esi],'H'
     ret
DWordToHex   endp

WordToBitString  proc  ;called with edi set to offset of string and # in ax
    mov     cx,16
    dec     edi
wb0:inc     edi
    shl     ax,1             ;move most significant bit to carry flag
    jc      wb1              ;if set copy '1'
    mov     byte ptr [edi],'0'       ;else copy '0'
    jmp     wb2
wb1:mov     byte ptr [edi],'1'
wb2:loop    wb0
    ret
WordToBitString endp

.CODE
ByteToBitString  proc        ; al has the number
    mov     cx,8             ;called with edi set to offset of string
    dec     edi
bb0:inc     edi
    shl     al,1             ;move most significant bit to carry flag
    jc      bb1              ;if set copy '1'
    mov     byte ptr [edi],'0'       ;else copy '0'
    jmp     bb2
bb1:mov     byte ptr [edi],'1'
bb2:loop    bb0
    ret
ByteToBitString  endp

ENDIF