| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116 |
- ; Static Name Aliases
- ;
- TITLE polevl
- _TEXT SEGMENT BYTE PUBLIC 'CODE'
- _TEXT ENDS
- CONST SEGMENT WORD PUBLIC 'CONST'
- CONST ENDS
- _BSS SEGMENT WORD PUBLIC 'BSS'
- _BSS ENDS
- _DATA SEGMENT WORD PUBLIC 'DATA'
- _DATA ENDS
- DGROUP GROUP CONST, _BSS, _DATA
- ASSUME CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
- PUBLIC _polevl
- PUBLIC _p1evl
- _DATA SEGMENT
- EXTRN __chkstk:NEAR
- EXTRN __fac:NEAR
- EXTRN __fltused:NEAR
- $T20001 DQ 0000000000H ; .0000000000000000
- ans DQ 0
- ctrlw DW 0
- _DATA ENDS
- _TEXT SEGMENT
- PUBLIC _polevl
- _polevl PROC NEAR
- push bp
- mov bp,sp
- mov ax,12
- call __chkstk
- push si
- mov si,[bp+12]
- ; fstcw ctrlw
- ; fwait
- ; mov ax,ctrlw
- ; or ax,00100h
- ; mov ctrlw,ax
- ; fldcw ctrlw
- fldz
- fwait
- mov ax,[bp+14]
- inc ax
- mov [bp-12],ax
- $D15:
- fmul QWORD PTR [bp+4]
- add si,8
- fwait
- fadd QWORD PTR [si-8]
- fwait
- dec WORD PTR [bp-12]
- jne $D15
- fstp ans
- ; fstcw ctrlw
- ; fwait
- ; mov ax,ctrlw
- ; and ax,0feffh
- ; mov ctrlw,ax
- ; fldcw ctrlw
- lea ax, ans
- fwait
- pop si
- mov sp,bp
- pop bp
- ret
- _polevl ENDP
- PUBLIC _p1evl
- _p1evl PROC NEAR
- push bp
- mov bp,sp
- mov ax,12
- call __chkstk
- push si
- ; fstcw ctrlw
- ; fwait
- ; mov ax,ctrlw
- ; or ax,00100h
- ; mov ctrlw,ax
- ; fldcw ctrlw
- mov si,[bp+12]
- fld QWORD PTR [bp+4]
- add si,8
- fadd QWORD PTR [si-8]
- fwait
- mov ax,[bp+14]
- dec ax
- mov [bp-12],ax
- $D26:
- fmul QWORD PTR [bp+4]
- add si,8
- fadd QWORD PTR [si-8]
- fwait
- dec WORD PTR [bp-12]
- jne $D26
- fstp ans
- lea ax, ans
- ; fstcw ctrlw
- ; fwait
- ; mov ax,ctrlw
- ; and ax,0feffh
- ; mov ctrlw,ax
- ; fldcw ctrlw
- fwait
- pop si
- mov sp,bp
- pop bp
- ret
- _p1evl ENDP
- _TEXT ENDS
- END
|
