जलन-Jalan

mov p0,#0h
mov p1,#0h
mov p2,#0h
mov p3,#0h
start:
acall klap_klip_2port
acall klap_klip_2port
acall klap_klip_2port
acall klap_klip_2port
acall klap_klip_2port
acall susun_kiri_p1
acall susun_kiri_p3
acall susun_kiri_p0
acall susun_kiri_p2
sjmp start
klap_klip_2port:
mov p0,#0h
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0
acall tunda
mov p0,#0h
mov p1,#0h
mov p2,#0h
mov p3,#0h
acall tunda
mov p0,#0h
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0
acall tunda
mov p0,#0h
mov p1,#0h
mov p2,#0h
mov p3,#0h
acall tunda
mov p0,#0ffh
mov p1,#0h
mov p2,#0h
mov p3,#0ffh
acall tunda
mov p0,#0h
mov p1,#0h
mov p2,#0h
mov p3,#0h
acall tunda
mov p0,#0ffh
mov p1,#0h
mov p2,#0h
mov p3,#0ffh
acall tunda
mov p0,#0h
mov p1,#0h
mov p2,#0h
mov p3,#0h
ret
susun_kiri_p1:
mov p1,#01h
acall tunda
mov p1,#02h
acall tunda
mov p1,#04h
acall tunda
mov p1,#08h
acall tunda
mov p1,#10h
acall tunda
mov p1,#20h
acall tunda
mov p1,#40h
acall tunda
mov p1,#80h
acall tunda
mov p1,#81h
acall tunda
mov p1,#82h
acall tunda
mov p1,#84h
acall tunda
mov p1,#88h
acall tunda
mov p1,#90h
acall tunda
mov p1,#0a0h
acall tunda
mov p1,#0c0h
acall tunda
mov p1,#0c1h
acall tunda
mov p1,#0c2h
acall tunda
mov p1,#0c4h
acall tunda
mov p1,#0c8h
acall tunda
mov p1,#0d0h
acall tunda
mov p1,#0e0h
acall tunda
mov p1,#0e1h
acall tunda
mov p1,#0e2h
acall tunda
mov p1,#0e4h
acall tunda
mov p1,#0e8h
acall tunda
mov p1,#0f0h
acall tunda
mov p1,#0f1h
acall tunda
mov p1,#0f2h
acall tunda
mov p1,#0f4h
acall tunda
mov p1,#0f8h
acall tunda
mov p1,#0f9h
acall tunda
mov p1,#0fah
acall tunda
mov p1,#0fch
acall tunda
mov p1,#0fdh
acall tunda
mov p1,#0feh
acall tunda
mov p1,#0ffh
acall tunda
ret
susun_kiri_p3:
mov p3,#01h
acall tunda
mov p3,#02h
acall tunda
mov p3,#04h
acall tunda
mov p3,#08h
acall tunda
mov p3,#10h
acall tunda
mov p3,#20h
acall tunda
mov p3,#40h
acall tunda
mov p3,#80h
acall tunda
mov p3,#81h
acall tunda
mov p3,#82h
acall tunda
mov p3,#84h
acall tunda
mov p3,#88h
acall tunda
mov p3,#90h
acall tunda
mov p3,#0a0h
acall tunda
mov p3,#0c0h
acall tunda
mov p3,#0c1h
acall tunda
mov p3,#0c2h
acall tunda
mov p3,#0c4h
acall tunda
mov p3,#0c8h
acall tunda
mov p3,#0d0h
acall tunda
mov p3,#0e0h
acall tunda
mov p3,#0e1h
acall tunda
mov p3,#0e2h
acall tunda
mov p3,#0e4h
acall tunda
mov p3,#0e8h
acall tunda
mov p3,#0f0h
acall tunda
mov p3,#0f1h
acall tunda
mov p3,#0f2h
acall tunda
mov p3,#0f4h
acall tunda
mov p3,#0f8h
acall tunda
mov p3,#0f9h
acall tunda
mov p3,#0fah
acall tunda
mov p3,#0fch
acall tunda
mov p3,#0fdh
acall tunda
mov p3,#0feh
acall tunda
mov p3,#0ffh
acall tunda
ret
susun_kiri_p0:
mov p0,#01h
acall tunda
mov p0,#02h
acall tunda
mov p0,#04h
acall tunda
mov p0,#08h
acall tunda
mov p0,#10h
acall tunda
mov p0,#20h
acall tunda
mov p0,#40h
acall tunda
mov p0,#80h
acall tunda
mov p0,#81h
acall tunda
mov p0,#82h
acall tunda
mov p0,#84h
acall tunda
mov p0,#88h
acall tunda
mov p0,#90h
acall tunda
mov p0,#0a0h
acall tunda
mov p0,#0c0h
acall tunda
mov p0,#0c1h
acall tunda
mov p0,#0c2h
acall tunda
mov p0,#0c4h
acall tunda
mov p0,#0c8h
acall tunda
mov p0,#0d0h
acall tunda
mov p0,#0e0h
acall tunda
mov p0,#0e1h
acall tunda
mov p0,#0e2h
acall tunda
mov p0,#0e4h
acall tunda
mov p0,#0e8h
acall tunda
mov p0,#0f0h
acall tunda
mov p0,#0f1h
acall tunda
mov p0,#0f2h
acall tunda
mov p0,#0f4h
acall tunda
mov p0,#0f8h
acall tunda
mov p0,#0f9h
acall tunda
mov p0,#0fah
acall tunda
mov p0,#0fch
acall tunda
mov p0,#0fdh
acall tunda
mov p0,#0feh
acall tunda
mov p0,#0ffh
acall tunda
ret
susun_kiri_p2:
mov p2,#01h
acall tunda
mov p2,#02h
acall tunda
mov p2,#04h
acall tunda
mov p2,#08h
acall tunda
mov p2,#10h
acall tunda
mov p2,#20h
acall tunda
mov p2,#40h
acall tunda
mov p2,#80h
acall tunda
mov p2,#81h
acall tunda
mov p2,#82h
acall tunda
mov p2,#84h
acall tunda
mov p2,#88h
acall tunda
mov p2,#90h
acall tunda
mov p2,#0a0h
acall tunda
mov p2,#0c0h
acall tunda
mov p2,#0c1h
acall tunda
mov p2,#0c2h
acall tunda
mov p2,#0c4h
acall tunda
mov p2,#0c8h
acall tunda
mov p2,#0d0h
acall tunda
mov p2,#0e0h
acall tunda
mov p2,#0e1h
acall tunda
mov p2,#0e2h
acall tunda
mov p2,#0e4h
acall tunda
mov p2,#0e8h
acall tunda
mov p2,#0f0h
acall tunda
mov p2,#0f1h
acall tunda
mov p2,#0f2h
acall tunda
mov p2,#0f4h
acall tunda
mov p2,#0f8h
acall tunda
mov p2,#0f9h
acall tunda
mov p2,#0fah
acall tunda
mov p2,#0fch
acall tunda
mov p2,#0fdh
acall tunda
mov p2,#0feh
acall tunda
mov p2,#0ffh
acall tunda
ret

tunda:
mov r7,#255
tnd:
mov r6,#100
djnz r6,$
djnz r7,tnd
ret