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

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.