led       equ       p2
          org       00h
;--------------------------------------
start:    mov       led,#11110011b
          mov       r5,#150
          call      delay
;--------------------------------------
          mov       led,#11110111b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11110011b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11110111b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11110011b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11110111b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11110011b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11110101b
          mov       r5,#30
          call      delay
;--------------------------------------
          mov       led,#11011110b
          mov       r5,#150
          call      delay
;--------------------------------------
          mov       led,#11111110b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11011110b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11111110b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11011110b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11111110b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11011110b
          mov       r5,#5
          call      delay
;--------------------------------------
          mov       led,#11101110b
          mov       r5,#30
          call      delay
;--------------------------------------
          jmp       start
;--- delay time = r5 * 0.08s ---------
delay:    mov       r6,#200
del1:     mov       r7,#200
del:      djnz      r7,del
          djnz      r6,del1
          djnz      r5,delay
          ret
;--------------------------------------
          end