mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-15 00:15:30 +02:00
17 lines
674 B
Plaintext
17 lines
674 B
Plaintext
* ALSI test
|
|
sysclear
|
|
archmode esame
|
|
r 1a0=00000000800000000000000000000200 # z/Arch restart PSW
|
|
r 1d0=0002000080000000000000000000DEAD # z/Arch pgm new PSW
|
|
r 200=41000001 # LA R0,1 Load R0 = 1
|
|
r 204=A7F40004 # BRC 15,*+8 Branch around test data
|
|
r 208=00000000 # DATA DC F'0' Test data
|
|
r 20C=C40FFFFFFFFE # STRL R0,*-2 Store R0 as test data
|
|
r 212=EBF10208006E # ALSI DATA,X'F1' Add logical signed immediate
|
|
r 218=C41DFFFFFFF8 # LRL R1,*-8 Load R1 with result data
|
|
r 21E=B2B20270 # LPSWE WAITPSW Load enabled wait PSW
|
|
r 270=07020001800000000000000000FED0D0 # WAITPSW Enabled wait state PSW
|
|
ostailor null
|
|
s+
|
|
restart
|