.model small
         .data

source   db 'sklDFerSDFer'
upper    db 13, 10, upper-source+1 dup('$')
lower    db 13, 10, upper-source+1 dup('$')

         .code
start:   mov ax, DGROUP
         mov ds, ax
         xor si, si
         xor di, di
         xor bx, bx
         mov cx, upper-source
cycle:   mov al, source[bx]
         cmp al, 'A'
         jb short cntnue
         cmp al, 'z'
         ja short cntnue
         cmp al, 'Z'
         ja short lwer
         mov upper[si+2], al
         inc si
         jmp short cntnue
lwer:    cmp al, 'a'
         jb short cntnue
         mov lower[di+2], al
         inc di
cntnue:  inc bx
         loop cycle
         mov ah, 9
         mov dx, offset DGROUP: upper
         int 21h
         mov ah, 9
         mov dx, offset DGROUP: lower
         int 21h
         mov ax, 4c00h
         int 21h
         end start