home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / bit / listserv / ibmmain / 2608 < prev    next >
Encoding:
Text File  |  1992-11-09  |  1.3 KB  |  28 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!stanford.edu!unixhub!fnnews.fnal.gov!overload.lbl.gov!zeus.ieee.org!europa.asd.contel.com!paladin.american.edu!auvm!UCLAMVS.BITNET!CSYSMAS
  3. Message-ID: <IBM-MAIN%92110917352089@RICEVM1.RICE.EDU>
  4. Newsgroups: bit.listserv.ibm-main
  5. Date:         Mon, 9 Nov 1992 15:33:00 PST
  6. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  7. From:         Michael Stein <CSYSMAS@UCLAMVS.BITNET>
  8. Subject:      Re: Using EXTRACT macro to detect execution under TSO
  9. Lines: 17
  10.  
  11. > Several months ago, I asked how to determine, from Assembler, whether
  12. > the program is executing under TSO.  You collectively pointed me to
  13. > the EXTRACT macro, which I've been using happily for months to do just
  14. > that.  Suddenly, it's not working, and I'm at a loss to explain why.
  15. > I would appreciate any insight into what's wrong with the following
  16. > code.  That is, I want to know why I get a high-order byte of X'00' in
  17. > TSOFLAG from EXTRACT when I execute the program from the terminal!
  18.  
  19. EXTRACT FIELDS=(TSO) returns the *address* of the flag byte, not
  20. the byte itself.
  21. >          EXTRACT TSOFLAG,'S',FIELDS=(TSO) Get flag indicating TSO
  22. >          TM    TSOFLAG,TSOYES
  23. >          BO    TSO
  24.  
  25. Instead:
  26.            L     R1,TSOFLAG
  27.            TM    0(R1),TSOYES
  28.