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/Apps/XM/xmhb.180
View File

@@ -110,12 +110,13 @@ MINIT2:
; Get CPU speed from UNA and return
LD C,0F8H ; 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
MINIT2A:
SRL D ; ... to get approx CPU speed in
RR E ; ...MHz. Throw away HL, and
DJNZ MINIT2A ; ...right shift DE by 4.
INC E ; Fix up for value truncation
LD A,E ; Put in A
RET ; Done
;
MINIT3: