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

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [core/] [sim/] [rtl_sim/] [src/] [op_modes.s43] - Blame information for rev 19

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


/*===========================================================================*/
/* Copyright (C) 2001 Authors                                                */
/*                                                                           */
/* This source file may be used and distributed without restriction provided */
/* that this copyright statement is not removed from the file and that any   */
/* derivative work contains the original copyright notice and the associated */
/* disclaimer.                                                               */
/*                                                                           */
/* This source file is free software; you can redistribute it and/or modify  */
/* it under the terms of the GNU Lesser General Public License as published  */
/* by the Free Software Foundation; either version 2.1 of the License, or    */
/* (at your option) any later version.                                       */
/*                                                                           */
/* This source is distributed in the hope that it will be useful, but WITHOUT*/
/* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or     */
/* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public       */
/* License for more details.                                                 */
/*                                                                           */
/* You should have received a copy of the GNU Lesser General Public License  */
/* along with this source; if not, write to the Free Software Foundation,    */
/* Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA        */
/*                                                                           */
/*===========================================================================*/
/*                            CPU OPERATING MODES                            */
/*---------------------------------------------------------------------------*/
/* Test the CPU Operating modes:                                             */
/*                                 - CPUOFF (<=> R2[4]): turn off CPU.       */
/*                                 - OSCOFF (<=> R2[5]): turn off LFXT_CLK.  */
/*                                 - SCG1   (<=> R2[7]): turn off SMCLK.     */
/*                                                                           */
/* Author(s):                                                                */
/*             - Olivier Girard,    olgirard@gmail.com                       */
/*                                                                           */
/*---------------------------------------------------------------------------*/
/* $Rev: 19 $                                                                */
/* $LastChangedBy: olivier.girard $                                          */
/* $LastChangedDate: 2009-08-04 23:47:15 +0200 (Tue, 04 Aug 2009) $          */
/*===========================================================================*/
 
.global main
 
.set   P1IN,  0x0020
.set   P1OUT, 0x0021
.set   P1DIR, 0x0022
.set   P1IFG, 0x0023
.set   P1IES, 0x0024
.set   P1IE,  0x0025
.set   P1SEL, 0x0026
.set   P2IN,  0x0028
.set   P2OUT, 0x0029
.set   P2DIR, 0x002A
.set   P2IFG, 0x002B
.set   P2IES, 0x002C
.set   P2IE,  0x002D
.set   P2SEL, 0x002E
 
.set   BCSCTL1, 0x0057
.set   BCSCTL2, 0x0058
 
 
WAIT_FUNC:
        dec r14
        jnz WAIT_FUNC
        ret
 
main:
        ; Enable GPIO interrupts on P1[0]
        mov.b #0x00, &P1DIR
        mov.b #0x00, &P1IFG
        mov.b #0x00, &P1IES
        mov.b #0x01, &P1IE
 
        ; Initialize stack and enable global interrupts
        mov   #0x0250, r1
        eint
 
        mov    #0x1000, r15
 
 
        /* -------------- SCG1   (<=> R2[7]): turn off SMCLK --------------- */
 
        mov.b  #0x06, &BCSCTL2  ; # Div /8
 
        mov    #0x0008, r2      ; # SCG1=0 (SMCLK on)
        mov    #0x1001, r15
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov    #0x0088, r2      ; # SCG1=1 (SMCLK off)
        mov    #0x1002, r15
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov    #0x1003, r15      ; # SCG1=1 (SMCLK off) with IRQ
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov    #0x1004, r15      ; # SCG1=1 (SMCLK off) return from IRQ
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov    #0x0008, r2      ; # SCG1=0 (SMCLK on)
        mov    #0x1005, r15
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov     #0x2000, r15
 
 
        /* -------------- OSCOFF (<=> R2[5]): turn off LFXT1CLK --------------- */
 
        mov.b  #0x00, &BCSCTL2  ; # Div /1 --> select DCOCLK
        mov    #0x0008, r2      ; # OSCOFF=0 (LFXT1 on)
        mov    #0x2001, r15
        mov    #0x0050, r14
        call   #WAIT_FUNC
 
        mov.b  #0x00, &BCSCTL2  ; # Div /1 --> select DCOCLK
        mov    #0x0028, r2      ; # OSCOFF=1 (LFXT1 off)
        mov    #0x2002, r15
        mov    #0x0050, r14
        call   #WAIT_FUNC
 
        mov    #0x2003, r15      ; # OSCOFF=1 (LFXT1 off) with IRQ
        mov    #0x0050, r14
        call   #WAIT_FUNC
 
        mov    #0x2004, r15      ; # OSCOFF=1 (LFXT1 off) return from IRQ
        mov    #0x0050, r14
        call   #WAIT_FUNC
 
        mov.b  #0x08, &BCSCTL2  ; # Div /1 --> select LFXT1CLK
        mov    #0x0028, r2      ; # OSCOFF=1 (LFXT1 off)
        mov    #0x2005, r15
        mov    #0x0050, r14
        call   #WAIT_FUNC
 
        mov.b  #0x00, &BCSCTL2  ; # Div /1 --> select DCOCLK
        mov    #0x0008, r2      ; # OSCOFF=0 (LFXT1 on)
        mov    #0x2006, r15
        mov    #0x0050, r14
        call   #WAIT_FUNC
 
        mov     #0x3000, r15
 
 
        /* -------------- CPUOFF (<=> R2[4]): turn off CPU    --------------- */
 
        ; Enable GPIO interrupts on P2[0]
        mov.b #0x00, &P2DIR
        mov.b #0x00, &P2IFG
        mov.b #0x00, &P2IES
        mov.b #0x01, &P2IE
 
        mov.b  #0x00, &BCSCTL2  ; # Div /1 --> select DCOCLK
 
        mov    #0x3001, r15
        mov    #0x0008, r2      ; # CPUOFF=0 (CPU on)
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov    #0x3002, r15
        mov    #0x0018, r2      ; # CPUOFF=1 (CPU off)
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
        mov    #0x3003, r15
        mov    #0x0008, r2      ; # CPUOFF=0 (CPU on)
        mov    #0x0020, r14
        call   #WAIT_FUNC
 
 
 
        /* ----------------------         END OF TEST        --------------- */
end_of_test:
        nop
        br #0xffff
 
 
        /* ----------------------      INTERRUPT ROUTINES    --------------- */
 
PORT1_VECTOR:
        push       r14
        mov    #0x0050, r14
        call   #WAIT_FUNC
        pop        r14
        mov.b #0x00, &P1IFG
        reti
 
PORT2_VECTOR:
        push       r14
        mov    #0x0050, r14
        call   #WAIT_FUNC
        pop        r14
        mov.b #0x00, &P2IFG
        bic    #0x10, 0(r1) ;exit lowpower mode
        reti
 
 
        /* ----------------------         INTERRUPT VECTORS  --------------- */
 
.section .vectors, "a"
.word end_of_test  ; Interrupt  0 (lowest priority)    
.word end_of_test  ; Interrupt  1                      
.word PORT1_VECTOR ; Interrupt  2                      
.word PORT2_VECTOR ; Interrupt  3                      
.word end_of_test  ; Interrupt  4                      
.word end_of_test  ; Interrupt  5                      
.word end_of_test  ; Interrupt  6                      
.word end_of_test  ; Interrupt  7                      
.word end_of_test  ; Interrupt  8                      
.word end_of_test  ; Interrupt  9                      
.word end_of_test  ; Interrupt 10                      Watchdog timer
.word end_of_test  ; Interrupt 11                      
.word end_of_test  ; Interrupt 12                      
.word end_of_test  ; Interrupt 13                      
.word end_of_test  ; Interrupt 14                      NMI
.word main         ; Interrupt 15 (highest priority)   RESET

Browse

Tools

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [core/] [sim/] [rtl_sim/] [src/] [op_modes.s43] - Blame information for rev 19

Line No.	Rev	Author	Line
1	2	olivier.gi	`/===========================================================================/`
2			`/* Copyright (C) 2001 Authors */`
3			`/* */`
4			`/* This source file may be used and distributed without restriction provided */`
5			`/* that this copyright statement is not removed from the file and that any */`
6			`/* derivative work contains the original copyright notice and the associated */`
7			`/* disclaimer. */`
8			`/* */`
9			`/* This source file is free software; you can redistribute it and/or modify */`
10			`/* it under the terms of the GNU Lesser General Public License as published */`
11			`/* by the Free Software Foundation; either version 2.1 of the License, or */`
12			`/* (at your option) any later version. */`
13			`/* */`
14			`/* This source is distributed in the hope that it will be useful, but WITHOUT*/`
15			`/* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or */`
16			`/* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public */`
17			`/* License for more details. */`
18			`/* */`
19			`/* You should have received a copy of the GNU Lesser General Public License */`
20			`/* along with this source; if not, write to the Free Software Foundation, */`
21			`/* Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA */`
22			`/* */`
23			`/===========================================================================/`
24			`/* CPU OPERATING MODES */`
25			`/---------------------------------------------------------------------------/`
26			`/* Test the CPU Operating modes: */`
27			`/* - CPUOFF (<=> R2[4]): turn off CPU. */`
28			`/* - OSCOFF (<=> R2[5]): turn off LFXT_CLK. */`
29			`/* - SCG1 (<=> R2[7]): turn off SMCLK. */`
30	18	olivier.gi	`/* */`
31			`/* Author(s): */`
32			`/* - Olivier Girard, olgirard@gmail.com */`
33			`/* */`
34			`/---------------------------------------------------------------------------/`
35	19	olivier.gi	`/* $Rev: 19 $ */`
36			`/* $LastChangedBy: olivier.girard $ */`
37			`/* $LastChangedDate: 2009-08-04 23:47:15 +0200 (Tue, 04 Aug 2009) $ */`
38	2	olivier.gi	`/===========================================================================/`
39
40			`.global main`
41
42			`.set P1IN, 0x0020`
43			`.set P1OUT, 0x0021`
44			`.set P1DIR, 0x0022`
45			`.set P1IFG, 0x0023`
46			`.set P1IES, 0x0024`
47			`.set P1IE, 0x0025`
48			`.set P1SEL, 0x0026`
49			`.set P2IN, 0x0028`
50			`.set P2OUT, 0x0029`
51			`.set P2DIR, 0x002A`
52			`.set P2IFG, 0x002B`
53			`.set P2IES, 0x002C`
54			`.set P2IE, 0x002D`
55			`.set P2SEL, 0x002E`
56
57			`.set BCSCTL1, 0x0057`
58			`.set BCSCTL2, 0x0058`
59
60
61			`WAIT_FUNC:`
62			`dec r14`
63			`jnz WAIT_FUNC`
64			`ret`
65
66			`main:`
67			`; Enable GPIO interrupts on P1[0]`
68			`mov.b #0x00, &P1DIR`
69			`mov.b #0x00, &P1IFG`
70			`mov.b #0x00, &P1IES`
71			`mov.b #0x01, &P1IE`
72
73			`; Initialize stack and enable global interrupts`
74			`mov #0x0250, r1`
75			`eint`
76
77			`mov #0x1000, r15`
78
79
80			`/* -------------- SCG1 (<=> R2[7]): turn off SMCLK --------------- */`
81
82			`mov.b #0x06, &BCSCTL2 ; # Div /8`
83
84			`mov #0x0008, r2 ; # SCG1=0 (SMCLK on)`
85			`mov #0x1001, r15`
86			`mov #0x0020, r14`
87			`call #WAIT_FUNC`
88
89			`mov #0x0088, r2 ; # SCG1=1 (SMCLK off)`
90			`mov #0x1002, r15`
91			`mov #0x0020, r14`
92			`call #WAIT_FUNC`
93
94			`mov #0x1003, r15 ; # SCG1=1 (SMCLK off) with IRQ`
95			`mov #0x0020, r14`
96			`call #WAIT_FUNC`
97
98			`mov #0x1004, r15 ; # SCG1=1 (SMCLK off) return from IRQ`
99			`mov #0x0020, r14`
100			`call #WAIT_FUNC`
101
102			`mov #0x0008, r2 ; # SCG1=0 (SMCLK on)`
103			`mov #0x1005, r15`
104			`mov #0x0020, r14`
105			`call #WAIT_FUNC`
106
107			`mov #0x2000, r15`
108
109
110			`/* -------------- OSCOFF (<=> R2[5]): turn off LFXT1CLK --------------- */`
111
112			`mov.b #0x00, &BCSCTL2 ; # Div /1 --> select DCOCLK`
113			`mov #0x0008, r2 ; # OSCOFF=0 (LFXT1 on)`
114			`mov #0x2001, r15`
115			`mov #0x0050, r14`
116			`call #WAIT_FUNC`
117
118			`mov.b #0x00, &BCSCTL2 ; # Div /1 --> select DCOCLK`
119			`mov #0x0028, r2 ; # OSCOFF=1 (LFXT1 off)`
120			`mov #0x2002, r15`
121			`mov #0x0050, r14`
122			`call #WAIT_FUNC`
123
124			`mov #0x2003, r15 ; # OSCOFF=1 (LFXT1 off) with IRQ`
125			`mov #0x0050, r14`
126			`call #WAIT_FUNC`
127
128			`mov #0x2004, r15 ; # OSCOFF=1 (LFXT1 off) return from IRQ`
129			`mov #0x0050, r14`
130			`call #WAIT_FUNC`
131
132			`mov.b #0x08, &BCSCTL2 ; # Div /1 --> select LFXT1CLK`
133			`mov #0x0028, r2 ; # OSCOFF=1 (LFXT1 off)`
134			`mov #0x2005, r15`
135			`mov #0x0050, r14`
136			`call #WAIT_FUNC`
137
138			`mov.b #0x00, &BCSCTL2 ; # Div /1 --> select DCOCLK`
139			`mov #0x0008, r2 ; # OSCOFF=0 (LFXT1 on)`
140			`mov #0x2006, r15`
141			`mov #0x0050, r14`
142			`call #WAIT_FUNC`
143
144			`mov #0x3000, r15`
145
146
147			`/* -------------- CPUOFF (<=> R2[4]): turn off CPU --------------- */`
148
149			`; Enable GPIO interrupts on P2[0]`
150			`mov.b #0x00, &P2DIR`
151			`mov.b #0x00, &P2IFG`
152			`mov.b #0x00, &P2IES`
153			`mov.b #0x01, &P2IE`
154
155			`mov.b #0x00, &BCSCTL2 ; # Div /1 --> select DCOCLK`
156
157			`mov #0x3001, r15`
158			`mov #0x0008, r2 ; # CPUOFF=0 (CPU on)`
159			`mov #0x0020, r14`
160			`call #WAIT_FUNC`
161
162			`mov #0x3002, r15`
163			`mov #0x0018, r2 ; # CPUOFF=1 (CPU off)`
164			`mov #0x0020, r14`
165			`call #WAIT_FUNC`
166
167			`mov #0x3003, r15`
168			`mov #0x0008, r2 ; # CPUOFF=0 (CPU on)`
169			`mov #0x0020, r14`
170			`call #WAIT_FUNC`
171
172
173
174			`/* ---------------------- END OF TEST --------------- */`
175			`end_of_test:`
176			`nop`
177			`br #0xffff`
178
179
180			`/* ---------------------- INTERRUPT ROUTINES --------------- */`
181
182			`PORT1_VECTOR:`
183			`push r14`
184			`mov #0x0050, r14`
185			`call #WAIT_FUNC`
186			`pop r14`
187			`mov.b #0x00, &P1IFG`
188			`reti`
189
190			`PORT2_VECTOR:`
191			`push r14`
192			`mov #0x0050, r14`
193			`call #WAIT_FUNC`
194			`pop r14`
195			`mov.b #0x00, &P2IFG`
196			`bic #0x10, 0(r1) ;exit lowpower mode`
197			`reti`
198
199
200			`/* ---------------------- INTERRUPT VECTORS --------------- */`
201
202			`.section .vectors, "a"`
203			`.word end_of_test ; Interrupt 0 (lowest priority)`
204			`.word end_of_test ; Interrupt 1`
205			`.word PORT1_VECTOR ; Interrupt 2`
206			`.word PORT2_VECTOR ; Interrupt 3`
207			`.word end_of_test ; Interrupt 4`
208			`.word end_of_test ; Interrupt 5`
209			`.word end_of_test ; Interrupt 6`
210			`.word end_of_test ; Interrupt 7`
211			`.word end_of_test ; Interrupt 8`
212			`.word end_of_test ; Interrupt 9`
213			`.word end_of_test ; Interrupt 10 Watchdog timer`
214			`.word end_of_test ; Interrupt 11`
215			`.word end_of_test ; Interrupt 12`
216			`.word end_of_test ; Interrupt 13`
217			`.word end_of_test ; Interrupt 14 NMI`
218			`.word main ; Interrupt 15 (highest priority) RESET`