;/* ; * Microsoft Confidential ; * Copyright (C) Microsoft Corporation 1988 - 1991 ; * All Rights Reserved. ; */ page 60,132 name _msgret title C to Message Retriever ;------------------------------------------------------------------- ; ; MODULE: _msgret ; ; PURPOSE: Supplies an interface between C programs and ; the DOS 3.3 message retriever ; ; CALLING FORMAT: ; msgret(&inregs,&outregs); ; ; DATE: 5-21-87 ; ;------------------------------------------------------------------- INCLUDE SYSMSG.INC ;PERMIT SYSTEM MESSAGE HANDLER DEFINITION ;AN000; MSG_UTILNAME ;IDENTIFY THE COMPONENT ;AN000; ;------------------------------------------------------------------- ;------------------------------------------------------------------- _TEXT SEGMENT BYTE PUBLIC 'CODE' _TEXT ENDS _DATA SEGMENT WORD PUBLIC 'DATA' _DATA ENDS CONST SEGMENT WORD PUBLIC 'CONST' CONST ENDS _BSS SEGMENT WORD PUBLIC 'BSS' _BSS ENDS DGROUP GROUP CONST, _BSS, _DATA ASSUME CS: DGROUP, DS: DGROUP, SS: DGROUP, ES: NOTHING public data_sysloadmsg public data_sysdispmsg public data_sysgetmsg _DATA SEGMENT MSG_SERVICES MSG_SERVICES MSG_SERVICES MSG_SERVICES ;AN000; data_sysloadmsg proc far push bp ; save user's base pointer mov bp,sp ; set bp to current sp push di ; save some registers push si ; copy C inregs into proper registers mov di,[bp+4+4] ; fix di (arg 0) ;------------------------------------------------------------------- mov ax,[di+0ah] ; load di push ax ; the di value from inregs is now on stack mov ax,[di+00] ; get inregs.x.ax mov bx,[di+02] ; get inregs.x.bx mov cx,[di+04] ; get inregs.x.cx mov dx,[di+06] ; get inregs.x.dx mov si,[di+08] ; get inregs.x.si pop di ; get inregs.x.di from stack push bp ; save base pointer ;------------------------------------------------------------------- call sysloadmsg ; call the message retriever ;------------------------------------------------------------------- pop bp ; restore base pointer push di ; the di value from call is now on stack mov di,[bp+6+4] ; fix di (arg 1) mov [di+00],ax ; load outregs.x.ax mov [di+02],bx ; load outregs.x.bx mov [di+04],cx ; load outregs.x.cx mov [di+06],dx ; load outregs.x.dx mov [di+08],si ; load outregs.x.si lahf ; get flags into ax mov al,ah ; move into low byte mov [di+0ch],ax ; load outregs.x.cflag pop ax ; get di from stack mov [di+0ah],ax ; load outregs.x.di ;------------------------------------------------------------------- pop si ; restore registers pop di mov sp,bp ; restore sp pop bp ; restore user's bp ret data_sysloadmsg endp data_sysdispmsg proc far push bp ; save user's base pointer mov bp,sp ; set bp to current sp push di ; save some registers push si ; copy C inregs into proper registers mov di,[bp+4+4] ; fix di (arg 0) ;------------------------------------------------------------------- mov ax,[di+0ah] ; load di push ax ; the di value from inregs is now on stack mov ax,[di+00] ; get inregs.x.ax mov bx,[di+02] ; get inregs.x.bx mov cx,[di+04] ; get inregs.x.cx mov dx,[di+06] ; get inregs.x.dx mov si,[di+08] ; get inregs.x.si pop di ; get inregs.x.di from stack push bp ; save base pointer ;------------------------------------------------------------------- call sysdispmsg ;------------------------------------------------------------------- pop bp ; restore base pointer push di ; the di value from call is now on stack mov di,[bp+6+4] ; fix di (arg 1) mov [di+00],ax ; load outregs.x.ax mov [di+02],bx ; load outregs.x.bx mov [di+04],cx ; load outregs.x.cx mov [di+06],dx ; load outregs.x.dx mov [di+08],si ; load outregs.x.si lahf ; get flags into ax mov al,ah ; move into low byte mov [di+0ch],ax ; load outregs.x.cflag pop ax ; get di from stack mov [di+0ah],ax ; load outregs.x.di ;------------------------------------------------------------------- pop si ; restore registers pop di mov sp,bp ; restore sp pop bp ; restore user's bp ret data_sysdispmsg endp data_sysgetmsg proc far push bp ; save user's base pointer mov bp,sp ; set bp to current sp push di ; save some registers push si ; copy C inregs into proper registers mov di,[bp+4+4] ; fix di (arg 0) ;------------------------------------------------------------------- mov ax,[di+0ah] ; load di push ax ; the di value from inregs is now on stack mov ax,[di+00] ; get inregs.x.ax mov bx,[di+02] ; get inregs.x.bx mov cx,[di+04] ; get inregs.x.cx mov dx,[di+06] ; get inregs.x.dx mov si,[di+08] ; get inregs.x.si pop di ; get inregs.x.di from stack push bp ; save base pointer ;------------------------------------------------------------------- call sysgetmsg ; call the message retriever ;------------------------------------------------------------------- pop bp ; restore base pointer push di ; the di value from call is now on stack mov di,[bp+6+4] ; fix di (arg 1) push ax ; save ax mov [di+00],es ; load segregs.es mov [di+06],ds ; load outregs.ds pop ax ; restore ax pop di ; restore di push di ; save it mov di,[bp+8+4] ; fix di (arg 2) mov [di+00],ax ; load outregs.x.ax mov [di+02],bx ; load outregs.x.bx mov [di+04],cx ; load outregs.x.cx mov [di+06],dx ; load outregs.x.dx mov [di+08],si ; load outregs.x.si lahf ; get flags into ax mov al,ah ; move into low byte mov [di+0ch],ax ; load outregs.x.cflag pop ax ; get di from stack mov [di+0ah],ax ; load outregs.x.di ;------------------------------------------------------------------- pop si ; restore registers pop di mov sp,bp ; restore sp pop bp ; restore user's bp ret data_sysgetmsg endp include msgdcl.inc _DATA ends ; end code segment _TEXT SEGMENT assume cs:_TEXT public _sysdispmsg public _sysloadmsg public _sysgetmsg _sysdispmsg proc near call data_sysdispmsg ret _sysdispmsg endp _sysloadmsg proc near call data_sysloadmsg ret _sysloadmsg endp _sysgetmsg proc near call data_sysgetmsg ret _sysgetmsg endp _TEXT ENDS end