#    This is the module register BUFF_ORG 0x800c


     variable BuffOrg 0

proc GetBuffOrg {} {
     variable BuffOrg 

     set BuffOrg [ReadRegister BufferOrg]
}

proc SetBuffOrg {} {
     variable BuffOrg 

     WriteRegister BufferOrg $BuffOrg
}


proc DrawBuffOrg {} {
   variable Name

   set html ""

   append html  "<p align=center width=100%>"
   append html  "<table border=1>"

   append html  "<tr>"
   append html  "<td  align=center width=50%>Number of Buffers</td>"

   append html "<td  align=center width=50%>"

   append html "<select name=P1 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'BuffOrg', document.MSETTINGS.P1.value)\">"

   set OptionMenu [list "not allowed" "not allowed" 4 8 16 32 64 128 256 512 1024]

   set j 0
   foreach item $OptionMenu  {
     set vl $j
     if {$vl == [set ::[set  Name]::BuffOrg]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

   append html "</tr><tr>"

   append html  "<td  align=center width=50%>Buffer Size (* 32 bit)</td>"

   append html "<td  align=center width=50%>"

   append html "<select name=P2 size=1 \
       onChange=\"click_MSETTING(document.[set  Name], 'BuffOrg', document.MSETTINGS.P2.value)\">"

   set OptionMenu [list "not allowed" "not allowed" 64K 32K 16K 8K 4K 2K 1K 512 256]

   set j 0
   foreach item $OptionMenu  {
     set vl $j
     if {$vl == [set ::[set  Name]::BuffOrg]} {
        append html "<option value=$vl selected>$item</option>"
     } else {
        append html "<option value=$vl>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

   append html  "</tr>"

   append html  "</table>"
   append html  "</p>"

   return $html
}