vaje1 resene

vaja2/osnove/sub_rou_horner.lst

@@ -0,0 +1,49 @@
+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