.model small
.code
.startup
push ds
pop es
mov ax, 0600h
mov dx, 0FFFFh
xor cx, cx
mov bh, 00000111b
int 10h
mov bl, 10110110b
mov dh, 5
lNext: mov ah, 13h
mov al, 1
mov bh, 0
ror bl, 1
mov cx, string_len
inc dh
mov dl, 20
lea bp, string
int 10h
xor ax, ax
int 16h
dec cycle_n
jnz lNext
.exit 0
.data
string db ' <<<< ---- TEST ---- STRING ---- >>>> '
string_len dw $-string
cycle_n dw 13
.stack 128
end