Return to inout.m CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / gen / i8086

Annotation of coherent/b/lib/libc/gen/i8086/inout.m, revision 1.1.1.1

1.1       root        1: ////////
                      2: / MSDOS MWC86 runtime.
                      3: / Read and write from port.
                      4: ////////
                      5: 
                      6: #include <larges.h>
                      7: 
                      8: ////////
                      9: / int
                     10: / in(port);
                     11: / int port;
                     12: /
                     13: / Read a word from the specified port.
                     14: ////////
                     15: 
                     16: port   =       RASIZE
                     17: 
                     18:        .globl  in_
                     19: 
                     20: in_:
                     21:        mov     bx, sp
                     22:        mov     dx, Pss port(bx)        / dx = port address
                     23:        in      ax, dx                  / Read the port.
                     24:        Gret
                     25: 
                     26: ////////
                     27: / int
                     28: / inb(port);
                     29: / int port;
                     30: /
                     31: / Read a byte from the specified port.
                     32: ////////
                     33: 
                     34: port   =       RASIZE
                     35: 
                     36:        .globl  inb_
                     37: 
                     38: inb_:
                     39:        mov     bx, sp
                     40:        mov     dx, Pss port(bx)        / dx = port address
                     41:        inb     al, dx                  / Read from the port and
                     42:        subb    ah, ah                  / convert to integer.
                     43:        Gret
                     44: 
                     45: ////////
                     46: / int
                     47: / out(port, data);
                     48: / int port;
                     49: / int data;
                     50: /
                     51: / Write the word "data" to port "port".
                     52: / Return "data".
                     53: ////////
                     54: 
                     55: port   =       RASIZE
                     56: data   =       port+2
                     57: 
                     58:        .globl  out_
                     59: out_:
                     60:        mov     bx, sp
                     61:        mov     dx, Pss port(bx)        / dx = port address
                     62:        mov     ax, Pss data(bx)        / ax = data
                     63:        out     dx, ax                  / Send data to the port.
                     64:        Gret
                     65: 
                     66: ////////
                     67: / int
                     68: / outb(port, data);
                     69: / int port;
                     70: / int data;
                     71: /
                     72: / Write the low byte of "data" to port "port".
                     73: / Return "data".
                     74: ////////
                     75: 
                     76: port   =       RASIZE
                     77: data   =       port+2
                     78: 
                     79:        .globl  outb_
                     80: 
                     81: outb_:
                     82:        mov     bx, sp
                     83:        mov     dx, Pss port(bx)        / dx = port address
                     84:        movb    al, Pss data(bx)        / al = data
                     85:        subb    ah, ah                  / Convert to integer.
                     86:        outb    dx, al                  / Send data to the port.
                     87:        Gret
                     88: 
                     89: / end of inout.m

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