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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [libgloss/] [m68hc11/] [sci-inout.S] - Blame information for rev 258

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


/* M68HC11/M68HC12 serial line operations
 * Copyright (C) 1999, 2001, 2003, 2004 Stephane Carrez (stcarrez@nerim.fr)
 *
 * 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.
 */
 
#ifdef __HAVE_SHORT_INT__
        .mode mshort
#else
        .mode mlong
#endif
 
#if defined(__USE_RTC__)
        .macro ret
#if defined(mc68hc12)
        rtc
#else
        jmp __return_32
#endif
        .endm
#else
        .macro ret
        rts
        .endm
#endif
#ifdef mc68hc12
        SC0CR1 = 0xC2
        SC0CR2 = 0xC3
        SC0SR1 = 0xC4
        SC0DRL = 0xC7
        SC0BD  = 0xC0
 
        .sect .data
        .globl _m68hc12_ports
_m68hc12_ports: .word   0
 
        .sect .text
        .globl outbyte
;;;
;;; int outbyte(char c);
;;;
;;; B : Character to send
;;;
outbyte:
        bsr     _sci_init
L1:
        ldaa    SC0SR1,x
        bge     L1
        stab    SC0DRL,x
        ldab    SC0CR2,x
        orab    #0x8
        stab    SC0CR2,x
        ret
 
        .sect .text
        .globl inbyte
;;;
;;; char inbyte(void);
;;;
inbyte:
        bsr     _sci_init
        ldaa    SC0SR1,x
        bita    #0x20
        beq     inbyte
        ldab    SC0CR2,x
        ret
 
        .globl _sci_init
        .sect .text
_sci_init:
        ldx     _m68hc12_ports
        beq     do_init
        dex
        rts
do_init:
        ldx     #0x1
        stx     _m68hc12_ports
        dex
        ldd     #26
        std     SC0BD,x
        ldaa    #0
        staa    SC0CR1,x
        ldaa    #0xC
        staa    SC0CR2,x
        rts
#else
        BAUD = 0x2b
        SCCR1= 0x2c
        SCCR2= 0x2d
        SCSR = 0x2e
        SCDR = 0x2f
 
        .sect .data
        .globl _m68hc11_ports
_m68hc11_ports: .word   0
 
        .sect .text
        .globl outbyte
;;;
;;; int outbyte(char c);
;;;
;;; B : Character to send
;;;
outbyte:
        bsr     _sci_init
L1:
        ldaa    SCSR,x
        bge     L1
        stab    SCDR,x
        ldab    SCCR2,x
        orab    #0x8
        stab    SCCR2,x
        ret
 
        .sect .text
        .globl inbyte
;;;
;;; char inbyte(void);
;;;
inbyte:
        bsr     _sci_init
        ldaa    SCSR,x
        bita    #0x20
        beq     inbyte
        ldab    SCDR,x
        ret
 
        .globl _sci_init
        .sect .text
_sci_init:
        ldx     _m68hc11_ports
        beq     do_init
        rts
do_init:
        ldx     #0x1000
        stx     _m68hc11_ports
        ldaa    #0x30
        staa    BAUD,x
        clra
        staa    SCCR1,x
        ldaa    #0xC
        staa    SCCR2,x
        rts
 
#endif

Line No.	Rev	Author	Line
1	207	jeremybenn	`/* M68HC11/M68HC12 serial line operations`
2			`* Copyright (C) 1999, 2001, 2003, 2004 Stephane Carrez (stcarrez@nerim.fr)`
3			`*`
4			`* The authors hereby grant permission to use, copy, modify, distribute,`
5			`* and license this software and its documentation for any purpose, provided`
6			`* that existing copyright notices are retained in all copies and that this`
7			`* notice is included verbatim in any distributions. No written agreement,`
8			`* license, or royalty fee is required for any of the authorized uses.`
9			`* Modifications to this software may be copyrighted by their authors`
10			`* and need not follow the licensing terms described here, provided that`
11			`* the new terms are clearly indicated on the first page of each file where`
12			`* they apply.`
13			`*/`
14
15			`#ifdef __HAVE_SHORT_INT__`
16			`.mode mshort`
17			`#else`
18			`.mode mlong`
19			`#endif`
20
21			`#if defined(__USE_RTC__)`
22			`.macro ret`
23			`#if defined(mc68hc12)`
24			`rtc`
25			`#else`
26			`jmp __return_32`
27			`#endif`
28			`.endm`
29			`#else`
30			`.macro ret`
31			`rts`
32			`.endm`
33			`#endif`
34			`#ifdef mc68hc12`
35			`SC0CR1 = 0xC2`
36			`SC0CR2 = 0xC3`
37			`SC0SR1 = 0xC4`
38			`SC0DRL = 0xC7`
39			`SC0BD = 0xC0`
40
41			`.sect .data`
42			`.globl _m68hc12_ports`
43			`_m68hc12_ports: .word 0`
44
45			`.sect .text`
46			`.globl outbyte`
47			`;;;`
48			`;;; int outbyte(char c);`
49			`;;;`
50			`;;; B : Character to send`
51			`;;;`
52			`outbyte:`
53			`bsr _sci_init`
54			`L1:`
55			`ldaa SC0SR1,x`
56			`bge L1`
57			`stab SC0DRL,x`
58			`ldab SC0CR2,x`
59			`orab #0x8`
60			`stab SC0CR2,x`
61			`ret`
62
63			`.sect .text`
64			`.globl inbyte`
65			`;;;`
66			`;;; char inbyte(void);`
67			`;;;`
68			`inbyte:`
69			`bsr _sci_init`
70			`ldaa SC0SR1,x`
71			`bita #0x20`
72			`beq inbyte`
73			`ldab SC0CR2,x`
74			`ret`
75
76			`.globl _sci_init`
77			`.sect .text`
78			`_sci_init:`
79			`ldx _m68hc12_ports`
80			`beq do_init`
81			`dex`
82			`rts`
83			`do_init:`
84			`ldx #0x1`
85			`stx _m68hc12_ports`
86			`dex`
87			`ldd #26`
88			`std SC0BD,x`
89			`ldaa #0`
90			`staa SC0CR1,x`
91			`ldaa #0xC`
92			`staa SC0CR2,x`
93			`rts`
94			`#else`
95			`BAUD = 0x2b`
96			`SCCR1= 0x2c`
97			`SCCR2= 0x2d`
98			`SCSR = 0x2e`
99			`SCDR = 0x2f`
100
101			`.sect .data`
102			`.globl _m68hc11_ports`
103			`_m68hc11_ports: .word 0`
104
105			`.sect .text`
106			`.globl outbyte`
107			`;;;`
108			`;;; int outbyte(char c);`
109			`;;;`
110			`;;; B : Character to send`
111			`;;;`
112			`outbyte:`
113			`bsr _sci_init`
114			`L1:`
115			`ldaa SCSR,x`
116			`bge L1`
117			`stab SCDR,x`
118			`ldab SCCR2,x`
119			`orab #0x8`
120			`stab SCCR2,x`
121			`ret`
122
123			`.sect .text`
124			`.globl inbyte`
125			`;;;`
126			`;;; char inbyte(void);`
127			`;;;`
128			`inbyte:`
129			`bsr _sci_init`
130			`ldaa SCSR,x`
131			`bita #0x20`
132			`beq inbyte`
133			`ldab SCDR,x`
134			`ret`
135
136			`.globl _sci_init`
137			`.sect .text`
138			`_sci_init:`
139			`ldx _m68hc11_ports`
140			`beq do_init`
141			`rts`
142			`do_init:`
143			`ldx #0x1000`
144			`stx _m68hc11_ports`
145			`ldaa #0x30`
146			`staa BAUD,x`
147			`clra`
148			`staa SCCR1,x`
149			`ldaa #0xC`
150			`staa SCCR2,x`
151			`rts`
152
153			`#endif`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [libgloss/] [m68hc11/] [sci-inout.S] - Blame information for rev 258