v4.0/src/MAPPER/D_GCTRCD.ASM

   1 ;      SCCSID = @(#)d_gctrcd.asm        1.1 86/06/03
   2 .xlist
   3 ;  include struc.inc
   4 include nlsapi.inc
   5 .list
   6
   7 DGROUP  group   _DATA
   8
   9 _TEXT   segment word public 'CODE'
  10 _TEXT   ends
  11
  12 _DATA   segment word public 'DATA'
  13         EXTRN   _ApiSel:WORD
  14 _DATA   ends
  15
  16 _TEXT   segment
  17
  18 EXTRN   W_NLS_APIS:near
  19
  20 public  DOSGETCTRYINFO
  21 DOSGETCTRYINFO    proc    far
  22         assume  cs:_TEXT
  23
  24
  25         mov     AX,BP               ; Add 4 bytes of dummy parameters to the
  26         mov     BP,SP               ; Stack by copying the return address down 4
  27         push    [BP+2]
  28         push    [BP]
  29         mov     BP,AX
  30
  31         push    DS
  32         mov     AX,_DATA
  33         mov     DS,AX
  34         mov     AX, SETFILELIST
  35         mov     DS:_ApiSel,AX
  36         pop     DS
  37
  38         jmp     W_NLS_APIS
  39
  40 ;       pop     bp
  41 ;       ret     14
  42
  43 DOSGETCTRYINFO endp
  44
  45 _TEXT   ENDS
  46         END
  47 \1a