十字路口交通信号灯模拟 源程序.doc

CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 32F0HPA EQU 0FFD8HPB EQU 0FFD9HPC EQU 0FFDAHPCTL EQU 0FFDBHH3: MOV AL,90H MOV DX,PCTL OUT DX,AL;控制字A口输入，B、C口输出，工作在方式0;=L1: MOV DX,PA ;PA.0口输入自动开 IN AL,DX TEST AL,01H JZ L1 ;=N1: MOV DX,PB ;PB.0红灯 MOV AL,0FEH OUT DX,AL ;=L2: MOV DX,PA ;PA.0口输入自动关 IN AL,DX TEST AL,01H JZ L2 ;= MOV DX,PA ;PA.1口输入南北灯走动 东西灯为绿色 进C1 IN AL,DX TEST AL,02H JZ C1 ;= MOV DX,PA ;PA.2口输入南北灯走动 东西灯为绿色 进C2 IN AL,DX TEST AL,04H JZ C2 ;= MOV DX,PC ;PC.1绿灯 MOV AL,0FDH OUT DX,AL CALL DELAY ;延时2s MOV DX,PB ;PB.1绿灯 MOV AL,0FDH OUT DX,AL MOV DX,PC ;PC.2黄灯 MOV AL,0FBH OUT DX,AL CALL DELAY ;延时2s MOV DX,PB ;PB.1绿灯 MOV AL,0FDH OUT DX,AL MOV DX,PC ;PC.0红灯 MOV AL,0FEH OUT DX,AL CALL DELAY ;延时2s MOV DX,PB ;PB.2黄灯 MOV AL,0FBH OUT DX,AL MOV DX,PC ;PC.1绿灯 MOV AL,0FDH OUT DX,AL CALL DELAY ;延时2s JMP N1;=C1: ;= MOV DX,PA ;PA.0口输入自动关 IN AL,DX TEST AL,04H JZ C2 ;0跳，1不跳 ;= MOV DX,PB ;PB南北红灯亮，PC东西绿灯亮 MOV AL,0FEH OUT DX,AL MOV DX,PC MOV AL,0FDH OUT DX,AL CALL DELAYY ;延时 JMP C1C2:;= MOV DX,PA ;PA.0口输入自动关 IN AL,DX TEST AL,02H JZ C1 ;0跳，1不跳 ;= MOV DX,PC ;PC东西红灯亮，PB南北绿灯亮 MOV AL,0FEH OUT DX,AL MOV DX,PB MOV AL,0FDH OUT DX,AL CALL DELAYYY ;延时 JMP C2;=;=DELAY: PUSH CX ;延时2s MOV CX,8FFFH;=Q1: MOV DX,PA ;PA.0口输入防止开关引起灯的亮灭延迟 IN AL,DX TEST AL,01H JZ Q1;= LOOP $ MOV CX,8FFFH;=Q2: MOV DX,PA ;PA.0口输入防止开关引起灯的亮灭延迟 IN AL,DX TEST AL,01H JZ Q2;= LOOP $ MOV CX,8FFFH;=Q3: MOV DX,PA ;PA.0口输入防止开关引起灯的亮灭延迟 IN AL,DX TEST AL,01H JZ Q3;= LOOP $ MOV CX,8FFFH;=Q4: MOV DX,PA ;PA.0口输入防止开关引起灯的亮灭延迟 IN AL,DX TEST AL,01H JZ Q4;= LOOP $ MOV CX,8FFFH;=Q5: MOV DX,PA ;PA.0口输入防止开关引起灯的亮灭延迟 IN AL,DX TEST AL,01H JZ Q5;= LOOP $ MOV CX,8FFFH;=Q6: MOV DX,PA ;PA.0口输入防止开关引起灯的亮灭延迟 IN AL,DX TEST AL,01H JZ Q6;= LOOP $ POP CX RETDELAYY: PUSH CX ;延时2s MOV CX,8FFFH LOOP $ POP CX RETDELAYYY: PUSH CX ;延时2s MOV CX,8FFFH LOOP $ POP CX RET;=CODE ENDS END H3;-软件实验 显示程序-CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 3000HS9: JMP START9ZXK EQU 0FFDCHZWK EQU 0FFDDHLED DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H DB 88H,83H,0C6H,0A1H,86H,8EH,0FFH,0CH,0DEH,0F3HBUF DB ?,?,?,?,?,?START9: MOV CX,0005H ;dais 88 ON/OFFLED,COUNTA90: PUSH CXA91: MOV BX,OFFSET BUF MOV AX,0A0DH MOV BX,AX ADD BX,2 MOV AX,0501H MOV BX,AX ADD BX,2 MOV AX,0808H MOV BX,AX ; CALL DIS; JMP START9;-DIS: MOV CL,20H MOV BX,OFFSET BUFDIS1: MOV AL,BX PUSH BX MOV BX,OFFSET LED XLAT POP BX MOV DX,ZXK OUT DX,AL MOV AL,CL MOV DX,ZWK OUT DX,AL PUSH CX MOV CX,0