blob: 06e6643d4378a47cfaff124092a9462c6320848c (
plain)
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
|
;--------------------------------------------------------------
;
; Code Generation Helper
; For the Zilog eZ80 C Compiler
; Copyright 1992-2008 Zilog, Inc.
;
;--------------------------------------------------------------
;--------------------------------------------------------------
;
; IEEE Negate.
;
; INPUTS:
; AuBC: 32-bit IEEE Single Precision.
;
; OUTPUTS:
; AuBC: 32-bit IEEE Single Precision.
;
;--------------------------------------------------------------
.def __fneg
.assume adl=1
__fneg:
or a,a
jr nz,__noexit
push hl
sbc hl,hl
sbc hl,bc
pop hl
ret z
__noexit:
xor a,80h
ret
|