#AoK2#zad9

.data
    A: .space 372
    B: .space 348
    Ns: .float 0
    Np: .float 2
    G: .float 0
    I: .float 0

.text

    lf f20, Ns
    lf f21, Np
    lf f22, G
    lf f23, I
    addi r18 ,r0, 0

    addi r1, r0, 53
    movi2fp f1, r1 ;53
    cvti2f f1, f1

    addi r2, r0, 84
    movi2fp f2, r2 ;84
    cvti2f f2, f2

    addi r3, r0, 97
    movi2fp f3, r3 ;97
    cvti2f f3, f3

    addi r4, r0, 14
    movi2fp f4, r4 ;14
    cvti2f f4, f4

    addi r5, r0, 12
    movi2fp f5, r5 ;12
    cvti2f f5, f5

    addi r6, r0, 78
    movi2fp f6, r6 ;78
    cvti2f f6, f6

    addi r7, r0, 3
    movi2fp f7, r7 ;3
    cvti2f f7, f7

    addi r23, r0, 0



;A[i] = (f10-f11+f12))
;A[i] = (53-84-(i/3/(g+97)+78*12*(14-i)))


    zapis_tablica_A:
    	movi2fp f23, r23
    	cvti2f f23, f23
        subf f10, f1, f2 ; 53-84 = -31
        addf f11, f22, f3 ; g+97 = 97
        divf f12, f23, f7 ; i/3 = 0
        divf f11, f12, f11 ; i/3/(g+97) = 0
        subf f13, f4, f23 ; (14-i) = 14
        multf f13, f13, f5 ; 12*(14-i) = 168
        multf f13, f13, f6 ; 78*12*(14-i) = 13104
        subf f10, f10, f11 ; -31 - 0
        addf f10, f10, f13 ; -31 + 13104 = 13073

        sf A(r18), f10
        addi r23, r23, 1
        addi r18, r18, 4
        seqi r25, r23, 93
        beqz r25, zapis_tablica_A


    addi r18, r0, 0 ;[I]
    addi r23, r0, 0 ; i

;B[i] = A[i+2] + (A[i+0] * A[i+5]) - A[i+4]

    zapis_tablica_B:
    	addi r25, r18, 20
		lf f15, A(r18)
    	lf f16, A(r25)
    	multf f15, f15, f16 ; A[i+0] * A[i+5]

    	addi r25, r18, 8
    	lf f17, A(r25)
    	addf f15, f15, f17

    	addi r25, r18, 16
    	lf f18, A(r25)
    	subf f15, f15, f18

        sf B(r18), f15
        addi r23, r23, 1
        addi r18, r18, 4
        seq r25, r23, 87
        beqz r25, zapis_tablica_B



trap 0