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

SET_ROM переделана под переделанную функцию BIOS - SET_PORTS

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-12-31 05:36:30 +10:00
parent 8135e13343
commit 90593508ed
1 changed files with 50 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
spectrum.asm
View File

@ -586,7 +586,7 @@ PARAM_E2: EX (SP),HL ;
;************************************
IF NEW_MEMORY_LOGIC
BUFFER_RAM_PAGES:
.ROM: BLOCK 6 ; ª®«¨ç¥á⢮ ¯®à⮢ í¬ã«ïâ®à  <20>‡“
.ROM: BLOCK 10 ; ª®«¨ç¥á⢮ ¯®à⮢ í¬ã«ïâ®à  <20>‡“
.RAM: BLOCK 16 ; 256 ª¡
.Size EQU $-BUFFER_RAM_PAGES
.end_marker: BYTE #FF
@ -606,22 +606,24 @@ BUFFER_RAM_PAGES:
OR B
JR Z,.next
LD A,dcp_port ; ROM-ID
PUSH HL
CALL SET_ROM
POP HL
.next:
ENDM
PARAM_END: LD HL,BUFFER_RAM_PAGES.ROM
vROM_set ACEX.vROM.BASIC_128 ; ROM-ID - BASIC 128
vROM_set ACEX.vROM.BASIC_48 ; ROM-ID - BASIC 48
vROM_set ACEX.vROM.TR_DOS ; ROM-ID - TR-DOS
vROM_set ACEX.vROM.BIOS ; ROM-ID - EXPANSION
vROM_set ACEX.vROM.BIOS_3 ; ROM-ID - BIOS-1
vROM_set ACEX.vROM.BIOS_4 ; ROM-ID - BIOS-2
;vROM_set ACEX.vROM.BASIC_128_2 ; BASIC 128 - 2
;vROM_set ACEX.vROM.BASIC_48_2 ; BASIC 48 - 2
;vROM_set ACEX.vROM.TR_DOS_2 ; TR-DOS - 2
;vROM_set ACEX.vROM.BIOS_2 ; BIOS (ZX_EXP) - 2
vROM_set ACEX.vROM.BASIC_128 ; ROM-ID - BASIC 128
vROM_set ACEX.vROM.BASIC_48 ; ROM-ID - BASIC 48
vROM_set ACEX.vROM.TR_DOS ; ROM-ID - TR-DOS
vROM_set ACEX.vROM.BIOS ; ROM-ID - EXPANSION
vROM_set ACEX.vROM.BIOS_3 ; ROM-ID - BIOS-1
vROM_set ACEX.vROM.BIOS_4 ; ROM-ID - BIOS-2
;vROM_set ACEX.vROM.BASIC_128_2 ; BASIC 128 - 2
;vROM_set ACEX.vROM.BASIC_48_2 ; BASIC 48 - 2
;vROM_set ACEX.vROM.TR_DOS_2 ; TR-DOS - 2
;vROM_set ACEX.vROM.BIOS_2 ; BIOS (ZX_EXP) - 2
LD HL,(IMAGE_NAME)
LD A,H
@ -667,44 +669,44 @@ SKIP_IMAGE: LD A,(No_run_+2)
; out B - old ROM-page
;!FIXIT ᤥ« âì ç¥à¥§ ¢ë§®¢ ä㭪樨 <20>ˆŽ‘
SET_ROM: DI
LD C,BIOS.SET_PORTS
JP ToBIOS
EX AF,AF'
IN A,(SLOT3)
PUSH AF
LD A,DCP_PAGE ; ãáâ ­®¢¨âì ­®¢ãî
OUT (SLOT3),A
LD A,(#C400) ; á®åà ­¨âì â® çâ® ¡ë«®
LD E,A
LD A,(#C600)
LD D,A
EX AF,AF' ; áâà ­¨æ 
LD (#C400),A ; ãáâ ­®¢¨âì ¯®àâ ROM
LD (#C600),A
EX AF,AF'
LD A,B
LD BC,0
EX AF,AF'
IN A,(C)
EX AF,AF'
OUT (C),A ; ãáâ ­®¢¨âì ­®¢ë© ROM
EX AF,AF'
LD B,A
LD A,E
LD (#C400),A ; ¢¥à­ãâì ¯®àâ
LD A,D
LD (#C600),A ; ¢¥à­ãâì ¯®àâ
POP AF
OUT (SLOT3),A
RET
; DI
; ;
; EX AF,AF'
; IN A,(SLOT3)
; PUSH AF
; LD A,DCP_PAGE ; ãáâ ­®¢¨âì ­®¢ãî
; OUT (SLOT3),A
; ;
; LD A,(#C400) ; á®åà ­¨âì â® çâ® ¡ë«®
; LD E,A
; LD A,(#C600)
; LD D,A
; ;
; EX AF,AF' ; áâà ­¨æ 
; LD (#C400),A ; ãáâ ­®¢¨âì ¯®àâ ROM
; LD (#C600),A
; ;
; EX AF,AF'
; LD A,B
; LD BC,0
; EX AF,AF'
; IN A,(C)
; EX AF,AF'
; OUT (C),A ; ãáâ ­®¢¨âì ­®¢ë© ROM
; EX AF,AF'
; ;
; LD B,A
; LD A,E
; LD (#C400),A ; ¢¥à­ãâì ¯®àâ
; LD A,D
; LD (#C600),A ; ¢¥à­ãâì ¯®àâ
; ;
; POP AF
; OUT (SLOT3),A
; RET
;********************************************
READ_IMAGE: LD DE,ONE_FILE