changed polySubrutine.asm
This commit is contained in:
parent
4219ee484f
commit
055d1a8c8d
1 changed files with 30 additions and 6 deletions
|
|
@ -1,7 +1,22 @@
|
|||
poly START 0
|
||||
startSubrutine LDA x0 .pristejemo x0 v A
|
||||
start LDA x
|
||||
STA arg1
|
||||
JSUB startSubrutine
|
||||
LDA subRez
|
||||
STA rez
|
||||
|
||||
LDB x
|
||||
halt J halt
|
||||
END start
|
||||
|
||||
.subrutina za izračun tega polinoma v točki arg1
|
||||
startSubrutine STA regA
|
||||
STB regB
|
||||
STT regT
|
||||
STT regS .shranimo registre
|
||||
|
||||
LDA x0 .pristejemo x0 v A
|
||||
|
||||
LDB arg1
|
||||
LDS x
|
||||
LDT x1
|
||||
MULR S, T
|
||||
|
|
@ -22,11 +37,14 @@ startSubrutine LDA x0 .pristejemo x0 v A
|
|||
MULR S, T
|
||||
ADDR T, A
|
||||
|
||||
STA rez
|
||||
STA subRez .shranimo rez
|
||||
|
||||
halt J halt
|
||||
END start
|
||||
LDA regA .obnovimo registre
|
||||
LDB regB
|
||||
LDT regT
|
||||
LDS regS
|
||||
|
||||
RSUB
|
||||
|
||||
.polinom
|
||||
x4 WORD 1
|
||||
|
|
@ -46,3 +64,9 @@ 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