led.asm

LED 流水程序可以用作护栏管和其他LED应用产品上。

      org 00h
      org 03h
min:  setb p1.1
      lcall ls1
      lcall ls1
      clr  p1.1
      setb p1.2
      lcall ls1
      lcall ls1
      clr  p1.2
      setb p1.3
      lcall ls1
      lcall ls1
      clr  p1.3
      setb p1.4
      lcall ls1
      lcall ls1
      clr  p1.4
      setb p1.5
      lcall ls1
      lcall ls1
      clr  p1.5
      setb p1.6
      lcall ls1
      lcall ls1
      clr  p1.6
      setb p1.7
      lcall ls1
      lcall ls1
      clr  p1.7
      setb p1.6
      lcall ls1
      lcall ls1
      clr  p1.6
      setb p1.5
      lcall ls1
      lcall ls1
      clr  p1.5
      setb p1.4
      lcall ls1
      lcall ls1
      clr  p1.4
      setb p1.3
      lcall ls1
      lcall ls1
      clr  p1.3
		setb p1.2
      lcall ls1
      lcall ls1
      clr  p1.2
		setb p1.1
      lcall ls1
      lcall ls1
      clr  p1.1
      lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		mov p1,#0FFH
      lcall ls1
		lcall ls1
      clr  p1.1
      lcall ls1
      clr  p1.2
		lcall ls1
		clr  p1.3
		lcall ls1
		clr  p1.4
		lcall ls1
		clr  p1.5
		lcall ls1
		clr  p1.6
		lcall ls1
		clr  p1.7
		lcall ls1
      setb p1.7
		lcall ls1
		setb p1.6
		lcall ls1
		setb p1.5
		lcall ls1
		setb p1.4
		lcall ls1
		setb p1.3
		lcall ls1
		setb p1.2
		lcall ls1
		setb p1.1
		lcall ls1
      mov  p1, 00h
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		lcall min1
		ajmp min
;
min1: MOV  P1, #0FFH
      lcall ls1
      mov  p1, 00h
      lcall ls1
		ret
;
ls1: mov r2,#250
x1: mov r1,#250
x2: djnz r1,x2
    djnz r2,x1
    ret
    end