99秒计数.asm

刚学时编的小程序

;/*------------------------------------------
		ORG 0000H
		LJMP MAIN
		ORG 000BH
		LJMP T0X

MAIN:	MOV SP,#60H
		MOV DPTR,#TABLE
		MOV R0,#0
		MOV R1,#0
		MOV R3,#0
		MOV B,#10
		MOV A,R1
		DIV AB
		MOVC A,@A+DPTR
		MOV P2,A
		MOV A,B
		MOVC A,@A+DPTR
		MOV P1,A
		MOV TMOD,#01H
		MOV TH0,#(65535-50000) / 256
		MOV TL0,#(65535-50000) MOD 256
		SETB EA
		SETB ET0

LOOP:	JB P3.7,LOOP
LOOP3:	JNB P3.7,LOOP3
		CJNE R0,#0,LP1
		SETB TR0
		JMP LOOP1
LP1:	CJNE R0,#1,LP2
		CLR TR0
		JMP LOOP1
LP2:	MOV R1,#0
		MOV A,#3FH
		MOV P1,A
		MOV P2,A		
		JMP LOOP1
LOOP1:	INC R0
		CJNE R0,#3,LOOP2
		MOV R0,#0
LOOP2:	LJMP LOOP

T0X:	MOV TH0,#(65536-50000) / 256
		MOV TL0,#(65536-50000) MOD 256
		INC R3
		CJNE R3,#3,LOP1
		MOV R3,#00
		INC R1
		CJNE R1,#100,LOP2
		MOV R1,#0
LOP2:	MOV A,R1
		MOV B,#10
		DIV AB
		MOVC A,@A+DPTR
		MOV P2,A
		MOV A,B
		MOVC A,@A+DPTR
		MOV P1,A
LOP1:	RETI

TABLE: 	DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
		
		END 
;------------------------------------------*/

/*;------------------------------------------
TCNTA EQU 30H
TCNTB EQU 31H
SEC EQU 32H
KEYCNT EQU 33H
SP1 BIT P3.7
ORG 00H
LJMP START
ORG 0BH
LJMP INT_T0
START: MOV KEYCNT,#00H
MOV SEC,#00H
MOV A,SEC
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P1,A
MOV A,B
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P2,A
MOV TMOD,#02H
SETB ET0
SETB EA
WT: JB SP1,WT
LCALL DELY10MS
JB SP1,WT
INC KEYCNT
MOV A,KEYCNT
CJNE A,#01H,KN1
SETB TR0
MOV TH0,#06H
MOV TL0,#06H
MOV TCNTA,#00H
MOV TCNTB,#00H
LJMP DKN
KN1: CJNE A,#02H,KN2
CLR TR0
LJMP DKN
KN2: CJNE A,#03H,DKN
MOV SEC,#00H
MOV A,SEC
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P1,A
MOV A,B
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P2,A
MOV KEYCNT,#00H
DKN: JNB SP1,$
LJMP WT
DELY10MS:
MOV R6,#20
D1: MOV R7,#248
DJNZ R7,$
DJNZ R6,D1
RET
INT_T0:
INC TCNTA
MOV A,TCNTA
CJNE A,#100,NEXT
MOV TCNTA,#00H
INC TCNTB
MOV A,TCNTB
CJNE A,#4,NEXT
MOV TCNTB,#00H
INC SEC
MOV A,SEC
CJNE A,#100,DONE
MOV SEC,#00H
DONE: MOV A,SEC
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P1,A
MOV A,B
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P2,A
NEXT: RETI
TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END

;------------------------------------------*/