org 0

start:

mov dptr,#8008h
movx @dptr,1000000b
mov dpl,#0
mov dph,#250
ljmp opoznienie

mov dptr,#8008h
movx @dptr,01000000b
mov dpl,#0
mov dph,#250
ljmp opoznienie

mov dptr,#8008h
movx @dptr,0010000b
mov dpl,#0
mov dph,#250
ljmp opoznienie

mov dptr,#8008h
movx @dptr,0001000b
mov dpl,#0
mov dph,#250
ljmp opoznienie

mov dptr,#8008h
movx @dptr,0000100b
mov dpl,#0
mov dph,#250
ljmp opoznienie


mov dptr,#8008h
movx @dptr,0000010b
mov dpl,#0
mov dph,#250
ljmp opoznienie

mov dptr,#8008h
movx @dptr,0000001b
mov dpl,#0
mov dph,#250
ljmp opoznienie

mov dptr,#8008h
movx @dptr,0000000b


mov P1,#0
mov dptr,#8018h
movx @dptr,0000001b
mov dpl,#0
mov dph,#250
ljmp opoznienie



mov P1,#1
mov dptr,#8018h
movx @dptr,0000001b
mov dpl,#0
mov dph,#250
ljmp opoznienie
mov dptr,#8018h
movx @dptr,0000000b


mov P1,#2
mov dptr,#8018h
movx @dptr,0000001b
mov dpl,#0
mov dph,#250
ljmp opoznienie
mov dptr,#8018h
movx @dptr,0000000b


mov P1,#3
mov dptr,#8018h
movx @dptr,0000001b
mov dpl,#0
mov dph,#250
ljmp opoznienie
mov dptr,#8018h
movx @dptr,0000000b

ljmp start






loop:
inc dptr
mov a,dph
orl a,dpl
jnz opoznienie
ret



end