/* link obj: util */
extern int key;
main(argc,argv)
int argc;
char **argv;
{
 int i;
 if (argc!=2) {
  puts("use: hdt <num>\n");
  puts(" or: hdt $<hex>\n");
  puts(" or: hdt t(astencode)\n");
  exit(0);
 }
 if (argv[1][0]=='$') {
  i=htoi(argv[1]);
  putchar('$');
  put4h(i);
  puts(" = ");
  put5d(i);
  puts("\n");
 } else if ((argv[1][0]&0xdf)=='T') {
  key=0;
  while (key!=0x1b) {
   while (!key_in());
   putchar('$');
   put4h(key);
   puts(" = ");
   if (key>256) {
    key-=256;
    puts("FN");
   }
   put5d(key);
   puts("\n");
  }
 } else {
  i=atoi(argv[1]);
  put5d(i);
  puts(" = $");
  put4h(i);
  puts("\n");
 } 
}