serial_test.asm

8051的Verilog

;
; r0 - scon
; r1 - sbuf
; r2 - transnit test
; r3 - receive test
; r4 - pcon
;
	ajmp start;
	
	.org 03h	;external interrupt 0
	reti;

	.org 0bh	;t/c 0 interrupt
	setb p3.1	;
	clr p3.1	;
	reti;

	.org 13h	;external interrupt 1
	reti;

	.org 1bh	;t/c 1 interrupt
	reti;

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

	nop;
	nop;
wait:
	mov a,b		;
	jz wait		;
	ret		;

	nop;
	nop;

test_txd:
	clr c		;
	movx a, @r1	;
	subb a, r2	;
	jnz error	;
	ret		;

	nop;
	nop;

test_rxd:
	clr c		;
	mov a, sbuf	;
	subb a, r3	;
	jnz error	;
	ret		;

	nop;
	nop;


start:
	clr a;
	mov 7fh, a	; error 0
	clr p3.7	;
	clr p3.0	;
	mov ie, #090h	; enable interrupts
	mov r0, #098h	; serial control address
	mov r1, #099h	; serial data buffer address
	mov dpl, #087h	; pcon
	mov dph, #000h	;

;
; testing mode 0
;
; transmit
;
	mov scon, #000h	; mode 0
	mov b,#000h	;
	mov a, #010h	;
	mov r2, #06ch	;
	movx @r0, a	;
	mov sbuf, r2	; transmit 6c
	acall wait	;
	acall test_txd	;
	mov c, p3.0	;
	jnc error	;
;
; receive
;
	setb ie.7	;
	mov a, #000h	;
	movx @r0,a	;
	mov 7fh, #001h	; error 1
	nop		;
	nop		;
	mov c, p3.0	;
	jc error	;
	mov 7fh, #002h	; error 2
	mov b,#000h	;
	mov a, #0d3h	;
	mov r3, a		;
	movx @r1, a		;
	mov scon, #010h		;
	acall wait		;
	acall test_rxd		;
	mov c, p3.0	;
	jnc error	;

	mov p0, #00h		;
	ajmp mode1		;

error:
	mov p2, 7fh		;
loop:
	nop			;
	ajmp loop		;

;
; mode 1
;
; transmit
;
mode1:
	mov b,#000h		;
	mov ie, #092h		;
	mov 7fh, #003h		; error 3
	clr p3.1		;
	mov a, #050h		; external mode 1 receive
	movx @r0, a		;
	mov scon, #040h		;
	mov th0, #0ech		;
	mov tl0, #0ech		;
	mov th1, #0ech		;
	mov tl1, #0ech		;
	mov tmod, #022h		;
	setb tcon.4		;
	setb tcon.6		;
	mov r2, #095h		;
	mov sbuf, r2		; start transmition
	acall wait		;
	clr tcon.4		;
	clr tcon.6		;
	acall test_txd		;
;
; receive
;
	mov 7fh, #004h		; error 4
	mov b, #000h		;
	mov a, #040h		;
	movx @r0, a		;
	mov scon, #050h		;	
	mov a, #0a2h		;
	mov r3, a		;
	setb tcon.4		;
	setb tcon.6		;
	movx @r1, a		;
	acall wait		;
	clr tcon.4		;
	clr tcon.6		;
	acall test_rxd		;
	mov 7fh, #005h		; error 5
	mov c, scon.2		;
	jnc error		;
;
; transmit / receive
;
	mov b,#000h		;
	mov ie, #082h		;
	mov 7fh, #006h		; error 6
	mov a, #050h		; external mode 1 receive
	movx @r0, a		;
	mov scon, #050h		;
	setb tcon.4		;
	setb tcon.6		;
	mov r2, #097h		;
	mov sbuf, r2		; start transmition
	mov a, #0d5h		;
	mov r3, a		;
	movx @r1, a		;
loop0:
	mov c, scon.1		;
	jnc loop0		;
	mov c, scon.0		;
	jnc loop0		;
	clr tcon.4		;
	clr tcon.6		;
	clr c		;
	acall test_txd		;
	mov 7fh, #007h		; error 7
	acall test_rxd		;
	clr scon.1		;
	clr scon.0		;

	mov p0, #01h		;


;
; mode 2 
;
; transmit
;
	mov b,#000h	;
	mov ie, #090h		;
	mov 7fh, #008h		; error 8
	mov a, #090h		; external mode 2 receive
	movx @r0, a		;
	mov scon, #080h		;
	mov r2, #095h		;
	mov sbuf, r2		; start transmition
	acall wait		;
	acall test_txd		;
;
; receive 1
;
	mov 7fh, #009h		; error 9
	mov b, #000h		;
	mov a, #088h		;
	movx @r0, a		;
	mov scon, #090h		;	
	mov a, #0a2h		;
	mov r3, a		;
	movx @r1, a		;
	acall wait		;
	acall test_rxd		;
	mov 7fh, #00ah		; error a
	mov c, scon.2		;
	jnc error1		;
;
; receive 2
;
	setb ie.7	;
	mov 7fh, #00bh		; error b
	mov b, #000h		;
	mov a, #080h		;
	movx @r0, a		;
	mov scon, #0b0h		;	
	mov a, #0b2h		;
	mov r3, a		;
	movx @r1, a		;
loop1:
	nop		;
  nop   ;
  dec a   ;
  jnz   loop1   ;
	acall test_rxd		;
	mov 7fh, #00ch		; error c
	mov a, b		;
	jnz error1		;
;
; transmit / receive
;
	mov b,#000h		;
	mov ie, #000h		;
	mov 7fh, #00dh		; error d
	mov a, #090h		; external mode 2 receive
	movx @r0, a		;
	mov a, #080h		;
	movx @dptr, a		;
	mov pcon, a		;
	mov scon, #090h		;
	mov r2, #097h		;
	mov sbuf, r2		; start transmition
	mov a, #0d5h		;
	mov r3, a		;
	movx @r1, a		;
loop2:
	mov c, scon.1		;
	jnc loop2		;
	mov c, scon.0		;
	jnc loop2		;
	acall test_txd		;
	mov 7fh, #00eh		; error e
	acall test_rxd		;
	clr scon.1		;
	clr scon.0		;

	mov p0, #02h		;
	ajmp mode3		;

error1:
	ljmp error		;

;
; mode 3
;
; transmit
;
mode3:
	mov b,#000h	;
	mov ie, #092h		;
	mov 7fh, #00fh		; error f
	mov a, #0d0h		; external mode 3 receive
	movx @r0, a		;
	mov scon, #0c0h		;
	mov r2, #095h		;
	setb tcon.4		;
	setb tcon.6		;
	mov sbuf, r2		; start transmition
	acall wait		;
	clr tcon.4		;
	clr tcon.6		;
	acall test_txd		;
;
; receive
;
	setb ie.7	;
	mov 7fh, #010h		; error 10
	mov b, #000h		;
	mov a, #0c0h		;
	movx @r0, a		;
	mov scon, #0d4h		;	
	mov a, #0a2h		;
	mov r3, a		;
	movx @r1, a		;
	setb tcon.4		;
	setb tcon.6		;
	acall wait		;
	clr tcon.4		;
	clr tcon.6		;
	acall test_rxd		;
	mov 7fh, #011h		; error 11
	mov c, scon.2		;
	jc error1		;
;
; transmit / receive
;
	mov b,#000h		;
	mov ie, #082h		;
	mov 7fh, #012h		; error 12
	mov a, #0d0h		; external mode 3 receive
	movx @r0, a		;
	mov scon, #0d8h		;
	mov r2, #097h		;
	setb tcon.4		;
	setb tcon.6		;
	mov sbuf, r2		; start transmition
	mov a, #0d5h		;
	mov r3, a		;
	movx @r1, a		;
loop3:
	mov c, scon.1		;
	jnc loop3		;
	mov c, scon.0		;
	jnc loop3		;
	clr tcon.4		;
	clr tcon.6		;
	acall test_txd		;
	mov 7fh, #013h		; error 13
	acall test_rxd		;
	clr scon.1		;
	clr scon.0		;
	mov 7fh, #014h		; error 14
	mov c, scon.2		;
	jc error1		;
	movx a, @r0		;
	subb a, #0d7h		;
	
	mov p0, #03h		;