Subversion Repositories lxp32

/*
 * This test calculates a few Fibonacci sequence members
 * end compares them to pre-calculated values.
 */

        lc r100, 0x10000000 // test result output pointer
        lc r101, halt
        
// Calculate Fibonacci sequence members
        mov r16, 0 // current member
        mov r17, 1 // next member
        lc r18, 0 // counter
        lc r19, 0x00008000 // destination pointer
        lc r32, calc_loop
        
calc_loop:
        sw r19, r16
        add r19, r19, 4
        add r18, r18, 1
        add r0, r16, r17
        mov r16, r17
        mov r17, r0
        cjmpul r32, r18, 40
        
// Compare
        lc r16, 0x00008000
        lc r17, expected
        mov r18, 0 // counter
        lc r32, comp_loop
        lc r33, comp_differ
        
comp_loop:
        lw r0, r16
        lw r1, r17
        cjmpne r33, r0, r1
        add r16, r16, 4
        add r17, r17, 4
        add r18, r18, 1
        cjmpul r32, r18, 40
        
// Everything seems to be OK
        sw r100, 1
        
halt:
        hlt
        jmp r101
        
comp_differ:
        sw r100, 2
        jmp r101

// Expected (pre-calculated) values
expected:
        .word 0
        .word 1
        .word 1
        .word 2
        .word 3
        .word 5
        .word 8
        .word 13
        .word 21
        .word 34
        .word 55
        .word 89
        .word 144
        .word 233
        .word 377
        .word 610
        .word 987
        .word 1597
        .word 2584
        .word 4181
        .word 6765
        .word 10946
        .word 17711
        .word 28657
        .word 46368
        .word 75025
        .word 121393
        .word 196418
        .word 317811
        .word 514229
        .word 832040
        .word 1346269
        .word 2178309
        .word 3524578
        .word 5702887
        .word 9227465
        .word 14930352
        .word 24157817
        .word 39088169
        .word 63245986