123.asm

汇编时钟程序 请大家指教 如果不好 请修改

DATA SEGMENT 
DAY DB 'The day is $' 
TIME DB 'Current time is $' 
PRESS DB 'Press any key to exit!$' 
DATA ENDS 

CODE SEGMENT 
ASSUME CS:CODE,DS:DATA 

START: 
MOV AX,DATA 
MOV DS,AX 
BEGIN: CALL CLEAR 
LEA DX,DAY 
MOV AH,09H 
INT 21H 
MOV AH,2AH 
INT 21H 

MOV AX,CX 
PUSH DX 
XOR DX,DX 
MOV BX,1000 
DIV BX 
PUSH DX 
MOV DL,AL 
CALL ZH 
POP DX 
MOV AX,DX 
MOV BL,100 
DIV BL 
MOV DL,AL 
PUSH AX 
CALL ZH 
POP AX 
MOV AL,AH 
MOV AH,0 
CALL LBR 
MOV DL,'-' 
MOV AH,02H 
INT 21H 

POP DX 
MOV BX,DX 
MOV AX,0 
MOV AL,DH 
CALL LBR 
MOV DL,'-' 
MOV AH,02H 
INT 21H 

MOV AX,0 
MOV AL,BL 
CALL LBR 
CALL HC 

LEA DX,TIME 
MOV AH,09H 
INT 21H 
MOV AH,2CH 
INT 21H 

MOV AX,0 
MOV AL,CH 
CALL LBR 
MOV DL,':' 
MOV AH,02H 
INT 21H 

MOV AX,0 
MOV AL,CL 
CALL LBR 
MOV DL,':' 
MOV AH,02H 
INT 21H 

MOV AX,0 
MOV AL,DH 
CALL LBR 
CALL HC 

LEA DX,PRESS 
MOV AH,09H 
INT 21H 
CALL HC 
CALL WAITF 


MOV AH,0BH 
INT 21H 
INC AL 
JE EXIT 

JMP BEGIN 

EXIT: MOV AH,4CH 
INT 21H 

HC PROC 
MOV DL,0DH 
MOV AH,02H 
INT 21H 
MOV DL,0AH 
MOV AH,02H 
INT 21h 
RET 
HC ENDP 

LBR PROC 
MOV DL,10 
DIV DL 
MOV BH,AH 
MOV DL,AL 
ADD DL,30H 

MOV AH,02H 
INT 21H 

MOV DL,BH 
ADD DL,30H 
MOV AH,02H 
INT 21H 
RET 
LBR ENDP 

ZH PROC 
ADD DL,30H 
MOV AH,02H 
INT 21H 
RET 
ZH ENDP 

CLEAR PROC 
MOV AL,0 
MOV CX,0 
MOV DH,48 
MOV DL,79 
MOV BH,7 
MOV AH,6 
INT 10H 
RET 
CLEAR ENDP 

WAITF PROC 
MOV CX,65535 
PUSH AX 
NEXT2: IN AL,61H 
AND AH,10H 
CMP AL,AH 
LOOP NEXT2 
POP AX 
RET 
WAITF ENDP 

CODE ENDS 
END START