sendmain.asm

5509的代码程序

	sub		#1,t0               ;
	mov		t0,*(#HeaderSend)   ;
	bcc		BeginSendHeader,t0>#0 ;至此，640报头经过40批后发送完毕
	
	amov	#Walshed,xar7		;xar0指向报头序列
	mov		#52,t0
	mov		t0,*(#DataSend)
BeginSendData:	
	call 	PhaseMap            ;对报头640个数据每次取16进行相位映射，共进行640/16=40次
	call 	WaveForm
	call 	CarrierModem
************************
*///将数据保存在Assemb_data中
;    amov    #Assemb_data,xar1
;    mov     *(#Assemb_count),t0
;    amov	#Psk_I,xar0    
;    mov     #(80-1),brc0
;    rptb    save_data1_end-1
;    mov     *ar0+,*ar1(t0)
;    add     #1,t0    
;   nop
;save_data1_end
;    mov     t0,*(#Assemb_count)
************************
    

	call 	McBspSendData
	
	mov		*(#DataSend),t0
	sub		#1,t0
	mov		t0,*(#DataSend)

	bcc		BeginSendData,t0>#0 ;至此，832个数据发送完毕
	
	mov		#20,*(#DataSend)
BeginSendElse:
	call 	McBspSendData
	mov		*(#DataSend),t0
	sub		#1,t0
	mov		t0,*(#DataSend)
	bcc		BeginSendElse,t0>#0 ;分20批发送，共320个数据 
	nop
	mov		*(#SendTimes),t0    ;共发送sendtimes=1000 
	sub		#1,t0
	mov		t0,*(#SendTimes)
	bcc		end,t0<=#0
	nop
	b 		BeginSend
	
end:
	mov     #0x00c0,port(#IODIR) ;GPIO口
	mov     #0x0000,port(#IODATA)
	nop
	b end
	
McBspSendData:	
;发送数据
	amov	#Psk_I,xar1
	
	mov		#(80-1),brc0
	rptb	Sendloop1-1
L2:	mov		port(#SPCR2_1),t0
	and		#0x0002,t0
	bcc		L2,t0==#0           ;等待SPRC2_1中的XRDY(发送就绪标志)，0为复位值（就绪），1为等待
	mov		*ar1+,t1
	mov     t1,t3
    and     #0xFFFE,t1 	
;	sfts	t1,#1
	mov		t1,port(#DXR1_1)
Sendloop1:
	nop
	ret
    .data	

Cos_array:  .word 32767,23170,0,-23170,-32768,-23170,0,23170
Sin_array:	.word 0,23170,32767,23170,0,-23170,-32768,-23170
SendTimes .word 0

CosW_array:	.word  19261, -10126, -31164, -26510,      0,  26510,  31164,  10126, -19261, -32768
			.word -19261,  10126,  31164,  26510,      0, -26510, -31164, -10126,  19261,  32767
SinW_array:	.word -26510, -31164, -10126,  19261,  32767,  19261, -10126, -31164, -26510,      0
			.word  26510,  31164,  10126, -19261, -32768, -19261,  10126,  31164,  26510,      0
Walsh_array:
    .word   0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0 
    .word   0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4, 0,4,0,4
    .word   0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4, 0,0,4,4
    .word   0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0, 0,4,4,0
    .word   0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4, 0,0,0,0, 4,4,4,4
    .word   0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0, 0,4,0,4, 4,0,4,0
    .word   0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0, 0,0,4,4, 4,4,0,0
    .word   0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4, 0,4,4,0, 4,0,0,4
    .word   0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4
    .word   0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0
    .word   0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0
    .word   0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4
    .word   0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0, 0,0,0,0, 4,4,4,4, 4,4,4,4, 0,0,0,0
    .word   0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4, 0,4,0,4, 4,0,4,0, 4,0,4,0, 0,4,0,4
    .word   0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4, 0,0,4,4, 4,4,0,0, 4,4,0,0, 0,0,4,4
    .word   0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0, 0,4,4,0, 4,0,0,4, 4,0,0,4, 0,4,4,0
Tcl_Pre:
    .word   2,6,1,6, 1,6,3,0, 6,0,1,1, 5,0,0,6, 2,6,2,1, 6,2,3,2, 7,6,4,3, 0,2,3,5
    .word   2,7,5,1, 5,1,7,6, 1,7,1,5, 4,4,0,7, 2,2,6,2 ,2,2,6,3, 3,3,7,7, 3,2,4,5
    .word   0,7,4,7, 7,7,2,3, 1,6,7,6, 5,7,0,5, 1,0,7,6, 2,4,0,2, 7,5,5,4, 1,5,1,5
    .word   6,7,3,0, 2,7,6,6, 4,0,4,7, 3,2,2,6, 6,7,4,7, 2,0,2,7, 2,1,5,4, 6,2,3,2  
    .word   1,6,0,7, 1,1,2,6, 2,2,0,2, 2,3,6,7, 1,7,1,7, 1,5,7,7, 2,2,2,0, 4,3,4,2
    .word   0,6,7,6, 0,5,0,7, 1,7,4,1, 2,3,4,6, 7,2,2,0, 6,4,4,6, 6,4,2,2, 6,5,3,4
    .word   2,3,5,7, 7,1,0,0, 0,3,1,2, 0,1,6,2, 7,4,4,3, 2,5,4,5, 6,4,2,5, 6,2,2,4
    .word   7,0,6,2, 3,7,2,5, 4,2,4,1, 5,5,3,6, 1,1,3,2, 7,5,7,0, 7,3,5,0, 0,1,2,0  
    .word   7,7,7,7, 5,4,3,1, 1,2,0,2, 7,2,2,0, 1,3,4,7, 5,3,7,7, 4,3,1,0, 1,1,5,2
    .word   1,6,0,0, 4,7,6,2, 2,3,6,0, 5,1,7,6, 1,6,1,7, 6,6,6,1, 7,3,0,4, 7,1,2,2
    .word   3,3,6,7, 7,1,7,3, 1,5,0,3, 3,4,5,2, 5,2,5,3, 1,7,2,1, 5,7,6,1, 2,5,3,5
    .word   3,6,2,0, 7,5,6,6, 0,1,4,2, 5,4,1,1, 7,0,0,6, 6,7,5,6, 3,7,4,0, 2,6,3,6    
    .word   4,5,0,1, 0,4,5,5, 4,7,1,5, 1,5,6,7, 3,3,5,2, 2,2,7,2, 3,3,0,4, 1,4,1,3
    .word   6,0,7,2, 6,1,5,0, 1,4,1,1, 7,0,7,4, 0,2,4,5, 3,0,0,3, 1,2,6,4, 6,5,2,6
    .word   0,0,7,3, 5,3,4,0, 6,2,7,2, 3,3,7,6, 7,1,0,0, 6,7,3,1, 5,5,0,2, 3,4,2,7
    .word   7,4,5,2, 1,6,1,0, 4,7,1,6, 1,2,4,0, 3,6,5,4, 5,4,4,6, 1,2,5,1, 3,6,2,7    
    .word   2,6,7,4, 7,3,0,1, 5,0,5,3, 4,5,0,7, 3,2,7,0, 3,2,7,0, 6,1,6,7, 7,1,4,2
    .word   6,7,7,4, 2,7,2,7, 3,7,6,3, 2,6,5,6, 6,3,6,6, 4,1,0,6, 2,6,4,1, 5,5,4,3
    .word   3,4,6,3, 5,2,4,1, 1,7,5,3, 7,1,6,5, 4,6,6,2, 3,4,2,3, 3,7,4,1, 4,4,5,4
    .word   6,1,3,4, 6,1,7,4, 1,3,5,2, 6,5,5,4, 2,1,5,1, 6,1,2,7, 1,4,4,2, 3,4,7,3

PN_array:
    .word   0,2,4,3, 3,6,4,5, 7,6,7,0, 5,5,4,3, 5,4,3,7, 0,7,6,2, 6,2,4,6, 7,2,4,7
    .word   5,5,7,0, 7,3,3,3, 7,3,3,1, 4,2,3,7, 0,2,7,7, 3,5,1,0, 1,4,0,5, 0,0,0,0
    .word   6,5,0,1, 2,7,6,5, 5,2,7,3, 3,3,2,1, 2,5,6,1, 3,4,2,1, 0,1,2,3, 6,4,7,5
    .word   2,2,6,2, 7,6,5,2, 4,6,5,4, 7,2,5,1, 0,0,7,7, 3,5,4,2, 1,4,2,7, 0,3,4,5
    .word   0,0,7,7, 3,5,4,2, 1,4,2,7, 0,3,4,0, 1,0,5,2, 6,0,3,5, 1,0,5,1, 5,2,5,6 
    .word   3,2,3,7, 1,2,2,0, 7,1,3,6, 4,2,6,2, 7,4,3,7, 6,7,2,3, 1,7,4,1, 5,1,5,4 
    .word   7,1,1,2, 3,6,7,7, 6,6,1,2, 2,4,1,7, 7,5,5,4, 7,7,5,0, 7,3,7,5, 7,7,5,0 
    .word   6,6,6,1, 3,4,4,4, 0,3,3,2, 1,4,5,4, 5,3,1,1, 1,2,5,1, 7,1,5,7, 2,0,0,6 
Ascend_coe:; box(0.25)
		;.word 32768*170/10000,32768*129/10000,32768*0/10000
		;.word 32768*(-186)/10000,32768*(-357)/10000,32768*(-420)/10000
		;.word 32768*(-303)/10000,32768*0/10000,32768*409/10000
		;.word 32768*766/10000,32768*886/10000,32768*634/10000
		;.word 32768*0/10000,32768*(-856)/10000,32768*(-1624)/10000
		;.word 32768*(-1925)/10000,32768*(-1432)/10000,32768*0/10000
		;.word 32768*2252/10000,32768*4940/10000,32768*7498/10000
		;.word 32768*9333/10000,32767,32768*9333/10000
		;.word 32768*7498/10000,32768*4940/10000,32768*2252/10000
		;.word 32768*0/10000,32768*(-1432)/10000,32768*(-1925)/10000
		;.word 32768*(-1624)/10000,32768*(-856)/10000,32768*0/10000
		;.word 32768*634/10000,32768*886/10000,32768*766/10000
		;.word 32768*409/10000,32768*0/10000,32768*(-303)/10000
		;.word 32768*(-420)/10000,32768*(-357)/10000,32768*(-186)/10000
		;.word 32768*0/10000,32768*129/10000,32768*170/10000
		
		;box(0.125)
        .word 32768*513/10000,32768*341/10000,32768*0/10000
		.word 32768*(-396)/10000,32768*(-692)/10000,32768*(-749)/10000
		.word 32768*(-502)/10000,32768*0/10000,32768*595/10000
		.word 32768*1053/10000,32768*1158/10000,32768*792/10000
		.word 32768*0/10000,32768*(-991)/10000,32768*(-1822)/10000
		.word 32768*(-2101)/10000,32768*(-1527)/10000,32768*0/10000
		.word 32768*2317/10000,32768*5019/10000,32768*7551/10000
		.word 32768*9349/10000,32767,32768*9349/10000
	    .word 32768*7551/10000,32768*5019/10000,32768*2317/10000
		.word 32768*0/10000,32768*(-1527)/10000,32768*(-2101)/10000
		.word 32768*(-1822)/10000,32768*(-991)/10000,32768*0/10000
		.word 32768*792/10000,32768*1158/10000,32768*1053/10000
		.word 32768*595/10000,32768*0/10000,32768*(-502)/10000
		.word 32768*(-749)/10000,32768*(-692)/10000,32768*(-396)/10000
		.word 32768*0/10000,32768*341/10000,32768*513/10000
		
		;firrcos(0.125) N=44
		;.word 32768*(-251)/10000,32768*(-357)/10000,32768*(-228)/10000
		;.word 32768*(94)/10000,32768*(418)/10000,32768*(515)/10000
		;.word 32768*(265)/10000,32768*(-228)/10000,32768*(-671)/10000
		;.word 32768*(-739)/10000,32768*(-297)/10000,32768*(466)/10000
		;.word 32768*(1095)/10000,32768*(1109)/10000,32768*(321)/10000
		;.word 32768*(-965)/10000,32768*(-2012)/10000,32768*(-1971)/10000
		;.word 32768*(-336)/10000,32768*(2722)/10000,32768*(6329)/10000
		;.word 32768*(9231)/10000,32767,32768*9231/10000        
	    ;.word 32768*6329/10000,32768*2722/10000,32768*(-336)/10000
		;.word 32768*(-1971)/10000,32768*(-2012)/10000,32768*(-965)/10000
		;.word 32768*(321)/10000,32768*(1109)/10000,32768*(1095)/10000
		;.word 32768*466/10000,32768*(-297)/10000,32768*(-739)/10000
		;.word 32768*(-671)/10000,32768*(-228)/10000,32768*(265)/10000
		;.word 32768*(515)/10000,32768*(418)/10000,32768*(94)/10000
		;.word 32768*(-228)/10000,32768*(-357)/10000,32768*(-251)/10000