#pragma optimize 79
#pragma noroot

#include <Types.h>

int parse_ftype(const char *cp, Word size, Word *ftype, Word *atype)
{
  Word *wp = (Word *)cp;
  Word h;

  *ftype = 0;
  *atype = 0;

  if (!cp || !size) return 0;

  h = ((*cp | 0x20) ^ size) & 0x0f;

  switch (h)
  {
    case 0x00:
      // shk
      if (size == 3
        && (wp[0] | 0x2020) == 0x6873 // 'sh'
        && (cp[2] | 0x20) == 0x6b     // 'k'
      ) {
        *ftype = 0xe0;
        *atype = 0x8002;
        return 1;
      }
      // text
      if (size == 4
        && (wp[0] | 0x2020) == 0x6574 // 'te'
        && (wp[1] | 0x2020) == 0x7478 // 'xt'
      ) {
        *ftype = 0x04;
        *atype = 0x0000;
        return 1;
      }
      break;

    case 0x01:
      // bxy
      if (size == 3
        && (wp[0] | 0x2020) == 0x7862 // 'bx'
        && (cp[2] | 0x20) == 0x79     // 'y'
      ) {
        *ftype = 0xe0;
        *atype = 0x8000;
        return 1;
      }
      break;

    case 0x02:
      // c
      if (size == 1
        && (cp[0] | 0x20) == 0x63     // 'c'
      ) {
        *ftype = 0xb0;
        *atype = 0x0008;
        return 1;
      }
      // asm
      if (size == 3
        && (wp[0] | 0x2020) == 0x7361 // 'as'
        && (cp[2] | 0x20) == 0x6d     // 'm'
      ) {
        *ftype = 0xb0;
        *atype = 0x0003;
        return 1;
      }
      break;

    case 0x03:
      // pas
      if (size == 3
        && (wp[0] | 0x2020) == 0x6170 // 'pa'
        && (cp[2] | 0x20) == 0x73     // 's'
      ) {
        *ftype = 0xb0;
        *atype = 0x0005;
        return 1;
      }
      break;

    case 0x07:
      // txt
      if (size == 3
        && (wp[0] | 0x2020) == 0x7874 // 'tx'
        && (cp[2] | 0x20) == 0x74     // 't'
      ) {
        *ftype = 0x04;
        *atype = 0x0000;
        return 1;
      }
      break;

    case 0x09:
      // h
      if (size == 1
        && (cp[0] | 0x20) == 0x68     // 'h'
      ) {
        *ftype = 0xb0;
        *atype = 0x0008;
        return 1;
      }
      break;

  }

  return 0;
}