*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