MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 14:11:48 -06:00
Code Issues Projects Releases Wiki Activity

Finalize v2.8.4

Browse Source 
Small bug fixes
This commit is contained in:
Wayne Warthen
2017-09-03 17:22:53 -07:00
parent 8deca61094
commit e8d9671753
4 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Source/HBIOS/util.asm
View File

@@ -603,12 +603,13 @@ DELAY_INIT:
#IF (PLATFORM == PLT_UNA)
LD C,$F8 ; UNA BIOS GET PHI FUNCTION
RST 08 ; RETURNS SPEED IN HZ IN DE:HL
LD A,E ; HACK TO GET APPROX SPEED IN MHZ
SRL A ; ... BY DIVIDING BY 1,048,576
SRL A ; ...
SRL A ; ...
SRL A ; ...
INC A ; FIX UP FOR VALUE TRUNCATION
LD B,4 ; DIVIDE MHZ IN DE:HL BY 100000H
DELAY_INIT0:
SRL D ; ... TO GET APPROX CPU SPEED IN
RR E ; ...MHZ. THROW AWAY HL, AND
DJNZ DELAY_INIT0 ; ...RIGHT SHIFT DE BY 4.
INC E ; FIX UP FOR VALUE TRUNCATION
LD A,E ; PUT IN A
#ELSE
LD B,BF_SYSGET ; HBIOS FUNC=GET SYS INFO
LD C,BF_SYSGET_CPUINFO ; HBIOS SUBFUNC=GET CPU INFO