...

LUA/Functions.lua

@@ -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
+-- []===========================[]

constants/SP2000.inc

@@ -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<<