home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 2.ddi / CASEMAP.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-02-07  |  1.7 KB  |  55 lines
  1.  ; **********************************************
  2.  ; **  CASEMAP.ASM                   MASM 5.0  **
  3.  ; **                                          **
  4.  ; **  Assembly subprogram for translating     **
  5.  ; **  some characters according to the        **
  6.  ; **  currently loaded MS-DOS country-        **
  7.  ; **  dependent information.                  **
  8.  ; **                                          **
  9.  ; **  Use:  CALL CASEMAP (CHAR%, SEG%, OFS%)  **
  10.  ; **  Note: CHAR% is passed by reference      **
  11.  ; **        SEG% and OFS% are passed by value **
  12.  ; **********************************************
  13.  ;
  14.  ; EXAMPLE OF USE:  CALL CaseMap (char%, seg%, ofs%)
  15.  ; PARAMETERS:      char%      Character byte to be translated
  16.  ;                  seg%       Segment of address of MS-DOS translate routine
  17.  ;                  ofs%       Offset of address of MS-DOS translate routine
  18.  ; VARIABLES:       (none)
  19.  ; MODULE LEVEL
  20.  ;   DECLARATIONS:  DECLARE SUB GetCountry (country AS CountryType)
  21.  ;                  DECLARE SUB CaseMap (character%, BYVAL Segment%,
  22.  ;                                       BYVAL Offset%)
  23.  ;              DECLARE FUNCTION TranslateCountry$ (a$, country AS CountryType)
  24.  
  25.  
  26. .MODEL  MEDIUM
  27. .CODE
  28.         public casemap
  29.  
  30. casemap proc
  31.  
  32. ; Standard entry
  33.         push bp
  34.         mov bp, sp
  35.         
  36. ; Get CHAR% into AX register
  37.         mov bx, (bp+10)
  38.         mov ax, (bx)
  39.  
  40. ; Call the translate function in MS-DOS
  41.         call    dword ptr [bp+6]
  42.         
  43. ; Return translated character to CHAR%
  44.         mov bx, (bp+10)
  45.         mov (bx), ax
  46.         
  47. ; Standard exit, assumes three variables passed
  48.         pop bp
  49.         ret 6
  50.  
  51. ; End of the procedure
  52. casemap endp
  53.         END
  54.  
  55.