diff --git a/compiler/z80/aasmcpu.pas b/compiler/z80/aasmcpu.pas
index 0441e7740d..00927377c7 100644
--- a/compiler/z80/aasmcpu.pas
+++ b/compiler/z80/aasmcpu.pas
@@ -137,6 +137,7 @@ uses
          { register spilling code }
          function spilling_get_operation_type(opnr: longint): topertype;override;
 
+         function CheckIfValid:boolean;
          function GetString:string;
       end;
 
@@ -541,6 +542,12 @@ implementation
       end;
 
 
+    function taicpu.CheckIfValid: boolean;
+      begin
+        result:=FindInsEntry(nil);
+      end;
+
+
     function taicpu.GetString: string;
       var
         //i : longint;