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