Декодирование дампа - Assembler

Формулировка задачи:

После проведения декодировки, получил такой код, расставил метки, но программа не работает, перебрал что понимал, а программа по прежнему не работает, в чем проблема?

                    Листинг программы
                
 
                        
                          
                    
data segment
STR DB "TEST: first word     second word    third     word 0    !  Nu'ber of words 0 . $"
code segment
mov ax, data
mov ds, ax
mov es, ax
mov cx, 0003Dh
mov di, 00000h
mov al, 020h
cld 
repe
scasb
jz l1
inc b.[0004fh]
repne 
scasb
jne l1
jmp l2
l1:or b.[0004fh], 030h
mov dx, 0003dh
mov ah, 09h
int 021h
l2:mov ax,04c00h
int 21h
end

Решение задачи: «Декодирование дампа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
.model small
.data
Str1  DB "TEST: first word     second word    third     word 0    !"
Len   equ $-Str1
Str2  db "Nu'ber of words "
Count db 0
      db ". $"
.code
start:
mov ax, @data
mov ds, ax
mov es, ax
mov cx, Len
mov di, offset Str1
mov al, ' '
cld
repe scasb
jz l1
inc Count
repne scasb
jne l1
jmp l2
l1:or Count, '0'
mov dx, offset Str2
mov ah, 09h
int 021h
l2:mov ax,04c00h
int 21h
.stack 100h
end start