URL https://opencores.org/ocsvn/atlas_core/atlas_core/trunk

Subversion Repositories atlas_core

Compare Revisions

This comparison shows the changes necessary to convert path
```
/
```
from Rev 33 to Rev 34
↔ Reverse comparison
Compare Path: Rev

With Path: Rev

Rev 33 → Rev 34

/atlas_core/trunk/asm/atlas_asm.exe Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

/atlas_core/trunk/asm/src/main.cpp

887,7 → 887,19

1786,9 → 1798,9

1904,7 → 1916,7

/atlas_core/trunk/rtl/BOOT_MEM.vhd

3,7 → 3,7

53,7 → 53,7

91,15 → 91,15

114,13 → 114,13

143,7 → 143,7

150,8 → 150,8

164,52 → 164,52

217,13 → 217,13

258,810 → 258,806

/atlas_core/trunk/rtl/ATLAS_pkg.vhd

4,7 → 4,7

17,7 → 17,7

/atlas_core/trunk/rtl/COM_0_CORE.vhd

6,7 → 6,7

144,6 → 144,7

160,7 → 161,7

170,7 → 171,7

181,8 → 182,9

191,7 → 193,7

207,7 → 209,7

/atlas_core/trunk/rtl/SYS_1_CORE.vhd

4,7 → 4,7

57,9 → 57,12

/atlas_core/trunk/rtl/WB_UNIT.vhd

3,7 → 3,7

85,7 → 85,7

/atlas_core/trunk/rtl/ATLAS_2K_BASE_TOP.vhd

11,7 → 11,7

50,7 → 50,7

149,7 → 149,7

/atlas_core/trunk/rtl/MEM_ACC.vhd

5,7 → 5,7

137,7 → 137,7

/atlas_core/trunk/rtl/OP_DEC.vhd

3,7 → 3,7

64,7 → 64,7

/atlas_core/trunk/rtl/INT_RAM.vhd

3,7 → 3,7

55,12 → 55,12

69,12 → 69,21

84,7 → 93,7

/atlas_core/trunk/doc/Atlas 2k Processor Documentary.pdf Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

/atlas_core/trunk/software/bootloader/atlas2k_bootloader.asm

448,10 → 448,7

576,6 → 573,7

585,7 → 583,6

867,13 → 864,12

941,7 → 937,7

1351,13 → 1347,13

/atlas_core/trunk/software/examples/fft/sincos_lut.asm

0,0 → 1,128

/atlas_core/trunk/software/examples/fft/init.vhd

0,0 → 1,980

/atlas_core/trunk/software/examples/fft/lut_gen_src/main.cpp

0,0 → 1,40

/atlas_core/trunk/software/examples/fft/boot_init.vhd

0,0 → 1,988

/atlas_core/trunk/software/examples/fft/fft_sincos.exe Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

/atlas_core/trunk/software/examples/fft/fft_sincos.exe

atlas_core/trunk/software/examples/fft/fft_sincos.exe Property changes : Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: atlas_core/trunk/software/examples/fft/FFT.asm =================================================================== --- atlas_core/trunk/software/examples/fft/FFT.asm (nonexistent) +++ atlas_core/trunk/software/examples/fft/FFT.asm (revision 34) @@ -0,0 +1,833 @@ +; ************************************************************************************************************** +; FFT - Fast Fourier Transformation +; +; N=32: 13851 cycles +; N=64: 33765 cycles +; N=128: 107192 cycles +; ************************************************************************************************************** + + +; ************************************************************************************************************** +; Defintions +; ************************************************************************************************************** +.equ sys0_core c0 +.equ sys1_core c1 +.equ com0_core c2 +.equ com1_core c3 +.equ sp r6 ; stack pointer +.equ lr r7 ; link register + + +; ************************************************************************************************************** +; FFT Configuration +; ************************************************************************************************************** +.equ fft_n_c #128 ; = N +.equ fft_mem_c #256 ; = N*2 + + +; ************************************************************************************************************** +; Exception Vector Table +; ************************************************************************************************************** +reset_vec: b reset +x_int0_vec: b err_handler +x_int1_vec: b err_handler +cmd_err_vec: b err_handler +swi_vec: b err_handler + + +; ************************************************************************************************************** +; IRQ/SWI/CMD_ERR: Terminate +; ************************************************************************************************************** +err_handler: + bl uart_linebreak + ldil r2, low[err_string] + ldih r2, high[err_string] + bl uart_print + bl uart_linebreak + b #+0 ; freeze + + +; ************************************************************************************************************** +; Main Program +; ************************************************************************************************************** +reset: ldil sp, low[stack_end] ; setup negative-growing stack + ldih sp, high[stack_end] + + ; print intro + ldil r2, low[string_intro] + ldih r2, high[string_intro] + bl uart_print + + ; init timer + ldil r0, #0xFF + mcr #1, sys0_core, r0, #3 ; timer threshold + ldil r0, #2 + mcr #1, sys0_core, r0, #4 ; timer prescaler = 1/4 + + +; rearrange input data (bit-reverse sorting) +; ----------------------------------------------------------------------------- + ; compute r0=log2(N) + ldil r0, low[fft_n_c] ; N + ldih r0, high[fft_n_c] + ldil r7, low[math_log2] + ldih r7, high[math_log2] + gtl r7 + push r0 ; = ld(N) + + ; re-order + ldil r5, low[input_signal] + ldih r5, high[input_signal] + ldil r2, low[fft_ram] + ldih r2, high[fft_ram] + clr r3, #0 ; initial offset fft_ram +fft_store_loop: + ldr r0, r5, +#2, post, ! ; get real part of sample + ldil r1, #0x00 ; imaginary part = 0 + peek r4 ; = ld(N) + + ldil r7, low[store_fft_sample] + ldih r7, high[store_fft_sample] + gtl r7 + + inc r3, r3, #1 ; in offset + ldil r0, low[fft_n_c] ; N + ldih r0, high[fft_n_c] + cmp r3, r0 + bne fft_store_loop + pop r0 + + +; Perform FFT +; ----------------------------------------------------------------------------- + ; reset timer + clr r5 + mcr #1, sys0_core, r5, #2 ; timer counter + + ; perform FFT + ldil r0, low[fft_ram] + ldih r0, high[fft_ram] + ldil r1, low[fft_n_c] + ldih r1, high[fft_n_c] + ldil r2, low[fft_sincos_lut] + ldih r2, high[fft_sincos_lut] + bl math_fft + + ; get timer + mrc #1, r4, sys0_core, #2 ; timer counter + bl print_hex_string + bl uart_linebreak + + +; print FFT result +; ----------------------------------------------------------------------------- + ldil r5, low[fft_ram] + ldih r5, high[fft_ram] + ldil r3, low[fft_n_c] + ldih r3, high[fft_n_c] +print_results: + ldr r4, r5, +#2, post, ! + bl print_hex_string + + ldil r1, #32 + bl uart_sendbyte + + ldr r4, r5, +#2, post, ! + bl print_hex_string + + bl uart_linebreak + + decs r3, r3, #1 + bne print_results + + b #+0 + + +; ************************************************************************************************************** +; Communication Subroutines +; ************************************************************************************************************** + +; -------------------------------------------------------------------------------------------------------- +; Print char (byte) via CP0.COM_0.UART +; Arguments: r1 = char (low byte) +; Results: - +; Used registers: r0, r1 +uart_sendbyte: +; -------------------------------------------------------------------------------------------------------- + mrc #1, r0, com0_core, #2 ; get com control register + stb r0, #5 ; copy uart tx_busy flag to T-flag + bts uart_sendbyte ; still set, keep on waiting + mcr #1, com0_core, r1, #0 ; send data + ret lr + + +; -------------------------------------------------------------------------------------------------------- +; Receive a byte via CP0.COM_0.UART +; Arguments: - +; Results: r0 (low byte) +; Used registers: r0 +uart_receivebyte: +; -------------------------------------------------------------------------------------------------------- + mrc #1, r0, com0_core, #0 ; get uart status/data register + stbi r0, #15 ; copy inverted uart rx_ready flag to T-flag + bts uart_receivebyte ; nothing received, keep on waiting + ldih r0, #0x00 ; clear upper byte + ret lr ; return + + +; -------------------------------------------------------------------------------------------------------- +; Prints 16bit data as 4x char hex value +; Arguments: +; r4 = data +; Results: - +; Used registers: r0, r1, r2, r3, r4, lr +print_hex_string: +; -------------------------------------------------------------------------------------------------------- + push r0 + push r1 + push r2 + push r3 + push r4 + push lr ; backup link regiiter + + ; char 3 + sft r2, r4, #rol + sft r2, r2, #rol + sft r2, r2, #rol + sft r2, r2, #rol + bl conv_hex_comp + bl uart_sendbyte + + ; char 2 + sft r2, r4, #swp + bl conv_hex_comp + bl uart_sendbyte + + ; char 1 + sft r2, r4, #lsr + sft r2, r2, #lsr + sft r2, r2, #lsr + sft r2, r2, #lsr + bl conv_hex_comp + bl uart_sendbyte + + ; char 0 + mov r2, r4 + bl conv_hex_comp + bl uart_sendbyte + + pop lr + pop r4 + pop r3 + pop r2 + pop r1 + pop r0 + ret lr + +; compute hex-char from 4-bit value of r2, result in r1 +conv_hex_comp: ldil r1, #0x0f ; mask for lowest 4 bit + and r2, r2, r1 + + ldil r1, #9 + cmp r1, r2 + bcs #+3 + + ldil r1, #48 ; this is a '0' + b #+2 + ldil r1, #55 ; this is an 'A'-10 + add r1, r1, r2 ; resulting char in lower byte + ret lr + + +; -------------------------------------------------------------------------------------------------------- +; Print linebreak +; Arguments: - +; Results: - +; Used registers: r0, r1, r2, lr +uart_linebreak: +; -------------------------------------------------------------------------------------------------------- + push r0 + push r1 + push r2 + push lr + + mov r2, lr + ldil r1, #0x0D ; carriage return + bl uart_sendbyte + ldil r1, #0x0A ; line feed + mov lr, r2 + bl uart_sendbyte + + pop lr + pop r2 + pop r1 + pop r0 + ret lr + + +; -------------------------------------------------------------------------------------------------------- +; Print char-string (bytes) via CP0.COM_0.UART +; Arguments: r2 = address of string (string must be zero-terminated!) +; Results: - +; Used registers: r0, r1, r2, r3, r4, lr +uart_print: +; -------------------------------------------------------------------------------------------------------- + mov r4, lr + +uart_print_loop: + ldr r0, r2, +#1, post, ! ; get one string byte + ldil r1, #0x00 ; upper byte mask + ldih r1, #0xFF + and r1, r0, r1 + sfts r1, r1, #swp ; swap bytes and test if zero + beq uart_print_loop_end + bl uart_sendbyte + b uart_print_loop + +uart_print_loop_end: + ret r4 + + + +; *********************************************************************************************************** +; Fast Fourier Transformation (Cooley and Tukey Algorithm) +; -------------------------------------------------------------------------------------------------------- +; Perform Radix-2 FFT. Make sure to scramble (bit-reverse sorting) input data before +; Arguments: +; r0 = pointer to signal memory (input/output) +; r1 = number of points (must be a power of two and not zero) +; r2 = pointer to sincos table +; Results: - +; Used registers: r0, r1, r2, r3, r4, r5, r6, r7 (saves on stack) +; -------------------------------------------------------------------------------------------------------- +math_fft: +; *********************************************************************************************************** + push r5 + push r4 + push r3 + push r2 + push r1 + push r0 + push lr ; save all regs + + ; save config + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + str r0, r7, -#6, pre ; pointer to signal memory + str r1, r7, -#2, pre ; number of points + str r2, r7, -#4, pre ; pointer to sincos table + + ; get number of levels = ld(N) + clr r0 +math_fft_get_lvs: + sft r1, r1, #lsr + teq r1, r1 + beq #+3 + inc r0, r0, #1 + b math_fft_get_lvs + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + str r0, r7, +#0, pre + + ; init control varibales + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + ldil r5, #1 + str r5, r7, +#2, pre ; current_level = 1 = first level + str r5, r7, +#4, pre ; current_dft = 1 = first sub DFT + str r5, r7, +#6, pre ; current_btfly = 1 = first butterfly + + ldil r7, low[v_math_fft_a_offs] + ldih r7, high[v_math_fft_a_offs] + ldil r5, #0 + str r5, r7, +#0, pre ; offset A + +math_fft_level: ldil r7, low[v_math_fft_dft] + ldih r7, high[v_math_fft_dft] + ldr r1, r7, -#2, pre ; current LEVEL + ldr r2, r7, +#0, pre ; current SUB_DFT + dec r2, r2, #1 + + ldil r4, #4 + sft r4, r4, #lsl + decs r1, r1, #1 + bne #-2 ; r4 = 4< and pointer + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + ldr r4, r7, -#6, pre ; signal mem pointer + ldr r1, r7, +#2, pre ; current LEVEL + ldr r2, r7, +#6, pre ; current BUTTERFLY + ldr r3, r7, -#4, pre ; sincos table pointer + dec r2, r2, #1 ; = BUTTERFLY-1 + sft r2, r2, #lsl + sft r2, r2, #lsl ; offset W = (BUTTERFLY-1)*4 + add r2, r3, r2 ; pointer W + + ldil r7, low[v_math_fft_a_offs] + ldih r7, high[v_math_fft_a_offs] + ldr r0, r7, +#0, pre ; offset A + add r0, r0, r4 ; pointer A + + ldil r3, #2 + sft r3, r3, #lsl + decs r1, r1, #1 + bne #-2 + add r1, r0, r3 ; pointer B + + ; backup pointer + ldil r7, low[v_math_fft_a_pnt] + ldih r7, high[v_math_fft_a_pnt] + str r0, r7, +#0, pre ; A + str r1, r7, +#2, pre ; B + str r2, r7, +#4, pre ; W + + ; get data + mov r3, r0 + mov r4, r1 + mov r5, r2 + push r3 + push r4 + ldr r0, r3, +#0, pre ; A_real + ldr r1, r3, +#2, pre ; A_imag + ldr r2, r4, +#0, pre ; B_real + ldr r3, r4, +#2, pre ; B_imag + ldr r4, r5, +#0, pre ; W_real + ldr r5, r5, +#2, pre ; W_imag + + ; perform butterfly + bl fft_butterfly + + ; store new data + pop r5 + pop r4 + str r2, r5, +#0, pre ; B_real' + str r3, r5, +#2, pre ; B_imag' + str r0, r4, +#0, pre ; A_real' + str r1, r4, +#2, pre ; A_imag' + + ; add step_width to offset A + ldil r7, low[v_math_fft_a_offs] + ldih r7, high[v_math_fft_a_offs] + ldr r0, r7, +#0, pre + ldil r1, #4 + add r0, r0, r1 + str r0, r7, +#0, pre + + ; all butterflies done? + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + ldr r0, r7, +#2, pre ; current LEVEL + ldr r2, r7, +#6, pre ; current BUTTERFLY + + ldil r1, #1 + decs r0, r0, #1 + beq #+3 + sft r1, r1, #lsl ; #butterflies per sub dft = 1<<(LEVEL-1) + b #-3 + + cmp r1, r2 ; #butterflies per sub DFT = current BUTTERFLY? + inc r2, r2, #1 ; inc BUTTERFLY + str r2, r7, +#6, pre ; new BUTTERFLY + bne math_fft_butterfly + + ldil r2, #1 + str r2, r7, +#6, pre ; reset BUTTERFLY + + ; all sub DFTs done? + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + ldr r0, r7, -#2, pre ; N + ldr r1, r7, +#2, pre ; current LEVEL + ldr r2, r7, +#4, pre ; current SUB_DFT + + sft r0, r0, #lsr ; number of DFTs = N >> LEVEL + decs r1, r1, #1 + bne #-2 + + cmp r0, r2 ; #sub DFTs per level = current SUB_DFT? + inc r2, r2, #1 ; inc SUB_DFT + str r2, r7, +#4, pre ; new SUB_DFT + bne math_fft_level + + ldil r2, #1 ; reset value for SUB_DFT + str r2, r7, +#4, pre ; reset SUB_DFT? + + ; all levels done? + ldil r7, low[v_math_fft_num_levels] + ldih r7, high[v_math_fft_num_levels] + ldr r0, r7, +#0, pre ; #levels + ldr r1, r7, +#2, pre ; current LEVEL + cmp r0, r1 + inc r1, r1, #1 ; inc current LEVEL + str r1, r7, +#2, pre ; new LEVEL + bne math_fft_level + + ; terminate + pop lr + pop r0 + pop r1 + pop r2 + pop r3 + pop r4 + pop r5 ; restore regs + + ret lr + + +; FFT run-time data memory +v_math_fft_sig_pnt: nop ; pointer to processing memory +v_math_sincos_pnt: nop ; pointer to sincos table +v_math_fft_num_points: nop ; number of points (N) +v_math_fft_num_levels: nop ; #levels +v_math_fft_level: nop ; current LEVEL +v_math_fft_dft: nop ; current SUB_DFT +v_math_fft_btfly: nop ; current BUTTERFLY + +v_math_fft_a_offs: nop ; offset for A +v_math_fft_a_pnt: nop ; pointer for A +v_math_fft_b_pnt: nop ; pointer for B +v_math_fft_w_pnt: nop ; pointer for W + + +; *********************************************************************************************************** +; FFT Butterfly (16-bit) +; -------------------------------------------------------------------------------------------------------- +; Twiddle factors (W): 1-bit SIGN + 1-bit integer + 14-bit fractional part +; A' = A + B*W +; B' = B - B*W +; Arguments: +; r0 = A_real +; r1 = A_imag +; r2 = B_real +; r3 = B_imag +; r4 = W_real +; r5 = W_imag +; Results: +; r0 = A_real_new +; r1 = A_imag_new +; r2 = B_real_new +; r3 = B_imag_new +; Used registers: r0, r1, r2, r3, r4, r5, r6, r7 (saves on stack) +; -------------------------------------------------------------------------------------------------------- +fft_butterfly: +; *********************************************************************************************************** + push lr + + ; multiplications (signed!) + push r0 + push r1 + + ldil r7, low[fft_butterfly_mem] + ldih r7, high[fft_butterfly_mem] + + mul r0, r4, r2 + mulh r1, r4, r2 ; r1:r0 = U = W_real*B_real + sfts r0, r0, #lsl + sft r1, r1, #rol + sfts r0, r0, #lsl + sft r1, r1, #rol ; r1 = r1:r0 >> 14 + str r1, r7, +#0, pre + + mul r0, r4, r3 + mulh r1, r4, r3 ; r1:r0 = V = W_real*B_imag + sfts r0, r0, #lsl + sft r1, r1, #rol + sfts r0, r0, #lsl + sft r1, r1, #rol ; r1 = r1:r0 >> 14 + str r1, r7, +#2, pre + + mul r0, r5, r2 + mulh r1, r5, r2 ; r1:r0 = X = W_imag*B_real + sfts r0, r0, #lsl + sft r1, r1, #rol + sfts r0, r0, #lsl + sft r1, r1, #rol ; r1 = r1:r0 >> 14 + str r1, r7, +#4, pre + + mul r0, r5, r3 + mulh r1, r5, r3 ; r1:r0 = Y = W_imag*B_imag + sfts r0, r0, #lsl + sft r1, r1, #rol + sfts r0, r0, #lsl + sft r1, r1, #rol ; r1 = r1:r0 >> 14 + str r1, r7, +#6, pre + + pop r1 + pop r0 + + ; additions + ; A_real' = A_real + U - Y + ldr r2, r7, +#0, pre ; r2 = U + ldr r3, r7, +#6, pre ; r3 = Y + adds r2, r0, r2 ; r2 = A_real + U + sbc r3, r2, r3 ; A_real' = r3 = r2 - Y + push r3 + + ; A_imag' = A_imag + V + X + ldr r2, r7, +#2, pre ; r2 = V + ldr r3, r7, +#4, pre ; r3 = X + adds r2, r1, r2 ; r2 = A_imga + V + adc r3, r2, r3 ; A_imag' = r3 = r2 +X + push r3 + + ; B_real' = A_real - U + Y + ldr r2, r7, +#0, pre ; r2 = U + ldr r3, r7, +#6, pre ; r3 = Y + subs r2, r0, r2 ; r2 = A_real - U + adc r3, r2, r3 ; B_real' = r3 = r2 + Y + push r3 + + ; B_imag' = A_imag - V - X + ldr r2, r7, +#2, pre ; r2 = V + ldr r3, r7, +#4, pre ; r3 = X + subs r2, r1, r2 ; r2 = A_real - U + sbc r3, r2, r3 ; B_imag' = r3 = r2 - Y +; push r3 + + ; re-arrange +; pop r3 ; r3 = B_imag' + pop r2 ; r2 = B_real' + pop r1 ; r1 = A_imag' + pop r0 ; r0 = A_real' + + ; done + pop lr + ret lr + + +; Butterfly run-time memory (4x words) +fft_butterfly_mem: .space #4 + + +; *********************************************************************************************************** +; Store complex sample with bit-reversed offset +; -------------------------------------------------------------------------------------------------------- +; Arguments: +; r0 = Sample real part +; r1 = Sample imaginary part +; r2 = Destination buffer base address (absolute) +; r3 = Binary offset number (0..N-1) +; r4 = ld(N) +; Results: - +; Used registers: r0, r1, r2, r3, r4, r5, r6 (saves on stack) +; -------------------------------------------------------------------------------------------------------- +store_fft_sample: +; *********************************************************************************************************** + push r3 ; backup offset + push r4 ; backup ld(N) + push r5 ; backup temp + + ; iterative computation of bit-reversed address + clr r5 +store_fft_sample_brev: + sfts r3, r3, #lsr + sft r5, r5, #rlc + decs r4, r4, #1 + bne store_fft_sample_brev + + sft r5, r5, #lsl ; bytes to words + sft r5, r5, #lsl ; offset*2 -> 2 samples per offset + + ; store it + add r5, r2, r5 ; add offset to base + str r0, r5, +#0, pre ; real + str r1, r5, +#2, pre ; imag + + pop r5 ; restore temp + pop r4 ; restore ld(N) + pop r3 ; restore original offset + + ret lr ; terminate + + +; *********************************************************************************************************** +; Compuation of dual logarithm +; -------------------------------------------------------------------------------------------------------- +; Arguments: +; r0 = Argument +; Results: +; r0 = log2(Argument) +; Used registers: r0, r1, r6 (saves on stack) +; -------------------------------------------------------------------------------------------------------- +math_log2: +; *********************************************************************************************************** + push r1 ; backup temp + + clr r1 +math_log2_loop: + sfts r0, r0, #lsr + beq math_log2_end + inc r1, r1, #1 + b math_log2_loop + +math_log2_end: + mov r0, r1 + pop r1 ; restore temp + + ret lr ; terminate + + +; ************************************************************************************************************** +; FFT Sin/Cos Look-Up Table (cos(2*pi*k/N), sin(2*pi*k/N); 0 <= k <= N/2), 14-bit fractional part, signed +; ************************************************************************************************************** +fft_sincos_lut: +.include "sincos_lut.asm" + + +; ************************************************************************************************************** +; FFT Input signal (dummy) +; ************************************************************************************************************** +input_signal: +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 +.dw #1024 +.dw #0 +.dw #0 +.dw #0 + + +; ************************************************************************************************************** +; FFT processing memory +; ************************************************************************************************************** +fft_ram: +.space fft_mem_c ; N*2 + + +; ************************************************************************************************************** +; Strings +; ************************************************************************************************************** +err_string: .stringz "Exception/interrupt error!" +string_intro: .stringz "Computing FFT... " + + +; ************************************************************************************************************** +; System RAM +; ************************************************************************************************************** +stack_begin: .space #63 +stack_end: nop Index: atlas_core/trunk/software/examples/fft/out.bin =================================================================== Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream Index: atlas_core/trunk/software/examples/fft/out.bin =================================================================== --- atlas_core/trunk/software/examples/fft/out.bin (nonexistent) +++ atlas_core/trunk/software/examples/fft/out.bin (revision 34)

atlas_core/trunk/software/examples/fft/out.bin Property changes : Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: atlas_core/trunk/software/examples/random_numbers/init.vhd =================================================================== --- atlas_core/trunk/software/examples/random_numbers/init.vhd (revision 33) +++ atlas_core/trunk/software/examples/random_numbers/init.vhd (revision 34) @@ -3,35 +3,35 @@ 000002 => x"bc03", -- B 000003 => x"bc02", -- B 000004 => x"bc01", -- B -000005 => x"be31", -- BL -000006 => x"c110", -- LDIL +000005 => x"be30", -- BL +000006 => x"c10e", -- LDIL 000007 => x"c901", -- LDIH 000008 => x"be21", -- BL -000009 => x"be2d", -- BL +000009 => x"be2c", -- BL 000010 => x"bc00", -- B -000011 => x"c12c", -- LDIL +000011 => x"c12a", -- LDIL 000012 => x"c901", -- LDIH 000013 => x"be19", -- BL -000014 => x"c144", -- LDIL +000014 => x"c142", -- LDIL 000015 => x"c901", -- LDIH 000016 => x"be19", -- BL -000017 => x"be34", -- BL +000017 => x"be33", -- BL 000018 => x"ec4d", -- MCR -000019 => x"be23", -- BL -000020 => x"c160", -- LDIL +000019 => x"be22", -- BL +000020 => x"c15e", -- LDIL 000021 => x"c901", -- LDIH 000022 => x"be13", -- BL -000023 => x"be2e", -- BL +000023 => x"be2d", -- BL 000024 => x"d24f", -- CBR 000025 => x"ec4e", -- MCR -000026 => x"be1c", -- BL +000026 => x"be1b", -- BL 000027 => x"c0b0", -- LDIL -000028 => x"be1f", -- BL +000028 => x"be1e", -- BL 000029 => x"c0f8", -- LDIL -000030 => x"be1d", -- BL +000030 => x"be1c", -- BL 000031 => x"ee05", -- MRC -000032 => x"be4a", -- BL -000033 => x"be15", -- BL +000032 => x"be49", -- BL +000033 => x"be14", -- BL 000034 => x"ec20", -- MRC 000035 => x"dc0f", -- STB 000036 => x"b9ea", -- BTS @@ -41,151 +41,150 @@ 000040 => x"bc03", -- B 000041 => x"29b3", -- CLR 000042 => x"0270", -- MOV -000043 => x"7829", -- LDR -000044 => x"c080", -- LDIL -000045 => x"ccff", -- LDIH -000046 => x"2081", -- AND -000047 => x"3c98", -- SFTS -000048 => x"8003", -- BEQ -000049 => x"be0a", -- BL -000050 => x"bdf9", -- B -000051 => x"03c0", -- MOV -000052 => x"343b", -- TEQ -000053 => x"f707", -- RBAEQ -000054 => x"0170", -- MOV -000055 => x"c08d", -- LDIL -000056 => x"be03", -- BL -000057 => x"c08a", -- LDIL -000058 => x"03a0", -- MOV -000059 => x"ec22", -- MRC -000060 => x"dc05", -- STB -000061 => x"b9fe", -- BTS -000062 => x"ed18", -- MCR -000063 => x"3470", -- RET -000064 => x"ec20", -- MRC -000065 => x"dc8f", -- STBI -000066 => x"b9fe", -- BTS -000067 => x"c800", -- LDIH -000068 => x"3470", -- RET -000069 => x"0170", -- MOV -000070 => x"c200", -- LDIL -000071 => x"c184", -- LDIL -000072 => x"bff8", -- BL -000073 => x"c0c6", -- LDIL -000074 => x"1809", -- CMP -000075 => x"9003", -- BMI -000076 => x"c0a0", -- LDIL -000077 => x"1001", -- SUB -000078 => x"c0b0", -- LDIL -000079 => x"1809", -- CMP -000080 => x"91f8", -- BMI -000081 => x"c0c6", -- LDIL -000082 => x"1818", -- CMP -000083 => x"91f5", -- BMI -000084 => x"c0b9", -- LDIL -000085 => x"1818", -- CMP -000086 => x"a404", -- BLS -000087 => x"c0c1", -- LDIL -000088 => x"1809", -- CMP -000089 => x"a1ef", -- BHI -000090 => x"0080", -- MOV -000091 => x"bfe0", -- BL -000092 => x"c030", -- LDIL -000093 => x"1090", -- SUB -000094 => x"c009", -- LDIL -000095 => x"1809", -- CMP -000096 => x"a402", -- BLS -000097 => x"0497", -- DEC +000043 => x"78a9", -- LDR +000044 => x"3c90", -- SFT +000045 => x"c880", -- LDIH +000046 => x"3419", -- TEQ +000047 => x"8003", -- BEQ +000048 => x"be0a", -- BL +000049 => x"bdfa", -- B +000050 => x"03c0", -- MOV +000051 => x"343b", -- TEQ +000052 => x"f707", -- RBAEQ +000053 => x"0170", -- MOV +000054 => x"c08d", -- LDIL +000055 => x"be03", -- BL +000056 => x"c08a", -- LDIL +000057 => x"03a0", -- MOV +000058 => x"ec22", -- MRC +000059 => x"dc05", -- STB +000060 => x"b9fe", -- BTS +000061 => x"ed18", -- MCR +000062 => x"3470", -- RET +000063 => x"ec20", -- MRC +000064 => x"dc8f", -- STBI +000065 => x"b9fe", -- BTS +000066 => x"c800", -- LDIH +000067 => x"3470", -- RET +000068 => x"0170", -- MOV +000069 => x"c200", -- LDIL +000070 => x"c184", -- LDIL +000071 => x"bff8", -- BL +000072 => x"c0c7", -- LDIL +000073 => x"1809", -- CMP +000074 => x"9003", -- BMI +000075 => x"c0a0", -- LDIL +000076 => x"1001", -- SUB +000077 => x"c0b0", -- LDIL +000078 => x"1809", -- CMP +000079 => x"91f8", -- BMI +000080 => x"c0c6", -- LDIL +000081 => x"1818", -- CMP +000082 => x"91f5", -- BMI +000083 => x"c0b9", -- LDIL +000084 => x"1818", -- CMP +000085 => x"a404", -- BLS +000086 => x"c0c1", -- LDIL +000087 => x"1809", -- CMP +000088 => x"a1ef", -- BHI +000089 => x"0080", -- MOV +000090 => x"bfe0", -- BL +000091 => x"c030", -- LDIL +000092 => x"1090", -- SUB +000093 => x"c009", -- LDIL +000094 => x"1809", -- CMP +000095 => x"a402", -- BLS +000096 => x"0497", -- DEC +000097 => x"3e42", -- SFT 000098 => x"3e42", -- SFT 000099 => x"3e42", -- SFT 000100 => x"3e42", -- SFT -000101 => x"3e42", -- SFT -000102 => x"2641", -- ORR -000103 => x"05b9", -- DECS -000104 => x"85e0", -- BNE -000105 => x"3420", -- RET -000106 => x"0370", -- MOV -000107 => x"3d42", -- SFT +000101 => x"2641", -- ORR +000102 => x"05b9", -- DECS +000103 => x"85e0", -- BNE +000104 => x"3420", -- RET +000105 => x"0370", -- MOV +000106 => x"3d42", -- SFT +000107 => x"3d22", -- SFT 000108 => x"3d22", -- SFT 000109 => x"3d22", -- SFT -000110 => x"3d22", -- SFT -000111 => x"be0f", -- BL -000112 => x"bfcb", -- BL -000113 => x"3d40", -- SFT -000114 => x"be0c", -- BL -000115 => x"bfc8", -- BL -000116 => x"3d45", -- SFT +000110 => x"be0f", -- BL +000111 => x"bfcb", -- BL +000112 => x"3d40", -- SFT +000113 => x"be0c", -- BL +000114 => x"bfc8", -- BL +000115 => x"3d45", -- SFT +000116 => x"3d25", -- SFT 000117 => x"3d25", -- SFT 000118 => x"3d25", -- SFT -000119 => x"3d25", -- SFT -000120 => x"be06", -- BL -000121 => x"bfc2", -- BL -000122 => x"0140", -- MOV -000123 => x"be03", -- BL -000124 => x"bfbf", -- BL -000125 => x"3460", -- RET -000126 => x"c08f", -- LDIL -000127 => x"2121", -- AND -000128 => x"c089", -- LDIL -000129 => x"181a", -- CMP -000130 => x"8803", -- BCS -000131 => x"c0b0", -- LDIL -000132 => x"bc02", -- B -000133 => x"c0b7", -- LDIL -000134 => x"0892", -- ADD -000135 => x"3470", -- RET -000136 => x"4578", -- .DW -000137 => x"6365", -- .DW -000138 => x"7074", -- .DW -000139 => x"696f", -- .DW -000140 => x"6e2f", -- .DW -000141 => x"696e", -- .DW -000142 => x"7465", -- .DW -000143 => x"7272", -- .DW -000144 => x"7570", -- .DW -000145 => x"7420", -- .DW -000146 => x"6572", -- .DW -000147 => x"726f", -- .DW -000148 => x"7221", -- .DW -000149 => x"0000", -- .DW -000150 => x"5261", -- .DW -000151 => x"6e64", -- .DW -000152 => x"6f6d", -- .DW -000153 => x"204e", -- .DW -000154 => x"756d", -- .DW -000155 => x"6265", -- .DW -000156 => x"7220", -- .DW -000157 => x"4765", -- .DW -000158 => x"6e65", -- .DW -000159 => x"7261", -- .DW -000160 => x"746f", -- .DW -000161 => x"7200", -- .DW -000162 => x"456e", -- .DW -000163 => x"7465", -- .DW -000164 => x"7220", -- .DW -000165 => x"4c46", -- .DW -000166 => x"5352", -- .DW -000167 => x"2073", -- .DW -000168 => x"6565", -- .DW -000169 => x"6420", -- .DW -000170 => x"2834", -- .DW -000171 => x"6865", -- .DW -000172 => x"7829", -- .DW -000173 => x"3a20", -- .DW -000174 => x"3078", -- .DW -000175 => x"0000", -- .DW -000176 => x"456e", -- .DW -000177 => x"7465", -- .DW -000178 => x"7220", -- .DW -000179 => x"4c46", -- .DW -000180 => x"5352", -- .DW -000181 => x"2074", -- .DW -000182 => x"6170", -- .DW -000183 => x"7320", -- .DW -000184 => x"2834", -- .DW -000185 => x"6865", -- .DW -000186 => x"7829", -- .DW -000187 => x"3a20", -- .DW -000188 => x"3078", -- .DW -000189 => x"0000", -- .DW +000119 => x"be06", -- BL +000120 => x"bfc2", -- BL +000121 => x"0140", -- MOV +000122 => x"be03", -- BL +000123 => x"bfbf", -- BL +000124 => x"3460", -- RET +000125 => x"c08f", -- LDIL +000126 => x"2121", -- AND +000127 => x"c089", -- LDIL +000128 => x"181a", -- CMP +000129 => x"8803", -- BCS +000130 => x"c0b0", -- LDIL +000131 => x"bc02", -- B +000132 => x"c0b7", -- LDIL +000133 => x"0892", -- ADD +000134 => x"3470", -- RET +000135 => x"4578", -- .DW +000136 => x"6365", -- .DW +000137 => x"7074", -- .DW +000138 => x"696f", -- .DW +000139 => x"6e2f", -- .DW +000140 => x"696e", -- .DW +000141 => x"7465", -- .DW +000142 => x"7272", -- .DW +000143 => x"7570", -- .DW +000144 => x"7420", -- .DW +000145 => x"6572", -- .DW +000146 => x"726f", -- .DW +000147 => x"7221", -- .DW +000148 => x"0000", -- .DW +000149 => x"5261", -- .DW +000150 => x"6e64", -- .DW +000151 => x"6f6d", -- .DW +000152 => x"204e", -- .DW +000153 => x"756d", -- .DW +000154 => x"6265", -- .DW +000155 => x"7220", -- .DW +000156 => x"4765", -- .DW +000157 => x"6e65", -- .DW +000158 => x"7261", -- .DW +000159 => x"746f", -- .DW +000160 => x"7200", -- .DW +000161 => x"456e", -- .DW +000162 => x"7465", -- .DW +000163 => x"7220", -- .DW +000164 => x"4c46", -- .DW +000165 => x"5352", -- .DW +000166 => x"2073", -- .DW +000167 => x"6565", -- .DW +000168 => x"6420", -- .DW +000169 => x"2834", -- .DW +000170 => x"6865", -- .DW +000171 => x"7829", -- .DW +000172 => x"3a20", -- .DW +000173 => x"3078", -- .DW +000174 => x"0000", -- .DW +000175 => x"456e", -- .DW +000176 => x"7465", -- .DW +000177 => x"7220", -- .DW +000178 => x"4c46", -- .DW +000179 => x"5352", -- .DW +000180 => x"2074", -- .DW +000181 => x"6170", -- .DW +000182 => x"7320", -- .DW +000183 => x"2834", -- .DW +000184 => x"6865", -- .DW +000185 => x"7829", -- .DW +000186 => x"3a20", -- .DW +000187 => x"3078", -- .DW +000188 => x"0000", -- .DW others => x"0000" -- NOP \ No newline at end of file Index: atlas_core/trunk/software/examples/random_numbers/boot_init.vhd =================================================================== --- atlas_core/trunk/software/examples/random_numbers/boot_init.vhd (revision 33) +++ atlas_core/trunk/software/examples/random_numbers/boot_init.vhd (revision 34) @@ -1,45 +1,45 @@ 000000 => x"cafe", -000001 => x"00be", -000002 => x"7740", -000003 => x"5241", -000004 => x"4e44", -000005 => x"4f4d", -000006 => x"5f4e", -000007 => x"554d", +000001 => x"00bd", +000002 => x"a78d", +000003 => x"524e", +000004 => x"445f", +000005 => x"4e55", +000006 => x"4d42", +000007 => x"4552", 000008 => x"bc0b", 000009 => x"bc04", 000010 => x"bc03", 000011 => x"bc02", 000012 => x"bc01", -000013 => x"be31", -000014 => x"c110", +000013 => x"be30", +000014 => x"c10e", 000015 => x"c901", 000016 => x"be21", -000017 => x"be2d", +000017 => x"be2c", 000018 => x"bc00", -000019 => x"c12c", +000019 => x"c12a", 000020 => x"c901", 000021 => x"be19", -000022 => x"c144", +000022 => x"c142", 000023 => x"c901", 000024 => x"be19", -000025 => x"be34", +000025 => x"be33", 000026 => x"ec4d", -000027 => x"be23", -000028 => x"c160", +000027 => x"be22", +000028 => x"c15e", 000029 => x"c901", 000030 => x"be13", -000031 => x"be2e", +000031 => x"be2d", 000032 => x"d24f", 000033 => x"ec4e", -000034 => x"be1c", +000034 => x"be1b", 000035 => x"c0b0", -000036 => x"be1f", +000036 => x"be1e", 000037 => x"c0f8", -000038 => x"be1d", +000038 => x"be1c", 000039 => x"ee05", -000040 => x"be4a", -000041 => x"be15", +000040 => x"be49", +000041 => x"be14", 000042 => x"ec20", 000043 => x"dc0f", 000044 => x"b9ea", @@ -49,151 +49,150 @@ 000048 => x"bc03", 000049 => x"29b3", 000050 => x"0270", -000051 => x"7829", -000052 => x"c080", -000053 => x"ccff", -000054 => x"2081", -000055 => x"3c98", -000056 => x"8003", -000057 => x"be0a", -000058 => x"bdf9", -000059 => x"03c0", -000060 => x"343b", -000061 => x"f707", -000062 => x"0170", -000063 => x"c08d", -000064 => x"be03", -000065 => x"c08a", -000066 => x"03a0", -000067 => x"ec22", -000068 => x"dc05", -000069 => x"b9fe", -000070 => x"ed18", -000071 => x"3470", -000072 => x"ec20", -000073 => x"dc8f", -000074 => x"b9fe", -000075 => x"c800", -000076 => x"3470", -000077 => x"0170", -000078 => x"c200", -000079 => x"c184", -000080 => x"bff8", -000081 => x"c0c6", -000082 => x"1809", -000083 => x"9003", -000084 => x"c0a0", -000085 => x"1001", -000086 => x"c0b0", -000087 => x"1809", -000088 => x"91f8", -000089 => x"c0c6", -000090 => x"1818", -000091 => x"91f5", -000092 => x"c0b9", -000093 => x"1818", -000094 => x"a404", -000095 => x"c0c1", -000096 => x"1809", -000097 => x"a1ef", -000098 => x"0080", -000099 => x"bfe0", -000100 => x"c030", -000101 => x"1090", -000102 => x"c009", -000103 => x"1809", -000104 => x"a402", -000105 => x"0497", +000051 => x"78a9", +000052 => x"3c90", +000053 => x"c880", +000054 => x"3419", +000055 => x"8003", +000056 => x"be0a", +000057 => x"bdfa", +000058 => x"03c0", +000059 => x"343b", +000060 => x"f707", +000061 => x"0170", +000062 => x"c08d", +000063 => x"be03", +000064 => x"c08a", +000065 => x"03a0", +000066 => x"ec22", +000067 => x"dc05", +000068 => x"b9fe", +000069 => x"ed18", +000070 => x"3470", +000071 => x"ec20", +000072 => x"dc8f", +000073 => x"b9fe", +000074 => x"c800", +000075 => x"3470", +000076 => x"0170", +000077 => x"c200", +000078 => x"c184", +000079 => x"bff8", +000080 => x"c0c7", +000081 => x"1809", +000082 => x"9003", +000083 => x"c0a0", +000084 => x"1001", +000085 => x"c0b0", +000086 => x"1809", +000087 => x"91f8", +000088 => x"c0c6", +000089 => x"1818", +000090 => x"91f5", +000091 => x"c0b9", +000092 => x"1818", +000093 => x"a404", +000094 => x"c0c1", +000095 => x"1809", +000096 => x"a1ef", +000097 => x"0080", +000098 => x"bfe0", +000099 => x"c030", +000100 => x"1090", +000101 => x"c009", +000102 => x"1809", +000103 => x"a402", +000104 => x"0497", +000105 => x"3e42", 000106 => x"3e42", 000107 => x"3e42", 000108 => x"3e42", -000109 => x"3e42", -000110 => x"2641", -000111 => x"05b9", -000112 => x"85e0", -000113 => x"3420", -000114 => x"0370", -000115 => x"3d42", +000109 => x"2641", +000110 => x"05b9", +000111 => x"85e0", +000112 => x"3420", +000113 => x"0370", +000114 => x"3d42", +000115 => x"3d22", 000116 => x"3d22", 000117 => x"3d22", -000118 => x"3d22", -000119 => x"be0f", -000120 => x"bfcb", -000121 => x"3d40", -000122 => x"be0c", -000123 => x"bfc8", -000124 => x"3d45", +000118 => x"be0f", +000119 => x"bfcb", +000120 => x"3d40", +000121 => x"be0c", +000122 => x"bfc8", +000123 => x"3d45", +000124 => x"3d25", 000125 => x"3d25", 000126 => x"3d25", -000127 => x"3d25", -000128 => x"be06", -000129 => x"bfc2", -000130 => x"0140", -000131 => x"be03", -000132 => x"bfbf", -000133 => x"3460", -000134 => x"c08f", -000135 => x"2121", -000136 => x"c089", -000137 => x"181a", -000138 => x"8803", -000139 => x"c0b0", -000140 => x"bc02", -000141 => x"c0b7", -000142 => x"0892", -000143 => x"3470", -000144 => x"4578", -000145 => x"6365", -000146 => x"7074", -000147 => x"696f", -000148 => x"6e2f", -000149 => x"696e", -000150 => x"7465", -000151 => x"7272", -000152 => x"7570", -000153 => x"7420", -000154 => x"6572", -000155 => x"726f", -000156 => x"7221", -000157 => x"0000", -000158 => x"5261", -000159 => x"6e64", -000160 => x"6f6d", -000161 => x"204e", -000162 => x"756d", -000163 => x"6265", -000164 => x"7220", -000165 => x"4765", -000166 => x"6e65", -000167 => x"7261", -000168 => x"746f", -000169 => x"7200", -000170 => x"456e", -000171 => x"7465", -000172 => x"7220", -000173 => x"4c46", -000174 => x"5352", -000175 => x"2073", -000176 => x"6565", -000177 => x"6420", -000178 => x"2834", -000179 => x"6865", -000180 => x"7829", -000181 => x"3a20", -000182 => x"3078", -000183 => x"0000", -000184 => x"456e", -000185 => x"7465", -000186 => x"7220", -000187 => x"4c46", -000188 => x"5352", -000189 => x"2074", -000190 => x"6170", -000191 => x"7320", -000192 => x"2834", -000193 => x"6865", -000194 => x"7829", -000195 => x"3a20", -000196 => x"3078", -000197 => x"0000", +000127 => x"be06", +000128 => x"bfc2", +000129 => x"0140", +000130 => x"be03", +000131 => x"bfbf", +000132 => x"3460", +000133 => x"c08f", +000134 => x"2121", +000135 => x"c089", +000136 => x"181a", +000137 => x"8803", +000138 => x"c0b0", +000139 => x"bc02", +000140 => x"c0b7", +000141 => x"0892", +000142 => x"3470", +000143 => x"4578", +000144 => x"6365", +000145 => x"7074", +000146 => x"696f", +000147 => x"6e2f", +000148 => x"696e", +000149 => x"7465", +000150 => x"7272", +000151 => x"7570", +000152 => x"7420", +000153 => x"6572", +000154 => x"726f", +000155 => x"7221", +000156 => x"0000", +000157 => x"5261", +000158 => x"6e64", +000159 => x"6f6d", +000160 => x"204e", +000161 => x"756d", +000162 => x"6265", +000163 => x"7220", +000164 => x"4765", +000165 => x"6e65", +000166 => x"7261", +000167 => x"746f", +000168 => x"7200", +000169 => x"456e", +000170 => x"7465", +000171 => x"7220", +000172 => x"4c46", +000173 => x"5352", +000174 => x"2073", +000175 => x"6565", +000176 => x"6420", +000177 => x"2834", +000178 => x"6865", +000179 => x"7829", +000180 => x"3a20", +000181 => x"3078", +000182 => x"0000", +000183 => x"456e", +000184 => x"7465", +000185 => x"7220", +000186 => x"4c46", +000187 => x"5352", +000188 => x"2074", +000189 => x"6170", +000190 => x"7320", +000191 => x"2834", +000192 => x"6865", +000193 => x"7829", +000194 => x"3a20", +000195 => x"3078", +000196 => x"0000", others => x"0000" \ No newline at end of file Index: atlas_core/trunk/software/examples/random_numbers/random_numbers.asm =================================================================== --- atlas_core/trunk/software/examples/random_numbers/random_numbers.asm (revision 33) +++ atlas_core/trunk/software/examples/random_numbers/random_numbers.asm (revision 34) @@ -112,14 +112,13 @@ mov r4, lr uart_print_loop: - ldr r0, r2, +#1, post, ! ; get one string byte - ldil r1, #0x00 ; upper byte mask - ldih r1, #0xFF - and r1, r0, r1 - sfts r1, r1, #swp ; swap bytes and test if zero - beq uart_print_loop_end - bl uart_sendbyte - b uart_print_loop + ldr r1, r2, +#1, post, ! ; get one string byte + sft r1, r1, #swp ; swap high and low byte + ldih r1, #0x00 ; clear high byte + teq r1, r1 ; test if string end + beq uart_print_loop_end + bl uart_sendbyte + b uart_print_loop uart_print_loop_end: mov lr, r4 @@ -187,7 +186,7 @@ bl uart_receivebyte ; get one char ; convert to higher case - ldil r1, #'F' + ldil r1, #'G' ; = 'F' +1 cmp r0, r1 bmi #+3 ; skip decrement ldil r1, #32 ; -> to lower case

/atlas_core/trunk/software/examples/random_numbers/out.bin Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

Browse

Tools

Subversion Repositories atlas_core

Compare Revisions

Rev 33 → Rev 34