к функциям LUA добавлена increase_build

LUA/Functions.lua

@@ -405,4 +405,27 @@ function Generate_DCPASM_fromPAGE (DCP_Page_file, DCP_new_ASM)
         assert(DCP_TABLE_CODE:flush())
         assert(DCP_TABLE_CODE:close())
 end
+-- []===========================[]
+
+
+-- []===========================[]
+	-- Function reads number from file <fname>, increases it, creates define "BUILD" with the number and saves the number to <fname>.
+	-- With this function you can control count of compilations.
+function increase_build(fname)
+	local fp
+	local build
+	fp = assert(io.open(fname, "rb"))
+	build = tonumber(fp:read("*all"))
+	assert(fp:close())
+	if type(build) == "nil" then
+		build = 0
+	end
+	build = build + 1;
+	--sj.insert_define("BUILD", build)
+	fp = assert(io.open(fname, "wb"))
+	assert(fp:write(build))
+	assert(fp:flush())
+	assert(fp:close())
+	return build
+end
 -- []===========================[]

constants/EXE_Header.z80

@@ -1,7 +1,7 @@
 ;
 ;***************************************
     ORG org_addr - exe_header.length
-exe_header equ $
+exe_header:
         BYTE    'EXE'                   ; 0-3   EXE ‘¨£­ âãà 
         BYTE    0                       ; 4     Version of EXE file
         DWORD   exe_header.length       ; 5-6   ‘ ª ª®£® ᬥ饭¨ï ¢ ä ©«¥ ¡ã¤¥â £à㧨âìáï ª®¤ ¢