PROGRAM{
  DECLPROC __tact_verify_address
  DECLPROC __tact_store_address
  DECLPROC __tact_store_address_opt
  DECLPROC __gen_write_TONB
  DECLPROC $__gen_TONB_init
  107886 DECLMETHOD init
  DECLPROC main
  __tact_verify_address PROCINLINE:<{
    SBITS
    267 PUSHINT
    NEQ
    136 THROWIFNOT
  }>
  __tact_store_address PROCINLINE:<{
    STSLICER
  }>
  __tact_store_address_opt PROCINLINE:<{
    DUP
    ISNULL
    IF:<{
      DROP
      0 PUSHINT
      SWAP
      2 STU
    }>ELSE<{
      __tact_store_address INLINECALLDICT
    }>
  }>
  __gen_write_TONB PROCREF:<{
    s8 s7 XCHG2
    STGRAMS
    s0 s5 XCHG2
    __tact_store_address INLINECALLDICT
    s3 PUSH
    ISNULL
    NOT
    IF:<{
      TRUE
      SWAP
      1 STI
      s1 s3 XCHG
      STREF
    }>ELSE<{
      s3 POP
      FALSE
      s0 s3 XCHG2
      1 STI
    }>
    1 STI
    SWAP
    __tact_store_address_opt INLINECALLDICT
    SWAP
    __tact_store_address_opt INLINECALLDICT
    s0 s2 XCHG
    NEWC
    257 PUSHINT
    STIX
    SWAP
    __tact_store_address_opt INLINECALLDICT
    ENDC
    SWAP
    STREF
  }>
  $__gen_TONB_init PROC:<{
    PUSHNULL
    PUSHNULL
    0 PUSHINT
    PUSHNULL
    OVER
    TRUE
    s0 s8 XCHG
    NEWC
    STREF
    s0 s8 XCHG
    s4 s7 s4 XCHG3
    s1 s6 XCHG
    s1 s5 XCHG
    s1 s3 XCHG
    __gen_write_TONB INLINECALLDICT
    ENDC
  }>
  init PROC:<{
    $__gen_TONB_init CALLDICT
  }>
  main PROC:<{
  }>
}END>c