org	00h
	jmp	start
	org	03h
	jmp	intt
	org	13h
	jmp	inkk
start:	mov	sp,#60h
	mov	a,#10000101b	;允許中斷
	mov	ie,a			
	


	MOV	a,#00000101b	;中斷優先
	mov	ip,a
	
	mov	dptr,#ntab	;指到表頭
	mov	r0,#0		;起始值0
next1:	call	disp
	call	delay
	JMP	next1


disp:	mov	a,r0
	anl	a,#0fh
	movc	a,@a+dptr
	mov	p1,a
	mov	a,r0
	swap 	a
	anl	a,#0fh
	movc	a,@a+dptr
	mov	p2,a
	ret


delay:	mov	r5,#3	;延遲0.3秒
dly1:	mov	r6,#250	
dly2:	mov	r7,#200
	djnz	r7,$
	djnz	r6,dly2
	djnz	r5,dly1
	ret



intt:
	push	acc
	mov	a,r0
	add	a,#1
	da	a
	mov	r0,a
	pop	acc
	reti

inkk:
	push	acc
	mov	a,r0
	add	a,#2
	da	a
	mov	r0,a
	pop	acc
	reti



ntab:	db 	00000011b	;0
	db	10011111b	;1
	db	00110101b	;2
	db	00001101b	;3
	db	10011001b	;4
	db	01001001b	;5
	db	01000001b	;6
	db	00011111b	;7
	db	00000001b	;8
	db	00001001b	;9