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