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

15
Source/Apps/FDU/FDU.asm
View File

@@ -139,12 +139,13 @@ INIT:
; GET CPU SPEED FROM UBIOS
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
INIT0:
SRL D ; ... TO GET APPROX CPU SPEED IN
RR E ; ...MHZ. THROW AWAY HL, AND
DJNZ INIT0 ; ...RIGHT SHIFT DE BY 4.
INC E ; FIX UP FOR VALUE TRUNCATION
LD A,E ; PUT IN A
LD (CPUSPD),A ; SAVE IT
JR INIT3 ; AND DONE
@@ -317,7 +318,7 @@ CFG_ZETA2:
.DB 038H ; DIGITAL OUTPUT REGISTER
.DB 028H ; CONFIGURATION CONTROL REGISTER
.DB 0FFH ; DACK
.DB 0FFH ; TERMINAL COUNT (W/ DACK)
.DB 038H ; TERMINAL COUNT (W/ DACK)
.DB 0FFH ; NOT USED BY ZETA SBC V2
;
CFG_DIDE:

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: