开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > 嵌入式Linux > 查看源码
reipl.S
资源名称：SBC-2410X_kernel.tar.gz　[点击查看]
上传用户：lgb322
上传日期：2013-02-24
资源大小：30529k
文件大小：3k
源码类别：

嵌入式Linux

开发平台：

Unix_Linux

reipl.S：源码内容
  1. /*
  2.  *  arch/s390/kernel/reipl.S
  3.  *
  4.  *  S390 version
  5.  *    Copyright (C) 2000 IBM Deutschland Entwicklung GmbH, IBM Corporation
  6.  *    Author(s): Holger Smolinski (Holger.Smolinski@de.ibm.com)
  7.          Denis Joseph Barrow (djbarrow@de.ibm.com,barrow_dj@yahoo.com)
  8.  */
  10. #include <asm/lowcore.h>
  11. .globl do_reipl
  12. do_reipl: basr %r13,0
  13. .Lpg0: lpswe   .Lnewpsw-.Lpg0(%r13)
  14. .Lpg1: lctlg %c6,%c6,.Lall-.Lpg0(%r13)
  15.                 stctg   %c0,%c0,.Lctlsave-.Lpg0(%r13)
  16.                 ni      .Lctlsave+4-.Lpg0(%r13),0xef
  17.                 lctlg   %c0,%c0,.Lctlsave-.Lpg0(%r13)
  18.                 lgr     %r1,%r2
  19.          mvc     __LC_PGM_NEW_PSW(16),.Lpcnew-.Lpg0(%r13)
  20.                 stsch   .Lschib-.Lpg0(%r13)                                    
  21.         oi      .Lschib+5-.Lpg0(%r13),0x84 
  22. .Lecs:   xi      .Lschib+27-.Lpg0(%r13),0x01 
  23.          msch    .Lschib-.Lpg0(%r13) 
  24. ssch .Liplorb-.Lpg0(%r13)           
  25. jz .L001   
  26. bas %r14,.Ldisab-.Lpg0(%r13)
  27. .L001: mvc __LC_IO_NEW_PSW(16),.Lionew-.Lpg0(%r13)
  28. .Ltpi: lpswe .Lwaitpsw-.Lpg0(%r13)          
  29. .Lcont: c %r1,__LC_SUBCHANNEL_ID
  30. jnz .Ltpi
  31. clc __LC_IO_INT_PARM(4),.Liplorb-.Lpg0(%r13)
  32. jnz .Ltpi
  33. tsch .Liplirb-.Lpg0(%r13)           
  34. tm .Liplirb+9-.Lpg0(%r13),0xbf
  35.                 jz      .L002
  36.                 bas     %r14,.Ldisab-.Lpg0(%r13)    
  37. .L002: tm .Liplirb+8-.Lpg0(%r13),0xf3    
  38.                 jz      .L003
  39.                 bas     %r14,.Ldisab-.Lpg0(%r13)
  40. .L003: spx .Lnull-.Lpg0(%r13)
  41. st  %r1,__LC_SUBCHANNEL_ID
  42.                 lhi     %r1,0            # mode 0 = esa
  43.                 slr     %r0,%r0          # set cpuid to zero
  44.                 sigp    %r1,%r0,0x12     # switch to esa mode
  45.                 lpsw  0
  46. .Ldisab: sll    %r14,1
  47. srl    %r14,1            # need to kill hi bit to avoid specification exceptions.
  48. st     %r14,.Ldispsw+12-.Lpg0(%r13)
  49. lpswe .Ldispsw-.Lpg0(%r13)
  50.                 .align  8
  51. .Lall: .quad 0x00000000ff000000
  52. .Lctlsave:      .quad   0x0000000000000000
  53. .Lnull: .long   0x0000000000000000
  54.                 .align  16
  55. /*
  56.  * These addresses have to be 31 bit otherwise
  57.  * the sigp will throw a specifcation exception
  58.  * when switching to ESA mode as bit 31 be set
  59.  * in the ESA psw.
  60.  * Bit 31 of the addresses has to be 0 for the
  61.  * 31bit lpswe instruction a fact they appear to have
  62.  * ommited from the pop.
  63.  */
  64. .Lnewpsw: .quad   0x0000000080000000
  65. .quad   .Lpg1
  66. .Lpcnew: .quad   0x0000000080000000
  67.    .quad   .Lecs
  68. .Lionew: .quad   0x0000000080000000
  69. .quad   .Lcont
  70. .Lwaitpsw: .quad 0x0202000080000000
  71. .quad   .Ltpi
  72. .Ldispsw: .quad   0x0002000080000000
  73. .quad   0x0000000000000000
  74. .Liplccws: .long   0x02000000,0x60000018
  75. .long   0x08000008,0x20000001
  76. .Liplorb: .long 0x0049504c,0x0040ff80
  77. .long 0x00000000+.Liplccws
  78. .Lschib:        .long   0x00000000,0x00000000
  79. .long   0x00000000,0x00000000
  80. .long   0x00000000,0x00000000
  81. .long   0x00000000,0x00000000
  82. .long   0x00000000,0x00000000
  83. .long   0x00000000,0x00000000
  84. .Liplirb: .long 0x00000000,0x00000000
  85. .long 0x00000000,0x00000000
  86. .long 0x00000000,0x00000000
  87. .long 0x00000000,0x00000000
  88. .long 0x00000000,0x00000000
  89. .long 0x00000000,0x00000000
  90. .long 0x00000000,0x00000000
  91. .long 0x00000000,0x00000000