0303p23s1.asm

用S1实验板 P1口的8个发光管每隔2个右循环点亮

;用S1实验板
;P1口的8个发光管每隔2个右循环点亮 
;*********************************************************************************
     ORG 0000H       ;程序开始,ORG是一条伪指令,表示程序从地直0000H开始运行.
     LJMP MAIN       ;跳转到MAIN主程序处.
     ORG 030H        ;主程序MAIN从地址030H开始.
MAIN:MOV P1,#0DBH    ;MAIN是标号,将二进制数11011011B送入P1口,低电平0点亮发光管.
     ACALL DEL       ;调用延时子程序维持发光管点亮.
     MOV P1,#06DH    ;送立即数6DH即01101101B,结果点亮的发光管右移一位.
     ACALL DEL       ;调用延时子程序维持发光管点亮
     MOV P1,#0B6H    ;送立即数0B6H即10110110B,结果点亮的发光管继续右移一位
     ACALL DEL       ;调用延时子程序维持发光管点亮
     AJMP MAIN       ;跳转到MAIN循环
 DEL:MOV R7,#0FFH    ;延时子程序
DEL1:MOV R6,#0FFH
DEL2:DJNZ R6,DEL2
     DJNZ R7,DEL1
     RET             ;返回调用延时子程序处.
     END             ;程序结束.