53 lines
2.3 KiB
Text
53 lines
2.3 KiB
Text
. 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
|