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

View File

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