DP Tool Club 8/CDASC08.ISO/NEWS/554/JUIN/UPPER1.PAS

Pascal/Delphi Source File | 1993-10-07 | 797b | 27 lines

{─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
Msg  : 448 of 586
From : Gordon Tackett                      1:352/42.1           06 Jun 93  13:29
To   : Sean Palmer                         1:104/123.0
Subj : uppercase contest
────────────────────────────────────────────────────────────────────────────────
Or we could use bit operations...}

 procedure upcaseStr(var s:string);assembler;asm
  push ds { use a push so that proteced mode code won't bomb}
  mov bx,$DF61  {not 32, 'a'}
  mov dl,$7A
  lds si,s
  cld
  mov cl,byte ptr[si]
  xor ch,ch
  jcxz @x
 @L: inc si
  mov al,byte ptr[si]
  cmp al,bl           {check >= 'a'}
  jb  @s
  cmp al,dl           {check <= 'z'}
  ja  @s
  and byte ptr[si],bh
 @S: loop @L
 @X: pop ds
 end;