You can avoid shifts and save one instruction by ANDing the PSW value with x'00F00000' and testing the result for equality with x'00800000', but there is not much fat to be squeezed out of what you are doing now.
John Gilmore, Ashland, MA 01721 - USA ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
