Kodingan Assembler LED

Assalamualaikum.....

Pada kesempatan ini saya akan membagi kepada teman-teman yang ingin membuat proyek lab MP pada tahun ajaran selanjutnya, semoga dapat bermanfaat buat kalian ya. langsung aja saya cantumkan kodingannya.

$mod51
org 0h

pil    : jnb p0.1,kiri
      jnb p0.2,kanan
      jnb p0.3,bentrok
      jnb p0.4,gabung
      sjmp pil
     
kiri:      mov r5,#8h
      mov dptr,#kata

ulang    : clr a
      movc a,@a+dptr
      mov p2,a
      acall delay
      inc dptr
      djnz r5,ulang
      sjmp pil

   
kanan    : mov r6,#8h
      mov dptr,#kata1

ulang1    : clr a
      movc a,@a+dptr
      mov p2,a
      acall delay
      inc dptr
      djnz r6,ulang1
      sjmp pil
     
     
bentrok : mov r7,#7h
      mov dptr,#kata2

ulang2    : clr a
      movc a,@a+dptr
      mov p2,a
      acall delay
      inc dptr
      djnz r7,ulang2
      sjmp pil

gabung    : mov r3,#17h
      mov dptr,#kata3

ulang3    : clr a
      movc a,@a+dptr
      mov p2,a
      acall delay
      inc dptr
      djnz r3,ulang3
      sjmp pil


kata    : db 0feh,0fdh,0fbh,0f7h,0efh,0dfh,0bfh,07fh
kata1    : db 07fh,0bfh,0dfh,0efh,0f7h,0fbh,0fdh,0feh
kata2    : db 07eh,0bdh,0dbh,0e7h,0dbh,0bdh,07eh
kata3    : db 0feh,0fdh,0fbh,0f7h,0efh,0dfh,0bfh,07fh,07fh,0bfh,0dfh,0efh,0f7h,0fbh,0fdh,0feh,07eh,0bdh,0dbh,0e7h,0dbh,0bdh,07eh

delay    : mov r0,#02h
lagi    : djnz r2,lagi
      djnz r1,lagi
      djnz r0,lagi
      ret
end

Itulah kodingan yang dapat saya buat dalam memmbuat proyek running led, semoga dapat bermanfaat, lebih dan kurangnya mohon di maklumi ya.

Wassalamualaikum.....