;本程序的功能,通過P1口控制8個流水燈,從左循環到右,再從右循環到左
;其中并不包括中斷按鍵,這個代碼給你參考參考
;
PORT EQU P1 ORG 0000H ;主程序開始地址0000H AJMP START ;跳轉到地址MAIN處執行 ORG 0030H ;主程序地址0030H START: CALL LEFT ;設定左移次數,存放于寄存器R5 CALL RIGHT ;將數據FFH賦值給A JMP START ;跳轉到START ;以下是左移子程序 LEFT: PUSH PSW ;將PSW壓入堆棧 SETB RS1 ;將RS1置1,同下一條指令一起 ;選定寄存器組2 CLR RS0 ;將RS0置0 MOV R4,#8 ;將數據8賦值給R4 MOV A,#0FFH ;將數據FFH賦值給A CLR C ;將進位位C清0 NEXT1: RLC A ;帶進位左移
MOV PORT,A ;將A中數據賦給P2 CALL LATER ;調用延時程序 DJNZ R4,NEXT1 ;R4=R4-1,R4≠0時,轉到NEXT1 POP PSW ;出棧到PSW RET ;子程序結束,返回主程序 ;以下是右移子程序 RIGHT: PUSH PSW ;PSW壓入堆棧 SETB RS1 ;將RS1置1,同下一條指令一起選定 ;寄存器組2 SETB RS0 ;將RS0置1 MOV R4,#8 ;將數據8賦值給R4 MOV A,#0FFH ;將數據FFH賦值給A CLR C ;將進位為清0 NEXT2: RRC A ;帶進位位右移A MOV P1,A ;將A中數據賦給P2 CALL LATER ;調用延時程序 DJNZ R4,NEXT2 ;R4=R4-1,R4≠0時,轉到NEXT2 POP PSW ;出棧到PSW RET ;子程序結束,返回主程序 ;以下是延時子程序 LATER: MOV R7,#0FFH ; AD1: MOV R6,#0A0H ; AD2: DJNZ R6,AD2 ; DJNZ R7,AD1 ; RET ; END
|