|
|
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.