*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