仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）
.MODEL SMALL
.8086
.stack
.code
.startup
MOV DX,0200H
LOOP0: MOV BL,SEC
AND BX,000FH
MOV SI,BX
MOV AL,SITUATION[SI]
MOV BL,SEC
AND BX,00F0H
MOV CL,4
SHR BX,CL
MOV SI,BX
MOV AH,SITUATION[SI]
OUT DX,AX
CALL DELAY
MOV AL,SEC
ADD AL,1
DAA
MOV SEC,AL
CMP SEC,60H
JB LOOP0
MOV SEC,0
JMP LOOP0
DELAY PROC NEAR
PUSH BX
PUSH CX
MOV BX,50
DEL1: MOV CX,5882
DEL2: LOOP DEL2
DEC BX
JNZ DEL1
POP CX
POP BX
RET
DELAY ENDP
.data
SEC DB 00H
SITUATION DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
SIT_END=$
END
|
