huibian.txt

实现适时实钟显示

code    segment               
        assume cs:code,ds:code
start:  
        jmp     go
oldcur  dw      ?
OLD1C   DW      2 DUP(?)
NEWINT1C:
        PUSHF         
        CALL DWORD PTR CS:OLD1C        
        push    ax
        PUSH    BX
        PUSH    CX
        PUSH    DX                     
        XOR     BH,BH     
        MOV     AH,3    
        INT     10H                              
        MOV     CS:OLDCUR,DX
        MOV     AH,2       
        xor     bh,bh
        MOV     DX,45h
        INT     10H
        MOV     AH,2         
        INT     1AH             
        PUSH    DX              
        PUSH    CX
        POP     BX
        PUSH    BX
        CALL    SHOWBYTE      
        CALL    SHOWCOLON     
        POP     BX
        XCHG    BH,BL          
        CALL    SHOWBYTE        
        CALL    SHOWCOLON      
        POP     BX
        CALL    SHOWBYTE       
        MOV     DX,CS:OLDCUR     
        MOV     AH,2            
        XOR     BH,BH
        INT     10H
        POP     DX
        POP     CX
        POP     BX
        POP     AX
        IRET
SHOWBYTE PROC NEAR
        PUSH    BX
        MOV     CL,4     
        MOV     AL,BH
        SHR     AL,CL    
        ADD     AL,30H   
        CALL    SHOW       
        CALL    CURMOVE     
        POP     BX
        MOV     AL,BH
        AND     AL,0FH     
        ADD     AL,30H    
        CALL    SHOW         
        CALL    CURMOVE    
        RET
SHOWBYTE ENDP
 
SHOWCOLON PROC NEAR     
        MOV     AL,':' 
        CALL    SHOW
        CALL    CURMOVE
        RET
SHOWCOLON ENDP

CURMOVE PROC NEAR      
        PUSH    AX
        PUSH    BX
        PUSH    CX
        PUSH    DX
        MOV     AH,3 
        MOV     BH,0 
        INT     10H
        INC     DL    
        MOV     AH,2 
        INT     10H
        POP     DX
        POP     CX
        POP     BX
        POP     AX   
        RET            
CURMOVE ENDP

SHOW    PROC NEAR      
        PUSH    AX
        PUSH    BX
        PUSH    CX
        MOV     AH,09H   
        MOV     BX,2fh  
        MOV     CX,1
        INT     10H
        POP     CX
        POP     BX
        POP     AX
        RET           
SHOW    ENDP


GO:
        PUSH    CS
        POP     DS
        MOV     Ah,35H  
        mov     al,1ch
        INT     21H         
        MOV     OLD1C,BX    
        MOV     BX,ES       
        MOV     OLD1C+2,BX
        MOV     DX,OFFSET NEWINT1C
        MOV     Ah,25H    
        mov     al,1c
        INT     21H
        MOV     DX,OFFSET GO      
        SUB     DX,OFFSET START
        mov     ah,07h   
        int     21h
        cmp     al,0dh   
        je      clear
        MOV     AX,31H　　　　
        INT     21H    
 clear:
        mov     ah,0fh   
        int     10h
        mov     ah,00h   
        int     10h
        mov      ah,4ch   
        int      21h
        
CODE ENDS
        END START