changed polySubrutine.asm so it uses loops
This commit is contained in:
parent
055d1a8c8d
commit
f59c93b770
1 changed files with 18 additions and 26 deletions
|
|
@ -12,30 +12,22 @@ halt J halt
|
||||||
startSubrutine STA regA
|
startSubrutine STA regA
|
||||||
STB regB
|
STB regB
|
||||||
STT regT
|
STT regT
|
||||||
STT regS .shranimo registre
|
STS regS .shranimo registre
|
||||||
|
|
||||||
LDA x0 .pristejemo x0 v A
|
LDA x0 .pristejemo x0 v A
|
||||||
|
|
||||||
LDB arg1
|
LDX #3 .odmik v arrayu
|
||||||
LDS x
|
LDS arg1
|
||||||
LDT x1
|
loop LDT x0, X .preberemo x_n
|
||||||
MULR S, T
|
MULR S, T .izračunamo x_n * x^n
|
||||||
ADDR T, A .pristejemo x0 * x
|
ADDR T, A .pristejemo v vsoto
|
||||||
|
LDT arg1
|
||||||
LDT x2
|
MULR T, S .zmožimo naslednjo potenco
|
||||||
MULR B, S .izracunamo x^2
|
LDT #3
|
||||||
MULR S, T
|
ADDR T, X .povečamo odmik
|
||||||
ADDR T, A
|
LDT #13
|
||||||
|
COMPR T, X
|
||||||
LDT x3
|
JGT loop
|
||||||
MULR B, S .izracunamo x^3
|
|
||||||
MULR S, T
|
|
||||||
ADDR T, A
|
|
||||||
|
|
||||||
LDT x4
|
|
||||||
MULR B, S .izracunamo x^4
|
|
||||||
MULR S, T
|
|
||||||
ADDR T, A
|
|
||||||
|
|
||||||
STA subRez .shranimo rez
|
STA subRez .shranimo rez
|
||||||
|
|
||||||
|
|
@ -47,11 +39,11 @@ startSubrutine STA regA
|
||||||
RSUB
|
RSUB
|
||||||
|
|
||||||
.polinom
|
.polinom
|
||||||
x4 WORD 1
|
|
||||||
x3 WORD 2
|
|
||||||
x2 WORD 3
|
|
||||||
x1 WORD 4
|
|
||||||
x0 WORD 5
|
x0 WORD 5
|
||||||
|
WORD 4
|
||||||
|
WORD 3
|
||||||
|
WORD 2
|
||||||
|
WORD 1
|
||||||
|
|
||||||
.tocka
|
.tocka
|
||||||
x WORD 2
|
x WORD 2
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue