Category : BASIC Source Code
Archive   : DOSCQB45.ZIP
Filename : CASEMAP.ASM

;
; Asseembly subprogram for translating some characters
; according to the currenltly loaded MS-DOS country
; dependent information
;
; use: call casemap (char%, seg%, ofs%)
; note: Char% is passed by reference
; Seg% and Ofs% are passed by value
;
; Example of use: Call casemap (char%, seg%, ofs%)
; Parameters: char% Character byte to be translated
; seg% segment of address of MS-DOS translate routine
; ofs% offset of address of MS-DOS translate routine
; Variables (none)
; Module Level
; Declarations: Declare sub getcountry (county as countrytype)
; Declare sub casemap (character%, BYVAL segment%,
; BYVAL offset%)
; Declare function translatecountry$ (a$, country as countrytype)
.model medium
.code
public casemap

casemap proc

; standard entry
push bp
mov bp,sp

; get char% into ax register
mov bx,[bp+10]
mov ax,[bx]

; call the translate function in MS-DOS
call dword ptr [bp+6]

; return translated character to char%
mov bx,[bp+10]
mov [bx],ax

; standard exit, assumes three variables passed
pop bp
ret 6

; end of procedure
casemap endp
end