49 lines
1.8 KiB
Text
49 lines
1.8 KiB
Text
00000 MAIN START 0
|
|
. doloci dolzino v word-ih
|
|
00000 012FFD LDA #bytes_len
|
|
00003 250003 DIV #3
|
|
00006 0F203C STA words_len
|
|
00009 B400 CLEAR A
|
|
. nastavi X register za prehod cez tabelo
|
|
0000B 050000 LDX #0
|
|
. izracun vrednosti za vsak x v tabeli in
|
|
0000E 3F200E LOOP J HORNER_X
|
|
00011 2F2031 TIX words_len
|
|
00014 010003 LDA #3
|
|
00017 9801 MULR A,X
|
|
00019 3B2FF2 JLT LOOP
|
|
|
|
0001C 3F2FFD HALT J HALT
|
|
0001F END MAIN
|
|
|
|
0001F 010001 HORNER_X LDA #1
|
|
|
|
00022 23A01D MUL in,X
|
|
00025 190002 ADD #2
|
|
|
|
00028 23A017 MUL in,X
|
|
0002B 190003 ADD #3
|
|
|
|
0002E 23A011 MUL in,X
|
|
00031 190004 ADD #4
|
|
|
|
00034 23A00B MUL in,X
|
|
00037 190005 ADD #5
|
|
|
|
0003A 0FA005 STA in,X
|
|
|
|
0003D B400 CLEAR A
|
|
|
|
0003F 4F0000 RSUB
|
|
|
|
. tabela x-ov polinoma
|
|
00042 000002 in WORD 2
|
|
. WORD 5
|
|
. WORD 42
|
|
. WORD 2
|
|
. parametri
|
|
00045 lastin EQU *
|
|
00045 bytes_len EQU lasttin-in
|
|
00045 000001 words_len WORD 1
|
|
|
|
00048 000000 res RESW 1
|