Return to sfword.s CVS log

Up to [MW Coherent from dump] / coherent / d / 286_KERNEL / USRSRC / ldrv

Annotation of coherent/d/286_KERNEL/USRSRC/ldrv/sfword.s, revision 1.1.1.1

1.1       root        1: / $Header: /usr/src/sys/ldrv/RCS/sfword.s,v 1.1 88/03/24 16:31:11 src Exp $
                      2: /
                      3: /      The  information  contained herein  is a trade secret  of INETCO
                      4: /      Systems, and is confidential information.   It is provided under
                      5: /      a license agreement,  and may be copied or disclosed  only under
                      6: /      the terms of that agreement.   Any reproduction or disclosure of
                      7: /      this  material  without  the express  written  authorization  of
                      8: /      INETCO Systems or persuant to the license agreement is unlawful.
                      9: /
                     10: /      Copyright (c) 1986
                     11: /      An unpublished work by INETCO Systems, Ltd.
                     12: /      All rights reserved.
                     13: /
                     14: / $Log:        /usr/src/sys/ldrv/RCS/sfword.s,v $
                     15: / Revision 1.1 88/03/24  16:31:11      src
                     16: / Initial revision
                     17: / 
                     18: /
                     19: ////////
                     20: 
                     21: ////////
                     22: /
                     23: / sfword( fp, w )      -- set far word
                     24: / int far * fp;
                     25: / int w;
                     26: /
                     27: ////////
                     28: 
                     29:        .globl  sfword_
                     30: 
                     31: sfword_:push   es              / sfword( fp, w )
                     32:        push    di              / register int far * fp;        /* ES:DI */
                     33:        push    bp              / register int w;               /* AX */
                     34:        mov     bp, sp          / {
                     35:        les     di, 8(bp)       /
                     36:        mov     ax, 12(bp)      /
                     37:                                /
                     38:        mov     es:(di), ax     /       *fp = w;
                     39:                                /
                     40:        pop     bp              / }
                     41:        pop     di
                     42:        pop     es
                     43:        ret

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