scitest

来自「Renesas(Hitachi SuperH)SH7708的UCOS2源码,uC」· 代码 · 共 87 行

                         ;----------------------------------------------------------------------------
; Run after system Reset.
; Author: Kuan, Yeou-Fuh
;----------------------------------------------------------------------------
        .SECTION        ST,CODE,ALIGN=4
;        .include        "macro.h"
;		.include		"bsc_init.h"
;        .import         __INIT 
;		.import			_bsc_init

SCSMR	.equ	h'fffffe80 
SCBRR	.equ	h'fffffe82 
SCSCR	.equ	h'fffffe84 
SCTDR	.equ	h'fffffe86 
SCSSR	.equ	h'fffffe88
SCRDR	.equ	h'fffffe8a
                                            
		nop		;
		nop		;
		nop		;

;;		mov.l	#h'080200000, r15; load sp

;		mov.l	#_bsc_init, r2	; bsc init
;		jsr		@r2
;		nop

;        mov.l   #__INIT,r2       ;Goto _INIT() program
;        jmp     @r2
;        nop
              
	mov.l	#SCSCR, r1		;
	mov.w	#0000, r2			;
	mov.w	r2, @r1			;
	
	mov.l	#SCSMR, r1		;
	mov.w	#h'00, r2			;
	mov.w	r2, @r1			;
	
	mov.l	#SCBRR, r1		;
	mov.w	#h'18, r2		;
	mov.w	r2, @r1			;     
	
	mov.w	#h'02ff, r1		;
wait:	
	dt		r1				;
	bf		wait            ;

		 
	mov.l	#SCSCR, r1		;
	mov.w	#h'0030, r2			;
	mov.w	r2, @r1			;
	                         
main_tx
; 	mov.l	#SCSSR, r1		;
; 	mov.b	@r1, r0			;
; 	tst		#h'80, r0		
; 	bf		main_tx			;    
enquiry:
	mov.w	#h'80, r1		;
	mov.l	#SCSSR, r2		;
	mov.b	@r2, r2			;
	tst		r1, r2			;
	bt		enquiry			;
		 	
 	mov.b	#h'41, r1			;
 	mov.l	#SCTDR,r2		; 
 	mov.b	r1, @r2			;
 	
 	mov.b	#h'7f, r1			;
 	mov.l	#SCSSR, r2		;
 	mov.b	@r2, r3			;
 	and		r1,r3			;
 	mov.b	r3, @r2			;   

 	
 	bra main_tx				
 	nop						;	
		
	mov.b	#h'42, r2			;
	mov.l	#SCTDR, r1		;
	mov.b	r2, @r1			;
	bra		main_tx			;
	nop						;
		
        .END