ASM Community

Hi,

I want to make a procedure which counts all lowercased letters. Now my program reads a character and counts all the characters

but i don't know how to count lowercased letters. Any tips? or procedures  :)

First check if it's lowercase and then count it.

buffer db "In the jungle the mighty jungle the lion sleeps tonight.",0

mov edx, offset buffer
xor ecx, ecx
.WHILE byte ptr  != 0
  .IF byte ptr  =< "a" && byte ptr  >= "z"
     inc ecx
  .ENDIF
inc edx
.ENDW

Without the HLL thingies as follows:

mov edx, offset buffer
dec edx
xor ecx, ecx
@loop_begin:
inc edx
cmp byte ptr , 0
jz @loop_end
cmp byte ptr , a
jb @loop_begin
cmp byte ptr , z
ja @loop_begin
inc ecx
jmp @loop_begin
@loop_end:

Cheers,
JimmyC

Hi!

This is a few lines shorter than JimmyClif's example, enjoy  :)

...Flat Assembler...

_text db 'This is test',0

     lea    esi,[_text]
     xor    ecx,ecx
_next:
     lodsb
     cmp  al,'a'
     jb     @f
     cmp  al,'z'
     ja     @f
     inc    ecx
@@:  
     test  al,al
     jnz  _next

Result in ecx...

Of course you can replace  'a' and 'z' with 'A' and 'Z' and you will count UpperCase letters. ('0' ... '9' and you will count digits)

It's a homework but not in assembler. I need to write this program in pascal (for my informatics lesson) but since I will be studying assembler in university next year(i hope so  ;)) so i want to get used to it earlier  ;)
Thanks for your ideas Kr!z and Jimmyclif. Now i need to understand them and keep on going to more difficult tasks. Probably ill need some more help in future, too :)

oh come on.. hows that pascal
its inline asm....

oh, i remember those days only too well :)
but i think if he submits that code with inline, he'll probably get in trouble with his teacher...

Actually, i should write this prog just in pascal with no assembler implementation. That's very easy, so i wanted to do smth more complicated. So i thought to do that prog in _flat_ assembler. :)
However, my pascal compiler can't understand Kr!z's pascal function nor Kr!z's _flat_ assembler code (i use emu8086).

Hi

To w0lfas


This pascal function I wrote in Delphi, I don't have an old/dos pascal compiler, tell me more what error you see. About the _flat_ assembler code, it compiles well on my version of flat, and of course I didn't check it on emu8086 maybe you should use 16-bit registers instead of 32-bit, replace esi,ecx with si,cx. Again, tell me more what errors you see...

To SpooK


You right, however inline ASM or "standalone" assembler should be the part of  the process of learning PASCAL/C++ languages because understanding assembler will helps understand the important aspects of programming (memory models, pointers, optimization, etc.) Everything depends of school and teacher. If someone want to be a good coder/programmer should have its own learning process.



 

i don't use old/dos pascal either. i use free pascal. The error occurs at the beggining of this function. (compiler says: syntax error: it should be ; (instead of assembler))

function CountLowerCase(s:string):byte (the cursor stands here)assembler;