h84s.asm

来自「上课老师给的8086仿真器」· 汇编 代码 · 共 70 行

CODE SEGMENT
ASSUME CS:CODE
IOCONPT EQU 0FF2BH
IOAPT	EQU 0FF28H
IOBPT	EQU 0FF29H
IOCPT	EQU 0FF2AH
	ORG 10e0H
START:  MOV DX,IOCONPT
	MOV AL,80H
	OUT DX,AL
	MOV DX,IOBPT
	MOV AL,00H
 	OUT DX,AL
	MOV DX,IOCPT
	MOV AL,0FH             ;H
	OUT DX,AL
	CALL DELAY1
IOLED0: MOV AL,01011010B       ;13L 24H
	MOV DX,IOCPT
	OUT DX,AL
	CALL DELAY1
	CALL DELAY1
	MOV  AL,00001010B      ;13LN
	OUT DX,AL
	MOV CX,8H
IOLED1: MOV DX,IOBPT
	MOV AL,50H
 	OUT DX,AL
	CALL DELAY2
	MOV AL,00H
	OUT DX,AL
	CALL DELAY2
	LOOP IOLED1
	MOV DX,IOCPT
	MOV AL,10100101B
	OUT DX,AL
 	CALL DELAY1
	CALL DELAY1
	MOV  AL,00000101B
	OUT DX,AL
	MOV CX,8H
IOLED2: MOV DX,IOBPT
	MOV AL,0A0H
 	OUT DX,AL
	CALL DELAY2
	MOV AL,00H
	OUT DX,AL
	CALL DELAY2
	LOOP IOLED2
	MOV DX,IOCPT
	MOV AL,0FH
	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
CODE ENDS
END  START