*COPY NETWORK 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').NET01 00001400
PRINT OFF,NOGEN 00001600
.NET01 ANOP 00001800
NICBLOK DSECT 00002000
SPACE 1 00003000
*** NETWORK INTERFACE CONTROL BLOCK 00004000
* 00005000
* 0 +-----------+-----------+-----+-----+-----+-----+ 00006000
* | NICNAME | NICEPAD | N*1 | N*2 | N*3 | N*4 | 00007000
* 8 +-----------+-----------+-----+-----+-----+-----+ 00008000
* | NICRCNT | NICVRID | NICTMAT | 00009000
* 10 +-----------+-----------+-----------------------+ 00010000
* | NICUSER | NICQPNT | 00011000
* 18 +-----------------------+-----------------------+ 00012000
* | NICRSV | 00012020
* +-----------------------------------------------+ 00012040
* 00013000
*** NETWORK INTERFACE CONTROL BLOCK 00014000
SPACE 00015000
NICNAME DS 1H 3705 NCP RESOURCE NAME 00016000
NICEPAD DS 1H SUBCHANNEL ADDRESS WHEN IN EP MODE 00017000
NICSTAT DS 1X N*1 RESOURCE STATUS FLAGS 00018000
NICFLAG DS 1X N*2 INTERFACE CONTROL FLAGS 00019000
NICLLEN DS 1X N*3 TERMINAL OUTPUT LINE LENGTH 00020000
NICTYPE DS 1X N*4 RESOURCE TYPE / FEATURES 00021000
NICRCNT DS 1H RETRY COUNT FOR BTU ERRORS 00022000
NICVRID DS 1H VIRTUAL RESOURCE ID WHEN DEDICATED 00023000
NICTMAT DS 1F T.O.D. CLOCK VALUE WHEN ATTACHED 00024000
NICUSER DS 1F VMBLOK ADDRESS OF ASSOCIATED USER 00025000
NICQPNT DS 1F POINTER TO INPUT BTU CHAIN 00026000
NICRSV DS 1D RESERVED @VA09296 00026100
SPACE 00027000
NICSIZE EQU (*-NICBLOK)/8 SIZE OF BLOCK IN DOUBLE-WORDS 00028000
SPACE 00029000
* BITS DEFINED IN NICSTAT: 00030000
NICERLK EQU X'80' DEVICE ERROR LOCK IS SET 00031000
NICNTRL EQU X'40' CONTROL OPERATION IS ACTIVE 00032000
NICDISA EQU X'20' RESOURCE INACTIVE (OFFLINE) 00033000
NICSWEP EQU X'10' RESOURCE IS SWITCHABLE TO EP-MODE 00034000
NICEPMD EQU X'08' RESOURCE NOW IN EMULATOR MODE 00035000
NICLTRC EQU X'02' NCP LINE TRACE IS ACTIVE 00036000
NICDED EQU X'01' RESOURCE IS DEDICATED 00037000
NICTRQ EQU X'80' GRAF - TIMER REQUEST PENDING 00037100
NICHOLD EQU X'10' GRAF - SCREEN FULL, IN HOLD STATUS 00037125
NICMORE EQU X'08' GRAF - SCREEN FULL, IN MORE STATUS 00037150
NICRUNN EQU X'04' GRAF - SCREEN IN RUNNING STATUS 00037175
NICREAD EQU X'02' GRAF - READ PENDING FOR SCREEN INPUT 00037200
NICCPNA EQU X'01' GRAF - LAST INPUT NOT ACCEPTED 00037225
SPACE 00038000
* BITS DEFINED IN NICFLAG: 00039000
NICSESN EQU X'80' SESSION IS ACTIVE FOR THIS DEVICE 00040000
NICATTN EQU X'40' ATTENTION HANDLING IN PROGRESS 00041000
NICPSUP EQU X'20' RESOURCE HAS PRINT SUPPRESS FEATURE 00042000
NICATOF EQU X'10' SUPPRESS ATTENTION SIGNAL CHARACTER 00043000
NICENAB EQU X'08' RESOURCE IS ACTIVE AND ENABLED 00044000
NICDISB EQU X'02' RESOURCE TO BE DISABLED A.S.A.P. 00045000
NICMTA EQU X'01' MULTIPLE TERMINAL ACCESS RESOURCE 00045500
NICFMT EQU X'80' GRAF - SCREEN FORMATTED VM/370 ONLINE 00045525
NICDIAG EQU X'40' GRAF - SCREEN WRITTEN WITH DIAGNOSE 00045550
NICALRM EQU X'10' GRAF - SCREEN HAS ALARM MESSAGE 00045575
NICCARD EQU X'04' GRAF - DATA FROM CARD READER 00045600
NICPROCN EQU X'01' GRAF - PROCESS CONTROL TASK NOW 00045625
EJECT 00046000
* BITS DEFINED IN NICTYPE: 00047000
NICCTLR EQU X'00' RESOURCE IS THE 3705 ITSELF 00048000
NICLINE EQU X'80' RESOURCE IS A T.P. LINE 00049000
NICTERM EQU X'40' RESOURCE IS A TERMINAL DEVICE 00050000
NICLGRP EQU X'20' RESOURCE IS A LOGICAL LINE GROUP 00051000
SPACE 00052000
NICSDLC EQU X'08' LINE - SYNCHRONOUS DATA LINK CONTROL 00053000
NICLBSC EQU X'04' LINE - BINARY SYNCHRONOUS LINE CONTROL 00054000
NICSWCH EQU X'02' LINE - SWITCHED LINE INTERFACE 00055000
NICMLTP EQU X'01' LINE - MULTIPLE-DROP LEASED LINE 00056000
SPACE 00057000
NICTELE EQU X'10' TERM - TELEGRAPH LINE ADAPTER 00058000
NICCIBM EQU X'08' TERM - SELECTRIC-BASED TERMINAL 00059000
NICRCPU EQU X'04' TERM - BI-SYNCH REMOTE COMPUTER 00060000
NICRSPL EQU X'02' TERM - BI-SYNCH REMOTE SPOOL DEVICE 00061000
NICGRAF EQU X'01' TERM - BI-SYNCH REMOTE GRAPHICS 00062000
NIC3271 EQU X'08' GRAF - 3271 CONTROL UNIT 00062100
NIC3275 EQU X'04' GRAF - 3275 STANDALONE DISPLAY STATION 00062120
NICOPRDR EQU X'10' GRAF - CARD READER FEATURE 00062140
SPACE 1 00062160
* RE-DEFINITION FOR 3270 REMOTE SUPPORT 00062180
ORG NICEPAD 00062200
NICCORD DS 1X CURRENT LINE COORDINATE 00062225
NICTMCD DS 1X TERMINAL STATE 00062230
NICTABF EQU X'80' SECOND SCAN OF SCREEN'S INPUT AREA 00062235
NICSIO EQU X'40' USER ISSUE DIAGNOSE TO INPUT AREA 00062241
NICAPL EQU X'20' APL ON FOR 3270 REMOTE 00062245
NICTEXT EQU X'10' 3270 TEXT CHARACTER SET ON @VM00000 00062255
ORG NICRCNT 00062260
NICSELT DS 1H REMOTE STATION SELECTION CHARACTERS 00062280
NICPOLL DS 1H REMOTE STATION POLLING CHARACTERS 00062300
NICATRB DS 1F TIMER REQUEST BLOCK ADDRESS 00062320
ORG NICRSV @VA09296 00062390
NICRSV1 DS 1X RESERVED FOR IBM @VA09296 00062460
NICDTYPE DS 1X DISPLAY STATION TYPE @VA09296 00062530
NICMDL DS 1X DISPLAY STATION MODEL @VA09296 00062600
NICRSV2 DS 1X RESERVED @VA09296 00062670
NICRSV3 DS 1F RESERVED @VA09296 00062740
* BITS DEFINED IN NICDTYPE 00062810
NICD3275 EQU X'02' 3275 DISPLAY STATION @VA09296 00062880
NICD3277 EQU X'04' 3277 DISPLAY STATION @VA09296 00062950
SPACE 00063000
* SENSE BITS (SENSE BYTE 0) PECULIAR TO THE 3704 / 3705 : 00064000
IPLREQ EQU X'02' IPL REQUIRED - 3705 INACTIVE 00065000
ABORT EQU X'01' BUFFER DEPLETION - TRANSFER TERMINATED 00066000
SPACE 00067000
* EQUATE SYMBOLS FOR VM/370 SUPPORT OF THE 3704/5 00068000
WRITBRK EQU X'09' WRITE BREAK CCW OP-CODE 00069000
RDBUFLN EQU 96 LENGTH OF HOST READ BUFFERS 00070000
RDBUFNO EQU 6 NUMBER OF HOST READ BUFFERS 00071000
SPACE 3 00072000
CKPBLOK DSECT 00073000
SPACE 00074000
*** CKPBLOK - TELECOMMUNICATIONS CHECKPOINT BLOCK 00075000
* 00076000
* 0 +-----------+-----------+-----------------------+ 00077000
* | CKPSIZE | CKPRMAX | CKPRSV1 | 00078000
* 8 +-----------+-----------+-----------------------+ 00079000
* | CKPNAME | 00080000
* 10 +-----------------------------------------------+ 00081000
* | | 00082000
* = CKPBITS = 00083000
* | | 00084000
* +-----------------------------------------------+ 00085000
* 00086000
*** CKPBLOK - TELECOMMUNICATIONS CHECKPOINT BLOCK 00087000
SPACE 00088000
CKPSIZE DS 1H SIZE OF CKPBLOK IN DOUBLE-WORDS 00089000
CKPRMAX DS 1H NUMBER OF RESOURCES CHECKPOINTED 00090000
CKPRSV1 DS 1F RESERVED 00091000
CKPNAME DS CL8 370X CONTROL PROGRAM REFERENCE NAME 00092000
CKPBITS DS 0D BIT MAP OF ENABLED LINES OR RESOURCES 00093000
SPACE 00094000
CKPBKSZ EQU (CKPBITS-CKPBLOK)/8 HEADER SIZE IN DOUBLE-WORDS 00095000
EJECT 00096000
POP PRINT 00097000
SPACE 00098000