168.asm

自己做的单片机Proteus仿真实例

	DBUF  EQU  30H
        TEMP  EQU  40H
	PA  EQU 1111001111111111B
	PB  EQU 1111011111111111B
	PCONT EQU 0FFFFH	

       ORG 0000H
       LJMP START
	org 000bh
	ljmp t00
       ORG  0030
START: mov   a,#80h
       mov   dptr,  #PCONT
       movx  @dptr,a
	mov  tmod,#01h
	mov  th0,#3ch
	mov  tl0,#0b0h
	setb tr0
	mov  ie,#10000010b
	mov  20h,#10
         MOV 52H,#34h
         MOV 51H,#12h
         MOV 50H,#06h
abc:    lcall disp0
     	lcall disp1
	lcall disp2
	sjmp  abc
disp0:  mov r0,#52h
	mov r1,#30h
	mov r3,#3
lll:	mov a,@r0
	mov b,#10
	div ab
	mov @r1,b
	inc r1
	mov @r1,a
	inc r1
	dec r0
	djnz r3,lll
	ret
	
disp1:  MOV R0,#DBUF
       MOV R1,#TEMP
       MOV R2,#6
       MOV DPTR,#SEGTAB
DP00:  MOV A,@R0
       MOVC A,@A+DPTR
       MOV @R1,A
       INC R1
       INC R0
       DJNZ R2,DP00
	ret

DISP2: MOV R0,#TEMP
       MOV R1,#6
       MOV R2,#0feh
l1:	MOV  DPTR,#PB
	mov  a,r2
	MOVX @DPTR,A
	rl a
	mov   r2,a
	mov   a, @r0
       	mov   dptr,#PA
       	movx  @dptr, a
	inc   r0
	Acall  Delay
	djnz r1,l1
	ret
t00:    mov  th0,#3ch
	mov  tl0,#0b0h
	djnz 20h,eed
	mov  20h,#10
	mov  a,#01
	add  a,   52h
	mov   52h,a
	cjne a,#60,eed
	mov  52h,#0
	mov  a,#01
	add  a,   51h
	mov   51h,a
	cjne a,#60,eed
	mov  51h,#0
	mov  a,#01
	add  a,   50h
	mov   50h,a
	cjne a,#24,eed
	mov  50h,#0
eed:    reti

SEGTAB:DB 3FH,06H,5BH,4FH,66H,6DH     
       DB 7DH,07H,7FH,6FH,77H,7CH      
       DB 58H,5EH,7BH,71H,00H,40H      
DELAY: MOV   R4,#03H
AA1:   MOV   R5,#0FFH
AA:   
       DJNZ  R5,AA
       DJNZ  R4,AA1
       RET

       END