jiaotongdengxianshi.txt

交通灯显示程序

CODE SEGMENT
ASSUME CS:CODE
IOCONPT EQU 0073H
IOAPT	EQU 0070H
IOBPT	EQU 0071H
IOCPT	EQU 0072H
IOBDATA EQU 0500H
CONTPORT EQU 00DFH
DATAPORT EQU 00DEH
DATA1	EQU 0640H
START:	JMP IOLED
IOLED:	CALL FORMAT
	CALL LEDDISP
	MOV AX,0H
	MOV DS,AX
	MOV AL,82H
	MOV DX,IOCONPT
	OUT DX,AL
	MOV DX,IOBPT
	IN AL,DX
	MOV BYTE PTR DS:[0501H],AL
	MOV DX,IOCONPT
	MOV AL,80H
	OUT DX,AL
	MOV DX,IOBPT
	MOV AL,DS:[0501H]
	 OR AL,0F0H
	OUT DX,AL
	MOV DX,IOCPT
	MOV AL,0F0H
	OUT DX,AL
	CALL DELAY1
IOLED0: MOV AL,10100101B
	MOV DX,IOCPT
	OUT DX,AL
	CALL DELAY1
	CALL DELAY1
	OR AL,0F0H
	OUT DX,AL
	MOV CX,8H
IOLED1: MOV DX,IOBPT
	MOV AL,DS:[0501H]
	AND AL,10101111B
	OUT DX,AL
	CALL DELAY2
	OR AL,01010000B
	OUT DX,AL
	CALL DELAY2
	LOOP IOLED1
	MOV DX,IOCPT
	MOV AL,0F0H
	OUT DX,AL
	CALL DELAY2
	MOV AL,01011010B
	OUT DX,AL
	CALL DELAY1
	CALL DELAY1
	OR AL,0F0H
	OUT DX,AL
	MOV CX,8H
IOLED2: MOV DX,IOBPT
	MOV AL,DS:[0501H]
	AND AL,01011111B
	OUT DX,AL
	CALL DELAY2
	OR AL,10100000B
	OUT DX,AL
	CALL DELAY2
	LOOP IOLED2
	MOV DX,IOCPT
	MOV AL,0F0H
	OUT DX,AL
	CALL DELAY2
	JMP IOLED0
DELAY1: PUSH AX
	PUSH CX
	MOV CX,0030H
DELY2:	CALL DELAY2
	LOOP DELY2
	POP CX
	POP AX
	RET

DELAY2: PUSH CX
	MOV CX,8000H
DELA1:	LOOP DELA1
	POP CX
	RET
LEDDISP:MOV AL,90H
	MOV DX,CONTPORT
	OUT DX,AL
	MOV BYTE PTR DS:[0600H],00
LED1:	CMP BYTE PTR DS:[0600H],07H
	JA  LED2
	MOV BL,DS:[0600H]
	MOV BH,0H
	MOV AL,CS:[BX+DATA1]
	MOV DX,DATAPORT
	OUT DX,AL
	ADD BYTE PTR DS:[0600H],01H
	JNZ LED1
LED2:	RET
FORMAT: MOV BX,0
	MOV WORD PTR DS:[BX+0640H],405BH
	ADD BX,2
	MOV WORD PTR DS:[BX+0640H],4040H
	ADD BX,2
	MOV WORD PTR DS:[BX+0640H],6D6DH
	ADD BX,2
	MOV WORD PTR DS:[BX+0640H],7F5BH
	RET
CODE ENDS
END  START