;counts the length of a string
;
        mov     si,     0       ;position within the string (subscript)
        mov     cl,     0       ;counter to zero
lp:     cmp     byte ptr 500h [si], 0   ;eos????
        je      deend
        inc     si
        inc     cl
        jmp     lp
deend:  int     20h
        end