v4.0/src/CMD/FILESYS/_MSGRET.ASM

   1 page           60,132
   2 name           _msgret
   3 title          C to Message Retriever
   4 ;-------------------------------------------------------------------
   5 ;
   6 ;       MODULE:         _msgret
   7 ;
   8 ;       PURPOSE:        Supplies an interface between C programs and
   9 ;                       the DOS 3.3 message retriever
  10 ;
  11 ;       CALLING FORMAT:
  12 ;                       msgret(&inregs,&outregs);
  13 ;
  14 ;       DATE:           5-21-87
  15 ;
  16 ;-------------------------------------------------------------------
  17
  18         INCLUDE SYSMSG.INC              ;PERMIT SYSTEM MESSAGE HANDLER DEFINITION ;AN000;
  19
  20         MSG_UTILNAME <FILESYS>          ;IDENTIFY THE COMPONENT                 ;AN000;
  21
  22 ;-------------------------------------------------------------------
  23 ;-------------------------------------------------------------------
  24
  25
  26 _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  27 _TEXT   ENDS
  28 _DATA   SEGMENT WORD PUBLIC 'DATA'
  29 _DATA   ENDS
  30 CONST   SEGMENT WORD PUBLIC 'CONST'
  31 CONST   ENDS
  32 _BSS    SEGMENT WORD PUBLIC 'BSS'
  33 _BSS    ENDS
  34
  35 DGROUP  GROUP   CONST, _BSS, _DATA
  36         ASSUME  CS: DGROUP, DS: DGROUP, SS: DGROUP, ES: NOTHING
  37
  38         public  data_sysloadmsg
  39         public  data_sysdispmsg
  40
  41 _DATA   SEGMENT
  42
  43         MSG_SERVICES <MSGDATA>
  44         MSG_SERVICES <LOADmsg,FARmsg>
  45         MSG_SERVICES <DISPLAYmsg,CHARmsg,NUMmsg>
  46         MSG_SERVICES <FILESYS.CLA,FILESYS.CL1,FILESYS.CL2,FILESYS.CTL>              ;AN000;
  47
  48
  49 data_sysloadmsg proc far
  50
  51         push    bp                      ; save user's base pointer
  52         mov     bp,sp                   ; set bp to current sp
  53         push    di                      ; save some registers
  54         push    si
  55
  56 ;       copy C inregs into proper registers
  57
  58         mov     di,[bp+4+4]               ; fix di (arg 0)
  59
  60 ;-------------------------------------------------------------------
  61
  62         mov     ax,[di+0ah]             ; load di
  63         push    ax                      ; the di value from inregs is now on stack
  64
  65         mov     ax,[di+00]              ; get inregs.x.ax
  66         mov     bx,[di+02]              ; get inregs.x.bx
  67         mov     cx,[di+04]              ; get inregs.x.cx
  68         mov     dx,[di+06]              ; get inregs.x.dx
  69         mov     si,[di+08]              ; get inregs.x.si
  70         pop     di                      ; get inregs.x.di from stack
  71
  72         push    bp                      ; save base pointer
  73
  74 ;-------------------------------------------------------------------
  75
  76         call    sysloadmsg              ; call the message retriever
  77
  78 ;-------------------------------------------------------------------
  79
  80         pop     bp                      ; restore base pointer
  81         push    di                      ; the di value from call is now on stack
  82         mov     di,[bp+6+4]               ; fix di (arg 1)
  83
  84         mov     [di+00],ax              ; load outregs.x.ax
  85         mov     [di+02],bx              ; load outregs.x.bx
  86         mov     [di+04],cx              ; load outregs.x.cx
  87         mov     [di+06],dx              ; load outregs.x.dx
  88         mov     [di+08],si              ; load outregs.x.si
  89
  90         lahf                            ; get flags into ax
  91         mov     al,ah                   ; move into low byte
  92         mov     [di+0ch],ax             ; load outregs.x.cflag
  93
  94         pop     ax                      ; get di from stack
  95         mov     [di+0ah],ax             ; load outregs.x.di
  96
  97 ;-------------------------------------------------------------------
  98
  99         pop     si                      ; restore registers
 100         pop     di
 101         mov     sp,bp                   ; restore sp
 102         pop     bp                      ; restore user's bp
 103         ret
 104
 105 data_sysloadmsg endp
 106
 107
 108 data_sysdispmsg proc far
 109
 110         push    bp                      ; save user's base pointer
 111         mov     bp,sp                   ; set bp to current sp
 112         push    di                      ; save some registers
 113         push    si
 114
 115 ;       copy C inregs into proper registers
 116
 117         mov     di,[bp+4+4]               ; fix di (arg 0)
 118
 119 ;-------------------------------------------------------------------
 120
 121         mov     ax,[di+0ah]             ; load di
 122         push    ax                      ; the di value from inregs is now on stack
 123
 124         mov     ax,[di+00]              ; get inregs.x.ax
 125         mov     bx,[di+02]              ; get inregs.x.bx
 126         mov     cx,[di+04]              ; get inregs.x.cx
 127         mov     dx,[di+06]              ; get inregs.x.dx
 128         mov     si,[di+08]              ; get inregs.x.si
 129         pop     di                      ; get inregs.x.di from stack
 130
 131         push    bp                      ; save base pointer
 132
 133 ;-------------------------------------------------------------------
 134
 135         call    sysdispmsg
 136
 137 ;-------------------------------------------------------------------
 138
 139         pop     bp                      ; restore base pointer
 140         push    di                      ; the di value from call is now on stack
 141         mov     di,[bp+6+4]               ; fix di (arg 1)
 142
 143         mov     [di+00],ax              ; load outregs.x.ax
 144         mov     [di+02],bx              ; load outregs.x.bx
 145         mov     [di+04],cx              ; load outregs.x.cx
 146         mov     [di+06],dx              ; load outregs.x.dx
 147         mov     [di+08],si              ; load outregs.x.si
 148
 149         lahf                            ; get flags into ax
 150         mov     al,ah                   ; move into low byte
 151         mov     [di+0ch],ax             ; load outregs.x.cflag
 152
 153         pop     ax                      ; get di from stack
 154         mov     [di+0ah],ax             ; load outregs.x.di
 155
 156 ;-------------------------------------------------------------------
 157
 158         pop     si                      ; restore registers
 159         pop     di
 160         mov     sp,bp                   ; restore sp
 161         pop     bp                      ; restore user's bp
 162         ret
 163
 164 data_sysdispmsg endp
 165
 166 include msgdcl.inc
 167
 168
 169 _DATA   ends                    ; end code segment
 170
 171 _TEXT   SEGMENT
 172
 173         assume cs:_TEXT
 174
 175         public  _sysdispmsg
 176         public  _sysloadmsg
 177
 178 _sysdispmsg     proc    near
 179                 call    data_sysdispmsg
 180                 ret
 181 _sysdispmsg     endp
 182
 183 _sysloadmsg     proc    near
 184                 call    data_sysloadmsg
 185                 ret
 186 _sysloadmsg     endp
 187
 188 _TEXT   ENDS
 189         end
 190