diff --git a/LUA/Functions.lua b/LUA/Functions.lua index 84984d0..5475ea8 100644 --- a/LUA/Functions.lua +++ b/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 , increases it, creates define "BUILD" with the number and saves the number to . + -- 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 -- []===========================[] \ No newline at end of file diff --git a/constants/EXE_Header.z80 b/constants/EXE_Header.z80 index 4a1237a..c9cbe48 100644 --- a/constants/EXE_Header.z80 +++ b/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 С какого смещения в файле будет грузиться код в