Tolik-Trek/Shared_Includes
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Shared_Includes.git synced 2026-06-15 00:51:32 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Tolik 2025-03-14 01:17:36 +10:00
parent d22e7b9aae
commit abe5437155
2 changed files with 41 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
LUA/Functions.lua
View File

@ -467,7 +467,6 @@ function get_build(fname)
end
return build
end
-- []===========================[]
@ -475,5 +474,28 @@ end
function make_string_version(ver_, mod_, build_)
return (tostring(ver_) .. "." .. tostring(mod_) .. "." .. tostring(build_))
end
-- []===========================[]
-- []===========================[]
--for MAME lua console
function dump_vram(fname,from_m,to_m,step_m)
local fvram = io.open("./" .. fname, "w+b")
local vram_d = {}
if from_m == nil then from_m = 0 end
if from_m == "tbl" then from_m = 768 to_m = 927 step_m = 256 end
if from_m == "fnt" then from_m = 704 to_m = 767 step_m = 256 end
if to_m == nil then to_m = 262143 end
if step_m == nil then step_m = 1 end
local mem_d = -1024 + to_m
for step_i = 1, step_m, 1 do
mem_d = mem_d + from_m + 1024 - to_m
for mem_i = from_m, to_m, 1 do
fvram:write(string.char(manager.machine.memory.shares[':vram']:read_u8(mem_d)))
mem_d = mem_d + 1
end
mem_d = mem_d - 1
end
fvram:flush()
fvram:close()
end
-- []===========================[]

34
constants/SP2000.inc
View File

@ -564,7 +564,7 @@ Spec_Page EQU #41
.bitstream_pages EQU .init_acex-(4+1) ;!TEST ;!HARDCODE ª®«¨ç¥á⢮ áâà ­¨æ ¢ ªíè ¤«ï ¡¨áâਬ  ¯«îá ®¤­ 
;LD (#FFF3),A ; á®å࠭塞 ¢ ᯥæáâà ­¨æã ­®¬¥à Spec_Page
;ZX_RAM_ID EQU 1 ; à ¬¡«®ª á® áâà ­¨æ ¬¨ ¤«ï ०¨¬  ᯥªâà㬠. “<EFBFBD><EFBFBD>€<EFBFBD>Ž
MODE_PAGE EQU #FC ;????? ¥á«¨ à㤨¬¥­â, â® ã¡à âì ¨§ १¥à¢¨à®¢ ­¨ï ¢ â ¡«¨æ¥ áâà ­¨æ
RESET_PAGE EQU #A0
; ‘¡à®á ¬®¦¥â ¡ëâì ®áãé¥á⢫¥­ § ¯¨áìî ¢ áâà ­¨æã #A0, ãáâ ­®¢«¥­­ãî ¢ à áè¨à¥­­ãî
; áâà ­¨æã Scorpion-®¢áª®£® à á¯à¥¤¥«¥­¨ï ¯®à⮢, â.¥. á«¥¤ãî饩 ¯à®£à ¬¬®©:
@ -1085,19 +1085,6 @@ CheckSum EQU CMOS.Cell.CheckSum
;-----------------------------------------------------------------------
GR_BIT_END EQU 7
S_BIT_END EQU 7
S_BIT_LIN EQU 6
S_BIT_MOD EQU 5
BIT_1440 EQU 1
BIT_MASK_1440 EQU %00000010
;---------------------------------------
; <EFBFBD>®àâë Š<EFBFBD>1818‚ƒ93 ¨ â.¯.
FDC_93:
.Command EQU #0F ; WG_COM R_COM ;Command/Status
@ -2215,7 +2202,7 @@ REG:
;³ Š ¦¤®¥ §­ ª®¬¥áâ® ¯® à §¬¥àã ᮮ⢥âáâ¢ã¥â ª¢ ¤à âã 8x8 ०¨¬ ³
;³ 320 â®ç¥ª ¢ «¨­¨¨. ‚ᥣ® ­  íªà ­¥ 40x32 §­ ª®¬¥áâ. ”¨§¨ç¥áª¨ ³
;³ ¨¬¥¥âáï 64x64 §­ ª®¬¥áâ, ­® ç áâì ¨§ ­¨å ­¨ª®£¤  ­¥ ¯®¯ ¤ ¥â ³
;³ ­  íªà ­,   ç áâì ­ å®¤¨âáï ¢ ®¡« á⨠¨¬¯ã«ìᮢ 樭åà®­¨§ æ¨¨ ³
;³ ­  íªà ­,   ç áâì ­ å®¤¨âáï ¢ ®¡« á⨠¨¬¯ã«ìᮢ ᨭåà®­¨§ æ¨¨ ³
;³ ¨ £ è¥­¨ï «ãç . ‚ ª ¦¤®¬ §­ ª®¬¥á⥠¬®¦­® ãáâ ­®¢¨âì ᢮© ³
;³ ०¨¬, ¢¯«®âì ¤® ãáâ ­®¢ª¨ ०¨¬®¢ ¡®à¤¥à  ¨ £ è¥­¨ï «ãç . ³
;³ Žá­®¢­ë¥ ०¨¬ë, ãáâ ­ ¢«¨¢ ¥¬ë¥ ¢ §­ ª®¬¥áâ å: ³
@ -2332,7 +2319,7 @@ REG:
;³ ¬®¦­® ¨á¯®«ì§®¢ âì ¤«ï ¢ë¢®¤  ­  íªà ­. ³
;³ <EFBFBD> ©âë 300h..3A0h ïîâáï ¡ ©â ¬¨ ०¨¬  íªà ­ . ³
;³ <EFBFBD> ©âë 3E0h..3FFh - ¡ ©âë ¯ «¨âà. ³
;³ €¤à¥á ª¢ ¤à â  ¤ ­­ëå, ª®â®à®¥ ¢ë¢®¤¨âáï ¢ §­ ª®¬¥áâ® § ¤ ¥âáï³
;³ €¤à¥á ª¢ ¤à â  ¤ ­­ëå, ª®â®àë¥ ¢ë¢®¤¨âáï ¢ §­ ª®¬¥áâ® § ¤ ¥âáï³
;³ ¢ ¡ ©â å ०¨¬  íªà ­ . ³
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
;__________________________________________________________________________________________________________#
@ -2517,6 +2504,21 @@ REG:
; P_HD3F6 EQU #4154 ; WRITE 3F6
; P_HD3F7 EQU #4055 ; READ 3F7
;---------------------------------------
; GR_BIT_END EQU 7
; S_BIT_END EQU 7
; S_BIT_LIN EQU 6
; S_BIT_MOD EQU 5
; BIT_1440 EQU 1
; BIT_MASK_1440 EQU %00000010
; ¥á«¨ à㤨¬¥­â, â® ã¡à âì ¨§ १¥à¢¨à®¢ ­¨ï ¢ â ¡«¨æ¥ áâà ­¨æ
;MODE_PAGE EQU #FC
;---------------------------------------
;=================================================================================
; <EFBFBD>®pâë Sprinter. (¡ ©âë PORT_X)<<
; 0 - port FF<<