mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-16 00:45:27 +02:00
34 lines
1.7 KiB
Plaintext
34 lines
1.7 KiB
Plaintext
* STFL/STFLE test
|
|
sysclear
|
|
archmode ESAME
|
|
r 000=0008000000000200 # EC mode restart PSW
|
|
r 068=000A00000000DEAD # EC mode pgm new PSW
|
|
r 1a0=00000001800000000000000000000200 # z/Arch restart PSW
|
|
r 1d0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
|
|
r 200=B2B10000 # STFL 0 Store 32 facility bits at PSA+C8
|
|
r 204=58F000C8 # L R15,200 Load facility bits from PSA+C8
|
|
r 208=92EE0400 # MVI LIST1,X'EE' Initialize...
|
|
r 20C=D2FE04010400 # MVC LIST1+1(255),LIST1 ...result area
|
|
r 212=1F88 # SLR R8,R8 R8=doubleword counter
|
|
r 214=41700004 # LA R7,4 R7=number of tests to perform
|
|
r 218=41600400 # LA R6,RESULT1 R6=pointer to result area
|
|
r 21C=1808 #LOOP LR R0,R8 R0=number of dwords minus 1
|
|
r 21E=40006000 # STH R0,RESULT Store requested length minus 1
|
|
r 222=B2B06008 # STFLE RESULT+8 Store facility list in result area
|
|
r 226=B2220010 # IPM R1 Insert cc into R1
|
|
r 22A=92006002 # MVI RESULT+2,0 Clear unused byte in result area
|
|
r 22E=BE186003 # STCM R1,B'1000',RESULT+3 Store cc into result area
|
|
r 232=50006004 # ST R0,RESULT+4 Store result length minus 1
|
|
r 236=41606040 # LA R6,64(,R6) R6=pointer to next result area
|
|
r 23A=41808001 # LA R8,1(,R8) Increment requested length
|
|
r 23E=4670021C # BCT R7,LOOP Repeat
|
|
r 242=82000300 # LPSW WAITPSW Load enabled wait PSW
|
|
r 300=070A000000FED0D0 # WAITPSW Enabled wait state PSW
|
|
ostailor null
|
|
restart
|
|
pause 1
|
|
* Display STFL facility bits
|
|
r 0C8.4
|
|
* Display STFLE result table - req.len : cond.code : ret.len : facility bits
|
|
r 400.100
|