Return to ATclockas.s CVS log

Up to [MW Coherent from dump] / coherent / d / etc

Annotation of coherent/d/etc/ATclockas.s, revision 1.1

1.1     ! root        1: /
        !             2: /      The  information  contained herein  is a trade secret  of INETCO
        !             3: /      Systems, and is confidential information.   It is provided under
        !             4: /      a license agreement,  and may be copied or disclosed  only under
        !             5: /      the terms of that agreement.   Any reproduction or disclosure of
        !             6: /      this  material  without  the express  written  authorization  of
        !             7: /      INETCO Systems or persuant to the license agreement is unlawful.
        !             8: /
        !             9: /      Copyright (c) 1985
        !            10: /      An unpublished work by INETCO Systems, Ltd.
        !            11: /      All rights reserved.
        !            12: /
        !            13: 
        !            14: /      Used for setting and reading the AT clock (circa Sept 1985)
        !            15: /
        !            16: /                                      Krish Nair (Sept 1985)
        !            17: 
        !            18: .globl zput_
        !            19: .globl zget_
        !            20: .globl sphi_
        !            21: .globl splo_
        !            22: 
        !            23: //////////////////////////////
        !            24: / zput will write the 1st argument to 0x70 and then write the 
        !            25: / 2nd argument to 0x71
        !            26: /////////////////////
        !            27: 
        !            28: zput_: mov     bx, sp
        !            29:        mov     ax, 2(bx)
        !            30:        mov     dx, $0x70
        !            31:        cli
        !            32:        outb    dx, al
        !            33:        inc     dx
        !            34:        mov     ax, 4(bx)
        !            35:        outb    dx, al
        !            36:        sti
        !            37:        ret
        !            38: 
        !            39: //////////////////////////
        !            40: / zput get will write the argument to 0x70 and then read 0x71
        !            41: /////////////////
        !            42: 
        !            43: zget_: mov     bx, sp
        !            44:        mov     ax, 2(bx)
        !            45:        mov     dx, $0x70
        !            46:        cli
        !            47:        outb    dx, al
        !            48:        jmp     0f
        !            49:      0: inc    dx
        !            50:        inb     al, dx
        !            51:        sti
        !            52:        ret
        !            53: 
        !            54: ////////////////////
        !            55: / sphi will disable interrupts
        !            56: //////////
        !            57: 
        !            58: sphi_: cli
        !            59:        ret
        !            60: 
        !            61: ///////////////////
        !            62: / splo will enable interrupts
        !            63: ///////////////
        !            64: 
        !            65: splo_: sti
        !            66:        ret

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