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_ASYNC
 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_ASYNC
 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_SYNC
 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_SYNC
 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,.Lfpctl		# Floating point control register
 90	stfpc	0(%r4)
 91	larl	%r4,.Lcontinue_psw	# Save PSW flags
 92	epsw	%r2,%r3
 93	stm	%r2,%r3,0(%r4)
 94	larl	%r4,.Lrestart_psw	# Setup restart PSW at absolute 0
 95	lghi	%r3,0
 96	lg	%r4,0(%r4)		# Save PSW
 97	sturg	%r4,%r3			# Use sturg, because of large pages
 98	lghi	%r1,1
 99	diag	%r1,%r1,0x308
100.Lrestart_part2:
101	lhi	%r0,0			# Load r0 with zero
102	lhi	%r1,2			# Use mode 2 = ESAME (dump)
103	sigp	%r1,%r0,0x12		# Switch to ESAME mode
104	sam64				# Switch to 64 bit addressing mode
105	larl	%r4,.Lctlregs		# Restore control registers
106	lctlg	%c0,%c15,0(%r4)
107	larl	%r4,.Lfpctl		# Restore floating point ctl register
108	lfpc	0(%r4)
109	larl	%r4,.Lcontinue_psw	# Restore PSW flags
110	lpswe	0(%r4)
111.Lcontinue:
112	br	%r14
113.align 16
114.Lrestart_psw:
115	.long	0x00080000,0x80000000 + .Lrestart_part2
116
117	.section .data..nosave,"aw",@progbits
118.align 8
119.Lcontinue_psw:
120	.quad	0,.Lcontinue
121	.previous
122
123	.section .bss
124.align 8
125.Lctlregs:
126	.rept	16
127	.quad	0
128	.endr
129.Lfpctl:
130	.long	0
131	.previous
132
133#else /* CONFIG_64BIT */
134
135ENTRY(s390_base_mcck_handler)
136	basr	%r13,0
1370:	l	%r15,__LC_PANIC_STACK	# load panic stack
138	ahi	%r15,-STACK_FRAME_OVERHEAD
139	l	%r1,2f-0b(%r13)
140	l	%r1,0(%r1)
141	ltr	%r1,%r1
142	jz	1f
143	basr	%r14,%r1
1441:	lm	%r0,%r15,__LC_GPREGS_SAVE_AREA
145	lpsw	__LC_MCK_OLD_PSW
146
1472:	.long	s390_base_mcck_handler_fn
148
149	.section .bss
150	.align 4
151	.globl	s390_base_mcck_handler_fn
152s390_base_mcck_handler_fn:
153	.long	0
154	.previous
155
156ENTRY(s390_base_ext_handler)
157	stm	%r0,%r15,__LC_SAVE_AREA_ASYNC
158	basr	%r13,0
1590:	ahi	%r15,-STACK_FRAME_OVERHEAD
160	l	%r1,2f-0b(%r13)
161	l	%r1,0(%r1)
162	ltr	%r1,%r1
163	jz	1f
164	basr	%r14,%r1
1651:	lm	%r0,%r15,__LC_SAVE_AREA_ASYNC
166	ni	__LC_EXT_OLD_PSW+1,0xfd	# clear wait state bit
167	lpsw	__LC_EXT_OLD_PSW
168
1692:	.long	s390_base_ext_handler_fn
170
171	.section .bss
172	.align 4
173	.globl	s390_base_ext_handler_fn
174s390_base_ext_handler_fn:
175	.long	0
176	.previous
177
178ENTRY(s390_base_pgm_handler)
179	stm	%r0,%r15,__LC_SAVE_AREA_SYNC
180	basr	%r13,0
1810:	ahi	%r15,-STACK_FRAME_OVERHEAD
182	l	%r1,2f-0b(%r13)
183	l	%r1,0(%r1)
184	ltr	%r1,%r1
185	jz	1f
186	basr	%r14,%r1
187	lm	%r0,%r15,__LC_SAVE_AREA_SYNC
188	lpsw	__LC_PGM_OLD_PSW
189
1901:	lpsw	disabled_wait_psw-0b(%r13)
191
1922:	.long	s390_base_pgm_handler_fn
193
194disabled_wait_psw:
195	.align	8
196	.long	0x000a0000,0x00000000 + s390_base_pgm_handler
197
198	.section .bss
199	.align 4
200	.globl	s390_base_pgm_handler_fn
201s390_base_pgm_handler_fn:
202	.long	0
203	.previous
204
205#endif /* CONFIG_64BIT */