Poskus hornerjevega algoritma s subrutino, ma pomoje neki ne dela
This commit is contained in:
parent
0d6f4cf70b
commit
a363fd8403
4 changed files with 139 additions and 0 deletions
53
ass1/Polinom/poly_sub.lst
Normal file
53
ass1/Polinom/poly_sub.lst
Normal file
|
|
@ -0,0 +1,53 @@
|
|||
. Racunanje polinoma s subrutino ki vsebuje loop
|
||||
00000 ps START 0
|
||||
00000 050000 LDX #0 . X je idx za tocke
|
||||
00003 090003 LDL #3
|
||||
00006 73000F LDF len
|
||||
00009 77A02F outer_loop LDT in,X . V T je trenutno obravnavana tocka
|
||||
0000C 03205C LDA a4 . V A bomo računali z vmesnimi rezultati
|
||||
0000F 0F204A STA temp . V temp vmesni rezultati
|
||||
00012 690000 LDB #0 . B bo idx za koeficiente
|
||||
00015 6F2050 LDS a3 . Z S se bomo pomikali po koeficientih
|
||||
|
||||
00018 032041 inner_loop LDA temp
|
||||
0001B 9850 MULR T,A
|
||||
0001D 9434 SUBR B,S
|
||||
0001F 9040 ADDR S,A . V prvem loopu je B=0, pol B=3, pol B=6 itd
|
||||
00021 0F2038 STA temp
|
||||
|
||||
00024 9023 ADDR L,B
|
||||
00026 A036 COMPR B,F
|
||||
00028 3B2FED JLT inner_loop
|
||||
|
||||
0002B 0FA01F STA poly,X
|
||||
0002E 9021 ADDR L,X
|
||||
00030 A016 COMPR X,F
|
||||
00032 3B2FD4 JLT outer_loop
|
||||
|
||||
00035 4F0000 RSUB
|
||||
|
||||
00038 3F2FFD halt J halt
|
||||
0003B END ps
|
||||
|
||||
. Tocke
|
||||
0003B 000001 in WORD 1
|
||||
0003E 000002 WORD 2
|
||||
00041 000003 WORD 3
|
||||
00044 000004 WORD 4
|
||||
00047 000005 WORD 5
|
||||
|
||||
0004A lastin EQU *
|
||||
0004A len EQU lastin-in . Stevilo tock
|
||||
0004A 00000C st_poly WORD 12 . Stopnja polinoma
|
||||
|
||||
. Rezultat
|
||||
0004D 00....00 poly RESW 5
|
||||
0005C 000000 temp RESW 1
|
||||
|
||||
|
||||
. Koeficienti
|
||||
0005F 000005 a0 WORD 5
|
||||
00062 000004 a1 WORD 4
|
||||
00065 000003 a2 WORD 3
|
||||
00068 000002 a3 WORD 2
|
||||
0006B 000001 a4 WORD 1
|
||||
Loading…
Add table
Add a link
Reference in a new issue