oef 2 p80 SOCS boek 1

|f[100] -> geheugen
|i -> R1
|n -> R2
LEZ
HIA R2, R0
HIA.w R1, 0
HIA.w R0, 1
BIG R0, f(R1)
HIA.w R1, 1
BIG R0, f(R1)
DRU
DRU
HIA.w R1, 2
while:  VGL R1, R2
        VSP GRG, ewhile
        HIA R0, f(R1) - 1   |f[i-1]
        HIA R3, f(R1) - 2   |f[i-2]
        OPT R0, R3
        BIG R0, f(R1)       |f[i] = f[i-1] + f[i-2]
        DRU
        OPT.w R1, 1
        SPR while
ewhile:
STP
f: RESGR 100
EINPR