单片机数字时钟---分减一 子程序

;****************************************
;;           分减1子 程 序              ;;
;****************************************
;
             SUB1: MOV  A,@R0       ;取当前计时单元数据到A
                   DEC  R0          ;指向前一地址
                   SWAP  A           ;A中数据高四位与低四位交换
                   ORL   A,@R0       ;前一地址中数据放入A中低四位
                   JZ    SUB11
                   DEC  A           ;A减1操作
           SUB111: MOV   R3,A        ;移入R3寄存器
                   ANL   A,#0FH      ;高四位变0
                   CLR  C           ;清进位标志
                   SUBB  A,#0AH
          SUB1111: JC    SUB1110
                   MOV   @R0,#09H    ;大于等于0AH，为9
          SUB110:  MOV  A,R3        ;取回R3中暂存数据
                   INC  R0          ;指向当前地址单元
                   SWAP  A           ;A中数据高四位与低四位交换
                   ANL   A,#0FH      ;高四位变0
                   MOV  @R0,A       ;数据放入当削地址单元中
                   RET               ;子程序返回
   ;
            SUB11: MOV   A,#59H
                   AJMP  SUB111
           SUB1110:MOV   A,R3        ;移入R3寄存器
                   ANL   A,#0FH      ;高四位变0
                   MOV   @R0,A
                   AJMP  SUB110
;****************************************