1
2
3
4
5
6
proc afi_tti {a} {
 echo $a;
 # echo $b;
}
 
afi_tti 20

1
2
3
4
5
6
proc afi_tti {a}{
 echo $a;
 # echo $b;
}
 
afi_tti 20

1
2
3
4
5
6
7
proc afi_tti {a}
{
 echo $a;
 # echo $b;
}
 
afi_tti 20

1
2
3
4
5
6
7
proc afi_tti {a b}
{
 echo $a;
 echo $b;
}
 
afi_tti 10 20

1
2
3
4
5
proc pp {a} {
 puts $a;
 
}
pp 10

1
2
3
4
5
proc pp {a} {
 puts $a
 
}
pp 10

1
2
3
4
5
6
set a 10
proc pp {a} {
 puts $a
 
}
 

1
2
3
4
5
set a 10
proc pp {a} {
 echo $a
 
}

1
2
3
4
5
set a 10
proc pp {a} {
 echo $a
return $a
}

1
2
3
4
5
6
7
8
9
set a 5
set b -8
proc p1 {a} {
//set b 42
//if {$a < 0} {
//return $b
//} else {
echo $a
return $a
 ...

1
2
3
4
5
6
7
set a 10
proc ab {a}
{
 set aa 9; 
echo $a;
 return $aa;
}

1
2
3
4
5
6
7
8
9
set a 5
set b -8
proc p1 {a} {
set b 42
if {$a < 0} {
return $b
} else {
return $a
}

1
2
3
4
5
6
7
set sr [list 1 2 3];
puts $sr;
 
proc sr_p {$sr}
{
 puts $sr;
}

1
2
3
4
5
6
7
set sr [list 1 2 3];
puts $sr;
 
proc sr_p {&sr}
{
 puts $sr;
}

1
2
3
4
5
6
7
set sr [list 1 2 3];
puts $sr;
 
proc sr_p
{
 puts $sr;
}

1
2
3
4
5
6
7
set sr [list 1 2 3];
puts $sr;
 
proc sr_p sr
{
 puts $sr;
}

1
2
set sr [list 1 2 3];
puts $sr;

1
2
3
4
5
6
set a 10;
 
proc ab {aa $a}
{
 puts $aa;
}

1
2
3
4
5
6
set a 10;
 
proc ab {a}
{
 puts $a;
}

1
2
3
4
5
6
set a 10;
 
proc ab (a)
{
 puts $a;
}

1
2
3
4
5
6
set a 10;
 
proc ab (aa)
{
 puts $aa;
}

1
2
3
4
5
6
set a 10;
 
proc ab (aa $a)
{
 set ac $aa;
}

1
2
3
4
5
6
set a 10;
 
proc ab (aa $a)
{
 puts ax $aa;
}

1
2
3
4
5
6
set a 10;
 
proc ab (aa $a)
{
 puts $aa;
}

1
2
3
4
5
6
set a 10;
 
proc ab (aa $a)
{
 puts "a $a";
}

1
2
3
4
5
6
set a 10;
 
proc ab (a)
{
 puts "a $a";
}

1
2
3
4
5
6
7
8
9
.model small
 
.stack 100h
 
.code
 
mov al,05h
 
mov bl,04h
 ...

1
2
3
4
5
6
7
8
set port_num 30
set addr 0x33
 
proc abc [port_num $a addr $b]
{
puts $b
puts $a
}

1
2
3
4
5
6
7
8
set port_num 30
set addr 0x33
 
proc abc [$port_num $addr]
{
puts $port_num
puts $addr
}

1
2
3
4
5
6
7
8
set port_num 30
set addr 0x33
 
proc abc [port_num addr]
{
puts $port_num
puts $addr
}