.equ    port_e, 0xF901
.equ	port_def_pgm, 0xF903
.equ	alarm, 0x00
.equ	count, 0x40
   
.org 2000h
ljmp main
      
.org 200Bh
ex0_isr:
	push	acc
	push	dph
	push	dpl
	mov	count, #250
	setb 	tr0
	jnb	alarm, *
	pop	dpl
	pop	dph
	pop	acc
	reti
t0_isr:
	mov	th0,#0x00
	mov	tl0,#0x00
	mov	a, count
	movx	@dptr, a
	djnz 	count, t0_end
	setb	alarm
t0_end:
	reti
     
main:
	mov	dptr, #port_def_pgm
	mov	a, #128
	movx	@dptr, a

	mov     dptr, #port_e
        mov     a, #0xFF
        movx    @dptr, a

	mov	tmod,#0x01

	clr	tr0
	clr	tf0
	mov	th0,#0x00
	mov	tl0,#0x00

	setb	ex0
	setb	et0
	setb	ea   
	setb	it0
	mov	ip, #0  
	mov	a, #0

loop:
	movx	@dptr, a
	inc	a
	ljmp	loop