Module  binbcd

 I4..I0         pin;    "Input
 O3..O0         pin;    "Ones
 T0             pin;    "Tens

 BIN            = [I4..I0];
 BCD            = [T0, O3..O0];

equations

 when           ( BIN < 10 )
 then           BCD     = BIN;
 else           BCD     = BIN + 6;

end


" XPLAOPT Version 3.20
" Created on Thu Oct 25 09:46:40 2001
" 5 Mcells, 0 PLApts, 14 PALpts, 1 Levels
" XPLAOPT -th 14 -fi 36 -reg -i binbcd.phd
MODULE binbcd

        I0  pin ;
        I1  pin ;
        I2  pin ;
        I3  pin ;
        I4  pin ;
        O0  pin ;  " 1 pt.
        O1  pin ;  " 3 pt.
        O2  pin ;  " 3 pt.
        O3  pin ;  " 3 pt.
        T0  pin ;  " 4 pt.




EQUATIONS

 O0 = I0;               "--- [PT=1, FI=1, LVL=1] ---
 O1 = I1 & !I3 & !I4
      # !I1 & I2 & I3
      # !I1 & I4;               "--- [PT=3, FI=4, LVL=1] ---
 O2 = I2 & !I3 & !I4
      # !I1 & !I2 & I4
      # I1 & I2;                "--- [PT=3, FI=4, LVL=1] ---
 O3 = I2 & !I3 & I4
      # I1 & !I3 & I4
      # !I1 & !I2 & I3;         "--- [PT=3, FI=4, LVL=1] ---
 T0 = I2 & I3 & !I4
      # I1 & I3 & !I4
      # !I1 & !I2 & I4
      # !I3 & I4;               "--- [PT=4, FI=4, LVL=1] ---
END