Return to sfbyte.s CVS log

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

Annotation of coherent/d/286_KERNEL/USRSRC/ldrv/sfbyte.s, revision 1.1

1.1     ! root        1: / $Header: /usr/src/sys/ldrv/RCS/sfbyte.s,v 1.1 88/03/24 16:31:05 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/sfbyte.s,v $
        !            15: / Revision 1.1 88/03/24  16:31:05      src
        !            16: / Initial revision
        !            17: / 
        !            18: /
        !            19: ////////
        !            20: 
        !            21: ////////
        !            22: /
        !            23: / sfbyte( fp, b )      -- set far byte
        !            24: / char far * fp;
        !            25: / char b;
        !            26: /
        !            27: ////////
        !            28: 
        !            29:        .globl  sfbyte_
        !            30: 
        !            31: sfbyte_:push   es              / sfbyte( fp, c )
        !            32:        push    di              / register char far * fp;       /* ES:DI */
        !            33:        push    bp              / register char c;              /* AX */
        !            34:        mov     bp, sp          / {
        !            35:        les     di, 8(bp)       /
        !            36:        mov     ax, 12(bp)      /
        !            37:                                /
        !            38:        movb    es:(di), al     /       *fp = c;
        !            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.