home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPPOP18C.ZIP / UPPRCASE.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-02  |  486 b   |  30 lines
  1. .MODEL TPASCAL
  2. .CODE
  3. LOCALS @@
  4.  
  5. PUBLIC uppercase
  6.  
  7. UpperCase PROC FAR USES DS,line:DWORD
  8.  
  9.          cld
  10.          lds       si,line
  11.          mov       cl,[si]
  12.          xor       ch,ch
  13.          jcxz      @@3
  14. @@1:
  15.          inc       si
  16.          cmp       byte ptr [si],'a'
  17.          jb        @@2
  18.          cmp       byte ptr [si],'z'
  19.          ja        @@2
  20.          sub       byte ptr [si],20h
  21. @@2:
  22.          loop      @@1
  23. @@3:
  24.          ret
  25.  
  26. UpperCase ENDP
  27.  
  28. END
  29.  
  30.