home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
wunderki.zip
/
CHAR.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-08-16
|
601b
|
39 lines
; *******************************************************
; * *
; * Turbo Pascal Run-time Library *
; * Character Handling Routines *
; * *
; * Copyright (c) 1988,92 Borland International *
; * *
; *******************************************************
TITLE CHAR
INCLUDE SE.ASM
CODE SEGMENT BYTE PUBLIC
ASSUME CS:CODE
; Publics
PUBLIC UpperCase
; UpCase standard function
UpperCase:
MOV BX,SP
MOV AL,SS:[BX+4]
CMP AL,'a'
JB @@1
CMP AL,'z'
JA @@1
SUB AL,'a'-'A'
@@1: RETF 2
CODE ENDS
END