程序10.docVIP

ORG 0000H AJMP MAIN ORG 0030H MAIN: MOV P1,#00H ; P1口先清零 ACALL DELAY1S ; 延迟1秒 MOV A,#0AAH ; 先让1、3、5、7通 MOV B,A ; 暂存于B寄存器中 MOV P1,A ; A值送到P1口 ACALL DELAY2S ; 延迟2秒 MOV A,B ; 暂存数放回A中 XRL A,#0FFH ; 0、2、4、6通 MOV P1,A ; A值送到P1口 ACALL DELAY2S ; 延迟2秒 MOV A,#01H ; 从P1.0开始一位一位通 LOOP1: MOV P1,A ; A值送到P1口 ACALL DELAY1S ; 延迟1秒 RL A ; A中内容左移一位 JB ACC.7 ,LOOP ;A中内容的最高位为1？ SJMP LOOP1 ; 否则继续左移 LOOP: MOV P1,A ; 显示最后一位 ACALL DELAY2S ; 延迟2秒 LOOP4: RR A ; 右移一位 MOV P1,A ; A值送到P1口 ACALL DELAY1S ; 延迟1秒 JB ACC.0,LOOP3 ; A的首位为1？ SJMP LOOP4 ; 否则继续 LOOP3: MOV P1,A ; 显示第一位 ACALL DELAY2S ; 延迟2秒 AJMP MAIN ; 重复循环 DELAY2S: ; 延迟2秒子程序 MOV R6,#02H ; 循环2次 DELAY: ACALL DELAY1S ; 调延迟1秒子程序 DJNZ R6,DELAY RET ;调用返回 DELAY1S: ;延时1秒子程序 MOV R7,#02H ;用6MHZ的晶振 LP3: MOV R5,#0F5H LP2: MOV R4,#0FEH LP1: NOP NOP DJNZ R4,LP1 NOP DJNZ R5,LP2 DJNZ R7,LP3 NOP RET END