* STIDP test
sysclear
archmode esame
r 1a0=00000001800000000000000000000200 # z/Arch restart PSW
r 1d0=00020001800000000000000000BADBAD # z/Arch pgm new PSW
r 200=B2020350     # STIDP CPUID       Store CPU ID
r 204=C04900002000 # IILF R4,SYSIB     R4=>SYSIB on 4K boundary
r 20A=1894         # LR R9,R4          R9=>SYSIB area
r 20C=C05900001000 # IILF R5,X'1000'   R5=SYSIB area length
r 212=C079EE000000 # IILF R7,X'EE000000' R7=Padding byte, zero length
r 218=0E46         # MVCL R4,R6        Fill SYSIB with padding byte
r 21A=98010358     # LM R0,R1,FC111    Load R0=FC-SC1,R1=SC2
r 21E=B27D9000     # STSI 0(R9)        Store System Information
r 222=B2B20300     # LPSWE WAITPSW     Load enabled wait PSW
r 226=B2B20310     # LPSWE DISWAIT     Load disabled wait PSW
r 300=07020001800000000000000000AAAAAA # WAITPSW Enabled wait state PSW
r 310=00020001800000000000000000BADBAD # DISWAIT Disabled wait state PSW
r 350=0000000000000000                 # CPU ID from STIDP
r 358=1000000100000001                 # TEST4 FC=1,SC1=1,SC2=1
ostailor null
restart
pause 1
* Display CPU ID from STIDP
r 350.8
* Display SYSIB 1.1.1 from STSI
r 2000.100
