nhasmsyn.pas

来自「本人买的<<VC++项目开发实例>>源代码配套光盘.」· PAS 代码 · 共 1,494 行 · 第 1/3 页

function TnhAsmSyn.Func25: TtkTokenKind;
begin
  if KeyComp('jna') then Result := tkKey else
    if KeyComp('jo') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func26: TtkTokenKind;
begin
  if KeyComp('neg') then Result := tkKey else
    if KeyComp('jnb') then Result := tkKey else
      if KeyComp('jp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func27: TtkTokenKind;
begin
  if KeyComp('jnc') then Result := tkKey else
    if KeyComp('jle') then Result := tkKey else
      if KeyComp('paddb') then Result := tkKey else
        if KeyComp('lahf') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func28: TtkTokenKind;
begin
  if KeyComp('call') then Result := tkKey else
    if KeyComp('fabs') then Result := tkKey else
      if KeyComp('cbw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func29: TtkTokenKind;
begin
  if KeyComp('js') then Result := tkKey else
    if KeyComp('pfacc') then Result := tkKey else
      if KeyComp('paddd') then Result := tkKey else
        if KeyComp('jne') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func30: TtkTokenKind;
begin
  if KeyComp('jnae') then Result := tkKey else
    if KeyComp('cwd') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func31: TtkTokenKind;
begin
  if KeyComp('jng') then Result := tkKey else
    if KeyComp('pfadd') then Result := tkKey else
      if KeyComp('jnbe') then Result := tkKey else
        if KeyComp('fild') then Result := tkKey else
          if KeyComp('faddp') then Result := tkKey else
            if KeyComp('jpe') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func32: TtkTokenKind;
begin
  if KeyComp('sal') then Result := tkKey else
    if KeyComp('cmp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func33: TtkTokenKind;
begin
  if KeyComp('rcl') then Result := tkKey else
    if KeyComp('or') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func34: TtkTokenKind;
begin
  if KeyComp('sahf') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func35: TtkTokenKind;
begin
  if KeyComp('cwde') then Result := tkKey else
    if KeyComp('div') then Result := tkKey else
      if KeyComp('pi2fd') then Result := tkKey else
        if KeyComp('lds') then Result := tkKey else
          if KeyComp('pf2id') then Result := tkKey else
            if KeyComp('pand') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func36: TtkTokenKind;
begin
  if KeyComp('fchs') then Result := tkKey else
    if KeyComp('jz') then Result := tkKey else
      if KeyComp('jnl') then Result := tkKey else
        if KeyComp('jnge') then Result := tkKey else
          if KeyComp('les') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func37: TtkTokenKind;
begin
  if KeyComp('fcom') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func38: TtkTokenKind;
begin
  if KeyComp('sar') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func39: TtkTokenKind;
begin
  if KeyComp('rep') then Result := tkKey else
    if KeyComp('rcr') then Result := tkKey else
      if KeyComp('shl') then Result := tkKey else
        if KeyComp('jno') then Result := tkKey else
          if KeyComp('rcr') then Result := tkKey else
            if KeyComp('jmp') then Result := tkKey else
              if KeyComp('fldl2e') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func40: TtkTokenKind;
begin
  if KeyComp('ffree') then Result := tkKey else
    if KeyComp('jnp') then Result := tkKey else
      if KeyComp('hlt') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func41: TtkTokenKind;
begin
  if KeyComp('lock') then Result := tkKey else
    if KeyComp('fxch') then Result := tkKey else
      if KeyComp('fldlg2') then Result := tkKey else
        if KeyComp('fdiv') then Result := tkKey else
          if KeyComp('jnle') then Result := tkKey else
            if KeyComp('jpo') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func42: TtkTokenKind;
begin
  if KeyComp('ins') then Result := tkKey else
    if KeyComp('sub') then Result := tkKey else
      if KeyComp('xchg') then Result := tkKey else
        if KeyComp('scas') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func43: TtkTokenKind;
begin
  if KeyComp('f2xm1') then Result := tkKey else
    if KeyComp('jns') then Result := tkKey else
      if KeyComp('fcos') then Result := tkKey else
        if KeyComp('ret') then Result := tkKey else
          if KeyComp('int') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func44: TtkTokenKind;
begin
  if KeyComp('scasb') then Result := tkKey else
    if KeyComp('repe') then Result := tkKey else
      if KeyComp('insb') then Result := tkKey else
        if KeyComp('idiv') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func45: TtkTokenKind;
begin
  if KeyComp('leave') then Result := tkKey else
    if KeyComp('nop') then Result := tkKey else
      if KeyComp('rol') then Result := tkKey else
        if KeyComp('shr') then Result := tkKey else
          if KeyComp('fst') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func46: TtkTokenKind;
begin
  if KeyComp('mul') then Result := tkKey else
    if KeyComp('paddsb') then Result := tkKey else
      if KeyComp('insd') then Result := tkKey else
        if KeyComp('fscale') then Result := tkKey else
          if KeyComp('fcomi') then Result := tkKey else
            if KeyComp('scasd') then Result := tkKey else
              if KeyComp('ficom') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func47: TtkTokenKind;
begin
  if KeyComp('pop') then Result := tkKey else
    if KeyComp('arpl') then Result := tkKey else
      if KeyComp('fldpi') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func48: TtkTokenKind;
begin
  if KeyComp('paddw') then Result := tkKey else
    if KeyComp('fldcw') then Result := tkKey else
      if KeyComp('fldz') then Result := tkKey else
        if KeyComp('fldln2') then Result := tkKey else
          if KeyComp('fsin') then Result := tkKey else
            if KeyComp('fsub') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func49: TtkTokenKind;
begin
  if KeyComp('por') then Result := tkKey else
    if KeyComp('not') then Result := tkKey else
      if KeyComp('pandn') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func50: TtkTokenKind;
begin
  if KeyComp('jnz') then Result := tkKey else
    if KeyComp('lods') then Result := tkKey else
      if KeyComp('fidiv') then Result := tkKey else
        if KeyComp('fclex') then Result := tkKey else
          if KeyComp('emms') then Result := tkKey else
            if KeyComp('lods') then Result := tkKey else
              if KeyComp('mov') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func51: TtkTokenKind;
begin
  if KeyComp('fnop') then Result := tkKey else
    if KeyComp('ror') then Result := tkKey else
      if KeyComp('cmps') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func52: TtkTokenKind;
begin
  if KeyComp('fmul') then Result := tkKey else
    if KeyComp('iret') then Result := tkKey else
      if KeyComp('lodsb') then Result := tkKey else
        if KeyComp('popad') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func53: TtkTokenKind;
begin
  if KeyComp('wait') then Result := tkKey else
    if KeyComp('fcomp') then Result := tkKey else
      if KeyComp('cmpsb') then Result := tkKey else
        if KeyComp('fsave') then Result := tkKey else
          if KeyComp('popf') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func54: TtkTokenKind;
begin
  if KeyComp('movd') then Result := tkKey else
    if KeyComp('lodsd') then Result := tkKey else
      if KeyComp('fldl2t') then Result := tkKey else
        if KeyComp('fist') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func55: TtkTokenKind;
begin
  if KeyComp('cmpsd') then Result := tkKey else
    if KeyComp('imul') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func56: TtkTokenKind;
begin
  if KeyComp('bound') then Result := tkKey else
    if KeyComp('out') then Result := tkKey else
      if KeyComp('femms') then Result := tkKey else
        if KeyComp('iretd') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func57: TtkTokenKind;
begin
  if KeyComp('xor') then Result := tkKey else
    if KeyComp('xlat') then Result := tkKey else
      if KeyComp('popfd') then Result := tkKey else
        if KeyComp('fisub') then Result := tkKey else
          if KeyComp('fptan') then Result := tkKey else
            if KeyComp('fdivp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func58: TtkTokenKind;
begin
  if KeyComp('pfmin') then Result := tkKey else
    if KeyComp('loop') then Result := tkKey else
      if KeyComp('into') then Result := tkKey else
        if KeyComp('fpatan') then Result := tkKey else
          if KeyComp('fprem1') then Result := tkKey else
            if KeyComp('psrad') then Result := tkKey else
              if KeyComp('repne') then Result := tkKey else
                if KeyComp('fucom') then Result := tkKey else
                  if KeyComp('finit') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func59: TtkTokenKind;
begin
  if KeyComp('fdivr') then Result := tkKey else
    if KeyComp('pfrcp') then Result := tkKey else
      if KeyComp('xlatb') then Result := tkKey else
        if KeyComp('fwait') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func60: TtkTokenKind;
begin
  if KeyComp('psubb') then Result := tkKey else
    if KeyComp('pfmax') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func61: TtkTokenKind;
begin
  if KeyComp('fimul') then Result := tkKey else
    if KeyComp('fcmovb') then Result := tkKey else
      if KeyComp('fstp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func62: TtkTokenKind;
begin
  if KeyComp('psubd') then Result := tkKey else
    if KeyComp('ficomp') then Result := tkKey else
      if KeyComp('enter') then Result := tkKey else
        if KeyComp('fcomip') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func63: TtkTokenKind;
begin
  if KeyComp('fbstp') then Result := tkKey else
    if KeyComp('fldenv') then Result := tkKey else
      if KeyComp('jcxz') then Result := tkKey else
        if KeyComp('loope') then Result := tkKey else
          if KeyComp('pslld') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func64: TtkTokenKind;
begin
  if KeyComp('push') then Result := tkKey else
    if KeyComp('fcmove') then Result := tkKey else
      if KeyComp('test') then Result := tkKey else
        if KeyComp('fnclex') then Result := tkKey else
          if KeyComp('fsubp') then Result := tkKey else
            if KeyComp('fsubp') then Result := tkKey else
              if KeyComp('pfsub') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func65: TtkTokenKind;
begin
  if KeyComp('scasw') then Result := tkKey else
    if KeyComp('insw') then Result := tkKey else
      if KeyComp('ftst') then Result := tkKey else
        if KeyComp('pmaddwd') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func66: TtkTokenKind;
begin
  if KeyComp('fsubr') then Result := tkKey else
    if KeyComp('fcmovbe') then Result := tkKey else
      if KeyComp('pfcmpge') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func67: TtkTokenKind;
begin
  if KeyComp('fucomi') then Result := tkKey else
    if KeyComp('fnsave') then Result := tkKey else
      if KeyComp('paddsw') then Result := tkKey else
        if KeyComp('paddusb') then Result := tkKey else
          if KeyComp('movq') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func68: TtkTokenKind;
begin
  if KeyComp('fidivr') then Result := tkKey else
    if KeyComp('jecxz') then Result := tkKey else
      if KeyComp('fmulp') then Result := tkKey else
        if KeyComp('pfmul') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func69: TtkTokenKind;
begin
  if KeyComp('psrld') then Result := tkKey else
    if KeyComp('movs') then Result := tkKey else
      if KeyComp('fcompp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func70: TtkTokenKind;
begin
  if KeyComp('pushf') then Result := tkKey else
    if KeyComp('fistp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func71: TtkTokenKind;
begin
  if KeyComp('fstcw') then Result := tkKey else
    if KeyComp('movsb') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func72: TtkTokenKind;
begin
  if KeyComp('fninit') then Result := tkKey else
    if KeyComp('pcmpeqb') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func73: TtkTokenKind;
begin
  if KeyComp('fdecstp') then Result := tkKey else
    if KeyComp('movsd') then Result := tkKey else
      if KeyComp('lodsw') then Result := tkKey else
        if KeyComp('pxor') then Result := tkKey else
          if KeyComp('stos') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func74: TtkTokenKind;
begin
  if KeyComp('fucomp') then Result := tkKey else
    if KeyComp('pushfd') then Result := tkKey else
      if KeyComp('pcmpeqd') then Result := tkKey else
        if KeyComp('cmpsw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func75: TtkTokenKind;
begin
  if KeyComp('fdivrp') then Result := tkKey else
    if KeyComp('stosb') then Result := tkKey else
      if KeyComp('outs') then Result := tkKey else
        if KeyComp('fcmovnb') then Result := tkKey else
          if KeyComp('fisubr') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func76: TtkTokenKind;
begin
  if KeyComp('psllq') then Result := tkKey else
    if KeyComp('pfcmpeq') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func77: TtkTokenKind;
begin
  if KeyComp('loopne') then Result := tkKey else
    if KeyComp('stosd') then Result := tkKey else
      if KeyComp('pcmpgtb') then Result := tkKey else
        if KeyComp('outsb') then Result := tkKey else
          if KeyComp('psraw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func78: TtkTokenKind;
begin
  if KeyComp('fcmovne') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func79: TtkTokenKind;
begin
  if KeyComp('pcmpgtd') then Result := tkKey else
    if KeyComp('outsd') then Result := tkKey else
      if KeyComp('psubsb') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func80: TtkTokenKind;
begin
  if KeyComp('fcmovu') then Result := tkKey else
    if KeyComp('fsqrt') then Result := tkKey else
      if KeyComp('fcmovnbe') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func81: TtkTokenKind;
begin
  if KeyComp('prefetch') then Result := tkKey else
    if KeyComp('psubw') then Result := tkKey else
      if KeyComp('pfcmpgt') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func82: TtkTokenKind;
begin
  if KeyComp('psllw') then Result := tkKey else
    if KeyComp('pfsubr') then Result := tkKey else
      if KeyComp('psrlq') then Result := tkKey else
        if KeyComp('fsubrp') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func83: TtkTokenKind;
begin
  if KeyComp('fucomip') then Result := tkKey else
    if KeyComp('fyl2xp1') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func84: TtkTokenKind;
begin
  if KeyComp('loopz') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func85: TtkTokenKind;
begin
  if KeyComp('fnstcw') then Result := tkKey else
    if KeyComp('fsincos') then Result := tkKey else
      if KeyComp('frndint') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func86: TtkTokenKind;
begin
  if KeyComp('fstenv') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func87: TtkTokenKind;
begin
  if KeyComp('fincstp') then Result := tkKey else
    if KeyComp('fstsw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func88: TtkTokenKind;
begin
  if KeyComp('pavgusb') then Result := tkKey else
    if KeyComp('psrlw') then Result := tkKey else
      if KeyComp('paddusw') then Result := tkKey else
        if KeyComp('pfrcpit2') then Result := tkKey else
          if KeyComp('pfrcpit1') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func90: TtkTokenKind;
begin
  if KeyComp('fucompp') then Result := tkKey else Result := tkIdentifier;
end;