1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#
# IPL stage 1 loader for ECKD
#
# Copyright IBM Corp. 2001, 2017
#
# s390-tools is free software; you can redistribute it and/or modify
# it under the terms of the MIT license. See LICENSE for details.
#
# Stage 1 is loaded to 0x18-0x80 and is used to load stage 1b (two blocks) with
# seek/search/tic/read CCWs. After stage 1b is loaded we tic to it.
.globl _start
_start:
.long 0x07000000+.Lseek1,0x60000006 # seek 1
.Lsearch1:
.long 0x31000000+.Lseek1+2,0x60000005 # search
.long 0x08000000+.Lsearch1,0x00000000 # tic back to search until found
.long 0x06000000,0x40000000 # read
.long 0x07000000+.Lseek2,0x60000006 # seek 2
.Lsearch2:
.long 0x31000000+.Lseek2+2,0x60000005 # search
.long 0x08000000+.Lsearch2,0x00000000 # tic back to search until found
.long 0x06000000,0x40000000 # read
.Ltick:
.long 0x08000000,0x00000000 # tic to stage 1b
.Lseek1:
.long 0x00000000,0x00000000 # seekarg 1
.Lseek2:
.long 0x00000000,0x00000000 # seekarg 2
.long 0x00000000,0x00000000 # bootinfo
.long 0x00000000,0x00000000
.long 0x00000000,0x00000000
.long 0x00000000,0x00000000
.long 0x00000000,0x00000000
.Lend:
|