mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
20 lines
480 B
Plaintext
20 lines
480 B
Plaintext
/******************************************************/
|
|
/* This program tests an assembly language routine to */
|
|
/* do floating point division. */
|
|
/******************************************************/
|
|
dtest:
|
|
procedure options(main);
|
|
declare
|
|
div2 entry(fixed(7),float),
|
|
i fixed(7),
|
|
f float;
|
|
|
|
do i = 0 by 1;
|
|
f = 100;
|
|
call div2(i,f);
|
|
put skip list('100 / 2 **',i,'=',f);
|
|
end;
|
|
|
|
end dtest;
|
|
|