xugps.asm

89c51电子钟,运用12C887时钟模块及7219LED模块制作而成

;==============================================
;====Power Disassembler for MCS-51 and 6502====
;==============================================
;   Writen by: 覃远高
;   Copyright: 覃远高
;      E-mail: [e-mail]
;         Tel: [phone]
; Last Update: 20.Aug,1999
;==============================================
;===========Disassemble information============
;==============================================
;    File Name: E:\gpstbz\gpsz.BIN
;         Type: MCS-51反编译器
;         Date: 03-5-27
;==============================================
;==============================================


Q0000:             MOV   40H,#00H
Q0003:             MOV   41H,#00H
                   MOV   42H,#00H
                   MOV   43H,#00H
                   MOV   44H,#00H
                   MOV   45H,#00H
                   MOV   34H,#00H
                   MOV   35H,#00H
                   MOV   37H,#00H
Q001B:             MOV   38H,#00H
                   MOV   39H,#00H
                   AJMP  Q0023
Q0023:             MOV   SP,#07H
                   MOV   A,#0AH
                   MOV   R4,#0FH
                   ACALL Q00CC
                   MOV   A,#0BH
                   MOV   R4,#05H
                   ACALL Q00CC
                   MOV   A,#09H
                   MOV   R4,#0FFH
                   ACALL Q00CC
                   MOV   A,#0CH
                   MOV   R4,#01H
                   ACALL Q00CC
                 
                   PUSH  ACC
                   PUSH  DPH
                   PUSH  DPL
                   MOV   DPTR,#000AH
                   MOV   A,#20H
                   MOVX  @DPTR,A
                   MOV   DPTR,#000BH
                   MOV   A,#80H
                   MOVX  @DPTR,A
                   MOV   DPTR,#0000H
                   MOV   R0,#37H
                   MOV   A,@R0
                   MOVX  @DPTR,A
                   MOV   DPTR,#0002H
                   MOV   R0,#38H
                   MOV   A,@R0
                   MOVX  @DPTR,A
                   MOV   DPTR,#0004H
                   MOV   R0,#39H
                   MOV   A,@R0
                   MOVX  @DPTR,A
                   MOV   DPTR,#000BH
                   MOV   A,#02H
                   MOVX  @DPTR,A
                   POP   DPL
                   POP   DPH
                   POP   ACC
Q0071:             LCALL Q008C
                   LCALL Q00D8
                   MOV   36H,#40H
                   LCALL Q00AB
                   SETB  P1.5
                   ACALL Q01C6
                   SETB  P1.5
                   JNB   P1.5,Q00ED
                   SETB  P1.5
                   NOP
                   NOP
                   AJMP  Q0071
Q008C:             
				   PUSH  Acc
                   PUSH  DPH
                   PUSH  DPL
                   MOV   DPTR,#0000H
                   MOVX  A,@DPTR
                   MOV   37H,A
                   MOV   DPTR,#0002H
                   MOVX  A,@DPTR
                   MOV   38H,A
                   MOV   DPTR,#0004H
                   MOVX  A,@DPTR
                   MOV   39H,A
                   POP   DPL
                   POP   DPH
                   POP   ACC
                   RET
;===========================================
Q00AB:             MOV   R0,36H
                   MOV   R1,#01H
                   MOV   R3,#06H
Q00B1:             MOV   A,@R0
                   MOV   R4,A
                   MOV   A,R1
                   ACALL Q00CC
                   INC   R0
                   INC   R1
                   DJNZ  R3,Q00B1
                   RET
;===========================================
Q00BB:             MOV   R2,#08H
Q00BD:             NOP
                   NOP
                   CLR   P1.1
                   RLC   A
                   MOV   P1.0,C
                   NOP
                   NOP
                   SETB  P1.1
                   DJNZ  R2,Q00BD
                   CLR   C
                   RET
;===========================================
Q00CC:             ACALL Q00BB
                   MOV   A,R4
                   ACALL Q00BB
                   CLR   P1.2
                   NOP
                   SETB  P1.2
                   NOP
                   RET
;===========================================
Q00D8:             MOV   R0,#37H
                   MOV   R1,#40H
                   MOV   R3,#03H
Q00DE:             MOV   A,@R0
                   ANL   A,#0FH
                   MOV   @R1,A
                   INC   R1
                   MOV   A,@R0
                   SWAP  A
                   ANL   A,#0FH
                   MOV   @R1,A
                   INC   R0
                   INC   R1
                   DJNZ  R3,Q00DE
                   RET
;===========================================
Q00ED:             AJMP  Q00F1
Q00EF:             AJMP  Q0023
Q00F1:             MOV   47H,#00H
Q00F4:             SETB  P1.4
                   SETB  P1.5
                   ACALL Q01C6
                   SETB  P1.4
                   SETB  P1.5
                   JNB   P1.5,Q00EF
                   JNB   P1.4,Q017B
Q0104:             MOV   A,47H
                   JZ    Q0112
                   CLR   C
                   SUBB  A,#03H
                   JZ    Q0135
                   CLR   C
                   SUBB  A,#03H
                   JZ    Q0158
Q0112:             MOV   34H,39H
                   MOV   35H,#24H
                   ACALL Q0190
                   MOV   39H,34H
                   ACALL Q00D8
                   ACALL Q01B3
                   MOV   3EH,#0FH
                   MOV   3FH,#0FH
                   MOV   36H,#40H
                   ACALL Q00AB
                   ACALL Q01C6
                   MOV   36H,#3AH
                   ACALL Q00AB
                   AJMP  Q00F4
Q0135:             MOV   34H,38H
                   MOV   35H,#60H
                   ACALL Q0190
                   MOV   38H,34H
                   ACALL Q00D8
                   ACALL Q01B3
                   MOV   3CH,#0FH
                   MOV   3DH,#0FH
                   MOV   36H,#40H
                   ACALL Q00AB
                   ACALL Q01C6
                   MOV   36H,#3AH
                   ACALL Q00AB
                   AJMP  Q00F4
Q0158:             MOV   34H,37H
                   MOV   35H,#60H
                   ACALL Q0190
                   MOV   37H,34H
                   ACALL Q00D8
                   ACALL Q01B3
                   MOV   3AH,#0FH
                   MOV   3BH,#0FH
                   MOV   36H,#40H
                   ACALL Q00AB
                   ACALL Q01C6
                   MOV   36H,#3AH
                   ACALL Q00AB
                   AJMP  Q00F4
Q017B:             INC   47H
                   INC   47H
                   INC   47H
                   MOV   A,#09H
                   CLR   C
                   SUBB  A,47H
                   JZ    Q018A
                   AJMP  Q0104
Q018A:             MOV   47H,#00H
                   LJMP  Q00F4
;===========================================
Q0190:             SETB  P1.3
                   LCALL Q01C6
                   SETB  P1.3
                   JB    P1.3,Q01B2
                   MOV   A,34H
                   ADD   A,#01H
                   DA    A
                   MOV   R5,A
                   CLR   C
                   SUBB  A,35H
                   MOV   R1,34H
                   JZ    Q01AC
                   MOV   A,R5
                   MOV   34H,A
                   AJMP  Q01B2
Q01AC:             MOV   34H,#00H
                   LJMP  Q01B2
;===========================================
Q01B2:             RET
;===========================================
Q01B3:             MOV   3AH,40H
                   MOV   3BH,41H
                   MOV   3CH,42H
                   MOV   3DH,43H
                   MOV   3EH,44H
                   MOV   3FH,45H
                   RET
;===========================================
Q01C6:             MOV   R7,#0FFH
Q01C8:             MOV   R6,#0FFH
                   DJNZ  R6,$
                   DJNZ  R7,Q01C8
                   RET 
                   end