zipl/boot/eckd1.S

   1 #
   2 #  Ipl stage 1 loader
   3 #    Copyright IBM Corp. 2001, 2006.
   4 #    Author(s): Antoinette Kaschner (anto@de.ibm.com),
   5 #
   6 #  startup for ipl at address 0
   7 #  second stage boot loader is loaded to 0x2000 and starts at 0x2008
   8
   9 # The first 24 bytes are loaded by ipl to addresses 0-23 (a PSW and two CCWs).
  10 # IPL1 record TICs to IPL2 record at offset X'68' .Byte 0 to 68 of IPL2 contains boot load data.
  11 # The seek/search/tic/read CCWs at the end of IPL2 record reads  record 2 on disk into storage at
  12 # location X200.
  13
  14
  15                 .org   0x18
  16         .long  0x00000000,0x00000000           # contains boot load data
  17         .long  0x00000000,0x00000000           # contains boot load data
  18         .long  0x00000000,0x00000000           # contains boot load data
  19         .long  0x00000000,0x00000000           # contains boot load data
  20         .long  0x00000000,0x00000000           # contains boot load data
  21         .long  0x00000000,0x00000000           # contains boot load data
  22         .long  0x00000000,0x00000000           # contains boot load data
  23         .long  0x00000000,0x00000000           # contains boot load data
  24         .long  0x00000000,0x00000000           # contains boot load data
  25         .long  0x00000000,0x00000000           # contains boot load data
  26         .long  0x00000000,0x00000000           # contains boot load data
  27         .long  0x00000000,0x00000000           # contains boot load data
  28         .long  0x00000000,0x00000000           # contains boot load data
  29         .long  0x07600006,0x00000000+.Lseek    # seek
  30 .Lsearch:
  31         .long  0x31600005,0x00000000+.Lseek+2  # search
  32         .long  0x08000000,0x00000000+.Lsearch  # tic back to search until found
  33         .long  0x06200090,0x00000200           # read record 2 into storage
  34  .Lseek:
  35         .long  0x00000000,0x00000200           # seekargument for cyl 0 hd 0 rec 2