MZ is back!HEADmain

1 files changed, 73 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/CASEMAP.ASM b/v4.0/src/MAPPER/CASEMAP.ASM
new file mode 100644
index 0000000..900ad4f
--- /dev/null
+++ b/v4.0/src/MAPPER/CASEMAP.ASM
@@ -0,0 +1,73 @@
+
+;
+page 80,132
+;
+title CP/DOS DosCaseMap
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+
+;**********************************************************************
+;*
+;*   MODULE:   doscasemap
+;*
+;*
+;*   CALLING SEQUENCE:
+;*
+;*             PUSH     WORD    Length
+;*             PUSH@    DWORD   CountryCode
+;*             PUSH@    DWORD   BinaryString
+;*             DosCaseMap
+;*
+;*   MODULES CALLED:  none
+;*
+;*********************************************************************
+
+        public  doscasemap
+        .sall
+        include macros.inc
+
+str     struc
+old_bp  dw      ?
+return  dd      ?
+StringPtr       dd      ?       ; binary string pointer
+CountryCodePtr  dd      ?       ; country code pointer
+StringLength    dw      ?       ; lenght of the string
+str     ends
+
+DosCaseMap      proc    far
+
+        Enter  DosCaseMap               ; save 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)
+
+        lds     si,[bp].StringPtr
+        mov     cx,[bp].StringLength
+
+MapLoop:                                ; convert characters to upper case
+        lodsb
+        cmp     al,'a'
+        jc      ThisCharDone
+
+        cmp     al,'z'+1
+        jnc     ThisCharDone
+
+        add     al,'A' - 'a'
+        mov     ds:[si-1],al
+
+ThisCharDone:
+        loop    MapLoop                 ; loop until string is complete
+
+        MExit                           ; pop registers
+        ret     size str - 6            ; return
+;
+DosCaseMap      endp
+
+dosxxx  ends
+
+        end