LXR linux/arch/s390/kernel/base.S

   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 */
 207