vaje1 resene

vaja2/osnove/sub_rou_horner.asm

@@ -0,0 +1,47 @@
+MAIN START 0 
+    .nastavi X register za prehod cez tabelo
+    LDX counter
+    .izracun vrednosti za vsak x v tabeli in
+LOOP STA ctx_a
+     JSUB HORNER_X
+     LDA counter
+     ADD #3
+     STA counter
+     LDX counter 
+     COMP #bytes_len
+     JLT LOOP
+
+HALT J HALT
+    END MAIN
+
+HORNER_X LDA #1
+         
+         MUL in, X
+         ADD #2
+
+         MUL in, X
+         ADD #3
+
+         MUL in, X
+         ADD #4
+
+         MUL in, X
+         ADD #5
+           
+         STA in, X
+         
+         .povrni kontekst pred skokom v subrutino
+         LDA ctx_a   
+         
+         RSUB
+
+.tabela x-ov polinoma
+in WORD 0
+   WORD 2
+   WORD 3 
+.parametri
+lastin EQU *
+bytes_len EQU lastin - in
+counter WORD 0
+.kontest
+ctx_a RESW 1