八路顺序控制器

listp=16f877
include"p16F877.inc"
;------------------------------------------------------------
deyhequ0x23;延迟子程序使用。
deylequ0x24
;-------------------------------------------------------------
;*************************************************************
org0x000
nop
start
bankselPORTB
clrfPORTB

bankselTRISB
clrfTRISB;设置B口为输出。
main
bankselPORTB;点亮B0位，顺序显示。
bsfPORTB,0
calldelay

bankselPORTB;点亮B1位。
bsfPORTB,1
calldelay

bankselPORTB;点亮B2位。
bsfPORTB,2
calldelay

bankselPORTB;点亮B3位。
bsfPORTB,3
calldelay

bankselPORTB;点亮B4位。
bsfPORTB,4
calldelay

bankselPORTB;点亮B5位。
bsfPORTB,5
calldelay

bankselPORTB;点亮B6位。
bsfPORTB,6
calldelay

bankselPORTB;点亮B7位。
bsfPORTB,7
calldelay
calldelay

;MOVlw0x00
;MOVwfPORTB
clrfPORTB
calldelay

bankselPORTB;点亮B7位，反序显示。
bsfPORTB,7
calldelay

bankselPORTB;点亮B6位。
bsfPORTB,6
calldelay

bankselPORTB;点亮B5位。
bsfPORTB,5
calldelay

bankselPORTB;点亮B4位。
bsfPORTB,4
calldelay

bankselPORTB;点亮B3位。
bsfPORTB,3
calldelay

bankselPORTB;点亮B2位。
bsfPORTB,2
calldelay

bankselPORTB;点亮B1位。
bsfPORTB,1
calldelay

bankselPORTB;点亮B0位。
bsfPORTB,0

clrfPORTB

calldelay

calldelay
gotomain

delayMOVlw0xff
MOVwfdeyh
delay_loopMOVlw0xff
MOVwfdeyl
delay_loop1nop
decfszdeyl
gotodelay_loop1
decfszdeyh
gotodelay_loop
return
end