47 lines
727 B
NASM
47 lines
727 B
NASM
MAIN START 0
|
|
.nastavi X register za prehod cez tabelo
|
|
LDX counter
|
|
.izracun vrednosti za vsak x v tabeli in
|
|
LOOP STA ctx_a
|
|
JSUB HORNER_X
|
|
LDA counter
|
|
ADD #3
|
|
STA counter
|
|
LDX counter
|
|
COMP #bytes_len
|
|
JLT LOOP
|
|
|
|
HALT J HALT
|
|
END MAIN
|
|
|
|
HORNER_X LDA #1
|
|
|
|
MUL in, X
|
|
ADD #2
|
|
|
|
MUL in, X
|
|
ADD #3
|
|
|
|
MUL in, X
|
|
ADD #4
|
|
|
|
MUL in, X
|
|
ADD #5
|
|
|
|
STA in, X
|
|
|
|
.povrni kontekst pred skokom v subrutino
|
|
LDA ctx_a
|
|
|
|
RSUB
|
|
|
|
.tabela x-ov polinoma
|
|
in WORD 0
|
|
WORD 2
|
|
WORD 3
|
|
.parametri
|
|
lastin EQU *
|
|
bytes_len EQU lastin - in
|
|
counter WORD 0
|
|
.kontest
|
|
ctx_a RESW 1
|