working on sicxe
This commit is contained in:
parent
1b990e190c
commit
d836b3955d
79 changed files with 2011 additions and 917 deletions
|
|
@ -1,64 +1,64 @@
|
|||
poly START 0
|
||||
start LDA x
|
||||
STA arg1
|
||||
JSUB startSubrutine
|
||||
LDA subRez
|
||||
STA rez
|
||||
|
||||
halt J halt
|
||||
END start
|
||||
|
||||
.subrutina za izračun tega polinoma v točki arg1
|
||||
startSubrutine STA regA
|
||||
STB regB
|
||||
STT regT
|
||||
STS regS .shranimo registre
|
||||
|
||||
LDA x0 .pristejemo x0 v A
|
||||
|
||||
LDX #3 .odmik v arrayu
|
||||
LDS arg1
|
||||
loop LDT x0, X .preberemo x_n
|
||||
MULR S, T .izračunamo x_n * x^n
|
||||
ADDR T, A .pristejemo v vsoto
|
||||
LDT arg1
|
||||
MULR T, S .zmožimo naslednjo potenco
|
||||
LDT #3
|
||||
ADDR T, X .povečamo odmik
|
||||
LDT #13
|
||||
COMPR T, X
|
||||
JGT loop
|
||||
|
||||
STA subRez .shranimo rez
|
||||
|
||||
LDA regA .obnovimo registre
|
||||
LDB regB
|
||||
LDT regT
|
||||
LDS regS
|
||||
|
||||
RSUB
|
||||
|
||||
.polinom
|
||||
x0 WORD 5
|
||||
WORD 4
|
||||
WORD 3
|
||||
WORD 2
|
||||
WORD 1
|
||||
|
||||
.tocka
|
||||
x WORD 2
|
||||
|
||||
.rezultat
|
||||
rez RESW 1
|
||||
|
||||
.parameter subrutine
|
||||
arg1 RESW 1
|
||||
|
||||
.rezultat subrutine
|
||||
subRez RESW 1
|
||||
|
||||
.registri
|
||||
regA RESW 1
|
||||
regB RESW 1
|
||||
regT RESW 1
|
||||
regS RESW 1
|
||||
poly START 0
|
||||
start LDA x
|
||||
STA arg1
|
||||
JSUB startSubrutine
|
||||
LDA subRez
|
||||
STA rez
|
||||
|
||||
halt J halt
|
||||
END start
|
||||
|
||||
.subrutina za izračun tega polinoma v točki arg1
|
||||
startSubrutine STA regA
|
||||
STB regB
|
||||
STT regT
|
||||
STS regS .shranimo registre
|
||||
|
||||
LDA x0 .pristejemo x0 v A
|
||||
|
||||
LDX #3 .odmik v arrayu
|
||||
LDS arg1
|
||||
loop LDT x0, X .preberemo x_n
|
||||
MULR S, T .izračunamo x_n * x^n
|
||||
ADDR T, A .pristejemo v vsoto
|
||||
LDT arg1
|
||||
MULR T, S .zmožimo naslednjo potenco
|
||||
LDT #3
|
||||
ADDR T, X .povečamo odmik
|
||||
LDT #13
|
||||
COMPR T, X
|
||||
JGT loop
|
||||
|
||||
STA subRez .shranimo rez
|
||||
|
||||
LDA regA .obnovimo registre
|
||||
LDB regB
|
||||
LDT regT
|
||||
LDS regS
|
||||
|
||||
RSUB
|
||||
|
||||
.polinom
|
||||
x0 WORD 5
|
||||
WORD 4
|
||||
WORD 3
|
||||
WORD 2
|
||||
WORD 1
|
||||
|
||||
.tocka
|
||||
x WORD 2
|
||||
|
||||
.rezultat
|
||||
rez RESW 1
|
||||
|
||||
.parameter subrutine
|
||||
arg1 RESW 1
|
||||
|
||||
.rezultat subrutine
|
||||
subRez RESW 1
|
||||
|
||||
.registri
|
||||
regA RESW 1
|
||||
regB RESW 1
|
||||
regT RESW 1
|
||||
regS RESW 1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue