Posted to tcl by kbk at Tue Sep 21 18:14:08 GMT 2010view pretty

ByteCode 0x0x8fe9970, refCt 1, epoch 4, interp 0x0x8d47ad8 (epoch 4)
  Source "::tcl::unsupported::assemble {\n\t    {push 3}\n\t    {stor"
  Cmds 2, src 101, inst 24, litObjs 3, aux 0, stkDepth 2, code/src 1.54
  Code 156 = header 104+inst 24+litObj 12+exc 0+aux 0+cmdMap 12
  Commands 2:
      1: pc 0-22, src 0-100        2: pc 5-22, src 46224-46238
  Command 1: "::tcl::unsupported::assemble {\n\t    {push 3}\n\t    {stor"
    (0) push1 0         # "3"
    (2) storeScalar1 %v255 
    (4) pop 
  Command 2: "aaaaaaaaaaaa"
    (5) startCommand +18 1      # next cmd at pc 23
    (14) push1 0        # "3"
    (16) push1 1        # "n"
    (18) loadScalarStk 
    (19) mult 
    (20) push1 2        # "1"
    (22) add 
    (23) done