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

diff --git a/cbios/boot.180 b/cbios/boot.180
index 0e36bcd..fe11486 100644
--- a/cbios/boot.180
+++ b/cbios/boot.180
@@ -4,8 +4,10 @@
 
 	public	hwinit,?init,?ldccp,?rlccp
 
+	public	f_cpu
+
 	extrn	?boot,?pmsg,?conin
-	extrn	ioini1l,msginit,mmuinit,intinit
+	extrn	ioini1l,msginit,mmuinit,intinit,cpu_frq
 	extrn	@civec,@covec,@aivec,@aovec,@lovec
 	extrn	@cbnk,?bnksl
 
@@ -39,6 +41,9 @@ hwinit:
 hwini_skip:
 	call	mmuinit		; setup mmu registers
 	call	msginit
+	call	cpu_frq
+	ld	(f_cpu),de
+	ld	(f_cpu+2),hl
 	ret
 
 ?init:
@@ -165,6 +170,7 @@ ccp$fcb:db	1,'CCP     ','COM',0,0,0,0
 fcb$nr:	db	0,0,0
 
 
+	dseg
 hwini_tab:
 	db	(hwini0_e-$)/2	;count
 	db	rcr,CREFSH	;configure DRAM refresh
@@ -175,5 +181,7 @@ hwini_tab:
 hwini0_e:
 	db	0		;stop mark
 
+	cseg
+f_cpu	dw	0,0		;detected CPU clock frequency [Hz]
 
 	end