X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/ea5293bb6ce484bf1ec9ab70befe10c3a36a70c2..04134640c401acf7d6ac6b3bf7d609601f0242da:/cbios/mm.180

diff --git a/cbios/mm.180 b/cbios/mm.180
index 8f63a2b..90d8144 100644
--- a/cbios/mm.180
+++ b/cbios/mm.180
@@ -55,7 +55,21 @@ bnk2log:
 
 
 bnk2phy:
-	call	bnk2log
+	push	bc
+	ld	c,a
+	ld	a,h
+	and	a,0f0h
+	cp	CA*16
+	ld	a,c
+	pop	bc
+
+	jr	c,b2p_banked
+	xor	a		; address is in common
+	jr	b2b_cont	;    base is 0
+b2p_banked:
+	call	bnk2log		; get address base
+b2b_cont:
+
 	; fall thru
 
 ;--------------------------------------------------------------