1 files changed, 47 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/D_GCTRCD.ASM b/v4.0/src/MAPPER/D_GCTRCD.ASM
new file mode 100644
index 0000000..2c313b2
--- /dev/null
+++ b/v4.0/src/MAPPER/D_GCTRCD.ASM
@@ -0,0 +1,47 @@
+;      SCCSID = @(#)d_gctrcd.asm        1.1 86/06/03
+.xlist
+;  include struc.inc
+include nlsapi.inc
+.list
+
+DGROUP  group   _DATA
+
+_TEXT   segment word public 'CODE'
+_TEXT   ends
+
+_DATA   segment word public 'DATA'
+        EXTRN   _ApiSel:WORD
+_DATA   ends
+
+_TEXT   segment
+
+EXTRN   W_NLS_APIS:near
+
+public  DOSGETCTRYINFO
+DOSGETCTRYINFO    proc    far
+        assume  cs:_TEXT
+
+
+        mov     AX,BP               ; Add 4 bytes of dummy parameters to the
+        mov     BP,SP               ; Stack by copying the return address down 4
+        push    [BP+2]
+        push    [BP]
+        mov     BP,AX
+
+        push    DS
+        mov     AX,_DATA
+        mov     DS,AX
+        mov     AX, SETFILELIST
+        mov     DS:_ApiSel,AX
+        pop     DS
+
+        jmp     W_NLS_APIS
+
+;       pop     bp
+;       ret     14
+
+DOSGETCTRYINFO endp
+
+_TEXT   ENDS
+        END
+
\ No newline at end of file