parametros criados, mas deslocamento nao atualizado

MEPA

@@ -5,12 +5,11 @@ R01: ENPR 1
      AMEM 1
      DSVS R02
 R02: NADA 
-     CRCT 3
+     CRVL 1,0
      ARMZ 1,0
      DMEM 1
 R00: NADA 
      CRCT 8
      ARMZ 0,0
-     CHPR R01,0
      DMEM 0
      PARA

compilador.y

@@ -189,13 +189,24 @@ parametros_ou_nada: ABRE_PARENTESES paramentros_formais FECHA_PARENTESES
 ;
 
 paramentros_formais: secao_pfs
-            | paramentros PONTO_E_VIRGULA secao_pfs
+            | paramentros_formais PONTO_E_VIRGULA secao_pfs
 ;
 
-secao_pfs: lista_id_pf DOIS_PONTOS tipo
+secao_pfs: {num_vars = 0;}
+            lista_id_pf DOIS_PONTOS tipo
+;
 
-parametro: IDENT {
+lista_id_pf: parametro VIRGULA lista_id_pf
+            | parametro;
+;
 
+parametro: IDENT {
+               num_vars += 1;
+               info_t info;
+               info.pf.tipo = NSEI;
+               info.pf.desloc = NSEI;
+               info.pf.passagem = VLR;
+               insere_ts(token,PF,nivel_lexico,info,ts);
             }
 ;
 

teste7.pas

+program proc1 (input, output);
+    var x: integer;
+    procedure p(a: integer);
+    var z: integer;
+    begin
+        z := a;
+    end
+begin
+    x := 8;
+end.
\ No newline at end of file