|
|
1.1 root 1: ////////
2: /
3: / Intel 8086 C runtime.
4: / Zero the _fpac_.
5: / SMALL model.
6: /
7: ////////
8:
9: .globl dzero
10: .globl _fpac_
11:
12: ////////
13: /
14: / dzero()
15: / Returns 0 in AX, 0. in _fpac_.
16: /
17: ////////
18:
19: dzero:
20: push di
21:
22: mov di, $_fpac_
23: sub ax, ax
24: cld
25: stosw
26: stosw
27: stosw
28: stosw
29:
30: pop di
31: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.