19 lines
224 B
Plaintext
19 lines
224 B
Plaintext
|
#include "e.h"
|
||
|
|
|
||
|
|
exp $DIV
|
||
|
|
|
||
|
|
pro $DIV,SZWORD
|
||
|
|
loc PASCALSTAMP
|
||
|
|
stl -SZWORD
|
||
|
|
lol SZADDR+SZWORD ; 1st param
|
||
|
|
loc SZWORD
|
||
|
|
loc SZREAL
|
||
|
|
cif
|
||
|
|
lol SZADDR ; 2nd param
|
||
|
|
loc SZWORD
|
||
|
|
loc SZREAL
|
||
|
|
cif
|
||
|
|
dvf SZREAL
|
||
|
|
ret SZREAL
|
||
|
|
end SZWORD
|