|
|
1.1 ! root 1: //////// ! 2: / ! 3: / Intel 8086 runtime. ! 4: / SMALL model. ! 5: / ! 6: //////// ! 7: ! 8: .globl lrmul ! 9: .globl llmul ! 10: .globl vrmul ! 11: .globl lrsgn ! 12: .globl llsgn ! 13: ! 14: //////// ! 15: / ! 16: / long ! 17: / lrmul(a, b); ! 18: / long a; ! 19: / long b; ! 20: / ! 21: / long ! 22: / llmul(a, p); ! 23: / long a; ! 24: / long *p; ! 25: / ! 26: / these routines perform long multiplication. they are called from ! 27: / the generated code whenever a long multiplication is found in the ! 28: / user's program. ! 29: / ! 30: / both of these routines are just interfaces to the unsigned long ! 31: / multiply routine via the long sign adjusters. ! 32: / ! 33: //////// ! 34: ! 35: lrmul: mov ax,$vrmul / get pointer to multiply code ! 36: jmp lrsgn / and do the operation. ! 37: ! 38: llmul: mov ax,$vrmul / get pointer to multiply code ! 39: jmp llsgn / and do the operation.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.