PROGRAM $14$: strlen Function

Write an HLA Assembly language program that implements the following function:

procedure strlen$($ baseStringAddress: dword $)$; @nodisplay; @noframe;

This function should return in AL the number of characters in the string parameter, passed by its base address. Here is a sample program dialogue:

Feed Me: asdfasdf

The String You Entered: asdfasdf Has Length $=8$

Feed Me: asdf

The String You Entered: asdf Has Length $=4$

This is what I have so far:

$//$ File: strlenProgram.hla

program strlenProgram;

#include$($ "stdlib.hhf$")$;

#include$("$cs$17$string.hla" $)$;

procedure strlen$($ baseStringAddress: dword $)$; @nodisplay; @noframe;

static

dStringLength : int$8$;

begin strlen;

$//$ Initialize the string length to $0$

mov$(0,$ dStringLength $)$;

$//$ Loop through the string until null character is found

strlenLoop:

mov$([$baseStringAddress$],$ AL $)$; $//$ Load the current character

cmp$($ AL$,0)$; $//$ Compare it with null character

je strlenEnd; $//$ If null, end the loop

inc$($ dStringLength $)$; $//$ Increment the string length

inc$($ baseStringAddress $)$; $//$ Move to the next character

jmp strlenLoop; $//$ Repeat the loop

strlenEnd:

mov$($ dStringLength, AL $)$; $//$ Return the string length in AL

ret$()$;

end strlen;

const

nullchar : byte :$=0$;

static

inputBuffer: byte$[128]$; $//$ Buffer to hold user input

stringData : byte$[128]$; $//$ Buffer for string data $($initially empty$)$

stringDataLen : uns$16$ :$=127$; $//$ Max number of chars the string can hold $($excluding NULL$)$

stringLength: byte;

begin strlenProgram;

$//$ Prompt the user to enter some text

stdout.put$($ "Please enter some text to work with and hit Return!", nl $)$;

$//$ Read input into stringData using gets

$//$ Load effective address of stringData into EAX

mov$($&inputBuffer,eax$)$;

push$($ EAX $)$;

push$($ stringDataLen $)$;

call gets;

$//$ Call the strlen function to calculate the string length

lea$($ EAX, stringData $)$; $//$ Load effective address of stringData into EAX

push$($ EAX $)$;

call strlen;

$//$ Store the returned length

mov$($ AL$,$ stringLength $)$;

$//$ Display the result

stdout.put$($ "The String You Entered: $",$ stringData, $"$ Has Length $=",$ stringLength, nl $)$;

end strlenProgram;

Can you fix this? What can I do to make it work?