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