You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
269 lines
6.5 KiB
269 lines
6.5 KiB
;/*
|
|
; * 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 <MEM> ;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 <MSGDATA>
|
|
MSG_SERVICES <LOADmsg,FARmsg>
|
|
MSG_SERVICES <DISPLAYmsg,GETmsg,CHARmsg,NUMmsg>
|
|
MSG_SERVICES <MEM.CLA,MEM.CLB,MEM.CL1,MEM.CL2,MEM.CTL> ;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
|
|
|
|
|