ibm:vm370-lib:copy:tnsrec.copy_src
Table of Contents
TNSREC Source
References
- Fixes Applied : 1
- This Source Date : Tuesday, January 23, 1979
- Last Fix ID : [R09396DK]
Source Listing
- TNSREC.COPY.txt
- *COPY TNSREC 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').TNS01 00001400
- PRINT OFF,NOGEN 00001600
- .TNS01 ANOP 00001800
- TNSREC DSECT 00002000
- * 00003000
- * 'T' TYPE RECORD FORMAT (ENVIRONMENTAL RECORDING) 00004000
- * 00005000
- * +---------+----+----+----+----+---------+ 00006000
- * | TNSKEYN | S1 | S2 | S3 | S4 | TNSSPE1 | 00007000
- * +---------+----+----+----+----+---------+ 00008000
- * | TNSDTEN | TNSTMEN | 00009000
- * +-------------------+-------------------+ 00010000
- * | TNSCPIDN | 00011000
- * +---------+-----------------------------+ 00012000
- * | TNSDEVAD| TNSVOLID | 00013000
- * +---------+-----------------------------+ 00014000
- * | | 00015000
- * = SENSE DATA = 00016000
- * | | 00017000
- * +---------------------------------------+ 00018000
- * 00019000
- * 'T' TYPE RECORD 00020000
- * 00021000
- TNSKEYN DS 1H CLASS SOURCE 90=T TYPE N/S NON TPER 00022000
- TNSSWS1 DS 1C SWITCH BYTE 0 00023000
- TNSSWS2 DS 1C 00024000
- TNSSWS3 DS 1C 00025000
- TNSRECNT DS 1C 00026000
- TNSSPE1 DS 1H 00027000
- TNSDTEN DS 1F DATE 00028000
- TNSTMEN DS 1F TIME 00029000
- TNSCPIDN DS 2F CPU ID AND SERIAL 00030000
- * 00031000
- * END OF 24 BYTE HEADER 00032000
- * 00033000
- TNSDEVAD DS 1H DEVICE ADDRESS 00034000
- TNSVOLID DS 6C VOLUME SERIAL @VM08633 00035000
- TNSSNS1 DS 24X 24 SENSE BYTES 00036000
- TNSSNS2 DS 24X AND ADDITIONAL SENSE BYTES(24) 00037000
- TNSSNS3 DS 24X DITTO 00038000
- TNSSNS4 DS 24X DITTO 00039000
- TNSSNS5 DS 24X DITTO 00040000
- TNSSNS6 DS 24X DITTO 00041000
- TNSSNS7 DS 24X AND ONE LAST DITTO 00042000
- SPACE 00043100
- ORG TNSVOLID+2 @VA09396 00043200
- TNS3800 DS XL136 PLACE FOR ERROR LOG DATA @VA09396 00043300
- EJECT 00043400
- POP PRINT 00044000
- SPACE 00045000
ibm/vm370-lib/copy/tnsrec.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator