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