Return to canon.m CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / gen / i8086

Annotation of coherent/b/lib/libc/gen/i8086/canon.m, revision 1.1.1.1

1.1       root        1: //////////
                      2: / MWC86 runtime.
                      3: / Transform a long to canonical format.
                      4: //////////
                      5: 
                      6: ////////
                      7: / long _canl(l);
                      8: / long l;
                      9: ////////
                     10: 
                     11: #include <larges.h>
                     12: 
                     13: low    =       RASIZE
                     14: high   =       low+2
                     15: 
                     16:        .globl  _canl_
                     17: 
                     18: _canl_:
                     19:        mov     bx, sp
                     20:        mov     dx, Pss low(bx)         / lo part of arg is hi return value
                     21:        mov     ax, Pss high(bx)        / hi part of arg is lo return value
                     22:        Gret
                     23: 
                     24: / end of canon.m

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.