1 files changed, 57 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/SCNTRY.ASM b/v4.0/src/MAPPER/SCNTRY.ASM
new file mode 100644
index 0000000..2d17ce9
--- /dev/null
+++ b/v4.0/src/MAPPER/SCNTRY.ASM
@@ -0,0 +1,57 @@
+;
+page 60,132
+;
+title CP/DOS DosSetCtryCode mapper
+;
+dosxxx  segment
+        assume  cs:dosxxx,ds:dosxxx,es:dosxxx,ss:dosxxx
+;
+;**********************************************************************
+;*
+;*   MODULE:   dossetctrycode
+;*
+;*   FILE NAME: dos049.asm
+;*
+;*   CALLING SEQUENCE:
+;*
+;*       push@     dword   country code
+;*       call      dossetctrycode
+;*
+;*   MODULES CALLED:  PC-DOS Int 21h, ah=38h, set country code
+;*
+;*********************************************************************
+
+            public   dossetctrycode
+            .sall
+            include  macros.inc
+
+str         struc
+Old_bp      dw       ?
+Return      dd       ?
+Ccode       dd       ?        ; country code
+str         ends
+
+dossetctrycode  proc far
+            Enter    dossetctrycode        ; push registers
+
+            lds      si,[bp].ccode
+            mov      ax,word ptr [si]      ; get country code
+            mov      cx,255
+            cmp      ax,cx                 ; check for country code >= 255
+            jl       okay                  ; branch if less
+
+            mov      bx,ax                 ; if so, load into bx
+            mov      al,cl                 ; and set flag
+okay:       mov      dx,0ffffh             ; Set DX
+
+            mov      ah,38h                ; DOS INT function code
+            int      21h                   ; set country information
+            jc       exit                  ; branch if error
+
+            sub      ax,ax                 ; set good return
+exit:       mexit                          ; pop registers
+            ret      size  str - 6         ; return
+
+dossetctrycode endp
+dosxxx      ends
+            end