interrupt_test.asm

Verilog版的C51核(OC8051)

;
; bank 0  - counters
; bank 1  - expected values
;
; @7f error code
;

	ajmp start;
	
	.org 03h	;external interrupt 0
	ajmp ei0	;

	.org 0bh	;t/c 0 interrupt
	ajmp tc0	;

	.org 13h	;external interrupt 1
	ajmp ei1	;

	.org 1bh	;t/c 1 interrupt
	ajmp tc1	;

	.org 23h	;serial interface interrupt
	setb b.4	;
	clr scon.0		;
	clr scon.1		;
	reti;

ei0:
	setb b.0;
	mov c, 0		;
	jc stop0		;
	clr 2		;
	reti;

tc0:
	setb b.1;
	mov c, 1		;
	jc stop1	;
	clr 3		;
	reti;

ei1:
	setb b.2;
	mov c, 2		;
	jc stop2	;
	clr 0		;
	reti;

tc1:
	setb b.3;
	mov c, 3		;
	jc stop3	;
	clr 1		;
	reti;


stop0:
	nop;
	mov c, 0	;
	jc stop0	;
	reti		;
stop1:
	nop;
	mov c, 1	;
	jc stop1	;
	reti		;
stop2:
	nop;
	mov c, 2	;
	jc stop2	;
	reti		;
stop3:
	nop;
	mov c, 3	;
	jc stop3	;
	reti		;

wait:
	nop		;
	nop		;
	dec a		;
	jnz wait	;
	ret;

error:
	mov psw, #00h		;
	mov p1, 7fh		;
loop0:
	nop		;
	ajmp loop0		;

test:
	subb a, b		;
	jnz error		;
	ret		;
	
test_tcon:
	subb a, tcon		;
	jnz error		;
	ret		;

start:
	clr a
	mov r0, a		;
	mov r1, a		;
	mov r2, a		;
	mov r3, a		;
	mov r4, a		;
	mov 7fh, a		; error 0
	mov 20h, a		; 
	mov sp, #02fh		;
;
; testing interrupt enable interrupt enable register
;
; ea (ie.7)
;
	mov ie, #00fh		;
	mov sbuf, #00h		;
	mov tmod, #033h	; t/c 0 and 1 in mode 3
	mov th0, #0fdh		;load timer 0
	mov tl0, #0fch		;
	mov tcon, #050h		;
	clr p3.4		;
	clr p3.3		;
	mov 7fh, #001h		; error 1
	mov a, #010h		;
	acall wait		;
	clr tcon.6		;
	clr tcon.4		;
	clr a		;
	acall test		;
	mov a, #0aah		;
	mov 7fh, #002h		; error 2
	acall test_tcon		;
	mov tcon, #00h		;
	mov a, #00ah		;
	acall test_tcon		;
	setb p3.4		;
	setb p3.3		;
	mov a, #00h		;
	acall test_tcon		;
	clr scon.0		;
	clr scon.1		;

;
; ie
;
	mov tcon, #005h		; external interrupts are edge sensitive
	mov ie, #099h		;
	mov th0, #0fdh		;load timer 0
	mov tl0, #0fch		;
	mov tcon, #055h		;
	mov sbuf, #098h		;
	clr p3.4		;
	clr p3.3		;
	setb p3.4		;
	setb p3.3		;
	mov 7fh, #003h		; error 3
	mov a, #010h		;
	acall wait		;
	clr tcon.6		;
	clr tcon.4		;
	mov a, #019h		;
	acall test		;
	mov 7fh, #004h		; error 4
	mov a, #02dh		;
	acall test_tcon		;

	mov b,#000h		;
	mov ie, #09fh		;
	mov 7fh, #005h		; error 5
	mov a, #010h		;
	acall wait		;
	clr tcon.6		;
	clr tcon.4		;
	mov a, #006h		;
	acall test		;
	mov 7fh, #006h		; error 6
	mov a, #005h		;
	acall test_tcon		;
;
; software interrupts
;
	mov b,#000h		;
	mov tcon, #0afh		;
	setb scon.0		;
	mov 7fh, #007h		; error 7
	mov a, #005h		;
	acall wait		;
	mov a, #01fh		;
	acall test		;
	mov 7fh, #008h		; error 8
	mov a, #005h		;
	acall test_tcon		;

	mov p0, #001h		;
;
; interrupt prioriti test
;
	mov b,#000h		;
	mov ie, #08fh		;
	mov ip, #003h		;
	mov 20, #00ch		;
	mov tcon, #0afh		;
	mov 7fh, #009h		; error 9
	mov a, #005h		;
	acall wait		;
	mov a, #00fh		;
	acall test		;
	mov 7fh, #00ah		; error a
	mov a, #005h		;
	acall test_tcon		;

	mov b,#000h		;
	mov ip, #00ch		;
	mov 20, #003h		;
	mov tcon, #0afh		;
	mov 7fh, #00bh		; error b
	mov a, #005h		;
	acall wait		;
	mov a, #00fh		;
	acall test		;
	mov 7fh, #00ch		; error c
	mov a, #005h		;
	acall test_tcon		;

	mov p0, #002h		;