data segment
s1 DB 0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB 0,0,0,3,3,3,0,0,0,0,0,0,0,0,0,3,3,0,0,0
DB 0,0,0,3,3,0,0,0,0,3,3,3,3,3,3,3,3,0,0,0
DB 0,0,0,3,3,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0
DB 0,0,0,3,3,0,3,3,3,0,0,0,0,3,3,0,0,0,0,0
DB 0,3,3,3,3,3,3,3,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,0,3,3,0,3,3,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,3,3,0,0,3,3,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,3,3,0,0,3,3,0,0,0,0,3,3,0,0,3,3,3,0
DB 0,0,3,3,0,3,3,3,3,3,3,3,3,3,3,3,3,0,0,0
DB 0,0,3,3,0,3,3,0,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,3,3,0,0,3,3,0,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,3,3,3,3,3,0,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,0,0,3,3,3,3,0,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,0,3,3,0,3,3,3,0,0,0,3,3,0,0,0,0,0,0
DB 0,0,3,3,0,0,0,3,3,0,0,0,3,3,0,0,0,0,0,0
DB 0,3,3,0,0,0,0,0,0,0,3,3,3,3,0,0,0,0,0,0
DB 3,3,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
cnt1
db 20
cnt2
db 20
data ends
code segment
assume cs:code, ds:data
start:
mov ax, data
mov ds, ax
mov ah, 00h
mov al, 04h
int 10h
mov ah, 0bh
mov dh, 01h
mov dl, 00h
int 10h
xor di, di
mov ah, 0CH
mov dx, 50
mov cnt1, 20
LL1:
mov cx, 50
mov cnt2, 20
LL2:
cmp [s1+di], 2
jl black
mov al, 1
jmp rets
black:
mov al, 0
rets:
int 10h
inc di
inc cx
dec [cnt2]
jnz LL2
inc dx
dec [cnt1]
jnz LL1
;============================
exit:
mov ah, 7
int 21h
mov ah, 4ch
int 21h
code ends
end start