作者:fihiboy 此贴贴于2003-11-27 11:18:11,已被阅读290次/回复0 
我发了个在dos或win98下能用的,还可以改时间,不太完善但可以用,点开看看
DATA SEGMENT
   MESS1 DB 'MY CLOCK NOW IS:         ','$'
   MESS2 DB 'SET MY CLOCK NEW TIME:   ','$'
   CRLF DB 13,10,'$'
   SHI DB 0
   FEN DB 0
   MIAO DB 0
   ERR DB 13,10,'WRONG INPUT!INPUT AGAIN!',13,10,'$'
   HE DB ':','$'
DATA ENDS
SHOW MACRO HEL
   MOV AH,9
   MOV DX,OFFSET HEL
   INT 21H
ENDM
CODE SEGMENT
MAIN PROC FAR
   ASSUME CS:CODE,DS:DATA
START:   PUSH DS
   MOV AX,0
   PUSH AX
   MOV AX,DATA
   MOV DS,AX

   SHOW MESS1
   MOV AH,2
   INT 1AH
   MOV BL,CH
   MOV SHI,CH
   CALL TOE
   CALL SHOWF
   MOV BL,CL
   MOV FEN,CL
   CALL TOE
   CALL SHOWF
   MOV BL,DH
   MOV MIAO,DH
   CALL TOE
   SHOW CRLF
   SHOW MESS2

   JMP BE1
BE0:  
   SHOW ERR
   SHOW MESS2
BE1:   MOV BX,0
   MOV CX,2
BE2:   MOV AH,1
   INT 21H
  
   CMP AL,30H
   JB BE0
   CMP AL,39H
   JA BE0
   SUB AL,30H
   MOV AH,0
   XCHG BX,AX
   push cx
   mov cx,10
   MUL cx
   pop cx
   XCHG BX,AX
   ADD BL,AL
   LOOP BE2
   MOV SHI,BL
   SHOW HE


BE11:   MOV BX,0
   MOV CX,2
BE21:   MOV AH,1
   INT 21H
  
   CMP AL,30H
   JB BE0
   CMP AL,39H
   JA BE0
   SUB AL,30H
   MOV AH,0
   XCHG BX,AX
   push cx
   mov cx,10
   MUL cx
   pop cx
   XCHG BX,AX
   ADD BL,AL
   LOOP BE21
   MOV FEN,BL
    SHOW HE
BE12:   MOV BX,0
   MOV CX,2
BE22:   MOV AH,1
   INT 21H
  
   CMP AL,30H
        JB FAR PTR BE0
   CMP AL,39H
        JA FAR PTR BE0
   SUB AL,30H
   MOV AH,0
   XCHG BX,AX
   push cx
   mov cx,10
   MUL cx
   pop cx
   XCHG BX,AX
   ADD BL,AL
   LOOP BE22

   MOV MIAO,BL
  
   MOV CH,shi
   MOV CL,fen
   MOV DH,miao
   MOV DL,1
   MOV AH,2dh
   int 21h
   RET
MAIN ENDP

  
SHOWF PROC NEAR
   PUSH AX
   PUSH DX
   MOV AH,2
   MOV DL,':'
   INT 21H
   POP DX
   POP AX
   RET
SHOWF ENDP
TOE PROC NEAR
   PUSH DX
   PUSH CX
   PUSH BX
   PUSH AX
   MOV CL,4
   SHL BX,CL
   MOV DL,BH
   AND DL,0FH
   ADD DL,30H
   MOV AH,2
   INT 21H
   SHR BX,CL
   MOV DL,BL
   AND DL,0FH
   ADD DL,30H
   MOV AH,2
   INT 21H
   POP AX
   POP BX
   POP CX
   POP DX
   RET
TOE ENDP
CODE ENDS
END START

    
           我很菜!!!

此贴的父贴(直接):
时间显示,大虾快来帮一下!390 sunny! 2003-6-25 10:03:22 78 正常