; 8042 Simple Test Program
; Makes LEDs blink wow
; By DevSter - Joseph Norman, 2005
; compiled with tasm
; TASM -48 -b -q test1.asm rom.bin

	.org	0
	dis	i
	dis	tcnti
loop:
	mov	a,#$7F		; LED 7 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$BF		; LED 6 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$DF		; LED 5 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$EF		; LED 4 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$F7		; LED 3 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$EF		; LED 4 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$DF		; LED 5 ON, REST OFF
	outl	p2,a
	call	delay
	mov	a,#$BF		; LED 6 ON, REST OFF
	outl	p2,a
	call	delay
	jmp	loop

delay:
	mov	r1,#255
delay_2:
	mov	r0,#63
delay_1:
	nop
	nop
	djnz	r0,delay_1
	djnz	r1,delay_2
	ret

	.end