Loading...
1/*
2 * arch/s390/kernel/base.S
3 *
4 * Copyright IBM Corp. 2006,2007
5 * Author(s): Heiko Carstens <heiko.carstens@de.ibm.com>
6 * Michael Holzheu <holzheu@de.ibm.com>
7 */
8
9#include <linux/linkage.h>
10#include <asm/asm-offsets.h>
11#include <asm/ptrace.h>
12
13#ifdef CONFIG_64BIT
14
15ENTRY(s390_base_mcck_handler)
16 basr %r13,0
170: lg %r15,__LC_PANIC_STACK # load panic stack
18 aghi %r15,-STACK_FRAME_OVERHEAD
19 larl %r1,s390_base_mcck_handler_fn
20 lg %r1,0(%r1)
21 ltgr %r1,%r1
22 jz 1f
23 basr %r14,%r1
241: la %r1,4095
25 lmg %r0,%r15,__LC_GPREGS_SAVE_AREA-4095(%r1)
26 lpswe __LC_MCK_OLD_PSW
27
28 .section .bss
29 .align 8
30 .globl s390_base_mcck_handler_fn
31s390_base_mcck_handler_fn:
32 .quad 0
33 .previous
34
35ENTRY(s390_base_ext_handler)
36 stmg %r0,%r15,__LC_SAVE_AREA
37 basr %r13,0
380: aghi %r15,-STACK_FRAME_OVERHEAD
39 larl %r1,s390_base_ext_handler_fn
40 lg %r1,0(%r1)
41 ltgr %r1,%r1
42 jz 1f
43 basr %r14,%r1
441: lmg %r0,%r15,__LC_SAVE_AREA
45 ni __LC_EXT_OLD_PSW+1,0xfd # clear wait state bit
46 lpswe __LC_EXT_OLD_PSW
47
48 .section .bss
49 .align 8
50 .globl s390_base_ext_handler_fn
51s390_base_ext_handler_fn:
52 .quad 0
53 .previous
54
55ENTRY(s390_base_pgm_handler)
56 stmg %r0,%r15,__LC_SAVE_AREA
57 basr %r13,0
580: aghi %r15,-STACK_FRAME_OVERHEAD
59 larl %r1,s390_base_pgm_handler_fn
60 lg %r1,0(%r1)
61 ltgr %r1,%r1
62 jz 1f
63 basr %r14,%r1
64 lmg %r0,%r15,__LC_SAVE_AREA
65 lpswe __LC_PGM_OLD_PSW
661: lpswe disabled_wait_psw-0b(%r13)
67
68 .align 8
69disabled_wait_psw:
70 .quad 0x0002000180000000,0x0000000000000000 + s390_base_pgm_handler
71
72 .section .bss
73 .align 8
74 .globl s390_base_pgm_handler_fn
75s390_base_pgm_handler_fn:
76 .quad 0
77 .previous
78
79#
80# Calls diag 308 subcode 1 and continues execution
81#
82# The following conditions must be ensured before calling this function:
83# * Prefix register = 0
84# * Lowcore protection is disabled
85#
86ENTRY(diag308_reset)
87 larl %r4,.Lctlregs # Save control registers
88 stctg %c0,%c15,0(%r4)
89 larl %r4,.Lrestart_psw # Setup restart PSW at absolute 0
90 lghi %r3,0
91 lg %r4,0(%r4) # Save PSW
92 sturg %r4,%r3 # Use sturg, because of large pages
93 lghi %r1,1
94 diag %r1,%r1,0x308
95.Lrestart_part2:
96 lhi %r0,0 # Load r0 with zero
97 lhi %r1,2 # Use mode 2 = ESAME (dump)
98 sigp %r1,%r0,0x12 # Switch to ESAME mode
99 sam64 # Switch to 64 bit addressing mode
100 larl %r4,.Lctlregs # Restore control registers
101 lctlg %c0,%c15,0(%r4)
102 br %r14
103.align 16
104.Lrestart_psw:
105 .long 0x00080000,0x80000000 + .Lrestart_part2
106
107 .section .bss
108.align 8
109.Lctlregs:
110 .rept 16
111 .quad 0
112 .endr
113 .previous
114
115#else /* CONFIG_64BIT */
116
117ENTRY(s390_base_mcck_handler)
118 basr %r13,0
1190: l %r15,__LC_PANIC_STACK # load panic stack
120 ahi %r15,-STACK_FRAME_OVERHEAD
121 l %r1,2f-0b(%r13)
122 l %r1,0(%r1)
123 ltr %r1,%r1
124 jz 1f
125 basr %r14,%r1
1261: lm %r0,%r15,__LC_GPREGS_SAVE_AREA
127 lpsw __LC_MCK_OLD_PSW
128
1292: .long s390_base_mcck_handler_fn
130
131 .section .bss
132 .align 4
133 .globl s390_base_mcck_handler_fn
134s390_base_mcck_handler_fn:
135 .long 0
136 .previous
137
138ENTRY(s390_base_ext_handler)
139 stm %r0,%r15,__LC_SAVE_AREA
140 basr %r13,0
1410: ahi %r15,-STACK_FRAME_OVERHEAD
142 l %r1,2f-0b(%r13)
143 l %r1,0(%r1)
144 ltr %r1,%r1
145 jz 1f
146 basr %r14,%r1
1471: lm %r0,%r15,__LC_SAVE_AREA
148 ni __LC_EXT_OLD_PSW+1,0xfd # clear wait state bit
149 lpsw __LC_EXT_OLD_PSW
150
1512: .long s390_base_ext_handler_fn
152
153 .section .bss
154 .align 4
155 .globl s390_base_ext_handler_fn
156s390_base_ext_handler_fn:
157 .long 0
158 .previous
159
160ENTRY(s390_base_pgm_handler)
161 stm %r0,%r15,__LC_SAVE_AREA
162 basr %r13,0
1630: ahi %r15,-STACK_FRAME_OVERHEAD
164 l %r1,2f-0b(%r13)
165 l %r1,0(%r1)
166 ltr %r1,%r1
167 jz 1f
168 basr %r14,%r1
169 lm %r0,%r15,__LC_SAVE_AREA
170 lpsw __LC_PGM_OLD_PSW
171
1721: lpsw disabled_wait_psw-0b(%r13)
173
1742: .long s390_base_pgm_handler_fn
175
176disabled_wait_psw:
177 .align 8
178 .long 0x000a0000,0x00000000 + s390_base_pgm_handler
179
180 .section .bss
181 .align 4
182 .globl s390_base_pgm_handler_fn
183s390_base_pgm_handler_fn:
184 .long 0
185 .previous
186
187#endif /* CONFIG_64BIT */
1/*
2 * arch/s390/kernel/base.S
3 *
4 * Copyright IBM Corp. 2006, 2007
5 * Author(s): Heiko Carstens <heiko.carstens@de.ibm.com>
6 * Michael Holzheu <holzheu@de.ibm.com>
7 */
8
9#include <linux/linkage.h>
10#include <asm/asm-offsets.h>
11#include <asm/ptrace.h>
12#include <asm/sigp.h>
13
14#ifdef CONFIG_64BIT
15
16ENTRY(s390_base_mcck_handler)
17 basr %r13,0
180: lg %r15,__LC_PANIC_STACK # load panic stack
19 aghi %r15,-STACK_FRAME_OVERHEAD
20 larl %r1,s390_base_mcck_handler_fn
21 lg %r1,0(%r1)
22 ltgr %r1,%r1
23 jz 1f
24 basr %r14,%r1
251: la %r1,4095
26 lmg %r0,%r15,__LC_GPREGS_SAVE_AREA-4095(%r1)
27 lpswe __LC_MCK_OLD_PSW
28
29 .section .bss
30 .align 8
31 .globl s390_base_mcck_handler_fn
32s390_base_mcck_handler_fn:
33 .quad 0
34 .previous
35
36ENTRY(s390_base_ext_handler)
37 stmg %r0,%r15,__LC_SAVE_AREA_ASYNC
38 basr %r13,0
390: aghi %r15,-STACK_FRAME_OVERHEAD
40 larl %r1,s390_base_ext_handler_fn
41 lg %r1,0(%r1)
42 ltgr %r1,%r1
43 jz 1f
44 basr %r14,%r1
451: lmg %r0,%r15,__LC_SAVE_AREA_ASYNC
46 ni __LC_EXT_OLD_PSW+1,0xfd # clear wait state bit
47 lpswe __LC_EXT_OLD_PSW
48
49 .section .bss
50 .align 8
51 .globl s390_base_ext_handler_fn
52s390_base_ext_handler_fn:
53 .quad 0
54 .previous
55
56ENTRY(s390_base_pgm_handler)
57 stmg %r0,%r15,__LC_SAVE_AREA_SYNC
58 basr %r13,0
590: aghi %r15,-STACK_FRAME_OVERHEAD
60 larl %r1,s390_base_pgm_handler_fn
61 lg %r1,0(%r1)
62 ltgr %r1,%r1
63 jz 1f
64 basr %r14,%r1
65 lmg %r0,%r15,__LC_SAVE_AREA_SYNC
66 lpswe __LC_PGM_OLD_PSW
671: lpswe disabled_wait_psw-0b(%r13)
68
69 .align 8
70disabled_wait_psw:
71 .quad 0x0002000180000000,0x0000000000000000 + s390_base_pgm_handler
72
73 .section .bss
74 .align 8
75 .globl s390_base_pgm_handler_fn
76s390_base_pgm_handler_fn:
77 .quad 0
78 .previous
79
80#
81# Calls diag 308 subcode 1 and continues execution
82#
83# The following conditions must be ensured before calling this function:
84# * Prefix register = 0
85# * Lowcore protection is disabled
86#
87ENTRY(diag308_reset)
88 larl %r4,.Lctlregs # Save control registers
89 stctg %c0,%c15,0(%r4)
90 larl %r4,.Lfpctl # Floating point control register
91 stfpc 0(%r4)
92 larl %r4,.Lcontinue_psw # Save PSW flags
93 epsw %r2,%r3
94 stm %r2,%r3,0(%r4)
95 larl %r4,.Lrestart_psw # Setup restart PSW at absolute 0
96 lghi %r3,0
97 lg %r4,0(%r4) # Save PSW
98 sturg %r4,%r3 # Use sturg, because of large pages
99 lghi %r1,1
100 diag %r1,%r1,0x308
101.Lrestart_part2:
102 lhi %r0,0 # Load r0 with zero
103 lhi %r1,2 # Use mode 2 = ESAME (dump)
104 sigp %r1,%r0,SIGP_SET_ARCHITECTURE # Switch to ESAME mode
105 sam64 # Switch to 64 bit addressing mode
106 larl %r4,.Lctlregs # Restore control registers
107 lctlg %c0,%c15,0(%r4)
108 larl %r4,.Lfpctl # Restore floating point ctl register
109 lfpc 0(%r4)
110 larl %r4,.Lcontinue_psw # Restore PSW flags
111 lpswe 0(%r4)
112.Lcontinue:
113 br %r14
114.align 16
115.Lrestart_psw:
116 .long 0x00080000,0x80000000 + .Lrestart_part2
117
118 .section .data..nosave,"aw",@progbits
119.align 8
120.Lcontinue_psw:
121 .quad 0,.Lcontinue
122 .previous
123
124 .section .bss
125.align 8
126.Lctlregs:
127 .rept 16
128 .quad 0
129 .endr
130.Lfpctl:
131 .long 0
132 .previous
133
134#else /* CONFIG_64BIT */
135
136ENTRY(s390_base_mcck_handler)
137 basr %r13,0
1380: l %r15,__LC_PANIC_STACK # load panic stack
139 ahi %r15,-STACK_FRAME_OVERHEAD
140 l %r1,2f-0b(%r13)
141 l %r1,0(%r1)
142 ltr %r1,%r1
143 jz 1f
144 basr %r14,%r1
1451: lm %r0,%r15,__LC_GPREGS_SAVE_AREA
146 lpsw __LC_MCK_OLD_PSW
147
1482: .long s390_base_mcck_handler_fn
149
150 .section .bss
151 .align 4
152 .globl s390_base_mcck_handler_fn
153s390_base_mcck_handler_fn:
154 .long 0
155 .previous
156
157ENTRY(s390_base_ext_handler)
158 stm %r0,%r15,__LC_SAVE_AREA_ASYNC
159 basr %r13,0
1600: ahi %r15,-STACK_FRAME_OVERHEAD
161 l %r1,2f-0b(%r13)
162 l %r1,0(%r1)
163 ltr %r1,%r1
164 jz 1f
165 basr %r14,%r1
1661: lm %r0,%r15,__LC_SAVE_AREA_ASYNC
167 ni __LC_EXT_OLD_PSW+1,0xfd # clear wait state bit
168 lpsw __LC_EXT_OLD_PSW
169
1702: .long s390_base_ext_handler_fn
171
172 .section .bss
173 .align 4
174 .globl s390_base_ext_handler_fn
175s390_base_ext_handler_fn:
176 .long 0
177 .previous
178
179ENTRY(s390_base_pgm_handler)
180 stm %r0,%r15,__LC_SAVE_AREA_SYNC
181 basr %r13,0
1820: ahi %r15,-STACK_FRAME_OVERHEAD
183 l %r1,2f-0b(%r13)
184 l %r1,0(%r1)
185 ltr %r1,%r1
186 jz 1f
187 basr %r14,%r1
188 lm %r0,%r15,__LC_SAVE_AREA_SYNC
189 lpsw __LC_PGM_OLD_PSW
190
1911: lpsw disabled_wait_psw-0b(%r13)
192
1932: .long s390_base_pgm_handler_fn
194
195disabled_wait_psw:
196 .align 8
197 .long 0x000a0000,0x00000000 + s390_base_pgm_handler
198
199 .section .bss
200 .align 4
201 .globl s390_base_pgm_handler_fn
202s390_base_pgm_handler_fn:
203 .long 0
204 .previous
205
206#endif /* CONFIG_64BIT */