ibm:vm370-lib:copy:bscbloks.copy_src
Table of Contents
BSCBLOKS Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [R11623DK]
Source Listing
- BSCBLOKS.COPY.txt
- *COPY BSCBLOKS 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').BSC01 00001400
- PRINT OFF,NOGEN 00001600
- .BSC01 ANOP 00001800
- BSCBLOK DSECT 00002000
- SPACE 1 00003000
- *** BSCBLOK - BINARY SYNCHRONOUS COMMUNICATION CONTROL BLOCK 00004000
- * 00005000
- * 0 +-----------------------------------------------+ 00006000
- * | BSCSCCW1 | 00007000
- * 8 +-----------------------------------------------+ 00008000
- * | BSCSCCW2 | 00009000
- * 10 +-----------------------------------------------+ 00010000
- * | BSCSCCW3 | 00011000
- * 18 +-----------------------------------------------+ 00012000
- * | BSCPCCW1 | 00013000
- * 20 +-----------------------------------------------+ 00014000
- * | BSCPCCW2 | 00015000
- * 28 +-----------------------------------------------+ 00016000
- * | BSCPCCW3 | 00017000
- * 30 +-----------------------------------------------+ 00018000
- * | BSCPCCW4 | 00019000
- * 38 +-----------------------------------------------+ 00020000
- * | BSCECCW1 | 00021000
- * 40 +-----------------------------------------------+ 00022000
- * | BSCECCW2 | 00023000
- * 48 +-----------------------------------------------+ 00024000
- * | BSCUECCW | 00025000
- * 50 +-----------------------------------------+-----+ 00026000
- * | BSCSEL | B*1 | 00027000
- * 58 +-----+-----------------------------------------+ 00028000
- * | B*2 | B*3 | BSCINDEX | BSCRESVD | 00029000
- * 60 +-----------------------+-----------------------+ 00030000
- * | BSCSPTR | BSCAUSER | 00031000
- * 68 +-----------------------+-----------------------+ 00032000
- * | BSCUCOPY | BSCRSTRT | 00033000
- * 70 +-----------+-----------+-----------+-----------+ 00034000
- * | BSCCNT | BSCSENSE | BSCRCVD | BSCSEND | 00035000
- * 78 +-----------------------+-----------------------+ 00036000
- * | BSCRPTR | BSCRROBN | 00037100
- * 80 +-----------------------+-----------+-----------+ 00038000
- * | BSCTMRQ | BSCRESP | | 00039000
- * 88 +-----------------------+-----------+ 00040000
- * | | 00041000
- * = BSCREAD = 00042000
- * | | 00043000
- * 128 +-----------------------------------------------+ 00044000
- * 00045000
- *** BSCBLOK - BSC CONTROL BLOCK 00046000
- SPACE 1 00047000
- BSCSCCW1 DS 1D CCW FOR WRITE RESET 00048000
- BSCSCCW2 DS 1D CCW FOR ADDRESSING OR SELECTION 00049000
- BSCSCCW3 DS 1D CCW FOR READ RESPONSE TO SELECTION 00050000
- BSCPCCW1 DS 1D CCW FOR WRITE RESET 00051000
- BSCPCCW2 DS 1D CCW FOR GENERAL/SPECIFIC POLLING 00052000
- BSCPCCW3 DS 1D CCW FOR NO-OP COMMAND CCW 00053000
- BSCPCCW4 DS 1D CCW FOR READ TEXT 00054000
- BSCECCW1 DS 1D CCW FOR WRITE ERROR RESPONSE 00055000
- BSCECCW2 DS 1D CCW TO TRANSFER CONTROL TO READ CCW 00056000
- BSCUECCW DS 1D CCW FOR READ RESPONSE ON TIMEOUT 00057000
- BSCSEL DS 7X ADDRESSING/POLLING ENTRY 00058000
- BSCFLAG DS 1X B*1 BSCBLOK FLAGS 00059000
- BSCFLAG1 DS 1X B*2 BSCBLOK FLAGS 00060000
- BSCLINE DS 1X B*3 LINE COORDINATE FOR INPUT AREA 00061000
- BSCINDEX DS 1H INDEX VALUE FOR AVAILABLE SPACE IN BUFFER 00062000
- BSCRESVD DS 4X RESERVED FOR FUTURE USE 00063000
- BSCSPTR DS 1F WRITE CCW STRING ADDR/ADDR OF BUFFER 00064000
- BSCAUSER DS 1F ADDRESS OF ACTIVE RESOURCE 00065000
- BSCUCOPY DS 1F ADDRESS OF COPY REQUESTOR'S NICBLOK 00066000
- BSCRSTRT DS 1F ADDRESS OF RESTART CCW STRING 00067000
- BSCCNT DS 1H RETRY COUNT 00068000
- BSCSENSE DS 1H SENSE BYTES FROM REMOTE STATION 00069000
- BSCRCVD DS 1H EXPECTED RECEIVED ACK (ACK-0/ACK-1) 00070000
- BSCSEND DS 1H SENDING ACK (ACK-0/ACK-1) 00071000
- BSCRPTR DS 1F ADDRESS OF THE READ BUFFER @VA08730 00072100
- BSCRROBN DS 1F ADDRESS OF ACTIVE USER IN QUEUE 00073000
- BSCTMRQ DS 1F POINTER TO TRQBLOK FOR POLL DELAY 00074000
- BSCRESP DS 1H RESPONSE BUFFER FOR SELECTION 00075000
- BSCREAD DS CL264 READ BUFFER FOR POLLING @VA05141 00076500
- SPACE 1 00077000
- BSCSIZE1 EQU *-(BSCREAD+1) READ BUFFER SIZE IN BYTES 00078000
- BSCSIZE2 EQU (BSCREAD-BSCBLOK) BSC HEADER SIZE IN BYTES 00079000
- BSCSIZE EQU (*-BSCBLOK+7)/8 BSCBLOK SIZE IN DOUBLE WORDS 00080000
- SPACE 1 00081000
- * BITS DEFINED IN BSCFLAG: 00082000
- BSCRVI EQU X'80' SENDING RVI RESPONSE 00083000
- BSCENQ EQU X'40' ENQ IN DATA FROM STATION 00084000
- BSCCOPY EQU X'20' COPY FUNCTION IS ACTIVE 00085000
- BSCOPIED EQU X'10' INITIATE COPY FUNCTION 00086000
- BSCREGEN EQU X'08' REGENERATION ERROR 00087000
- BSCTSTRQ EQU X'04' IGNORE INPUT PROCESSING 00088000
- BSCLOG EQU X'02' BYPASS FORCE MESSAGE AT LOGOFF 00089000
- BSCSCAN EQU X'01' SECOND SCAN FOR WRITE REQUEST 00090000
- SPACE 1 00091000
- * BITS DEFINED IN BSCFLAG1: 00092000
- BSCETB EQU X'80' STATION TRANSMITTED BLOCK RECORD 00093000
- BSCIGN EQU X'40' IGNORE BLOCK RECORD 00094000
- BSCPA1 EQU X'20' INDICATOR TO CALL DMKCFMBK 00095000
- BSCINBID EQU X'10' INITIAL BID SEQUENCE REQUIRED 00096000
- BSCFORCE EQU X'08' USER FORCE IN PROGRESS 00097000
- BSCHALT EQU X'04' HALT I/O HAS BEEN ISSUED FOR THIS DEVICE 00098000
- BSCSHUT EQU X'02' NETWORK SHUTDOWN IN PROGRESS @VA11623 00098100
- EJECT 00099000
- POP PRINT 00100000
- SPACE 00101000
ibm/vm370-lib/copy/bscbloks.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator