HLA取出字符串中的每一个字符

program yang;#include ( "stdlib.hhf" )static        Astring:    string  := "yangzhiyong";begin yang;        mov(Astring, eax);    mov(0, dl);    mov( (type str.strRec [eax]).length, ecx);    for ( mov(0, esi); esi<ecx; inc(esi) ) do        mov( [eax+esi], dl);        stdout.put("Astring[", (type uns32 esi), "] = ", (type char dl), nl);        endfor;end yang;

二：

program yang;#include ( "stdlib.hhf" )static        Astring:    string  := "yangzhiyong";    Bstring:    string  := "ljy520zhiyong";begin yang;        mov(Bstring, ebx);    mov(0, dl);    str.length( ebx );    mov(eax, ecx);    for ( mov(0, esi); esi<ecx; inc(esi) ) do        mov( [ebx+esi], dl);        stdout.put("Astring[", (type uns32 esi), "] = ", (type char dl), nl);        endfor;end yang;