home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / CASEMAP.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  2.7 KB  |  135 lines
  1. ;
  2. ; Name        casemap -- Perform DOS character case map
  3. ;
  4. ; Synopsis    outch = casemap(ch,pads)
  5. ;        char outch      Resulting (folded) character
  6. ;        char ch       Character to be folded to upper case
  7. ;        ADS  *pads      Address of ADS structure containing
  8. ;                  address of case mapping routine
  9. ;
  10. ; Description    This routine performs a far call to the DOS routine
  11. ;        which maps characters to their upper case equivalents,
  12. ;        taking into account a national character set.
  13. ;
  14. ;        If *pads is the null pointer (0:0), ch will be returned
  15. ;        as outch without conversion.  Great harm may result if
  16. ;        *pads points improperly.
  17. ;
  18. ; Returns    outch          Resulting character folded to upper case.
  19. ;
  20. ; Version    3.0 (C)Copyright Blaise Computing Inc.    1986
  21. ;
  22.  
  23.     name     casemap
  24.  
  25.     LONGPROG  = 0              ; initialize constants for
  26.     LONGDATA  = 0              ; Pass1 of the assembler
  27.  
  28.     include   compiler.mac          ; Specifies the C compiler
  29.  
  30.     if LAT200 or LAT210 or LAT300
  31.     include  dos.mac
  32.     LONGPROG = LPROG
  33.     LONGDATA = LDATA
  34.  
  35.     pseg
  36.     public     casemap
  37.     if     LPROG
  38.     x   equ  6            ; parameter offset
  39. casemap    proc     far
  40.     else
  41.     x   equ  4
  42. casemap    proc     near
  43.     endif
  44.     y   equ  x + 2            ; offset of pads
  45.     endif
  46.  
  47.  
  48.     if CI201A
  49.     include  model.h
  50.     include  prologue.h
  51.     LONGPROG = @bigmodel
  52.     LONGDATA = @bigmodel
  53.  
  54.     public     casemap
  55.     if     @bigmodel
  56.     x   equ  6            ; parameter offset
  57. casemap    proc     far
  58.     else
  59.     x   equ  4
  60. casemap    proc     near
  61.     endif
  62.     y   equ  x + 2            ; offset of pads
  63.     endif
  64.  
  65.     if MSC300
  66.     include  dos.mac
  67.     LONGPROG = LPROG
  68.     LONGDATA = LDATA
  69.  
  70.     pseg     casemap
  71.     public     _casemap
  72.     if     LPROG
  73.     x   equ  6            ; parameter offset
  74. _casemap   proc     far
  75.     else
  76.     x   equ  4
  77. _casemap   proc     near
  78.     endif
  79.     y   equ  x + 2            ; offset of pads
  80.     endif
  81.  
  82.     push     bp            ; Save the frame pointer
  83.     mov     bp,sp
  84.     if     MSC300
  85.     push     di            ; Save register variables
  86.     push     si
  87.     endif
  88.  
  89.  
  90.     if     LONGDATA        ; Get the code address
  91.     les     si,dword ptr [bp + y]
  92.     mov     ax,es:[si]        ; Check if null pointer
  93.     or     ax,es:[si + 2]
  94.     mov     al,[bp + x]        ; The character to be folded
  95.     jz     err_done
  96.     call     dword ptr es:[si]
  97.     else
  98.     mov     si,[bp + y]        ; Get the code address
  99.     mov     ax,[si]        ; Check if null pointer
  100.     or     ax,[si + 2]
  101.     mov     al,[bp + x]        ; The character to be folded
  102.     jz     err_done
  103.     call     dword ptr [si]
  104.     endif
  105.  
  106.  
  107. err_done:
  108.     if     MSC300
  109.     pop     si            ; Recover index registers
  110.     pop     di            ; (used for register variables)
  111.     cld                ; MSC 3 expects DF cleared
  112.     endif
  113.     pop     bp            ; Get the original frame pointer.
  114.     ret
  115.     if     MSC300
  116. _casemap   endp
  117.     else
  118. casemap    endp
  119.     endif
  120.  
  121.  
  122.     if LAT200 or LAT210 or LAT300
  123.     endps
  124.     endif
  125.  
  126.     if CI201A
  127.     include  epilogue.h
  128.     endif
  129.  
  130.     if MSC300
  131.     endps     casemap
  132.     endif
  133.  
  134.     end
  135.