RC5-Code-Empfangsprogramm für 8051er in Assembler

[Johann D. (khs)]

Habe vor eine 8051er Steuerung (AT89S52) mit einer IR-Fernbdienung
zu steuern. Habe dazu im Forum auch schon viele Beiträge gefunden,
meistens aber für AVR µCs oder das Empfangsprogramm von Peter
Danegger. Habe aber immer noch nicht C gelernt und bin auch mit
den AVR-Assemblerbefehlen nicht so vertraut.
Bevor ich mich selber ans programmieren mache, kann mir jemand einen
Link zu einem RC5-Code-Empfangsprogramm für 8051er in Assembler
geben?

Gruß, Hans

[Pittiplatsch (Gast)]

Ich hab leider nur Verilog:

////////////////////////////////////////////////////
//功能：红外读码，返回读码结果
//
//子模块：无
//
//版本：V0.00
//
//日期：20131003
////////////////////////////////////////////////////
module ir_module(
  //Clock Input:48M
  input   clk_1m,
  input  ir,
  input   rst,
  //Return Value
  output reg [7:0]Code
);

reg [2:0]IR_reg;
initial IR_reg = 3'b0;
always @ (posedge clk_1m)       //1us
begin
  IR_reg[0] <= ir;
  IR_reg[1] <= IR_reg[0];
  IR_reg[2] <= IR_reg[1];
end

wire IR_pos = (IR_reg[0]==1'b1) & (IR_reg[1]==1'b0);
wire IR_pos2= (IR_reg[1]==1'b1) & (IR_reg[2]==1'b0);
wire IR_neg = (IR_reg[0]==1'b0) & (IR_reg[1]==1'b1);
wire IR_neg2= (IR_reg[1]==1'b0) & (IR_reg[2]==1'b1);

//状态
parameter ST_START_L = 3'b000, ST_CODE_P = 3'b001 , ST_VALUE_P = 3'b010;
parameter ST_START_H = 3'b011, ST_CODE_N = 3'b100 , ST_VALUE_N = 3'b101;
//宽度
parameter START_H = 16'd4096;  //us
parameter START_L = 16'd8192;  //us
parameter CODE_0   = 16'd512  + 16'd512 ;  //us
parameter CODE_1   = 16'd1536 + 16'd512 ;  //us

reg   [2:0]state;    
initial state = ST_START_L;
reg  [15:0]cnt_h;
initial cnt_h = 16'b0;
reg  [15:0]cnt_l;
initial cnt_l = 16'b0;
reg   [31:0]T_Value;
initial T_Value = 32'b0;

reg   [31:0]IR_Value;
initial IR_Value = 32'b0;

reg  [15:0]cnt_val;
initial cnt_val = 16'b0;

reg   Flag_LVL;
initial Flag_LVL = 1'b0;

reg   Flag_HVL;
initial Flag_HVL = 1'b0;

always @ (posedge clk_1m or posedge ir)
begin
    if(ir)                  //高电平复
      cnt_l <= 16'b0;
    else if(cnt_l[15] & cnt_l[10])  //低计数溢出复
      cnt_l   <= 16'b0;
    else
      cnt_l <= cnt_l + 1'b1;      //低电平计数  
end

always @ (negedge clk_1m)
  begin
    if(cnt_l == START_L)
      Flag_LVL <= 1'b1;
    else if(IR_pos2)
      Flag_LVL <= 1'b0;
  end


always @ (posedge clk_1m or negedge ir)
begin
    if(!ir)                //低电平复
      cnt_h <= 16'b0;          
    else if(cnt_h[15] & cnt_h[10])  //高计数溢出复
      cnt_h <= 16'b0;
    else
      cnt_h <= cnt_h + 1'b1;      //高电平计数  
end


always @ (negedge clk_1m)
  begin
    if(cnt_h == START_H)
        Flag_HVL <=1;
    else if(IR_neg2)
        Flag_HVL <= 1'b0;
  end

reg [15:0]IR_code;
always @ (posedge clk_1m or posedge IR_neg)       
begin
      if(IR_neg)
        begin
          cnt_val   <= 16'b0;        
        end
      else if(state == ST_CODE_P)
      begin
        if(cnt_val == CODE_0)
          begin
          IR_code  <= CODE_0;
          cnt_val <= cnt_val + 1'b1;        
          end
        else if(cnt_val == CODE_1)
          begin    
          IR_code  <= CODE_1;      
          cnt_val <= cnt_val + 1'b1;        
          end
        else
          cnt_val <= cnt_val + 1'b1;  
      end
end


wire fault = cnt_h[15] | cnt_l[15];    //错误
reg [5:0]cnt_num;
initial cnt_num = 6'b0;


always @ (posedge clk_1m)       //1us
begin

 if( rst == 1 )
  begin
//    IR_Value[8] <= 0; IR_Value[9] <= 0; IR_Value[10] <= 0; IR_Value[11] <= 0;
//    IR_Value[12] <= 0; IR_Value[13] <= 0; IR_Value[14] <= 0; IR_Value[15] <= 0;
    Code <= 0;
  end
;
 case(state)
 ST_START_L:
  begin
  cnt_num  <=  6'b0;  
    if((IR_pos == 1'b1) & (Flag_LVL==1'b1))
      begin
        state <= ST_START_H;
      end
    else if(fault)
      state <= ST_START_L;
  end
 ST_START_H : 
   begin
  cnt_num  <=  6'b0;  
    if((IR_neg == 1'b1) & (Flag_HVL==1'b1))
      begin
        state <= ST_CODE_P;
      end
    else if(fault)
      state <= ST_START_L;
  end      
 ST_CODE_P : 
  begin
    if((IR_neg)&(IR_code == CODE_1))
      begin
        cnt_num = cnt_num + 1'b1;
        IR_Value <= {IR_Value[30:0],1'b1};
      end
    else  if((IR_neg)&(IR_code == CODE_0))
      begin
        cnt_num = cnt_num + 1'b1;
        IR_Value <= {IR_Value[30:0],1'b0};
      end
    else if(cnt_num==6'd32)
      begin
        cnt_num  <=  6'b0;
        T_Value  <=  IR_Value;
        state   <=  ST_START_L;
        Code     <=  {IR_Value[8],IR_Value[9],IR_Value[10],IR_Value[11],IR_Value[12],IR_Value[13],IR_Value[14],IR_Value[15]};
      end
  end
   default : state <=  ST_START_L;
endcase
end        

endmodule

Funktionieren tut er aber. Habe ich probiert.

[Johann D. (khs)]

Danke für die Antwort, auch wenn ich nur Bahnhof verstehe.
Es sollte nur in Assembler für 8051er sein.

Gruß, Hans

[Günni (Gast)]

Das sollte man schon selber programmieren. Schließlich muss man 
entscheiden, wie der Empfang stattfinden und was der Prozessor in der 
übrigen Zeit tun soll. Man könnte den Eingangsport in kurzen Abständen 
per Timerinterrupt abfragen "polling", ob ein Signal hereinkommt. Dann 
kann man die Arbeit an anderen Programmteilen stoppen und nur das Signal 
verarbeiten, bis der Befehl zu Ende empfangen wurde. Für einige 
Applikationen ist ein solches Anhalten des Hauptprogramms nicht möglich. 
Oder man löst beim Empfang eine Signals einen Interrupt aus 
(Flankenerkennung am Port), oder, oder ....

Was am besten ist, hängt auch von dem verwendeten 8051-Derivat ab und 
den Möglichkeiten, die der Prozessor bietet.

[Route_66 H. (route_66)]

Hallo!
vielleicht hier:
https://www.instructables.com/TV-Remote-controlled-home-appliance-using-8051/

Das ist die einfachste Form mit Polling und Warteschleifen.

[Route_66 H. (route_66)]

Hier noch eine Anleitung, wie es per Interrupt gemacht werden könnte.

[Johann D. (khs)]

Danke für die Antworten.
In dem Link von Route_66 H. habe ich gefunden wonach ich suchte.
Da konnte ich im Assemblerbeispiel der Empfangsroutine folgen und die
Zeiteinstellungen auf die jeweilige Quartzfrequenz dürfte kein
Problem sein.
Da in meinem Programm schon alle 3 Timer in Verwendung sind, dürften
Warteschleifen problemloser sein, als einen Timer für 2 Aufgaben zu
verwenden.

Gruß, Hans

[Andi B. (andi_b2)]

In der UAT-0422/00 Part 2 sind Assembler Listings für den 8051 dabei. 
Könnte auch 70422002.pdf heißen.

Etwas was ich mal dazu gefunden habe, im Anhang.

[Anarchist (Gast)]

Ich würde es in 8051 AH BASIC programmieren.
Das geht viel leichter als in Maschinensprache.

[Besserwisser (Gast)]

Anarchist schrieb:
> Ich würde es in 8051 AH BASIC programmieren.

ich bin für camel forth, dann ist es auch performant!

[Peter D. (peda)]

Anbei die C-Source und daraus der Assembler-Output.

T0 wird in den Split-Mode gesetzt, d.h. alle 256 Takte ein Interrupt. 
Sind noch andere Interrupts vorhanden, muß er auf die höchste Priorität 
gesetzt werden, damit das Timing nicht gestört wird.

Ist rc5_done gesetzt, dann enthält rc5_data die Daten.
Für den nächsten Empfang muß rc5_done gelöscht werden.

[Jacko (Gast)]

Gähn! - Mach doch da nicht so ein Gewese drum:

Wenn dir RC5 zu kompliziert ist, gibt es auch einfachere Codes mit
variabler Pausen-, oder Pulslänge.
Voll easy und auch betriebssicher.

[Johann D. (khs)]

Und wenn man dazu die passende Fernbedienung nicht hat?

[Thorsten S. (thosch)]

Dann baut und programmiert man sich den Sender auch...

[Micromite (Gast)]

Johann D. schrieb:
> Habe aber immer noch nicht C gelernt und bin auch mit
> den AVR-Assemblerbefehlen nicht so vertraut.

Dann nimm doch so etwas einfaches:
https://avrhelp.mcselec.com/index.html?config_rc5.htm

[Johann D. (khs)]

Ich will ja hier kein ganz neues Projekt beginnen,
sondern eine bestehende Steuerung, die ich bisher mit einem Laptop
über die RS232 einstellte, ohne PC bedienen können.
Und das vorhandene Programm ist halt in Assembler.
Bitte das Thema jetzt nicht auf Programmiersprachen ausdehnen.

Gruß, Hans

[Jacko (Gast)]

Halt uns doch nicht für blöd:
Wwoher soll denn deine RC5-Fernsteuerung wissen, was vorher über
RS232 auch nur der 8051 kannte?

Kenne keine Übersetzungslibrary von weiß-ich-nicht-RS232 auf
weiß-ich-nich-RC5.

Gilt für jede Programmiersprache.

[Johann D. (khs)]

Kannst Du den Titel dieses Themas nicht lesen,
heisst es da RC5-Code-Empfangsprogramm oder
heisst es da RC5-Code-Sendeprogramm?
Glaubst Du, dass wenn überall jede Menge alte Fernbedienungen rumliegen
ich so eine selber bauen und programmieren will?
Wie glaubst Du, dass ich die Steuerung bisher einstellen konnte,
wenn ich nicht weiß wie oder was über RS232 übertragen wurde?
Glaubst Du, dass ich den IR-Sensor an den RX-Eingang
anschliessen will?

[Ben B. (Firma: Funkenflug Industries) (stromkraft)]

Hey wenn Du noch ein paar solch nett formulierter Postings hinterlässt,
wird man Dir bestimmt umso lieber helfen ....................

[Johann D. (khs)]

Für alle, die es noch nicht gelesen haben, am 11. 11. hatte ich schon
gepostet, daß ich die gesuchte Hilfe gefunden habe.
Und wenn einem dann danach noch unterstellt wird, daß mir der RC5-Code 
zu
kompliziert wäre und dann auch noch zugetraut wird die serielle 
Verbindung
mit dem PC 1 zu 1 mit der Fernbedienung ersetzen zu wollen....
Aber Du hast schon recht, auf nett formulierte Postings sollte man nicht
mit nett formulierten Postings antworten - Tut mir leid.

Gruß, Hans