lab09.asm

吉林大学计算机学院控制实验的几个必做实验的源代码(大四)~

ORG 0000H
LJMP STRT
ORG 000BH
LJMP T0IN
ORG 0013H
LJMP ININ
ORG 0040H
STRT:
	MOV IE,#10000110B
	SETB IT0
	MOV TMOD,#00000010B
	MOV TH0,#206
	MOV TL0,#206
	MOV R0,#0
	MOV R1,#100
	MOV R3,#1
	MOV R4,#1
	MOV R5,#012H
	MOV R6,#20
	MOV R7,#0
	SETB TR0
GO:
	LCALL SHOW	
	LJMP GO
T0IN:   PUSH ACC
	CLR CY
	MOV A,R0
	ADD A,R1
	MOV R0,A
	JC X1
	MOV P1,#0
	LJMP X2
X1:	MOV P1,#1
X2:	CLR CY
	MOV A,R3
	ADD A,#1
	MOV R3,A
	JNC BB1
	MOV A,R4
	ADD A,#1
	MOV R4,A
BB1:    POP ACC
	RETI	
SHOW:
	MOV	DPTR,#0FF22H
	MOV	A,#0FFH
	MOVX	@DPTR,A
	MOV	DPTR,#0FF21H
	MOV	A,#1H
	MOVX	@DPTR,A
	MOV	A,R5	
	ANL	A,#0FH
	MOV	DPTR,#COD
	MOVC	A,@A+DPTR
	MOV	DPTR,#0FF22H
	MOVX	@DPTR,A	

	MOV	DPTR,#0FF22H
	MOV	A,#0FFH
	MOVX	@DPTR,A
	MOV	DPTR,#0FF21H
	MOV	A,#2H
	MOVX	@DPTR,A
	MOV	A,R5	
	ANL	A,#0F0H
	SWAP	A
	MOV	DPTR,#COD
	MOVC	A,@A+DPTR
	MOV	DPTR,#0FF22H
	MOVX	@DPTR,A	
	RET
ININ:
	PUSH ACC
	MOV A,R0
	PUSH ACC
	MOV R0,#27H
	MOV R2,#10H
	MOV R7,#0
	CLR CY
CC1:	INC R7
	MOV A,R2
	SUBB A,R3
	MOV R2,A
	MOV A,R0
	SUBB A,R4
	JNC CC1
	MOV R3,#0
	MOV R4,#0
	MOV A,R7
	MOV R5,A
	CLR CY
	MOV A,R5
	SUBB A,R6
	JNC CC2
	INC R1
	LJMP CC3
CC2:	DEC R1
CC3:	POP ACC
	MOV R0,A
	POP ACC
	RETI
COD: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,8EH
END