This commit is contained in:
Anatoliy Belyanskiy 2023-09-20 01:00:54 +10:00
parent 34ded2208d
commit 412759754c
2 changed files with 15 additions and 14 deletions

View File

@ -42,8 +42,7 @@ RMD_5x.GETMED:
RET C RET C
SCF SCF
RET Z RET Z
;
LD C,A LD C,A
LD B,#FF LD B,#FF
.loop: INC B .loop: INC B
@ -52,16 +51,16 @@ RMD_5x.GETMED:
CALL EMM.GetMemPage ; ¯®«ãç¨âì 䨧¨ç¥áª¨© ­®¬¥à áâà ­¨æë ¨§ ¡«®ª  CALL EMM.GetMemPage ; ¯®«ãç¨âì 䨧¨ç¥áª¨© ­®¬¥à áâà ­¨æë ¨§ ¡«®ª 
POP BC POP BC
JR NC,.loop JR NC,.loop
CP #FF ; CF==1, A==0 - ®è¨¡ª , A==#FF - ok
RET NZ INC A
RET NZ ; ¥á«¨ ¢ë室¨â, â® á 䤠£ ¬¨ CF==1, ZF==1
LD E,B LD E,B
LD B,C LD B,C
; âãâ ¢ E ª®«¨ç¥á⢮ áâà ­¨æ ¢ à ¬¤¨áª¥, B - ID à ¬¤¨áª 
; âãâ ¢ E ª®«¨ç¥á⢮ áâà ­¨æ ¢ à ¬¤¨áª¥, B - ID à ¬¤¨áª 
LD HL,1*256 + #4000/.SectorSize LD HL,1*256 + #4000/.SectorSize
LD D,0 LD D,0
LD IX,.SectorSize LD IX,.SectorSize
RET RET
//////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////

View File

@ -351,6 +351,8 @@ EMM.GetMemBlkPages:
LD B,0 LD B,0
LD L,A LD L,A
LD A,R
.loop: LD A,L .loop: LD A,L
LD (DE),A LD (DE),A
INC DE INC DE
@ -358,7 +360,7 @@ EMM.GetMemBlkPages:
JR Z,.error JR Z,.error
CP #FF CP #FF
JR Z,.end JR Z,.end
;
IN A,(SLOT2) IN A,(SLOT2)
LD C,A LD C,A
LD A,SYS_PAGE LD A,SYS_PAGE
@ -367,19 +369,19 @@ EMM.GetMemBlkPages:
LD L,(HL) LD L,(HL)
LD A,C LD A,C
OUT (SLOT2),A OUT (SLOT2),A
;
INC B INC B
JR NZ,.loop JR NZ,.loop
.error: SCF .error: SCF
POP HL .end: POP HL
POP DE POP DE
RET RET
.end: POP HL ; .end: POP HL
POP DE ; POP DE
AND A ; AND A
RET ; RET
;----------------------------------------------------------------------; ;----------------------------------------------------------------------;
; ;