K1 EQU P1.0K2 EQU P1.1K3 EQU P1.2K4 EQU P1.3LED EQU 30HORG 0000HLJMP MAINORG 0030HMAIN: MOV LED,#0FEH ;初值，點亮1一個LEDMAIN0: JB K1,MAIN1 ;K1未按下轉變MAIN1 MOV A,LED ;LED值送A MOV P0,A ;送P0口點亮LED燈 RL A ;左移一位 MOV LED,A ;儲存LED值 LCALL DELAY ;延時 SJMP MAIN0MAIN1: JB K2,MAIN2 ;K2未按下轉MAIN2 MOV A,LED MOV P0,A RR A ;右移一位 MOV LED,A LCALL DELAY SJMP MAIN0MAIN2: JB K3,MAIN3 MOV A,LED MOV P0,A RL A ;左移兩位 RL A MOV LED,A LCALL DELAY SJMP MAIN0MAIN3: JB K4,MAIN0 MOV A,LED MOV P0,A RR A ;右移兩位 RR A MOV LED,A LCALL DELAY SJMP MAIN0DELAY: MOV R2,#100DELAY1: MOV R3,#250 DJNZ R3,$ DJNZ R2,DELAY1 RET END