hzh.asm

本程序以单片机为核心设计一个多功电子表

  Z8279 EQU 0FF82H          
   D8279 EQU 0FF80H            
   LEDMOD EQU 00H            
   LEDFEQ EQU 2FH           
   LEDCLS EQU 0C1H           
   LEDWR0 EQU 80H           
   ORG 0000H
   LJMP MAIN 
   ORG 000BH                 
   LJMP INT0
   ORG 0030H
MAIN:
   LCALL INT8279               
   MOV TMOD, #01H           
   MOV TH0, #3CH       
   MOV TL0, #0B0H
   SETB EA
   SETB ET0            
   MOV R1,#2             
   MOV 21H,#0             
   MOV 22H,#0            
   MOV 41H,#0           
   MOV P1,#0FFH           
   SETB TR0              
TP:
    JNB P1.0,WATCH       
    MOV 23H,#0            
    MOV 24H,#0
TING:
    LCALL PAOBIAO            
    JNB P1.1,TING         
    JNB P1.2,$           
WATCH:
    MOV 35H,21H
    MOV 36H,22H
    LCALL DIVID
    MOV A,50H
    ADD A,#10   
    MOV 50H,A      
    LCALL DSPLAY
    LJMP TP          

PAOBIAO:                         
    MOV A,00H            
    CJNE A,#0FFH,XIAN       
    MOV 00H,#0
    INC 23H               
    MOV A,23H
    CJNE A,#100,XIAN        
    MOV 23H,#0
    INC 24H
    MOV A,24H
    CJNE A,#100,XIAN                
    MOV 23H,#0
    MOV 24H,#0
XIAN:
    MOV 35H,23H
    MOV 36H,24H
    LCALL DIVID           
    MOV A,53H             
    ADD A,#10
    MOV 53H,A
    LCALL DSPLAY         
    RET                  

INT0:                   
    PUSH ACC                 
    MOV TH0,#3CH              
    MOV TL0,#0B0H 
    DJNZ R1,RTN                 
    MOV R1,#2               
    MOV 00H,#0FFH            
    INC 41H                   
    MOV A,41H
    CJNE A,#10,RTN           
    MOV 41H,#0             
    INC 21H                      
    MOV A,21H
    CJNE A,#60,RTN           
    MOV 21H,#0
    INC 22H
    MOV A,22H
    CJNE A,#60,RTN                       
    MOV 22H,#0
    MOV 21H,#0
RTN:
    POP ACC             
    RETI                     
 
INT8279:                    
    MOV DPTR,#Z8279           
    MOV A,#LEDMOD             
    MOVX @DPTR,A
    MOV A,#LEDFEQ              
    MOVX @DPTR,A
    MOV A,#LEDCLS               
    MOVX @DPTR,A
    RET                       

DIVID:                   
    PUSH ACC               
    MOV A,36H                 
    MOV B,#10
    DIV AB
    MOV 51H,A                
    MOV 50H,B                
    MOV A,35H                
    MOV B,#10
    DIV AB
    MOV 53H,A                 
    MOV 52H,B                                          
    POP ACC                  
    RET                      

DISLED:                  
    PUSH DPH                
    PUSH DPL
    PUSH ACC
    MOV A,#LEDWR0            
    ADD A,R3                  
    MOV DPTR,#Z8279       
    MOVX @DPTR,A             
    MOV DPTR,#LEDSEG         
    MOV A,R4
    MOVC A,@A+DPTR           
    MOV DPTR,#D8279
    MOVX @DPTR,A             
    POP ACC                 
    POP DPL
    POP DPH
    RET                     

DSPLAY:                            
    MOV R4,50H
    MOV R3,#2
    LCALL DISLED             
    MOV R4,51H
    MOV R3,#3
    LCALL DISLED            
    MOV R4,52H
    MOV R3,#0
    LCALL DISLED            
    MOV R4,53H
    MOV R3,#1
    LCALL DISLED            
    RET                    

LEDSEG:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH    ;1,2,3,4,5,6,7,8,9
       DB 0BFH,86H,0DBH,0CFH,0E6H,0EDH,0FDH,87H,0FFH,0EFH  
    END