URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [libgloss/] [pa/] [op50n-io.S] - Blame information for rev 1777

Go to most recent revision | Details | Compare with Previous | View Log


/* op50n-io.S -- low-level I/O routines for the Oki OP50N eval board.
 *
 * Copyright (c) 1995 Cygnus Support
 *
 * The authors hereby grant permission to use, copy, modify, distribute,
 * and license this software and its documentation for any purpose, provided
 * that existing copyright notices are retained in all copies and that this
 * notice is included verbatim in any distributions. No written agreement,
 * license, or royalty fee is required for any of the authorized uses.
 * Modifications to this software may be copyrighted by their authors
 * and need not follow the licensing terms described here, provided that
 * the new terms are clearly indicated on the first page of each file where
 * they apply.
 */
 
mon_start       .EQU    0xd0000000
where_dp        .EQU    mon_start+4*4
where_ci        .EQU    mon_start+14*4
where_co        .EQU    mon_start+15*4
where_read      .EQU    mon_start+22*4
where_write     .EQU    mon_start+23*4
 
/*
 *int c = inbyte(wait);
 */
        .space $TEXT$
        .align 4
        .EXPORT inbyte,CODE,ARGW0=GR,RTNVAL=GR
inbyte
        .PROC
        .CALLINFO CALLER,FRAME=64,SAVE_RP
        .ENTRY
        stw     %r2,-20(0,%r30)
        ldo     64(%r30),%r30
        stw     %r27,-56(0,%r30)        ; save my dp
        ldil    l%where_dp,%r27         ; load monitors dp
        ldw     r%where_dp(0,%r27),%r27
        ldil    l%where_ci,%r1
        ldw     r%where_ci(0,%r1),%r1
        ble     0(0,%r1)
        copy    %r31,%r2
        ldw     -56(0,%r30),%r27        ; load my dp
        ldw     -84(0,%r30),%r2
        ldo     -64(%r30),%r30
        bv      %r0(%r2)
        nop
        .EXIT
        .PROCEND
 
/* int c = outbyte(c);
*/
        .EXPORT outbyte,CODE,ARGW0=GR,RTNVAL=GR
outbyte
        .PROC
        .CALLINFO CALLER,FRAME=64,SAVE_RP
        .ENTRY
        stw     %r2,-20(0,%r30)
        ldo     64(%r30),%r30
        stw     %r27,-56(0,%r30)        ; save my dp
        ldil    l%where_dp,%r27         ; load monitors dp
        ldw     r%where_dp(0,%r27),%r27
        ldil    l%where_co,%r1
        ldw     r%where_co(0,%r1),%r1
        ble     0(0,%r1)
        copy    %r31,%r2
        ldw     -56(0,%r30),%r27        ; load my dp
        ldw     -84(0,%r30),%r2
        ldo     -64(%r30),%r30
        bv      %r0(%r2)
        nop
        .EXIT
        .PROCEND
 
#if 0
/* cnt = read(fd, bufp, cnt);
*/
        .EXPORT read,CODE,ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO,RTNVAL=NO
read
        .PROC
        .CALLINFO FRAME=64,CALLS,SAVE_RP
        .ENTRY
        stw     %r2,-20(0,%r30)
        ldo     64(%r30),%r30
        stw     %dp,-56(0,%r30) ; save my dp
        ldil    l%where_dp,%dp  ; load monitors dp
        ldw     r%where_dp(0,%dp), %dp
        ldil    l%where_read,%r1
        ldw     r%where_read(0,%r1), %r1
        ble     0(0,%r1)
        copy    %r31,%r2
        ldw     -56(0,%r30),%dp ; load my dp
        ldw     -84(0,%r30),%r2
        bv      %r0(%r2)
        ldo     -64(%r30),%r30
        .EXIT
        .PROCEND
 
/* cnt = write(fd, bufp, cnt);
*/
        .EXPORT write,CODE,ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO,RTNVAL=NO
write
        .PROC
        .CALLINFO FRAME=64,CALLS,SAVE_RP
        .ENTRY
        stw     %r2,-20(0,%r30)
        ldo     64(%r30),%r30
        stw     %dp,-56(0,%r30) ; save my dp
        ldil    l%where_dp,%dp  ; load monitors dp
        ldw     r%where_dp(0,%dp), %dp
        ldil    l%where_write,%r1
        ldw     r%where_write(0,%r1), %r1
        ble     0(0,%r1)
        copy    %r31,%r2
        ldw     -56(0,%r30),%dp ; load my dp
        ldw     -84(0,%r30),%r2
        bv      %r0(%r2)
        ldo     -64(%r30),%r30
        .EXIT
        .PROCEND
#endif

Line No.	Rev	Author	Line
1	39	lampret	`/* op50n-io.S -- low-level I/O routines for the Oki OP50N eval board.`
2			`*`
3			`* Copyright (c) 1995 Cygnus Support`
4			`*`
5			`* The authors hereby grant permission to use, copy, modify, distribute,`
6			`* and license this software and its documentation for any purpose, provided`
7			`* that existing copyright notices are retained in all copies and that this`
8			`* notice is included verbatim in any distributions. No written agreement,`
9			`* license, or royalty fee is required for any of the authorized uses.`
10			`* Modifications to this software may be copyrighted by their authors`
11			`* and need not follow the licensing terms described here, provided that`
12			`* the new terms are clearly indicated on the first page of each file where`
13			`* they apply.`
14			`*/`
15
16			`mon_start .EQU 0xd0000000`
17			`where_dp .EQU mon_start+4*4`
18			`where_ci .EQU mon_start+14*4`
19			`where_co .EQU mon_start+15*4`
20			`where_read .EQU mon_start+22*4`
21			`where_write .EQU mon_start+23*4`
22
23			`/*`
24			`*int c = inbyte(wait);`
25			`*/`
26			`.space $TEXT$`
27			`.align 4`
28			`.EXPORT inbyte,CODE,ARGW0=GR,RTNVAL=GR`
29			`inbyte`
30			`.PROC`
31			`.CALLINFO CALLER,FRAME=64,SAVE_RP`
32			`.ENTRY`
33			`stw %r2,-20(0,%r30)`
34			`ldo 64(%r30),%r30`
35			`stw %r27,-56(0,%r30) ; save my dp`
36			`ldil l%where_dp,%r27 ; load monitors dp`
37			`ldw r%where_dp(0,%r27),%r27`
38			`ldil l%where_ci,%r1`
39			`ldw r%where_ci(0,%r1),%r1`
40			`ble 0(0,%r1)`
41			`copy %r31,%r2`
42			`ldw -56(0,%r30),%r27 ; load my dp`
43			`ldw -84(0,%r30),%r2`
44			`ldo -64(%r30),%r30`
45			`bv %r0(%r2)`
46			`nop`
47			`.EXIT`
48			`.PROCEND`
49
50			`/* int c = outbyte(c);`
51			`*/`
52			`.EXPORT outbyte,CODE,ARGW0=GR,RTNVAL=GR`
53			`outbyte`
54			`.PROC`
55			`.CALLINFO CALLER,FRAME=64,SAVE_RP`
56			`.ENTRY`
57			`stw %r2,-20(0,%r30)`
58			`ldo 64(%r30),%r30`
59			`stw %r27,-56(0,%r30) ; save my dp`
60			`ldil l%where_dp,%r27 ; load monitors dp`
61			`ldw r%where_dp(0,%r27),%r27`
62			`ldil l%where_co,%r1`
63			`ldw r%where_co(0,%r1),%r1`
64			`ble 0(0,%r1)`
65			`copy %r31,%r2`
66			`ldw -56(0,%r30),%r27 ; load my dp`
67			`ldw -84(0,%r30),%r2`
68			`ldo -64(%r30),%r30`
69			`bv %r0(%r2)`
70			`nop`
71			`.EXIT`
72			`.PROCEND`
73
74			`#if 0`
75			`/* cnt = read(fd, bufp, cnt);`
76			`*/`
77			`.EXPORT read,CODE,ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO,RTNVAL=NO`
78			`read`
79			`.PROC`
80			`.CALLINFO FRAME=64,CALLS,SAVE_RP`
81			`.ENTRY`
82			`stw %r2,-20(0,%r30)`
83			`ldo 64(%r30),%r30`
84			`stw %dp,-56(0,%r30) ; save my dp`
85			`ldil l%where_dp,%dp ; load monitors dp`
86			`ldw r%where_dp(0,%dp), %dp`
87			`ldil l%where_read,%r1`
88			`ldw r%where_read(0,%r1), %r1`
89			`ble 0(0,%r1)`
90			`copy %r31,%r2`
91			`ldw -56(0,%r30),%dp ; load my dp`
92			`ldw -84(0,%r30),%r2`
93			`bv %r0(%r2)`
94			`ldo -64(%r30),%r30`
95			`.EXIT`
96			`.PROCEND`
97
98			`/* cnt = write(fd, bufp, cnt);`
99			`*/`
100			`.EXPORT write,CODE,ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO,RTNVAL=NO`
101			`write`
102			`.PROC`
103			`.CALLINFO FRAME=64,CALLS,SAVE_RP`
104			`.ENTRY`
105			`stw %r2,-20(0,%r30)`
106			`ldo 64(%r30),%r30`
107			`stw %dp,-56(0,%r30) ; save my dp`
108			`ldil l%where_dp,%dp ; load monitors dp`
109			`ldw r%where_dp(0,%dp), %dp`
110			`ldil l%where_write,%r1`
111			`ldw r%where_write(0,%r1), %r1`
112			`ble 0(0,%r1)`
113			`copy %r31,%r2`
114			`ldw -56(0,%r30),%dp ; load my dp`
115			`ldw -84(0,%r30),%r2`
116			`bv %r0(%r2)`
117			`ldo -64(%r30),%r30`
118			`.EXIT`
119			`.PROCEND`
120			`#endif`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [libgloss/] [pa/] [op50n-io.S] - Blame information for rev 1777