User Tools

Site Tools


ibm:vm370-lib:copy:network.copy_src

NETWORK Source

References

Source Listing

NETWORK.COPY.txt
  1. *COPY NETWORK 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').NET01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .NET01 ANOP 00001800
  6. NICBLOK DSECT 00002000
  7. SPACE 1 00003000
  8. *** NETWORK INTERFACE CONTROL BLOCK 00004000
  9. * 00005000
  10. * 0 +-----------+-----------+-----+-----+-----+-----+ 00006000
  11. * | NICNAME | NICEPAD | N*1 | N*2 | N*3 | N*4 | 00007000
  12. * 8 +-----------+-----------+-----+-----+-----+-----+ 00008000
  13. * | NICRCNT | NICVRID | NICTMAT | 00009000
  14. * 10 +-----------+-----------+-----------------------+ 00010000
  15. * | NICUSER | NICQPNT | 00011000
  16. * 18 +-----------------------+-----------------------+ 00012000
  17. * | NICRSV | 00012020
  18. * +-----------------------------------------------+ 00012040
  19. * 00013000
  20. *** NETWORK INTERFACE CONTROL BLOCK 00014000
  21. SPACE 00015000
  22. NICNAME DS 1H 3705 NCP RESOURCE NAME 00016000
  23. NICEPAD DS 1H SUBCHANNEL ADDRESS WHEN IN EP MODE 00017000
  24. NICSTAT DS 1X N*1 RESOURCE STATUS FLAGS 00018000
  25. NICFLAG DS 1X N*2 INTERFACE CONTROL FLAGS 00019000
  26. NICLLEN DS 1X N*3 TERMINAL OUTPUT LINE LENGTH 00020000
  27. NICTYPE DS 1X N*4 RESOURCE TYPE / FEATURES 00021000
  28. NICRCNT DS 1H RETRY COUNT FOR BTU ERRORS 00022000
  29. NICVRID DS 1H VIRTUAL RESOURCE ID WHEN DEDICATED 00023000
  30. NICTMAT DS 1F T.O.D. CLOCK VALUE WHEN ATTACHED 00024000
  31. NICUSER DS 1F VMBLOK ADDRESS OF ASSOCIATED USER 00025000
  32. NICQPNT DS 1F POINTER TO INPUT BTU CHAIN 00026000
  33. NICRSV DS 1D RESERVED @VA09296 00026100
  34. SPACE 00027000
  35. NICSIZE EQU (*-NICBLOK)/8 SIZE OF BLOCK IN DOUBLE-WORDS 00028000
  36. SPACE 00029000
  37. * BITS DEFINED IN NICSTAT: 00030000
  38. NICERLK EQU X'80' DEVICE ERROR LOCK IS SET 00031000
  39. NICNTRL EQU X'40' CONTROL OPERATION IS ACTIVE 00032000
  40. NICDISA EQU X'20' RESOURCE INACTIVE (OFFLINE) 00033000
  41. NICSWEP EQU X'10' RESOURCE IS SWITCHABLE TO EP-MODE 00034000
  42. NICEPMD EQU X'08' RESOURCE NOW IN EMULATOR MODE 00035000
  43. NICLTRC EQU X'02' NCP LINE TRACE IS ACTIVE 00036000
  44. NICDED EQU X'01' RESOURCE IS DEDICATED 00037000
  45. NICTRQ EQU X'80' GRAF - TIMER REQUEST PENDING 00037100
  46. NICHOLD EQU X'10' GRAF - SCREEN FULL, IN HOLD STATUS 00037125
  47. NICMORE EQU X'08' GRAF - SCREEN FULL, IN MORE STATUS 00037150
  48. NICRUNN EQU X'04' GRAF - SCREEN IN RUNNING STATUS 00037175
  49. NICREAD EQU X'02' GRAF - READ PENDING FOR SCREEN INPUT 00037200
  50. NICCPNA EQU X'01' GRAF - LAST INPUT NOT ACCEPTED 00037225
  51. SPACE 00038000
  52. * BITS DEFINED IN NICFLAG: 00039000
  53. NICSESN EQU X'80' SESSION IS ACTIVE FOR THIS DEVICE 00040000
  54. NICATTN EQU X'40' ATTENTION HANDLING IN PROGRESS 00041000
  55. NICPSUP EQU X'20' RESOURCE HAS PRINT SUPPRESS FEATURE 00042000
  56. NICATOF EQU X'10' SUPPRESS ATTENTION SIGNAL CHARACTER 00043000
  57. NICENAB EQU X'08' RESOURCE IS ACTIVE AND ENABLED 00044000
  58. NICDISB EQU X'02' RESOURCE TO BE DISABLED A.S.A.P. 00045000
  59. NICMTA EQU X'01' MULTIPLE TERMINAL ACCESS RESOURCE 00045500
  60. NICFMT EQU X'80' GRAF - SCREEN FORMATTED VM/370 ONLINE 00045525
  61. NICDIAG EQU X'40' GRAF - SCREEN WRITTEN WITH DIAGNOSE 00045550
  62. NICALRM EQU X'10' GRAF - SCREEN HAS ALARM MESSAGE 00045575
  63. NICCARD EQU X'04' GRAF - DATA FROM CARD READER 00045600
  64. NICPROCN EQU X'01' GRAF - PROCESS CONTROL TASK NOW 00045625
  65. EJECT 00046000
  66. * BITS DEFINED IN NICTYPE: 00047000
  67. NICCTLR EQU X'00' RESOURCE IS THE 3705 ITSELF 00048000
  68. NICLINE EQU X'80' RESOURCE IS A T.P. LINE 00049000
  69. NICTERM EQU X'40' RESOURCE IS A TERMINAL DEVICE 00050000
  70. NICLGRP EQU X'20' RESOURCE IS A LOGICAL LINE GROUP 00051000
  71. SPACE 00052000
  72. NICSDLC EQU X'08' LINE - SYNCHRONOUS DATA LINK CONTROL 00053000
  73. NICLBSC EQU X'04' LINE - BINARY SYNCHRONOUS LINE CONTROL 00054000
  74. NICSWCH EQU X'02' LINE - SWITCHED LINE INTERFACE 00055000
  75. NICMLTP EQU X'01' LINE - MULTIPLE-DROP LEASED LINE 00056000
  76. SPACE 00057000
  77. NICTELE EQU X'10' TERM - TELEGRAPH LINE ADAPTER 00058000
  78. NICCIBM EQU X'08' TERM - SELECTRIC-BASED TERMINAL 00059000
  79. NICRCPU EQU X'04' TERM - BI-SYNCH REMOTE COMPUTER 00060000
  80. NICRSPL EQU X'02' TERM - BI-SYNCH REMOTE SPOOL DEVICE 00061000
  81. NICGRAF EQU X'01' TERM - BI-SYNCH REMOTE GRAPHICS 00062000
  82. NIC3271 EQU X'08' GRAF - 3271 CONTROL UNIT 00062100
  83. NIC3275 EQU X'04' GRAF - 3275 STANDALONE DISPLAY STATION 00062120
  84. NICOPRDR EQU X'10' GRAF - CARD READER FEATURE 00062140
  85. SPACE 1 00062160
  86. * RE-DEFINITION FOR 3270 REMOTE SUPPORT 00062180
  87. ORG NICEPAD 00062200
  88. NICCORD DS 1X CURRENT LINE COORDINATE 00062225
  89. NICTMCD DS 1X TERMINAL STATE 00062230
  90. NICTABF EQU X'80' SECOND SCAN OF SCREEN'S INPUT AREA 00062235
  91. NICSIO EQU X'40' USER ISSUE DIAGNOSE TO INPUT AREA 00062241
  92. NICAPL EQU X'20' APL ON FOR 3270 REMOTE 00062245
  93. NICTEXT EQU X'10' 3270 TEXT CHARACTER SET ON @VM00000 00062255
  94. ORG NICRCNT 00062260
  95. NICSELT DS 1H REMOTE STATION SELECTION CHARACTERS 00062280
  96. NICPOLL DS 1H REMOTE STATION POLLING CHARACTERS 00062300
  97. NICATRB DS 1F TIMER REQUEST BLOCK ADDRESS 00062320
  98. ORG NICRSV @VA09296 00062390
  99. NICRSV1 DS 1X RESERVED FOR IBM @VA09296 00062460
  100. NICDTYPE DS 1X DISPLAY STATION TYPE @VA09296 00062530
  101. NICMDL DS 1X DISPLAY STATION MODEL @VA09296 00062600
  102. NICRSV2 DS 1X RESERVED @VA09296 00062670
  103. NICRSV3 DS 1F RESERVED @VA09296 00062740
  104. * BITS DEFINED IN NICDTYPE 00062810
  105. NICD3275 EQU X'02' 3275 DISPLAY STATION @VA09296 00062880
  106. NICD3277 EQU X'04' 3277 DISPLAY STATION @VA09296 00062950
  107. SPACE 00063000
  108. * SENSE BITS (SENSE BYTE 0) PECULIAR TO THE 3704 / 3705 : 00064000
  109. IPLREQ EQU X'02' IPL REQUIRED - 3705 INACTIVE 00065000
  110. ABORT EQU X'01' BUFFER DEPLETION - TRANSFER TERMINATED 00066000
  111. SPACE 00067000
  112. * EQUATE SYMBOLS FOR VM/370 SUPPORT OF THE 3704/5 00068000
  113. WRITBRK EQU X'09' WRITE BREAK CCW OP-CODE 00069000
  114. RDBUFLN EQU 96 LENGTH OF HOST READ BUFFERS 00070000
  115. RDBUFNO EQU 6 NUMBER OF HOST READ BUFFERS 00071000
  116. SPACE 3 00072000
  117. CKPBLOK DSECT 00073000
  118. SPACE 00074000
  119. *** CKPBLOK - TELECOMMUNICATIONS CHECKPOINT BLOCK 00075000
  120. * 00076000
  121. * 0 +-----------+-----------+-----------------------+ 00077000
  122. * | CKPSIZE | CKPRMAX | CKPRSV1 | 00078000
  123. * 8 +-----------+-----------+-----------------------+ 00079000
  124. * | CKPNAME | 00080000
  125. * 10 +-----------------------------------------------+ 00081000
  126. * | | 00082000
  127. * = CKPBITS = 00083000
  128. * | | 00084000
  129. * +-----------------------------------------------+ 00085000
  130. * 00086000
  131. *** CKPBLOK - TELECOMMUNICATIONS CHECKPOINT BLOCK 00087000
  132. SPACE 00088000
  133. CKPSIZE DS 1H SIZE OF CKPBLOK IN DOUBLE-WORDS 00089000
  134. CKPRMAX DS 1H NUMBER OF RESOURCES CHECKPOINTED 00090000
  135. CKPRSV1 DS 1F RESERVED 00091000
  136. CKPNAME DS CL8 370X CONTROL PROGRAM REFERENCE NAME 00092000
  137. CKPBITS DS 0D BIT MAP OF ENABLED LINES OR RESOURCES 00093000
  138. SPACE 00094000
  139. CKPBKSZ EQU (CKPBITS-CKPBLOK)/8 HEADER SIZE IN DOUBLE-WORDS 00095000
  140. EJECT 00096000
  141. POP PRINT 00097000
  142. SPACE 00098000
ibm/vm370-lib/copy/network.copy_src.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator