head.S 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467
  1. /*
  2. * arch/s390/kernel/head.S
  3. *
  4. * Copyright (C) IBM Corp. 1999,2006
  5. *
  6. * Author(s): Hartmut Penner <hp@de.ibm.com>
  7. * Martin Schwidefsky <schwidefsky@de.ibm.com>
  8. * Rob van der Heij <rvdhei@iae.nl>
  9. * Heiko Carstens <heiko.carstens@de.ibm.com>
  10. *
  11. * There are 5 different IPL methods
  12. * 1) load the image directly into ram at address 0 and do an PSW restart
  13. * 2) linload will load the image from address 0x10000 to memory 0x10000
  14. * and start the code thru LPSW 0x0008000080010000 (VM only, deprecated)
  15. * 3) generate the tape ipl header, store the generated image on a tape
  16. * and ipl from it
  17. * In case of SL tape you need to IPL 5 times to get past VOL1 etc
  18. * 4) generate the vm reader ipl header, move the generated image to the
  19. * VM reader (use option NOH!) and do a ipl from reader (VM only)
  20. * 5) direct call of start by the SALIPL loader
  21. * We use the cpuid to distinguish between VM and native ipl
  22. * params for kernel are pushed to 0x10400 (see setup.h)
  23. *
  24. */
  25. #include <asm/setup.h>
  26. #include <asm/lowcore.h>
  27. #include <asm/asm-offsets.h>
  28. #include <asm/thread_info.h>
  29. #include <asm/page.h>
  30. #ifdef CONFIG_64BIT
  31. #define ARCH_OFFSET 4
  32. #else
  33. #define ARCH_OFFSET 0
  34. #endif
  35. #ifndef CONFIG_IPL
  36. .org 0
  37. .long 0x00080000,0x80000000+startup # Just a restart PSW
  38. #else
  39. #ifdef CONFIG_IPL_TAPE
  40. #define IPL_BS 1024
  41. .org 0
  42. .long 0x00080000,0x80000000+iplstart # The first 24 bytes are loaded
  43. .long 0x27000000,0x60000001 # by ipl to addresses 0-23.
  44. .long 0x02000000,0x20000000+IPL_BS # (a PSW and two CCWs).
  45. .long 0x00000000,0x00000000 # external old psw
  46. .long 0x00000000,0x00000000 # svc old psw
  47. .long 0x00000000,0x00000000 # program check old psw
  48. .long 0x00000000,0x00000000 # machine check old psw
  49. .long 0x00000000,0x00000000 # io old psw
  50. .long 0x00000000,0x00000000
  51. .long 0x00000000,0x00000000
  52. .long 0x00000000,0x00000000
  53. .long 0x000a0000,0x00000058 # external new psw
  54. .long 0x000a0000,0x00000060 # svc new psw
  55. .long 0x000a0000,0x00000068 # program check new psw
  56. .long 0x000a0000,0x00000070 # machine check new psw
  57. .long 0x00080000,0x80000000+.Lioint # io new psw
  58. .org 0x100
  59. #
  60. # subroutine for loading from tape
  61. # Paramters:
  62. # R1 = device number
  63. # R2 = load address
  64. .Lloader:
  65. st %r14,.Lldret
  66. la %r3,.Lorbread # r3 = address of orb
  67. la %r5,.Lirb # r5 = address of irb
  68. st %r2,.Lccwread+4 # initialize CCW data addresses
  69. lctl %c6,%c6,.Lcr6
  70. slr %r2,%r2
  71. .Lldlp:
  72. la %r6,3 # 3 retries
  73. .Lssch:
  74. ssch 0(%r3) # load chunk of IPL_BS bytes
  75. bnz .Llderr
  76. .Lw4end:
  77. bas %r14,.Lwait4io
  78. tm 8(%r5),0x82 # do we have a problem ?
  79. bnz .Lrecov
  80. slr %r7,%r7
  81. icm %r7,3,10(%r5) # get residual count
  82. lcr %r7,%r7
  83. la %r7,IPL_BS(%r7) # IPL_BS-residual=#bytes read
  84. ar %r2,%r7 # add to total size
  85. tm 8(%r5),0x01 # found a tape mark ?
  86. bnz .Ldone
  87. l %r0,.Lccwread+4 # update CCW data addresses
  88. ar %r0,%r7
  89. st %r0,.Lccwread+4
  90. b .Lldlp
  91. .Ldone:
  92. l %r14,.Lldret
  93. br %r14 # r2 contains the total size
  94. .Lrecov:
  95. bas %r14,.Lsense # do the sensing
  96. bct %r6,.Lssch # dec. retry count & branch
  97. b .Llderr
  98. #
  99. # Sense subroutine
  100. #
  101. .Lsense:
  102. st %r14,.Lsnsret
  103. la %r7,.Lorbsense
  104. ssch 0(%r7) # start sense command
  105. bnz .Llderr
  106. bas %r14,.Lwait4io
  107. l %r14,.Lsnsret
  108. tm 8(%r5),0x82 # do we have a problem ?
  109. bnz .Llderr
  110. br %r14
  111. #
  112. # Wait for interrupt subroutine
  113. #
  114. .Lwait4io:
  115. lpsw .Lwaitpsw
  116. .Lioint:
  117. c %r1,0xb8 # compare subchannel number
  118. bne .Lwait4io
  119. tsch 0(%r5)
  120. slr %r0,%r0
  121. tm 8(%r5),0x82 # do we have a problem ?
  122. bnz .Lwtexit
  123. tm 8(%r5),0x04 # got device end ?
  124. bz .Lwait4io
  125. .Lwtexit:
  126. br %r14
  127. .Llderr:
  128. lpsw .Lcrash
  129. .align 8
  130. .Lorbread:
  131. .long 0x00000000,0x0080ff00,.Lccwread
  132. .align 8
  133. .Lorbsense:
  134. .long 0x00000000,0x0080ff00,.Lccwsense
  135. .align 8
  136. .Lccwread:
  137. .long 0x02200000+IPL_BS,0x00000000
  138. .Lccwsense:
  139. .long 0x04200001,0x00000000
  140. .Lwaitpsw:
  141. .long 0x020a0000,0x80000000+.Lioint
  142. .Lirb: .long 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  143. .Lcr6: .long 0xff000000
  144. .align 8
  145. .Lcrash:.long 0x000a0000,0x00000000
  146. .Lldret:.long 0
  147. .Lsnsret: .long 0
  148. #endif /* CONFIG_IPL_TAPE */
  149. #ifdef CONFIG_IPL_VM
  150. #define IPL_BS 0x730
  151. .org 0
  152. .long 0x00080000,0x80000000+iplstart # The first 24 bytes are loaded
  153. .long 0x02000018,0x60000050 # by ipl to addresses 0-23.
  154. .long 0x02000068,0x60000050 # (a PSW and two CCWs).
  155. .fill 80-24,1,0x40 # bytes 24-79 are discarded !!
  156. .long 0x020000f0,0x60000050 # The next 160 byte are loaded
  157. .long 0x02000140,0x60000050 # to addresses 0x18-0xb7
  158. .long 0x02000190,0x60000050 # They form the continuation
  159. .long 0x020001e0,0x60000050 # of the CCW program started
  160. .long 0x02000230,0x60000050 # by ipl and load the range
  161. .long 0x02000280,0x60000050 # 0x0f0-0x730 from the image
  162. .long 0x020002d0,0x60000050 # to the range 0x0f0-0x730
  163. .long 0x02000320,0x60000050 # in memory. At the end of
  164. .long 0x02000370,0x60000050 # the channel program the PSW
  165. .long 0x020003c0,0x60000050 # at location 0 is loaded.
  166. .long 0x02000410,0x60000050 # Initial processing starts
  167. .long 0x02000460,0x60000050 # at 0xf0 = iplstart.
  168. .long 0x020004b0,0x60000050
  169. .long 0x02000500,0x60000050
  170. .long 0x02000550,0x60000050
  171. .long 0x020005a0,0x60000050
  172. .long 0x020005f0,0x60000050
  173. .long 0x02000640,0x60000050
  174. .long 0x02000690,0x60000050
  175. .long 0x020006e0,0x20000050
  176. .org 0xf0
  177. #
  178. # subroutine for loading cards from the reader
  179. #
  180. .Lloader:
  181. la %r3,.Lorb # r2 = address of orb into r2
  182. la %r5,.Lirb # r4 = address of irb
  183. la %r6,.Lccws
  184. la %r7,20
  185. .Linit:
  186. st %r2,4(%r6) # initialize CCW data addresses
  187. la %r2,0x50(%r2)
  188. la %r6,8(%r6)
  189. bct 7,.Linit
  190. lctl %c6,%c6,.Lcr6 # set IO subclass mask
  191. slr %r2,%r2
  192. .Lldlp:
  193. ssch 0(%r3) # load chunk of 1600 bytes
  194. bnz .Llderr
  195. .Lwait4irq:
  196. mvc 0x78(8),.Lnewpsw # set up IO interrupt psw
  197. lpsw .Lwaitpsw
  198. .Lioint:
  199. c %r1,0xb8 # compare subchannel number
  200. bne .Lwait4irq
  201. tsch 0(%r5)
  202. slr %r0,%r0
  203. ic %r0,8(%r5) # get device status
  204. chi %r0,8 # channel end ?
  205. be .Lcont
  206. chi %r0,12 # channel end + device end ?
  207. be .Lcont
  208. l %r0,4(%r5)
  209. s %r0,8(%r3) # r0/8 = number of ccws executed
  210. mhi %r0,10 # *10 = number of bytes in ccws
  211. lh %r3,10(%r5) # get residual count
  212. sr %r0,%r3 # #ccws*80-residual=#bytes read
  213. ar %r2,%r0
  214. br %r14 # r2 contains the total size
  215. .Lcont:
  216. ahi %r2,0x640 # add 0x640 to total size
  217. la %r6,.Lccws
  218. la %r7,20
  219. .Lincr:
  220. l %r0,4(%r6) # update CCW data addresses
  221. ahi %r0,0x640
  222. st %r0,4(%r6)
  223. ahi %r6,8
  224. bct 7,.Lincr
  225. b .Lldlp
  226. .Llderr:
  227. lpsw .Lcrash
  228. .align 8
  229. .Lorb: .long 0x00000000,0x0080ff00,.Lccws
  230. .Lirb: .long 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  231. .Lcr6: .long 0xff000000
  232. .Lloadp:.long 0,0
  233. .align 8
  234. .Lcrash:.long 0x000a0000,0x00000000
  235. .Lnewpsw:
  236. .long 0x00080000,0x80000000+.Lioint
  237. .Lwaitpsw:
  238. .long 0x020a0000,0x80000000+.Lioint
  239. .align 8
  240. .Lccws: .rept 19
  241. .long 0x02600050,0x00000000
  242. .endr
  243. .long 0x02200050,0x00000000
  244. #endif /* CONFIG_IPL_VM */
  245. iplstart:
  246. lh %r1,0xb8 # test if subchannel number
  247. bct %r1,.Lnoload # is valid
  248. l %r1,0xb8 # load ipl subchannel number
  249. la %r2,IPL_BS # load start address
  250. bas %r14,.Lloader # load rest of ipl image
  251. l %r12,.Lparm # pointer to parameter area
  252. st %r1,IPL_DEVICE+ARCH_OFFSET-PARMAREA(%r12) # save ipl device number
  253. #
  254. # load parameter file from ipl device
  255. #
  256. .Lagain1:
  257. l %r2,.Linitrd # ramdisk loc. is temp
  258. bas %r14,.Lloader # load parameter file
  259. ltr %r2,%r2 # got anything ?
  260. bz .Lnopf
  261. chi %r2,895
  262. bnh .Lnotrunc
  263. la %r2,895
  264. .Lnotrunc:
  265. l %r4,.Linitrd
  266. clc 0(3,%r4),.L_hdr # if it is HDRx
  267. bz .Lagain1 # skip dataset header
  268. clc 0(3,%r4),.L_eof # if it is EOFx
  269. bz .Lagain1 # skip dateset trailer
  270. la %r5,0(%r4,%r2)
  271. lr %r3,%r2
  272. .Lidebc:
  273. tm 0(%r5),0x80 # high order bit set ?
  274. bo .Ldocv # yes -> convert from EBCDIC
  275. ahi %r5,-1
  276. bct %r3,.Lidebc
  277. b .Lnocv
  278. .Ldocv:
  279. l %r3,.Lcvtab
  280. tr 0(256,%r4),0(%r3) # convert parameters to ascii
  281. tr 256(256,%r4),0(%r3)
  282. tr 512(256,%r4),0(%r3)
  283. tr 768(122,%r4),0(%r3)
  284. .Lnocv: la %r3,COMMAND_LINE-PARMAREA(%r12) # load adr. of command line
  285. mvc 0(256,%r3),0(%r4)
  286. mvc 256(256,%r3),256(%r4)
  287. mvc 512(256,%r3),512(%r4)
  288. mvc 768(122,%r3),768(%r4)
  289. slr %r0,%r0
  290. b .Lcntlp
  291. .Ldelspc:
  292. ic %r0,0(%r2,%r3)
  293. chi %r0,0x20 # is it a space ?
  294. be .Lcntlp
  295. ahi %r2,1
  296. b .Leolp
  297. .Lcntlp:
  298. brct %r2,.Ldelspc
  299. .Leolp:
  300. slr %r0,%r0
  301. stc %r0,0(%r2,%r3) # terminate buffer
  302. .Lnopf:
  303. #
  304. # load ramdisk from ipl device
  305. #
  306. .Lagain2:
  307. l %r2,.Linitrd # addr of ramdisk
  308. st %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12)
  309. bas %r14,.Lloader # load ramdisk
  310. st %r2,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r12) # store size of rd
  311. ltr %r2,%r2
  312. bnz .Lrdcont
  313. st %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12) # no ramdisk found
  314. .Lrdcont:
  315. l %r2,.Linitrd
  316. clc 0(3,%r2),.L_hdr # skip HDRx and EOFx
  317. bz .Lagain2
  318. clc 0(3,%r2),.L_eof
  319. bz .Lagain2
  320. #ifdef CONFIG_IPL_VM
  321. #
  322. # reset files in VM reader
  323. #
  324. stidp __LC_CPUID # store cpuid
  325. tm __LC_CPUID,0xff # running VM ?
  326. bno .Lnoreset
  327. la %r2,.Lreset
  328. lhi %r3,26
  329. diag %r2,%r3,8
  330. la %r5,.Lirb
  331. stsch 0(%r5) # check if irq is pending
  332. tm 30(%r5),0x0f # by verifying if any of the
  333. bnz .Lwaitforirq # activity or status control
  334. tm 31(%r5),0xff # bits is set in the schib
  335. bz .Lnoreset
  336. .Lwaitforirq:
  337. mvc 0x78(8),.Lrdrnewpsw # set up IO interrupt psw
  338. .Lwaitrdrirq:
  339. lpsw .Lrdrwaitpsw
  340. .Lrdrint:
  341. c %r1,0xb8 # compare subchannel number
  342. bne .Lwaitrdrirq
  343. la %r5,.Lirb
  344. tsch 0(%r5)
  345. .Lnoreset:
  346. b .Lnoload
  347. .align 8
  348. .Lrdrnewpsw:
  349. .long 0x00080000,0x80000000+.Lrdrint
  350. .Lrdrwaitpsw:
  351. .long 0x020a0000,0x80000000+.Lrdrint
  352. #endif
  353. #
  354. # everything loaded, go for it
  355. #
  356. .Lnoload:
  357. l %r1,.Lstartup
  358. br %r1
  359. .Linitrd:.long _end + 0x400000 # default address of initrd
  360. .Lparm: .long PARMAREA
  361. .Lstartup: .long startup
  362. .Lcvtab:.long _ebcasc # ebcdic to ascii table
  363. .Lreset:.byte 0xc3,0xc8,0xc1,0xd5,0xc7,0xc5,0x40,0xd9,0xc4,0xd9,0x40
  364. .byte 0xc1,0xd3,0xd3,0x40,0xd2,0xc5,0xc5,0xd7,0x40,0xd5,0xd6
  365. .byte 0xc8,0xd6,0xd3,0xc4 # "change rdr all keep nohold"
  366. .L_eof: .long 0xc5d6c600 /* C'EOF' */
  367. .L_hdr: .long 0xc8c4d900 /* C'HDR' */
  368. #endif /* CONFIG_IPL */
  369. #
  370. # SALIPL loader support. Based on a patch by Rob van der Heij.
  371. # This entry point is called directly from the SALIPL loader and
  372. # doesn't need a builtin ipl record.
  373. #
  374. .org 0x800
  375. .globl start
  376. start:
  377. stm %r0,%r15,0x07b0 # store registers
  378. basr %r12,%r0
  379. .base:
  380. l %r11,.parm
  381. l %r8,.cmd # pointer to command buffer
  382. ltr %r9,%r9 # do we have SALIPL parameters?
  383. bp .sk8x8
  384. mvc 0(64,%r8),0x00b0 # copy saved registers
  385. xc 64(240-64,%r8),0(%r8) # remainder of buffer
  386. tr 0(64,%r8),.lowcase
  387. b .gotr
  388. .sk8x8:
  389. mvc 0(240,%r8),0(%r9) # copy iplparms into buffer
  390. .gotr:
  391. l %r10,.tbl # EBCDIC to ASCII table
  392. tr 0(240,%r8),0(%r10)
  393. slr %r0,%r0
  394. st %r0,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r11)
  395. st %r0,INITRD_START+ARCH_OFFSET-PARMAREA(%r11)
  396. j startup # continue with startup
  397. .tbl: .long _ebcasc # translate table
  398. .cmd: .long COMMAND_LINE # address of command line buffer
  399. .parm: .long PARMAREA
  400. .lowcase:
  401. .byte 0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07
  402. .byte 0x08,0x09,0x0a,0x0b,0x0c,0x0d,0x0e,0x0f
  403. .byte 0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17
  404. .byte 0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f
  405. .byte 0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27
  406. .byte 0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f
  407. .byte 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37
  408. .byte 0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f
  409. .byte 0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47
  410. .byte 0x48,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f
  411. .byte 0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57
  412. .byte 0x58,0x59,0x5a,0x5b,0x5c,0x5d,0x5e,0x5f
  413. .byte 0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67
  414. .byte 0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f
  415. .byte 0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77
  416. .byte 0x78,0x79,0x7a,0x7b,0x7c,0x7d,0x7e,0x7f
  417. .byte 0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87
  418. .byte 0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f
  419. .byte 0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97
  420. .byte 0x98,0x99,0x9a,0x9b,0x9c,0x9d,0x9e,0x9f
  421. .byte 0xa0,0xa1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7
  422. .byte 0xa8,0xa9,0xaa,0xab,0xac,0xad,0xae,0xaf
  423. .byte 0xb0,0xb1,0xb2,0xb3,0xb4,0xb5,0xb6,0xb7
  424. .byte 0xb8,0xb9,0xba,0xbb,0xbc,0xbd,0xbe,0xbf
  425. .byte 0xc0,0x81,0x82,0x83,0x84,0x85,0x86,0x87 # .abcdefg
  426. .byte 0x88,0x89,0xca,0xcb,0xcc,0xcd,0xce,0xcf # hi
  427. .byte 0xd0,0x91,0x92,0x93,0x94,0x95,0x96,0x97 # .jklmnop
  428. .byte 0x98,0x99,0xda,0xdb,0xdc,0xdd,0xde,0xdf # qr
  429. .byte 0xe0,0xe1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7 # ..stuvwx
  430. .byte 0xa8,0xa9,0xea,0xeb,0xec,0xed,0xee,0xef # yz
  431. .byte 0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7
  432. .byte 0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfe,0xff
  433. #ifdef CONFIG_64BIT
  434. #include "head64.S"
  435. #else
  436. #include "head31.S"
  437. #endif