xiao.asm

编写程序

DATA SEGMENT
    DA1 DB '   PLEASE PUTIN THE TIME:   ','$'
    DA2 DB ' ','$'
    H DW ?         
    M DW ?            
    S DW ?	        
DATA ENDS              

STACK1 SEGMENT PARA STACK
       DB 20H DUP(?)
STACK1 ENDS             


COSEG SEGMENT
   ASSUME CS:COSEG,DS:DATA       

START:
   MOV AX,DATA 
   MOV DS,AX
   MOV DX,OFFSET DA1       
   MOV AH,09H         
   INT 21H
   CALL PUTIN1        
   MOV H,BX
   CALL PUTIN           
   MOV M,BX
   CALL PUTIN            
   MOV S,BX
CALL DISPLAY       
MOV AH,4CH
INT 21H

CHULI PROC
 MOV BX,S
 INC BL
 CMP BL,3AH              
 JZ LOP2                  
 JNZ FUZHI1
LOP2:
  MOV BL,30H
  INC BH
  CMP BH,36H
  JZ LOP3
  JNZ FUZHI1
LOP3:
  MOV S,3030H
  MOV BX,M
  INC BL
  CMP BL,3AH
  JZ LOP4
  JNZ FUZHI2
LOP4:
  MOV BL,30H
  INC BH
  CMP BH,36H
  JZ LOP5
  JNE FUZHI2
LOP5:
   MOV M,3030H
   MOV BX,H
   INC BL
   CMP BX,3234H
   JZ LOP7
   CMP BL,3AH
   JZ LOP6
   JNE FUZHI3
LOP6:
   CMP BX,3233h
   JZ LOP7 
   INC BH
LOP7:
    MOV S,3030H
    MOV M,3030H     
    MOV H,3030H
    JMP LOP8
FUZHI1:
    MOV S,BX
    JMP LOP8
FUZHI2:
    MOV M,BX
    JMP LOP8
FUZHI3:
    MOV H,BX
    JMP LOP8
LOP8:
    CALL DISPLAY  
    RET
CHULI ENDP
 
DELAY PROC                      
  MOV AH,2CH              
  INT 21H                   
  MOV BL,DH
LOP1:
 MOV AH,2CH
 INT 21H
 CMP BL,DH                      
 JNE ESCAPE
 JE LOP1
ESCAPE:  
    RET
DELAY ENDP

DISPLAY PROC                
 CALL DELAY
 MOV AH,02H                 
 MOV BH,00H
 MOV DX,0D12H
 INT 10H
 MOV BX,H                  
 MOV DL,BH
 MOV AH,02H
 INT 21H
 MOV DL,BL                  
 MOV AH,02H
 INT 21H
 MOV DL,':'
 MOV AH,02H
 INT 21H
 MOV BX,M
 MOV DL,BH
 MOV AH,02H
 INT 21H
 MOV DL,BL
 MOV AH,02H
 INT 21H
 MOV DL,':'
 MOV AH,02H
 INT 21H
 MOV BX,S
 MOV DL,BH
 MOV AH,02H
 INT 21H
 MOV DL,BL
 MOV AH,02H
 INT 21H 
 CALL CHULI
 RET
DISPLAY ENDP  

PUTIN1 PROC                
F1:  
  MOV AH,08H
  INT 21H
  CMP AL,30H
  JB F1
  CMP AL,32H
  JA F1
  MOV DL,AL
  MOV AH,02H
  INT 21H
  MOV BH,AL
  CMP AL,32H
  JZ F3
F2:  
  MOV AH,08H
  INT 21H
  CMP AL,30H
  JB F2
  CMP AL,39H
  JA F2
  MOV DL,AL
  MOV AH,02H
  INT 21H
  MOV BL,AL
  JMP F4
F3:
  MOV AH,08H
  INT 21H
  CMP AL,30H
  JB F3
  CMP AL,33H
  JA F3
  MOV DL,AL
  MOV AH,02H
  INT 21H
  MOV BL,AL
F4:  
  MOV DX,OFFSET DA2
  MOV AH,09H
  INT 21H
  RET
PUTIN1 ENDP

PUTIN PROC              
E1:  
  MOV AH,08H
  INT 21H
  CMP AL,30H
  JB E1
  CMP AL,35H
  JA E1
  MOV DL,AL
  MOV AH,02H
  INT 21H
  MOV BH,AL
E2:  
  MOV AH,08H
  INT 21H
  CMP AL,30H
  JB E2
  CMP AL,39H
  JA E2
  MOV DL,AL
  MOV AH,02H
  INT 21H
  MOV BL,AL
  MOV DX,OFFSET DA2
  MOV AH,09H
  INT 21H
  RET
PUTIN ENDP

COSEG ENDS
  END START