spunt

Помогите сделать блок-схему к программе Proteus на языке Accembler
код:

P1 EQU 90H; Адрес регистра порта P1
P10 EQU 090H; Адресс отдельных линий порта P1
P15 EQU 095H;
P2 EQU OAOH; Адресс регистра порта P2
IE EQU OA8H; Адресс регистра упр-я прерываниеми

ORG 0000
ajmp start
ORG 0003H
setb p10
reti
ORG 0030H
start
mov IE, #10000101B
mov P1, #0
mov P2, #00000110B
acall delay
mov P2, #11011011B
acall delay
mov P2, #01001111B
acall delay
mov P2, #01100110B
acall delay
mov P2, #11101101B
acall delay
mov P2, #01111101B
acall delay
mov P2, #00000111B
acall delay
mov P2, #01111111B
acall delay
mov P2, #01101111B
acall delay
mov P2, #00111111B
acall delay
mov P2, #00111111B
acall delay
ajmp start
symb_h:
mov p2, #01110001B
mov p2, #01111110B
mov p2, #00111001B
mov p2, #01110110B
mov p2, #00111111B
mov p2, #01110001B
mov p2, #01110001B
RET delay
mov R7, #255
label1: mov R6, #255
DTNS R6,$
DTNS R7,$
ret
end

Пожалуйста... очень надо, буду очень благодарен!!!