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

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-09-11 01:46:09 +10:00
parent 2afd6fe3c0
commit af64d9cff3
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
spectrum.asm
View File

@ -131,6 +131,7 @@ BEGIN: LD (LINE_X),IX
IN A,(SLOT3)
LD (SAVE_SLOT3),A
IF NEW_MEMORY_LOGIC
;!TEST
LD BC,BUFFER_RAM_PAGES.Size * 256 + Dss.GetMem
RST ToDSS
@ -139,6 +140,9 @@ BEGIN: LD (LINE_X),IX
LD C,BIOS.GetMemBlkPages
RST ToBIOS
;
ELSE
ENDIF
JP COMAND_LINE
@ -501,11 +505,20 @@ PARAM_E2: EX (SP),HL ;
JR LOOP_PAR1
;************************************
IF NEW_MEMORY_LOGIC
BUFFER_RAM_PAGES:
.ROM: BLOCK 10 ; ª®«¨ç¥á⢮ ¯®à⮢ í¬ã«ïâ®à  <20>‡“
.RAM: BLOCK 16 ; 256 ª¡
.Size EQU $-BUFFER_RAM_PAGES
.end_marker: BYTE #FF
ELSE
BUFFER_RAM_PAGES:
.ROM: DB #42, #43, #44, #45, #46, #47
.RAM: BLOCK 16 ; 256 ª¡
.Size EQU $-BUFFER_RAM_PAGES
.end_marker: BYTE #FF
ENDIF
MACRO vROM_set dcp_port
LD B,(HL) ; page