Forum

Code : Tout sélectionner

#!/bin/bash

cati59()
{
cat <<EOF
00}0
01}1
02}2
03}3
04}4
05}5
06}6
07}7
08}8
09}9
10}E'
11}A
12}B
13}C
14}D
15}E
16}A'
17}B'
18}C'
19}D'
20}2nd CLR
21}2nd
22}INV
23}lnx
24}CE
25}CLR
26}2nd
27}2nd INV
28}log
29}CP
30}tan
31}LRN
32}x<>t
33}x^2
34}SQRx
35}1/x
36rr}Pgm rr
37}P-R
38}sin
39}cos
40}Ind
41}SST
42rr}STO rr
43rr}RCL rr
44rr}SUM rr
45}y^x
46}Ins
47}CMs
48rr}Exc rr
49rr}Prd rr
50}|x|
51}BST
52}EE
53}(
54})
55}/
56}Del
57}Eng
58nn}Fix nn
59}Int
60}Deg
61aa}GTO aa
62rr}Pgm Ind rr
63rr}Exc Ind rr
64rr}Prd Ind rr
65}*
66}Pause
67aa}x=t aa
68}Nop
69rr}Op rr
70}Rad
71aa}SBR aa
72rr}STO Ind rr
73rr}RCL Ind rr
74rr}SUM Ind rr
75}-
76ll}Lbl ll
77aa}x>=t aa
78}S+
79}Mean
80}Grad
81}RST
82rr}HIR rr
83rr}GTO Ind rr
84rr}Op Ind rr
85}+
86nn}St flg nn
87na}If flg na
88}D.MS
89}PI
90}List
91}R/S
92}INV SBR
93}.
94}+/-
95}=
96}Write
97na}Dsz na
98}Adv
99}Prt
EOF

}
c1="  "
b1="  "
b2="  "
r="  "
b=0
z=""
typeset -i a=0
typeset -i x=0
[ $# -ge 2 ] && [ "\-nc" = "$1" ] && nc=1 && shift
[ $# -eq 2 ] && x=$1 && a=$1 && shift
for f in `cat $1`; do
  a=$a+1
  [ "$b" = "3" ] && r=$f && b=2 && continue
  if [ "$b" = "2" ]
  then
    if [ "aa" = "$z" -o "na" = "$z" ]
    then
      b2=$f
      b=1
      typeset -i i=$f && [ $i -gt 9 ] && b1=$f && b2="  " && b=0
      [ 1 = "$b" ] && continue
    else
      b2=$f && b=1 && continue
    fi
  fi
  [ "$b" = "1" ] && b1=$f && b=0
  if [ "    " = "$b1""$b2" ]
  then
    case $f in
      22)
          [ "  " = "$c1" ] && c1=$f && continue
          ;;
      *);;
    esac
    c="`cati59 | grep -i ^$f `"
    m=`echo "$c" | cut -d "}" -f 2-`
    z=`echo "$c" | cut -c 3-4`
    c=`echo "$c" | cut -c 1-2`
    case "$z" in
      rr|ll) b=1 ;;
      aa) b=2 ;;
      nn) b=1 ;;
      na) b=3 ;;
      *) b=0; z="";;
    esac
    [ -n "$z" ] && continue
  fi
  [ -z "$z" ] && mn="$m"
  ll=`echo $b2$b1`
  case "$z" in
    ll|na|aa)
      ll=`cati59 | grep "^$ll" | cut -d "}" -f 2- | sed 's, [rlan][rlan]$,,'`
      [ -z "$ll" ] && ll="$b2$b1"
      ;;
    *) ;;
  esac
  [ "na" = "$z" ] && ll="$r $ll"
  [ -n "$z" ] && mn="`echo "$m" | sed "s,$z,\$ll,"`" && z=""
  [ "22" = "$c1" ] && mn="INV $mn"
  printf "%03u" $x
  [ "$nc" = "" ] && printf "   %2s %2s %2s %2s %2s" "$c1" "$c" "$r" "$b2" "$b1"
  printf "   %s\n" "$mn"
  #echo "       $c1 $c $r $b2 $b1         $mn"
  c1="  "
  b1="  "
  b2="  "
  r="  "
  b=0
  x=$a
done

Code : Tout sélectionner

 #!/bin/bash

b1="  "
b=0
z=""
typeset -i x=0
[ $# -eq 2 ] && x=$1 && shift
for f in `cat $1`; do
  [ "$b" = "1" ] && b1=$f && b=0
  typeset -i i=$f && [ $i -lt 0 ] && in="INV " && i=-$i && f=$i
  if [ "  " = "$b1" ]
  then
    c="`grep -i ^$f <<EOF
00}0
01}1
02}2
03}3
04}4
05}5
06}6
07}7
08}8
09}9
11}2nd
12}INV
13}lnx
14}CE
15}CLR
16}2nd
17}INV
18}log
19}C.t
20}tan
21}LRN
22}x<>t
23}x^2
24}SQRx
25}1/x
26}D.MS
27}P-R
28}sin
29}cos
30}PI
31}SST
32_}STO _
33_}RCL _
34_}SUM _
35}y^x
36}Pause
37}Ins
38_}Exc _
39_}Prd _
40}|x|
41}BST
42}EE
43}(
44})
45}/
46}Nop
47}Del
48}Fix
49}Int
50}Deg
51_}GTO _
55}*
56}Dsz
60}Rad
61_}SBR _
65}-
66}x=t
70}Grad
71}RST
75}+
76}x>=t
80}Var
81}R/S
83}.
84}+/-
85}=
86_}Lbl _
88}Sigma+
89}Mean
EOF
`"
    m=`echo "$c" | cut -d "}" -f 2-`
    z=`echo "$c" | cut -c 3`
    c=`echo "$c" | cut -c 1-2`
    case "$z" in
      _) b=1 && [ -n "$in" -a $f = 61 ] && b=0 && z="";;
      *) b=0; z="";;
    esac
    [ -n "$z" ] && continue
  fi
  [ -z "$z" ] && mn="$m"
  [ -n "$z" ] && mn="`echo "$m" | sed "s,$z,$b1,"`" && z=""
  [ -n "$in" -a "$f" = "61" ] && mn=`echo $mn | cut -d " " -f 1`
  mn="$in$mn"
  [ -n "$in" ] && in="-"
  printf "%02u" $x
  printf "  %1s%2s %1s\t%s\n" "$in" "$c" "$b1"	"$mn"
  b1="  "
  b=0
  x=$x+1
  in=""
done

Code : Tout sélectionner

./ti57 << EOF
22 15 32 1 22 86 1 45 01 00 65 -49 34 1 85 -66 51 1 01 00 39 1 33 1 -61
EOF

Code : Tout sélectionner

00   22         x<>t
01   15         CLR
02   32 1       STO 1
03   22         x<>t
04   86 1       Lbl 1
05   45         /
06   01         1
07   00         0
08   65         -
09  -49         INV Int
10   34 1       SUM 1
11   85         =
12  -66         INV x=t
13   51 1       GTO 1
14   01         1
15   00         0
16   39 1       Prd 1
17   33 1       RCL 1
18  -61         INV SBR

Code : Tout sélectionner

        _______________________________
       +-------------------------------+
       |  N S I M II  E M U L A T O R  |            Welcome to
       |             01234             |
       +-------------------------------+                .
       | =ON==|=USER       PRGM=|ALPHA |
       +--------------___--------------+
       |                               |            N S I M II
       | [ s+] [1/X] [ Vx] [LOG] [LN]] |
       |                               |      The HP-41 NUT Emulator
       | [X~Y] [ Rv] [SIN] [COS] [TAN] |
       |                               |                .
       | [###] [XEQ] [STO] [RCL] [SST] |
       |                               |      Everythings you dream
       | [  ENTER^ ] [CHS] [EEX] [ <-] |          to do with the
       |                               |               most
       | [ - ]   [ 7 ]   [ 8 ]   [ 9 ] |             fabulous
       |                               |            calculator
       | [ + ]   [ 4 ]   [ 5 ]   [ 6 ] |
       |                               |                .
       | [ * ]   [ 1 ]   [ 2 ]   [ 3 ] |               (c)
       |                               |               cgh
       | [ / ]   [ 0 ]   [ . ]   [R/S] |           2005 - 2011
       |_______________________________|           
       +_HP-41_NUT_EMULATOR_____NSIMII_+