ORG 0000H
      AJMP MAIN
      ORG  0030H
 MAIN:ADDR8279_1 EQU    0BFFFH
       ADDR8279_2 EQU    0BFFEH
 
      MOV     60H,#00H
      MOV     61H,#00H
      MOV     62H,#00H
      MOV     TMOD,#15H
      MOV     TL0,#00H
      MOV     TH0,#00H
         
      MOV     R7,#14H
      
      MOV     TL1,#00H
      MOV     TH1,#4CH
      SETB TR1
      SETB TR0  
 HERE:JBC     TF1,NEXT1
      SJMP    HERE
NEXT1:MOV     TL1,#00H
      MOV     TH1,#4CH
      DJNZ    R7,HERE
      CLR     TR0
      CLR     TR1
      AJMP    PINYU
PINYU:MOV R6,TH0
      MOV R7,TL0
      JNB TF0 ,NEXT2
      MOV 60H,#06H
      MOV 61H,#55H
      MOV 62H,#36H     
      CLR TF0
 
NEXT2:LCALL  HB2
      MOV    R7,#03H
      MOV    65H,R3
      MOV    66H,R4
      MOV    67H,R5
      MOV    R0,#60H
      MOV    R1,#65H
      LCALL BCDA 
      LCALL TRANS
      LCALL LED
      AJMP MAIN
          

  ;;（１）  標號：  ＢＣＤＡ    功能：多字節ＢＣＤ碼加法

;;入口條件：字節數在R7中，被加數在[R0]中，加數在[R1]中。
;;出口信息：和在[R0]中，最高位進位在CY中。
;;;影響資源：PSW、A、R2    堆棧需求：  ２字節

BCDA:	MOV	A,R7	;;；取字節數至R2中
	MOV	R2,A
	ADD	A,R0	;;；初始化數據指針
	MOV	R0,A
	MOV	A,R2
	ADD	A,R1
	MOV	R1,A
	CLR	C
BCD1:	DEC	R0	;;；調整數據指針
	DEC	R1
	MOV	A,@R0
	ADDC	A,@R1	;;；按字節相加
	DA	A	;;；十進制調整
	MOV	@R0,A	;;；和存回[R0]中
	DJNZ	R2,BCD1	;;；處理完所有字節
	RET






;;;入口條件：待轉換的雙字節十六進制整數在R6、R7中。
;;出口信息：轉換后的三字節ＢＣＤ碼整數在R3、R4、R5中。
;;影響資源：PSW、A、R2～R7    堆棧需求：  ２字節

HB2:CLR	A	;;；ＢＣＤ碼初始化
	MOV	R3,A
	MOV	R4,A
	MOV	R5,A
	MOV	R2,#10H	;;；轉換雙字節十六進制整數
HB3:MOV	A,R7	;;；從高端移出待轉換數的一位到CY中
	RLC	A
	MOV	R7,A
	MOV	A,R6
	RLC	A
	MOV	R6,A
	MOV	A,R5	;;；ＢＣＤ碼帶進位自身相加，相當于乘２
	ADDC	A,R5
	DA	A	;;；十進制調整
	MOV	R5,A
	MOV	A,R4
	ADDC	A,R4
	DA	A
	MOV	R4,A
	MOV	A,R3
	ADDC	A,R3
	MOV	R3,A	;;；雙字節十六進制數的萬位數不超過６，不用調整
	DJNZ	R2,HB3    ;;	；處理完１６ｂｉｔ
	RET
	
TRANS: MOV R0,#62H
       MOV R1,#40H
       MOV R6,#03H
  LAST:MOV      A,@R0
       ANL      A,#0FH
       MOV      @R1,A
       MOV      A,@R0
       ANL      A,#0F0H
       SWAP     A
       INC  R1
       MOV      @R1,A
       INC  R1
       DEC R0
       DJNZ R6,LAST
       RET
       
 	
	    

 
        
        
  
 LED:MOV      DPTR,#ADDR8279_1
       MOV      A,#0D1H
       MOVX     @DPTR,A
  WAIT:MOVX     A,@DPTR
       JB       ACC.7,WAIT
       MOV      A,#00H
       MOVX     @DPTR,A
       MOV      A,#2CH
       MOVX     @DPTR,A

       MOV      DPTR,#ADDR8279_1
       MOV      A,#90H
       MOVX      @DPTR,A
       MOV      R1,#40H
       MOV      R7,#06H
       MOV      DPTR,#ADDR8279_2
  LOOP:MOV      A,@R1
       ADD      A,#05H
       MOVC     A,@A+PC
       MOVX     @DPTR,A
       INC      R1
       DJNZ     R7,LOOP
       RET
       DB       3FH,06H,5BH,4FH,66H,6DH
       DB       7DH,07H,7FH,6FH 


END