MZ is back!HEADmain

1 files changed, 71 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/DBCS.ASM b/v4.0/src/MAPPER/DBCS.ASM
new file mode 100644
index 0000000..a856a09
--- /dev/null
+++ b/v4.0/src/MAPPER/DBCS.ASM
@@ -0,0 +1,71 @@
+;
+page 80,132
+;
+title CP/DOS DosGetDBCSEv
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   DosGetDBCSEv
+;*
+;*   CALLING SEQUENCE:
+;*
+;*             PUSH   WORD     Length
+;*             PUSH@  DWORD    Countrycode
+;*             PUSH@  DWORD    Memorybuffer
+;*
+;*   MODULES CALLED:  none
+;*
+;*********************************************************************
+;
+        public  DosGetDBCSEv
+        .sall
+        include macros.inc
+
+str     struc
+old_bp  dw      ?
+return  dd      ?
+DataAreaPtr     dd      ?      ; Data buffer pointer
+CountryCodePtr  dd      ?      ; Country code pointer
+DataAreaLength  dw      ?      ; Length of data area
+str     ends
+
+DosGetDBCSEv    proc    far
+
+        Enter  DosGetDBCSEv                 ;AN000; push registers
+
+; Get the country, so we can then get the country case map stuff
+
+;       lds     si,[bp].CountryCodePtr
+;       mov     ax,ds:[si]
+
+; Note: do the country selection later (maybe never)
+
+        mov     ax,6300H                     ;AN000; get DBCS vector
+        INT     21H                          ;AN000; DS:SI-->vector area
+
+        jc      Exit
+Copy_Vector:
+        les     di,[bp].DataAreaPtr          ;AN000; ES:DI-->return buffer
+        mov     cx,[bp].DataAreaLength       ;AN000;
+loopx:
+        mov    al,ds:[si]                    ;AN000;
+        mov    es:[di],al                    ;AN000;
+        inc    si                            ;AN000;
+        inc    di                            ;AN000;
+        loop   loopx                         ;AN000;
+
+        xor     ax,ax                        ;AN000;
+
+Exit:
+        Mexit                               ;AN000;pop registers
+
+        ret     size str - 6                ;AN000; return
+
+DosGetDBCSEv    endp
+
+dosxxx  ends
+
+        end