writeProcComments is now member of Function, at it has an ostream based overload, also added gmock framework to dependencies
This commit is contained in:
Artur K
294
tests/prev_base/LONGOPS.b
Normal file
294
tests/prev_base/LONGOPS.b
Normal file
@@ -0,0 +1,294 @@
|
||||
/*
|
||||
* Input file : ./tests/inputs/LONGOPS.EXE
|
||||
* File type : EXE
|
||||
*/
|
||||
|
||||
#include "dcc.h"
|
||||
|
||||
|
||||
long LXMUL@ (long arg0, long arg1)
|
||||
/* Uses register arguments:
|
||||
* arg0 = dx:ax.
|
||||
* arg1 = cx:bx.
|
||||
* Runtime support routine of the compiler.
|
||||
*/
|
||||
{
|
||||
int loc1;
|
||||
int loc2; /* tmp */
|
||||
loc2 = LO(arg0);
|
||||
LO(arg0) = loc1;
|
||||
loc1 = loc2;
|
||||
loc2 = LO(arg0);
|
||||
LO(arg0) = HI(arg0);
|
||||
|
||||
if ((LO(arg0) & LO(arg0)) != 0) {
|
||||
}
|
||||
loc2 = LO(arg0);
|
||||
LO(arg0) = HI(arg1);
|
||||
HI(arg1) = loc2;
|
||||
|
||||
if ((LO(arg0) & LO(arg0)) != 0) {
|
||||
LO(arg0) = (LO(arg0) * loc1);
|
||||
HI(arg1) = (HI(arg1) + LO(arg0));
|
||||
}
|
||||
loc2 = LO(arg0);
|
||||
arg0 = (loc1 * LO(arg1));
|
||||
HI(arg0) = (HI(arg0) + HI(arg1));
|
||||
return (arg0);
|
||||
}
|
||||
|
||||
|
||||
long LDIV@ (long arg0, int arg3)
|
||||
/* Takes 8 bytes of parameters.
|
||||
* Runtime support routine of the compiler.
|
||||
* High-level language prologue code.
|
||||
* Untranslatable routine. Assembler provided.
|
||||
* Return value in registers dx:ax.
|
||||
* Pascal calling convention.
|
||||
*/
|
||||
{
|
||||
XOR cx, 0
|
||||
PUSH bp
|
||||
PUSH si
|
||||
PUSH di
|
||||
MOV bp, sp
|
||||
MOV di, cx
|
||||
MOV ax, [bp+0Ah]
|
||||
MOV dx, [bp+0Ch]
|
||||
MOV bx, [bp+0Eh]
|
||||
MOV cx, [bp+10h]
|
||||
CMP cx, 0
|
||||
JNE L1
|
||||
OR dx, dx
|
||||
JE L2
|
||||
OR bx, bx
|
||||
JE L2
|
||||
|
||||
L1: TEST di, 1
|
||||
JNE L3
|
||||
OR dx, dx
|
||||
JNS L4
|
||||
NEG dx
|
||||
NEG ax
|
||||
SBB dx, 0
|
||||
OR di, 0Ch
|
||||
|
||||
L4: OR cx, cx
|
||||
JNS L3
|
||||
NEG cx
|
||||
NEG bx
|
||||
SBB cx, 0
|
||||
XOR di, 4
|
||||
|
||||
L3: MOV bp, cx
|
||||
MOV cx, 20h
|
||||
PUSH di
|
||||
XOR di, 0
|
||||
XOR si, 0
|
||||
|
||||
L5: SHL ax, 1
|
||||
RCL dx, 1
|
||||
RCL si, 1
|
||||
RCL di, 1
|
||||
CMP di, bp
|
||||
JB L6
|
||||
JA L7
|
||||
CMP si, bx
|
||||
JB L6
|
||||
|
||||
L7: SUB si, bx
|
||||
SBB di, bp
|
||||
INC ax
|
||||
|
||||
L6: LOOP L5
|
||||
POP bx
|
||||
TEST bx, 2
|
||||
JE L8
|
||||
MOV ax, si
|
||||
MOV dx, di
|
||||
SHR bx, 1
|
||||
|
||||
L8: TEST bx, 4
|
||||
JE L9
|
||||
NEG dx
|
||||
NEG ax
|
||||
SBB dx, 0
|
||||
|
||||
L9: POP di
|
||||
POP si
|
||||
POP bp
|
||||
RETF 8
|
||||
|
||||
L2: MOV tmp, dx:ax ;Synthetic inst
|
||||
DIV bx
|
||||
MOD bx ;Synthetic inst
|
||||
TEST di, 2
|
||||
JE L10
|
||||
MOV ax, dx
|
||||
|
||||
L10: XOR dx, dx
|
||||
JMP L9
|
||||
}
|
||||
|
||||
|
||||
long LMOD@ (long arg0, int arg3)
|
||||
/* Takes 8 bytes of parameters.
|
||||
* Runtime support routine of the compiler.
|
||||
* High-level language prologue code.
|
||||
* Untranslatable routine. Assembler provided.
|
||||
* Return value in registers dx:ax.
|
||||
* Pascal calling convention.
|
||||
*/
|
||||
{
|
||||
MOV cx, 2
|
||||
PUSH bp
|
||||
PUSH si
|
||||
PUSH di
|
||||
MOV bp, sp
|
||||
MOV di, cx
|
||||
MOV ax, [bp+0Ah]
|
||||
MOV dx, [bp+0Ch]
|
||||
MOV bx, [bp+0Eh]
|
||||
MOV cx, [bp+10h]
|
||||
CMP cx, 0
|
||||
JNE L1
|
||||
OR dx, dx
|
||||
JE L2
|
||||
OR bx, bx
|
||||
JE L2
|
||||
|
||||
L1: TEST di, 1
|
||||
JNE L3
|
||||
OR dx, dx
|
||||
JNS L4
|
||||
NEG dx
|
||||
NEG ax
|
||||
SBB dx, 0
|
||||
OR di, 0Ch
|
||||
|
||||
L4: OR cx, cx
|
||||
JNS L3
|
||||
NEG cx
|
||||
NEG bx
|
||||
SBB cx, 0
|
||||
XOR di, 4
|
||||
|
||||
L3: MOV bp, cx
|
||||
MOV cx, 20h
|
||||
PUSH di
|
||||
XOR di, 0
|
||||
XOR si, 0
|
||||
|
||||
L5: SHL ax, 1
|
||||
RCL dx, 1
|
||||
RCL si, 1
|
||||
RCL di, 1
|
||||
CMP di, bp
|
||||
JB L6
|
||||
JA L7
|
||||
CMP si, bx
|
||||
JB L6
|
||||
|
||||
L7: SUB si, bx
|
||||
SBB di, bp
|
||||
INC ax
|
||||
|
||||
L6: LOOP L5
|
||||
POP bx
|
||||
TEST bx, 2
|
||||
JE L8
|
||||
MOV ax, si
|
||||
MOV dx, di
|
||||
SHR bx, 1
|
||||
|
||||
L8: TEST bx, 4
|
||||
JE L9
|
||||
NEG dx
|
||||
NEG ax
|
||||
SBB dx, 0
|
||||
|
||||
L9: POP di
|
||||
POP si
|
||||
POP bp
|
||||
RETF 8
|
||||
|
||||
L2: MOV tmp, dx:ax ;Synthetic inst
|
||||
DIV bx
|
||||
MOD bx ;Synthetic inst
|
||||
TEST di, 2
|
||||
JE L10
|
||||
MOV ax, dx
|
||||
|
||||
L10: XOR dx, dx
|
||||
JMP L9
|
||||
}
|
||||
|
||||
|
||||
long LXLSH@ (long arg0, char arg1)
|
||||
/* Uses register arguments:
|
||||
* arg0 = dx:ax.
|
||||
* arg1 = cl.
|
||||
* Runtime support routine of the compiler.
|
||||
*/
|
||||
{
|
||||
int loc1; /* bx */
|
||||
|
||||
if (arg1 < 16) {
|
||||
loc1 = LO(arg0);
|
||||
LO(arg0) = (LO(arg0) << arg1);
|
||||
HI(arg0) = (HI(arg0) << arg1);
|
||||
HI(arg0) = (HI(arg0) | (loc1 >> (!arg1 + 16)));
|
||||
return (arg0);
|
||||
}
|
||||
else {
|
||||
HI(arg0) = LO(arg0);
|
||||
LO(arg0) = 0;
|
||||
HI(arg0) = (HI(arg0) << (arg1 - 16));
|
||||
return (arg0);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
long LXRSH@ (long arg0, char arg1)
|
||||
/* Uses register arguments:
|
||||
* arg0 = dx:ax.
|
||||
* arg1 = cl.
|
||||
* Runtime support routine of the compiler.
|
||||
*/
|
||||
{
|
||||
int loc1; /* bx */
|
||||
|
||||
if (arg1 < 16) {
|
||||
loc1 = HI(arg0);
|
||||
LO(arg0) = (LO(arg0) >> arg1);
|
||||
HI(arg0) = (HI(arg0) >> arg1);
|
||||
LO(arg0) = (LO(arg0) | (loc1 << (!arg1 + 16)));
|
||||
return (arg0);
|
||||
}
|
||||
else {
|
||||
arg0 = HI(arg0);
|
||||
LO(arg0) = (LO(arg0) >> (arg1 - 16));
|
||||
return (arg0);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void main ()
|
||||
/* Takes no parameters.
|
||||
* High-level language prologue code.
|
||||
*/
|
||||
{
|
||||
long loc1;
|
||||
long loc2;
|
||||
loc2 = 255;
|
||||
loc1 = 143;
|
||||
loc1 = (loc2 + loc1);
|
||||
loc2 = (loc2 - loc1);
|
||||
loc2 = LXMUL@ (loc2, loc1);
|
||||
loc1 = LDIV@ (loc1, loc2);
|
||||
loc1 = LMOD@ (loc1, loc2);
|
||||
loc2 = LXLSH@ (loc2, 5);
|
||||
loc1 = LXRSH@ (loc1, loc1);
|
||||
printf ("a = %ld, b = %ld\n", loc2, loc1);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user