=== FC 79: INT_to_BCD (4stellig)  [STL] ===
INTERFACE:
  Input:
    Int_Wert : Int
  Output:
    BCD_Wert : Word
  InOut:
  Temp:
    Rest : Int
    Ergebnis : Int
  Constant:
  Return:
    Ret_Val : Void

--- NW 1: Rückmeldung ---
      L      0                                               // erst mal köschen
      T      BCD_Wert


--- NW 2: Int-Wert ok ? ---
      L      Int_Wert
      L      0
      <I
      BEC

      CAC
      L      9999
      >I
      BEC


--- NW 3: INT-Wert wandeln ---
      L      Int_Wert
      L      10                                              // Damit die linken 3 Stellen
      /I
      T      LD0                                             // temporär speichen (s.o.)

      L      Ergebnis                                        // linken 3 Stellen
      ITB                                                    // wandeln
      SLW    4                                               // Wieder nach links schieben
      T      BCD_Wert                                        // zwischen speichern

      L      Rest                                            // rechte Stelle
      ITB                                                    // wandeln
      L      BCD_Wert                                        // Zwischenergebis
      OW                                                     // rechte Stelle dazu
      T      BCD_Wert                                        // BDC-Ergebnis


--- NW 4: Ende ---
      BE

