单片机课件实验程序

1、实验三PORT简单I/O口扩展实验交通灯控制实验EQU0CFA0H;片选地址CS0CSEGAT0000HLJMP STARTCSEGAT4100H DPTR,#PORT A,#03HSTART: MOVMOV;两个红灯亮，黄灯、绿灯灭MOVXDPTR,AACALLDE3S;延时3秒543210南北（绿）东西（绿）南北（黄）东西（黄）南北（红）东西（红）LLL:MOVA,#12H;东西路口绿灯亮;南北路口红灯亮MOVXDPTR,AACALLDE10S;延时10秒MOVA,#02H;东西路口绿灯灭;南北路口红灯亮MOVXDPTR,A543210南北绿东西绿南北黄东西黄南北红东西红次MOVR2,#0

2、5H;R2中的值为黄灯闪烁次数TTT:MOVA,#06H;东西路口黄灯亮;南北路口红灯亮MOVXDPTR,AACALLDE02S;延时0.2秒MOVA,#02H;东西路口黄灯灭;南北路口红灯亮MOVXDPTR,AACALLDE02S;延时0.2秒DJNZR2,TTT;返回TTT，使东西路口;黄灯闪烁五543210南北绿东西绿南北黄东西黄南北红东西红MOVA,#03H;两个红灯亮，黄灯、绿灯灭MOVXDPTR,AACALLDE02S;延时0.2秒MOVA,#21H;东西路口红灯亮;南北路口绿灯亮MOVXDPTR,AACALLDE10S;延时10秒MOVA,#01H;东西路口红灯亮;南北路口绿灯灭

3、MOVXDPTR,A543210南北绿东西绿南北黄东西黄南北红东西红MOV MOVR2,#05H A,#09H;黄灯闪烁五次GGG:;东西路口红灯亮;南北路口黄灯亮MOVXDPTR,AACALLDE02S;延时0.2秒MOVA,#01H;东西路口红灯亮;南北路口黄灯灭MOVXDPTR,AACALLDE02S;延时0.2秒DJNZR2,GGG;返回GGG，使南北路口;黄灯闪烁五次MOVA,#03H;两个红灯亮，黄灯、绿灯灭MOVXDPTR,A5AC4ALLD3E02S2;延1时0.20秒南北JM东P西L南L北L黄东西;转L南L北L 循东环西绿绿黄红红；延时程序DE10S:MOVJMPR5,#10

4、0 DE1 R5,#30 DE1 R5,#02 R6,#200 R7,#126 R7,DE3 R6,DE2 R5,DE1;延时10秒DE3S:MOV JMP;延时3秒DE02S: MOV;延时0.2秒DE1: DE2: DE3:MOV MOV DJNZ DJNZ DJNZ RET END实验五PORTSAVE中断实验交通灯控制实验EQU EQU0CFA0H55H;端口地址;save保存从端口cfa0输出的数据AT 0000HCSEGLJMP STARTCSEGAT 4100HSTART: MOVMOV MOV SETB SETB SETBDPTR,#PORTA,#03H;置首显示码SAVE,A;保存；开INT0中断；开总允许开关；负跳变触发中断EX0 EA IT0MOVXDPTR,A ;显示输出ACALLDE3S;延时3秒CSEGAT 4003HLJMP INTINT:PUSH PUSH MOV PUSH MOVACC PSW A,R5 ACC;中断处理A,#0C3H;红灯全亮，绿、黄灯全灭MOVX DEL10S: MOVDPTR,A R3,#100 R4,#200 R5,#126 R5,DEL3;延时10秒DEL1: DEL2: DEL3:MOV MOV DJNZDJNZ DJNZ MOVR4,DEL2 R3,DEL1 A,SAVEPOP POP