importback.asm

是我在电子竞赛期间写的一些单片机汇编程序

;-------------------------------------traffic  program----------------------------
	ORG 0000H			;?????,???????????0000H?????
	AJMP MAIN
	ORG 000BH			;??????
	AJMP PIPO
	ORG 0100H 
MAIN:	MOV SP,#13H			;??????
	MOV 40H,#00H		
	MOV 41H,#25H		;??????
	MOV TMOD,#01H		;?????0????1,???????1????0
	MOV TH0,#0DCH		;??10MS????
	MOV TL0,#00H								
	MOV 42H,#00H		
	MOV R6,#00H			;????????????????
	MOV 44H,#00H

	;mov 55h,#00h
	;mov 56h,#00h
	;mov 57h,#00h
inKEY1:	
	mOV P3,#0FFH
	clr p2.0
	jb p3.5,INKEY1
;----------------------------------
	MOV DPTR,#7F0AH
	MOV A,#26H				;DV2,DV1,DV0=010, RS3~RS0=0110
	MOVX @DPTR,A
	INC DPTR	
	MOV A,#1AH				;START 
	MOVX @DPTR,a
	
	SETB EA			;????
	SETB ET0			;??????
	SETB TR0
;---------------------------------	     

CYCLE:
	lcall inkey2
	LCALL INKEY3
	lcall inkey4
	lcall inkey5
	acall begin
	LCALL DISP		;????
	LJMP CYCLE
;----------------------------------??????------------------------------------
PIPO:
	INC R6			;1?????
	CJNE R6,#32H,NEXT	
	MOV R6,#00H
	INC 44H
NEXT:	PUSH PSW		;10MS
	PUSH ACC
	MOV TH0,#0DCH		;???? 
	MOV TL0,#00H
	INC 40H      
	MOV A,40H
	CJNE A,#64H,RET0
	MOV 40H,#00H
	MOV A,41H
	DEC A
KK:	CJNE A,#1FH,KK0		;?1F??6
	SUBB A,#06H
	AJMP KK1
KK0:	CJNE A,#0FH,KK1		;?0F??6
	SUBB A,#06H
KK1:	MOV 41H,A
KK2:	CJNE A,#0FFH,RET0
	MOV R7,42H
AA0:	CJNE R7,#00H,AA1	;25?5?15?5?????
	MOV 41H,#05H
	INC 42H
AA1:	CJNE R7,#01H,AA2
	MOV 41H,#15H
	INC 42H
AA2:	CJNE R7,#02H,AA3
	MOV 41H,#05H
	INC 42H
AA3: 	CJNE R7,#03H,RET0
	MOV 41H,#25H	
	MOV 42H,#00H
RET0: POP ACC
	POP PSW
	RETI
;----------------------------------------?????--------------------------------------
DISP:	
BB0:	MOV R7,42H
    	CJNE R7,#01H,BB1
	MOV A,44H
	JB ACC.0, BULIAO1	
	SETB P1.3
	MOV P2,#0FFH
	CLR P2.4
	CLR P2.0
	CLR P1.3
	ACALL DELAY
	SETB P1.3

BULIAO1:
BB1:	MOV R7,42H
	CJNE R7,#02H,BB2
	SETB P1.3
	MOV P2,#0FFH
	CLR P2.2
	CLR P2.3
	CLR P1.3 
	ACALL DELAY
	SETB P1.3
BB2:	MOV R7,42H
	CJNE R7,#03H,BB3
	MOV A,44H
	JB ACC.0, BULIAO	
	SETB P1.3
	MOV P2,#0FFH
	CLR P2.1
	CLR P2.3
	CLR P1.3
	ACALL DELAY
	SETB P1.3
BULIAO:
BB3:	MOV R7,42H
	CJNE R7,#00H,OUT1
	setb p1.3
	mov p2,#0ffh
	CLR P2.5
	CLR P2.0
	CLR P1.3 
	ACALL DELAY
	setb p1.3
	;setb p0.7
OUT1:
DISPLAY:
	MOV A,30H 
	da a  
	mov 30h,a
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.4
	ACALL DELAY		;????,??????
	SETB P0.4
	MOV A,30H
	SWAP A
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.5
	ACALL DELAY
	SETB P0.5

	MOV A,31H
	da a
	mov 31h,a   
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.6
	ACALL DELAY		;????,??????
	SETB P0.6
	MOV A,31H
	SWAP A
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.7
	ACALL DELAY
	SETB P0.7

    	MOV A,32H  
	da a 
	mov 32h,a 
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.3
	ACALL DELAY		;????,??????
	SETB P0.3
	MOV A,32H
	SWAP A
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.2
	ACALL DELAY
	SETB P0.2

	MOV A,41H   
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.1
	ACALL DELAY		;????,??????
	SETB P0.1
	MOV A,41H
	SWAP A
	ANL A,#0FH
	ACALL TABLE
	MOV P2,A
	CLR P0.0
	ACALL DELAY
	SETB P0.0
	RET
begin:
	MOV DPTR,#7F0AH
	MOVX A,@DPTR
wait:	JB ACC.7,WAIT			;UPI???1
wait1:MOV DPL,#00H
	MOV R0,#30H
	MOVX A,@DPTR
	MOV @R0,A
wait2:
	MOV DPL,#02H
	INC R0
	MOVX A,@DPTR
	MOV @R0,A
wait3:
	INC R0
	MOV DPL,#04H
	MOVX A,@DPTR
	MOV @R0,A
	ret
INKEY2:
	mov p2,#0ffh
	MOV P3,#0FFH
	JB P3.4,OUTPP	
KK2X:	
	JNB P3.4 ,KK2X
	mov 30h,#00h
	mov 31h,#00h
	mov 32h,#00h
	acall preset
	acall preset1
	acall preset2
	acall preset3
	acall start
	acall reset
OUTPP:
	RET
inkey3:;mov p2,#0ffh
	 mov p3,#0ffh
	 clr p2.3
	 jb p3.5,wu1
inkey33:mov a,30h
	jnb p3.5,inkey33
	cjne a,#60h,go1
	clr a
go1:	inc a
	mov 30h,a
	acall preset
	acall preset1
	acall start
	acall display
wu1: 	
	ret
inkey4:;mov p2,#0ffh
	mOV P3,#0FFH
	clr p2.2
	jb p3.5,wu2
inkey44:mov a,31h
	jnb p3.5,inkey44
	cjne a,#60h,go2
	clr a 
go2:	inc a	
	
	mov 31h,a
	acall preset
	acall preset2
	acall start
	acall display
wu2:	ret
inkey5:;mov p2,#0ffh
	mOV P3,#0FFH
	clr p2.1
	jb p3.5,wu3
inkey55:mov a,32h
	jnb p3.5,inkey55
	cjne a,#24h,go3
	clr a
go3:	inc a
	mov 32h,a
	acall preset
	acall preset3
	acall start
	acall display
wu3:	ret
;---------------------------------??????,??ds12887???--------------------	
preset:
	MOV 	DPTR,#7F0AH  		;??A???
	MOV A,#70H				;????,DV2,DV1,DV0=111
	MOVX @ DPTR,A			
	INC DPTR                      ;??B???  
	MOV A,#8ah				;????,??????,?????????????,?BCD?,24???
	MOVX @DPTR,A
	ret
preset1:
	mov dptr,#7f00h			;?????
	MOV A,30h				;??00?	
	MOVX @DPTR,A
	ret
preset2:								
	mov dptr,#7f02h			;?????
	MOV A,31h				;??00?
	MOVX @DPTR,A
	ret
preset3:			
	mov dptr,#7f04h			;??????
	MOV  A,32h
	MOVX @DPTR,A
	ret
start:
	MOV DPTR,#7F0AH
	MOV A,#26H				;DV2,DV1,DV0=010, RS3~RS0=0110
	MOVX @DPTR,A
	INC DPTR
	MOV A,#1aH				;START  
	MOVX @DPTR,A
	ret
reset:MOV 41H,#25H
	ret
TABLE:INC A
	MOVC A,@A+PC
	RET     
DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H
;-----------------------------------------?????-------------------------------------	
DELAY: PUSH PSW		
	 MOV	R3,#10H
DELAY0:MOV	R4,#50H
DELAY1:DJNZ	R4,DELAY1
	 DJNZ	R3,DELAY0
	 POP PSW 
	 RET
END