;***********************************************************************
;工作內存及常數定義
;***********************************************************************
DATAL      DATA 26H
DATAH      DATA 27H
DATAA      DATA 70H
DATAB      DATA 71H
DATAC      DATA 72H
DATAD      DATA 73H
TEMPHC     DATA 28H
TEMPLC     DATA 29H
DATAHEAD   EQU  36H
;***********************************************************************
;引腳定義
;***********************************************************************
TEMPDIN    BIT P3.0
SDDIN      BIT P3.1
SDCS       BIT P3.2
SDCLOCK    BIT P3.3
TSDISTING  BIT P3.4
;***********************************************************************
;中斷向量區
;***********************************************************************
ORG 0000H
LJMP START
;***********************************************************************
;系統初始化
;***********************************************************************
        ORG 100H
START:  SETB TSDISTING
        MOV R0,#20H
        MOV R1,#60H
CLSMEM: MOV @R0,#00H
        INC R0
	DJNZ R1,CLSMEM


;***********************************************************************
;主程序
;***********************************************************************
MAIN:  
        
        LCALL PROCESSD
        LCALL DISPLAY
        LJMP  MAIN
        NOP
        NOP
        NOP
        LJMP START
;***********************************************************************
PROCESSD:MOV DATAL,#0c7H
         MOV DATAD,#00H
         MOV DATAA,#00H
         MOV A,DATAL
         MOV B,#02H
         DIV AB
         MOV R4,B
         MOV B,#0AH
         DIV AB
         
      
         MOV DATAC,A
         MOV DATAB,B
         MOV A,R4
         JNZ CASE1
         RET
CASE1:   MOV DATAA,#05H
         RET

;***********************************************************************
;顯示子程序
;***********************************************************************
;顯示數據在70H~73H中，用4位LED共陽極數碼管顯示，P0口輸出數據
;P2口作掃描控制，每個LED數碼管亮1ms時間再逐位循環
;***********************************************************************

DISPLAY:        CPL    TSDISTING
                MOV    R1,#70H
                MOV	   R5,#0FEH
PLAY:           MOV    P0,#0FFH
                MOV    A,R5
				MOV    P2,A
				MOV    A,@R1
				MOV    DPTR,#TAB
				MOVC   A,@A+DPTR
				MOV    P0,A
				MOV    A,R5
				JB     ACC.1,LOOP5
				CLR    P0.7
LOOP5:          LCALL  DL1MS
                INC    R1
				MOV    A,R5
				JNB    ACC.3,ENDOUT
				RL     A
				MOV    R5,A
				AJMP   PLAY

ENDOUT:            RET
				

TAB:            DB     0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH


DL1MS:          MOV    R6,#14H
       
DL1:            DJNZ   R7,DL2
              
DL2:            DJNZ   R6,DL1
                RET

end