Return to spl.s CVS log

Up to [MW Coherent from dump] / coherent / b / kernel / ldrv

Annotation of coherent/b/kernel/ldrv/spl.s, revision 1.1.1.1

1.1       root        1: / $Header: /kernel/kersrc/ldrv/RCS/spl.s,v 1.1 92/07/17 15:28:09 bin Exp Locker: bin $
                      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) 1988
                     11: /      An unpublished work by INETCO Systems, Ltd.
                     12: /      All rights reserved.
                     13: /
                     14: / $Log:        spl.s,v $
                     15: / Revision 1.1  92/07/17  15:28:09  bin
                     16: / Initial revision
                     17: /
                     18: / Revision 1.1 88/03/24  16:31:16      src
                     19: / Initial revision
                     20: / 
                     21: /
                     22: ////////
                     23: 
                     24: ////////
                     25: /
                     26: / Change interrupt flag.  Previous value is returned.
                     27: /
                     28: ////////
                     29:        .globl  spl_
                     30: 
                     31: spl_:
                     32:        pop     ax                      / ip
                     33:        pop     bx                      / psw
                     34:        push    bx
                     35:        push    bx                      / push psw, cs, ip for iret
                     36:        push    cs
                     37:        push    ax
                     38:        pushf                           / old psw
                     39:        pop     ax
                     40:        iret

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