1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
; $Id: __U4D.asm $
;; @file
; Compiler support routines.
;
;
; Copyright (C) 2012-2023 Oracle and/or its affiliates.
;
; This file is part of VirtualBox base platform packages, as
; available from https://www.virtualbox.org.
;
; This program is free software; you can redistribute it and/or
; modify it under the terms of the GNU General Public License
; as published by the Free Software Foundation, in version 3 of the
; License.
;
; This program is distributed in the hope that it will be useful, but
; WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
; General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, see <https://www.gnu.org/licenses>.
;
; SPDX-License-Identifier: GPL-3.0-only
;
;*******************************************************************************
;* Exported Symbols *
;*******************************************************************************
public __U4D
; MASM (ML.EXE) is used for PXE and no longer understands the .8086 directive.
; WASM is used for the BIOS and understands it just fine.
ifdef __WASM__
.8086
endif
if VBOX_BIOS_CPU lt 80386
extrn _DoUInt32Div:near
endif
_TEXT segment public 'CODE' use16
assume cs:_TEXT
;;
; 32-bit unsigned division.
;
; @param dx:ax Dividend.
; @param cx:bx Divisor.
; @returns dx:ax Quotient.
; cx:bx Remainder.
;
__U4D:
pushf
if VBOX_BIOS_CPU ge 80386
.386
push eax
push edx
push ecx
rol eax, 16
mov ax, dx
ror eax, 16
xor edx, edx
shr ecx, 16
mov cx, bx
div ecx ; eax:edx / ecx -> eax=quotient, edx=remainder.
mov bx, dx
pop ecx
shr edx, 16
mov cx, dx
pop edx
ror eax, 16
mov dx, ax
add sp, 2
pop ax
rol eax, 16
ifdef __WASM__
.8086
endif
else
;
; If the divisor is only 16-bit, use a fast path
;
test cx, cx
jnz do_it_the_hard_way
div bx ; dx:ax / bx -> ax=quotient, dx=remainder
mov bx, dx ; remainder in cx:bx, and we know cx=0
xor dx, dx ; quotient in dx:ax, dx must be zero
popf
ret
do_it_the_hard_way:
; Call C function do this.
push ds
push es
;
; Convert to a C __cdecl call - not doing this in assembly.
;
; Set up a frame of sorts, allocating 4 bytes for the result buffer.
push bp
sub sp, 04h
mov bp, sp
; Pointer to the return buffer.
push ss
push bp
add bp, 04h ; Correct bp.
; The divisor.
push cx
push bx
; The dividend.
push dx
push ax
call _DoUInt32Div
; Load the remainder.
mov cx, [bp - 02h]
mov bx, [bp - 04h]
; The quotient is already in dx:ax
mov sp, bp
pop bp
pop es
pop ds
endif
popf
ret
_TEXT ends
end
|
