uses aasm;

Begin
  Case Pai(hp1)^.typ Of
    ait_instruction:
  End
End.