1 /* 2 * S390 guest code used in migration tests 3 * 4 * Copyright 2018 Thomas Huth, Red Hat Inc. 5 * 6 * This code is free software; you can redistribute it and/or modify it 7 * under the terms of the GNU General Public License as published by the 8 * Free Software Foundation; either version 2 of the License, or (at your 9 * option) any later version. 10 */ 11 12 #define LOADPARM_LEN 8 /* Needed for sclp.h */ 13 14 #include <libc.h> 15 #include <s390-ccw.h> 16 #include <sclp.h> 17 18 char stack[0x8000] __attribute__((aligned(4096))); 19 20 #define START_ADDRESS (1024 * 1024) 21 #define END_ADDRESS (100 * 1024 * 1024) 22 23 void main(void) 24 { 25 unsigned long addr; 26 27 sclp_setup(); 28 sclp_print("A"); 29 30 while (1) { 31 for (addr = START_ADDRESS; addr < END_ADDRESS; addr += 4096) { 32 *(volatile char *)addr += 1; /* Change pages */ 33 } 34 sclp_print("B"); 35 } 36 } 37