...
This commit is contained in:
parent
34ded2208d
commit
412759754c
@ -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
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
@ -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
|
||||
;----------------------------------------------------------------------;
|
||||
;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user