call   put_crlf           ;transmit newline
            mov    dptr,#TestPgmText