Tolik-Trek/Spectrum.EXE
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Spectrum.EXE.git synced 2026-06-15 17:11:38 +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

78
spectrum.asm
View File

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