data     segment
n1        db 30h dup('$')
n2    db 30h dup('$')
data     ends
cr    macro
    mov dl,0ah
    mov ah,2
    int 21h
    mov dl,0dh
    mov ah,2
    int 21h
    endm
code      segment    
assume    cs:code,ds:data
start:    mov ax,data
    mov ds,ax
    lea si,n1
    mov cx ,26
    mov al,'a'
s1:    mov  [si],al
    inc al
    inc si
    loop s1

    lea  dx,n1
    mov ah,9
    int 21h
cr
    x=0
    lea si,n1
    rept 32
    
if    x mod 6
    
    mov dl,[si]
    mov ah,2
    int 21h
    inc si
    
else    
    cr
    endif

x=x+1
    endm
    
    mov ah,4ch
    int 21h
code    ends
end     start

data     segment
n1        db 30h dup('$')
n2    db 30h dup('$')
data     ends
cr    macro
    mov dl,0ah
    mov ah,2
    int 21h
    mov dl,0dh
    mov ah,2
    int 21h
    endm
code      segment    
assume    cs:code,ds:data
start:    mov ax,data
    mov ds,ax
    lea si,n1
    mov cx ,26
    mov al,'a'
s1:    mov  [si],al
    inc al
    inc si
    loop s1

    lea  dx,n1
    mov ah,9
    int 21h
cr
    x=0
    lea si,n1
    rept 32
    
if    x mod 6
    
    mov dl,[si]
    mov ah,2
    int 21h
    inc si
    
else    
    cr
    endif

x=x+1
    endm
    
    mov ah,4ch
    int 21h
code    ends
end     start