AK - SPARC

.global _start


_start:
    MOV %g0, %l0        ! wyzerowanie local[0]
    MOV 1, %l1      ! local[1] = 1
    ST %l1, [%l0]
    ADD %l0, 4, %l0
    ST %l1, [%l0]

    MOV %g0, %l2
    ADD %l2, 8, %l2
    MOV %l0, %l1
    MOV %g0, %l0

recur:
    LD [%l0], %l4
    LD [%l1], %l3

    MOV %l4, %o0
    MOV %l4, %o1
    CALL multiply
    NOP

    ADD %l3, %o0, %l3
    ADD %l3, %o0, %l3
    ADD %l3, %o0, %l3
    ADD %l3, %o0, %l3
    ADD %l3, %o0, %l3
    ST %l3, [%l2]

    ADD %l0, 4, %l0
    ADD %l1, 4, %l1
    ADD %l2, 4, %l2

    BA recur
    NOP

multiply:
    SAVE %sp, -96, %sp

    MOV %g0, %l0
    MOV %i1, %l1

loop:
    ADD %i0, %l0, %l0
    SUB %l1, 1, %l1
    CMP %l1, 0
    BG loop
    NOP

    MOV %l0, %i0

    RET
    RESTORE