Строка: Вывести на экран каждую третью букву строки

.model small
.stack 256
.data
max db 30
len db ?
s1 db 30 dup(?)
zap db 30 dup (',') 
pr db 30 dup(' ')
mes db 'Vvedite stroku:',10,13,'$'
new db 10,13,'$' 
.code
start:
mov ax,@data
mov ds,ax
mov es,ax
mov ah,09h
lea dx,mes
int 21h
mov ah,0Ah
lea dx,max
int 21h
mov bl,len
mov s1[bx],'$' 
mov cl,len
dec bx
lea di,s1[bx]
lea si,zap[bx]
std 
repne cmpsb
cmp di,0
je K
inc di
push di
cld
cld
lea di,s1 
lea si,pr 
mov cl,len
repe cmpsb
mov si,di 
pop di
movsb 
K:
mov ah,09h
lea dx,new
int 21h
mov ah,9
lea dx,s1
int 21h 
mov ah,4ch
int 21h
end start

#fasm#          ; this code is for flat assembler
 
name "mycode"   ; output file name (max 8 chars for DOS compatibility)
 
org  100h   ; set location counter to 100h
 push cs
 pop ds
                   
 mov si,stt
 cld
 mov cx,10
 xor bx,bx
 
m1:
 lodsb
 cmp bx,1
 ja m2 
 
 inc bx 
 jmp m3
 
m2:
 xor bx,bx
 
 mov dl,al
 mov ah,02h
 int 21h
 
 mov dl,' '
 mov ah,02h
 int 21h
 
m3:
 loop m1                   
 
ret 
stt db '1234567890'

org 100h
   dw    3EBh
   jmp   0
   sub   esp,4
   mov   word[esp],21CDh
   mov   byte[esp+2],0C3h
   add   di,200h
   mov   si,di
   inc   ah
@@:
   call  esp
   cmp   al,13
   je    skuns
   db    0AAh
   inc   cl
   jmp   @b
skuns:
   mov   al,10
   int   29h
   shr   cx,1
@@:
   lodsw
   lodsb
   dw    29CDh
   loop  @b
   add   esp,4
   jmp   $$+2