Trailing-Edge
-
PDP-10 Archives
-
BB-FB51A-RM
-
sna-ai/sources/snacom.lst
There are no other files named snacom.lst in the archive.
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 1
21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (1)
; 0001 0 %title 'SNACOM -- SNA Gateway Access Common Symbols'
; 0002 0
; 0003 0 ! Copyright (c) 1985 by
; 0004 0 ! DIGITAL EQUIPMENT CORPORATION, Maynard, Massachusetts
; 0005 0 !
; 0006 0 ! This software is furnished under a license and may be used and copied
; 0007 0 ! only in accordance with the terms of such license and with the
; 0008 0 ! inclusion of the above copyright notice. This software or any other
; 0009 0 ! copies thereof may not be provided or otherwise made available to any
; 0010 0 ! other person. No title to and ownership of the software is hereby
; 0011 0 ! transferred.
; 0012 0 !
; 0013 0 ! The information in this software is subject to change without notice
; 0014 0 ! and should not be construed as a commitment by Digital Equipment
; 0015 0 ! Corporation.
; 0016 0 !
; 0017 0 ! Digital assumes no responsibility for the use or reliability of its
; 0018 0 ! software on equipment which is not supplied by Digital.
; 0019 0
; M 0020 0 macro COPYRIGHT_STATEMENT =
; 0021 0 bind ______ = CH$ASCIZ ('-- COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1984 --') %;
; 0022 0
; 0023 0 library 'SNAXPT'; ! Our own version of XPORT
; 0024 0 $show (fields, noinfo)
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 2
Common Literals 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (2)
; 0025 0 %sbttl 'Common Literals'
; 0026 0
; 0027 0 literal ! Library version number
; 0028 0 EV$VER = %O'001', ! Major
; 0029 0 EV$ECO = %O'000', ! ECO
; 0030 0 EV$UEC = %O'000'; ! Customer ECO
; 0031 0
; M 0032 0 macro EDIT_VERSION =
; 0033 0 %name ('E.VERS'): initial (EV$VER ^ 28 + EV$ECO ^ 20 + EV$UEC ^ 12) %;
; 0034 0
; 0035 0 literal ! Boolean literals
; 0036 0 $TRUE = (1 eql 1),
; 0037 0 $FALSE = (1 eql 0);
; 0038 0
; 0039 0 literal
; 0040 0 MAXIMUM_SUPPORTED_PORTS = 20; ! Maximum supported virtual circuits
; 0041 0
; 0042 0 literal ! Packet data type
; 0043 0 NORMAL_DATA = 0,
; 0044 0 EXPEDITED_DATA = 1;
; 0045 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 3
CRLF Macro 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (3)
; 0046 0 %sbttl 'CRLF Macro'
; 0047 0
; M 0048 0 macro CRLF (CNT) = ! Macro to set error code for
; M 0049 0 begin
; M 0050 0 local TMPCNT;
; M 0051 0
; M 0052 0 TMPCNT = CNT;
; M 0053 0
; M 0054 0 while .TMPCNT gtr 0 do
; M 0055 0 begin
; M 0056 0 jsys_psout (.CRLFX);
; M 0057 0 TMPCNT = .TMPCNT - 1;
; M 0058 0 end;
; M 0059 0
; 0060 0 end %;
; 0061 0
; 0062 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 4
BLT Macro 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (4)
; 0063 0 %sbttl 'BLT Macro'
; 0064 0
; M 0065 0 macro XERO (XBLOCK, XLEN) =
; M 0066 0
; M 0067 0 begin
; M 0068 0
; M 0069 0 register AC;
; M 0070 0 builtin MACHOP;
; M 0071 0
; M 0072 0 literal BLT = %o'251';
; M 0073 0
; M 0074 0 XBLOCK = 0;
; M 0075 0 AC<18,18> = XBLOCK;
; M 0076 0 AC<0,18> = XBLOCK + 1;
; M 0077 0 MACHOP (BLT, AC, XBLOCK + XLEN-1);
; M 0078 0
; 0079 0 end%;
; 0080 0
; 0081 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 5
Make Macro 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (5)
; 0082 0 %sbttl 'Make Macro'
; 0083 0
; M 0084 0 macro DISX (XSOURCE, XDEST, XBUFF) =
; M 0085 0
; M 0086 0 begin
; M 0087 0 local LENGTH;
; M 0088 0
; M 0089 0 LENGTH = ch$rchar_a (XSOURCE);
; M 0090 0 if .LENGTH eql 0
; M 0091 0 then XDEST = 0
; M 0092 0 else begin
; M 0093 0 XDEST = ch$ptr (XBUFF);
; M 0094 0 DISASSEMBLE (.XSOURCE, .XDEST, .LENGTH);
; M 0095 0 XSOURCE = ch$plus (.XSOURCE, .LENGTH);
; M 0096 0 end;
; M 0097 0
; 0098 0 end%;
; 0099 0
; 0100 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 6
Lexical Macros 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (6)
; 0101 0 %sbttl 'Lexical Macros'
; 0102 0
; M 0103 0 macro CH$SEQUENCE (LENGTH, SIZE) =
; 0104 0 vector [ch$allocation (LENGTH %if not %null (SIZE) %then , SIZE %fi)] %;
; 0105 0
; 0106 0
; M 0107 0 macro CH$ASCIZ [] =
; 0108 0 ch$ptr (uplit (%asciz %string (%remaining))) %;
; 0109 0
; 0110 0
; M 0111 0 macro CH$ASCII [] =
; 0112 0 ch$ptr (uplit (%ascii %string (%remaining))) %;
; 0113 0
; 0114 0
; M 0115 0 macro CH$ASCIC [] =
; 0116 0 ch$ptr (uplit (%string (%char (%charcount (%remaining)), %remaining))) %;
; 0117 0
; 0118 0
; M 0119 0 macro CH$LEN (POINTER, LENGTH) =
; M 0120 0 ch$diff (ch$find_ch (%if %null (LENGTH)
; M 0121 0 %then 2048
; M 0122 0 %else LENGTH %fi,
; M 0123 0 POINTER,
; M 0124 0 0),
; 0125 0 POINTER) %;
; 0126 0
; 0127 0
; M 0128 0 macro CH$MOVSTRING (POINTER_ADDRESS) [] =
; M 0129 0 %if %isstring (%remaining)
; M 0130 0 %then POINTER_ADDRESS = ch$move (%charcount (%string (%remaining)),
; M 0131 0 CH$ASCIZ (%remaining),
; M 0132 0 .POINTER_ADDRESS)
; M 0133 0 %else %if %length gtr 2
; M 0134 0 %then %error ('Illegal parameter count for CH$MOVSTRING')
; M 0135 0 %else begin
; M 0136 0 local LEN;
; M 0137 0
; M 0138 0 LEN = CH$LEN (%remaining);
; M 0139 0 POINTER_ADDRESS = ch$move (.LEN, %remaining, POINTER_ADDRESS);
; M 0140 0 end
; M 0141 0 %fi
; 0142 0 %fi %;
; 0143 0
; 0144 0
; M 0145 0 macro CH$MOVCSTRING (POINTER_ADDRESS) [ ] =
; M 0146 0 %if %isstring (%remaining)
; M 0147 0 %then POINTER_ADDRESS = ch$move (%charcount (%string (%remaining)) + 1,
; M 0148 0 CH$ASCIC (%remaining),
; M 0149 0 .POINTER_ADDRESS)
; M 0150 0 %else %if %length gtr 2
; M 0151 0 %then %error ('Illegal parameter count for CH$MOVCSTRING')
; M 0152 0 %else begin
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 7
Lexical Macros 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (6)
; M 0153 0 local LEN;
; M 0154 0
; M 0155 0 LEN = ch$rchar (%remaining) + 1;
; M 0156 0 POINTER_ADDRESS = ch$move (.LEN, %remaining, .POINTER_ADDRESS);
; M 0157 0 end
; M 0158 0 %fi
; 0159 0 %fi %;
; 0160 0
; 0161 0
; M 0162 0 macro CH$RWORD (POINTER) =
; M 0163 0 begin
; M 0164 0 local VAL;
; M 0165 0
; M 0166 0 VAL = 0;
; M 0167 0 VAL<0,8> = ch$rchar (POINTER);
; M 0168 0 VAL<8,8> = ch$rchar (ch$plus (POINTER,1));
; M 0169 0 .VAL
; 0170 0 end %;
; 0171 0
; 0172 0
; M 0173 0 macro CH$RWORD_A (POINTER_ADDRESS) =
; M 0174 0 begin
; M 0175 0 local VAL;
; M 0176 0
; M 0177 0 VAL = 0;
; M 0178 0 VAL<0,8> = ch$rchar_a (POINTER_ADDRESS);
; M 0179 0 VAL<8,8> = ch$rchar_a (POINTER_ADDRESS);
; M 0180 0 .VAL
; 0181 0 end %;
; 0182 0
; 0183 0
; M 0184 0 macro CH$WWORD (VALUE, POINTER) =
; M 0185 0 begin
; M 0186 0 local VAL;
; M 0187 0
; M 0188 0 VAL = VALUE;
; M 0189 0 ch$wchar (.VAL<0,8>, POINTER);
; M 0190 0 ch$wchar (.VAL<8,8>, ch$plus (POINTER,1));
; 0191 0 end %;
; 0192 0
; 0193 0
; M 0194 0 macro CH$WWORD_A (VALUE, POINTER_ADDRESS) =
; M 0195 0 begin
; M 0196 0 local VAL;
; M 0197 0
; M 0198 0 VAL = VALUE;
; M 0199 0 ch$wchar_a (.VAL<0,8>, POINTER_ADDRESS);
; M 0200 0 ch$wchar_a (.VAL<8,8>, POINTER_ADDRESS);
; 0201 0 end %;
; 0202 0
; 0203 0
; M 0204 0 macro $$ (VAL, MASK) =
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 8
Lexical Macros 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (6)
; 0205 0 ((VAL) ^ (%nbitsu (MASK and -MASK) -1)) %;
; 0206 0
; 0207 0
; M 0208 0 macro $ (MASK) =
; M 0209 0 %nbitsu (MASK and -MASK) -1,
; 0210 0 %nbitsu (MASK ^ -(%nbitsu (MASK and -MASK) -1) and (1 ^ (36 - (%nbitsu (MASK and -MASK) -1))) -1) %;
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 9
SNA Port Data Block Field Definitions 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (7)
; 0211 0 %sbttl 'SNA Port Data Block Field Definitions'
; 0212 0
; 0213 0 $field PORT_CONTROL_BLOCK_FIELDS =
; 0214 0 set
; L 0215 0 PCB_BLOCK_FIELD = [$sub_block()],
; %PRINT: [0,0,0,0] (+%O'0')
; L 0216 0 PCB_JFN = [$byte], ! Gateway logical link JFN
; %PRINT: [0,0,9,0] (+%O'0')
; L 0217 0 PCB_STATE = [$byte], ! Port state
; %PRINT: [0,9,9,0] (+%O'0')
; L 0218 0 PCB_FLAGS = [$byte], ! Control flags
; %PRINT: [0,18,9,0] (+%O'0')
; L 0219 0 PCB_RESET_SEEN = [$tiny_integer], ! Reset seen counter
; %PRINT: [0,27,9,1] (+%O'0')
; L 0220 0 PCB_INTCNT = [$short_integer], ! Count of Interrrupts seen
; %PRINT: [1,0,18,1] (+%O'1')
; L 0221 0 PCB_ERROR = [$bytes(2)], ! Port error
; %PRINT: [1,18,18,0] (+%O'1')
; L 0222 0 PCB_PACKET_SIZE = [$bytes(2)], ! Current packet size
; %PRINT: [2,0,18,0] (+%O'2')
; L 0223 0 PCB_DATA_BASE = [$address], ! Current user data base
; %PRINT: [2,18,18,0] (+%O'2')
; L 0224 0 PCB_INPUT_BUFFER = [$address], ! Address of input buffer data
; %PRINT: [3,0,18,0] (+%O'3')
; L 0225 0 PCB_OUTPUT_BUFFER = [$address], ! Address of output buffer data
; %PRINT: [3,18,18,0] (+%O'3')
; L 0226 0 PCB_INHEAD_BUFFER = [$address], ! Address of input buffer interrupt
; %PRINT: [4,0,18,0] (+%O'4')
; L 0227 0 PCB_OUTHEAD_BUFFER = [$address], ! Address of output buffer interrupt
; %PRINT: [4,18,18,0] (+%O'4')
; L 0228 0 PCB_INTAIL_BUFFER = [$address], ! Address of input buffer interrupt
; %PRINT: [5,0,18,0] (+%O'5')
; L 0229 0 PCB_OUTTAIL_BUFFER = [$address], ! Address of output buffer interrupt
; %PRINT: [5,18,18,0] (+%O'5')
; 0230 0
; 0231 0 $overlay (PCB_FLAGS)
; L 0232 0 PCB_RCV_INTERRUPT = [$bit], ! Received interrupt bit
; %PRINT: [0,18,1,0] (+%O'0')
; L 0233 0 PCB_DATA = [$bit] ! Data available flag
; %PRINT: [0,19,1,0] (+%O'0')
; 0234 0 $continue
; 0235 0 tes;
; 0236 0
; 0237 0 literal
; 0238 0 PORT_CONTROL_BLOCK_SIZE = $field_set_size;
; 0239 0
; M 0240 0 macro PORT_CONTROL_BLOCK =
; 0241 0 block [PORT_CONTROL_BLOCK_SIZE] field (PORT_CONTROL_BLOCK_FIELDS) %;
; 0242 0
; M 0243 0 macro PORT_CONTROL_BLOCKS =
; M 0244 0 blockvector [MAXIMUM_SUPPORTED_PORTS, PORT_CONTROL_BLOCK_SIZE]
; 0245 0 field (PORT_CONTROL_BLOCK_FIELDS) %;
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 10
SNA Port Data Block Field Definitions 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (7)
; 0246 0
; 0247 0
; 0248 0 ! RING Definitions
; 0249 0
; 0250 0 structure
; 0251 0 MULTIWORD_VECTOR[I; NUM_ELEMENTS, ELEMENT_SIZE] =
; 0252 0 [NUM_ELEMENTS*ELEMENT_SIZE] (I*ELEMENT_SIZE+MULTIWORD_VECTOR)<0, 36>;
; 0253 0 literal
; 0254 0 MAX_INTERRUPTS = 5;
; 0255 0
; 0256 0 literal
; 0257 0 INT_BUFFER_SIZE = 16;
; 0258 0
; 0259 0
; 0260 0 $field RING_ENTRY_FIELDS =
; 0261 0 set
; L 0262 0 DATA_BUFFER = [$bytes(INT_BUFFER_SIZE)], ! Input buffer
; %PRINT: [0,0,36,0] (+%O'0')
; 0263 0 $align (fullword)
; L 0264 0 IN_USE_FLAG = [$fullword],
; %PRINT: [4,0,36,0] (+%O'4')
; L 0265 0 DATA_LENGTH = [$fullword],
; %PRINT: [5,0,36,0] (+%O'5')
; L 0266 0 NEXT_RING_PTR = [$fullword]
; %PRINT: [6,0,36,0] (+%O'6')
; 0267 0 tes;
; 0268 0
; 0269 0 literal
; 0270 0 RING_ENTRY_SIZE = $field_set_size;
; 0271 0
; M 0272 0 macro RING_ENTRY =
; 0273 0 block [RING_ENTRY_SIZE] field (RING_ENTRY_FIELDS) %;
; 0274 0
; M 0275 0 macro RING_BLOCK =
; 0276 0 MULTIWORD_VECTOR [MAX_INTERRUPTS, RING_ENTRY_SIZE]%;
; 0277 0
; 0278 0 literal
; 0279 0 RING_SIZE = MAX_INTERRUPTS*RING_ENTRY_SIZE;
; 0280 0
; M 0281 0 macro RING_BLOCK_VECTOR =
; 0282 0 MULTIWORD_VECTOR [MAXIMUM_SUPPORTED_PORTS, RING_SIZE]%;
; 0283 0
; M 0284 0 macro INITIAL_STACK (SIZE) [] =
; M 0285 0 %if %count lss SIZE
; M 0286 0 %then %if %count gtr 0 %then , %fi
; M 0287 0 %count
; M 0288 0 INITIAL_STACK (SIZE)
; 0289 0 %else %exitmacro %fi %;
; 0290 0
; M 0291 0 macro STACK (SIZE) =
; 0292 0 vector [SIZE] %;
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 11
Input/Output Buffer Blocks 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (8)
; 0293 0 %sbttl 'Input/Output Buffer Blocks'
; 0294 0
; 0295 0 literal
; 0296 0 IO_BUFFER_SIZE = 3500;
; 0297 0
; 0298 0 $field IO_BUFFER_BLOCK_FIELDS =
; 0299 0 set
; L 0300 0 IOB_INPUT_BUFFER = [$bytes(IO_BUFFER_SIZE)], ! Input buffer
; %PRINT: [0,0,36,0] (+%O'0')
; 0301 0 $align (fullword)
; L 0302 0 IOB_INPUT_MARKER = [$fullword],
; %PRINT: [875,0,36,0] (+%O'1553')
; L 0303 0 IOB_OUTPUT_BUFFER = [$bytes(IO_BUFFER_SIZE)], ! Output buffer
; %PRINT: [876,0,36,0] (+%O'1554')
; 0304 0 $align (fullword)
; L 0305 0 IOB_OUTPUT_MARKER = [$fullword]
; %PRINT: [1751,0,36,0] (+%O'3327')
; 0306 0 tes;
; 0307 0
; 0308 0 literal
; 0309 0 IO_BUFFER_BLOCK_SIZE = $field_set_size;
; 0310 0
; M 0311 0 macro IO_BUFFER_BLOCK =
; 0312 0 block [IO_BUFFER_BLOCK_SIZE] field (IO_BUFFER_BLOCK_FIELDS) %;
; 0313 0
; M 0314 0 macro IO_BUFFER_BLOCKS =
; M 0315 0 blockvector [MAXIMUM_SUPPORTED_PORTS, IO_BUFFER_BLOCK_SIZE]
; 0316 0 field (IO_BUFFER_BLOCK_FIELDS) %;
; 0317 0
; M 0318 0 macro INITIAL_IO_BUFFER (SIZE) [] =
; M 0319 0 %if %count lss SIZE
; M 0320 0 %then %if %count gtr 0 %then , %fi
; M 0321 0 [%count, IOB_INPUT_MARKER] = -1,
; M 0322 0 [%count, IOB_OUTPUT_MARKER] = -1
; M 0323 0 INITIAL_IO_BUFFER (SIZE)
; 0324 0 %else %exitmacro %fi %;
; 0325 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 12
User Port Data Base Field Definitions 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (9)
; 0326 0 %sbttl 'User Port Data Base Field Definitions'
; 0327 0
; 0328 0 $field USER_DATA_BASE_FIELDS =
; 0329 0 set
; L 0330 0 UDB_FLAGS = [$byte], ! User data base flags
; %PRINT: [0,0,9,0] (+%O'0')
; L 0331 0 UDB_FLUSH_SEND = [$short_integer],! Number of Flush buffer messages to send
; %PRINT: [0,9,18,1] (+%O'0')
; L 0332 0 UDB_USER_DATA_LENGTH = [$short_integer], ! User data buffer size
; %PRINT: [1,0,18,1] (+%O'1')
; L 0333 0 UDB_DATA_LENGTH = [$short_integer], ! Data Length
; %PRINT: [1,18,18,1] (+%O'1')
; L 0334 0 UDB_E_DATA_LENGTH = [$short_integer], ! Data Length
; %PRINT: [2,0,18,1] (+%O'2')
; L 0335 0 UDB_BIND_LENGTH = [$short_integer], ! Bind data length
; %PRINT: [2,18,18,1] (+%O'2')
; L 0336 0 UDB_ABORT_LENGTH = [$short_integer], ! Abort data length
; %PRINT: [3,0,18,1] (+%O'3')
; L 0337 0 UDB_ABORT_STATUS = [$fullword], ! Status at time of abort
; %PRINT: [4,0,36,0] (+%O'4')
; 0338 0 $align (fullword)
; L 0339 0 UDB_USER = [$stringx(8)], !
; %PRINT: [5,0,36,0] (+%O'5')
; 0340 0 $align (fullword)
; L 0341 0 UDB_BIND_DATA = [$bytes(129)], ! BIND data buffer
; %PRINT: [7,0,36,0] (+%O'7')
; 0342 0 $align (fullword)
; L 0343 0 UDB_ABORT_DATA = [$bytes(129)], ! Abort data buffer
; %PRINT: [40,0,36,0] (+%O'50')
; 0344 0 $align (fullword)
; L 0345 0 UDB_USER_DATA = [$sub_blockx(513)], ! User data buffer
; %PRINT: [73,0,36,0] (+%O'111')
; 0346 0 $continue
; 0347 0
; 0348 0 $overlay (UDB_FLAGS)
; L 0349 0 UDB_DATA = [$bit], ! Data type
; %PRINT: [0,0,1,0] (+%O'0')
; L 0350 0 UDB_DATA_AVAILABLE = [$bit], ! Data available flag
; %PRINT: [0,1,1,0] (+%O'0')
; L 0351 0 UDB_BIND_AVAILABLE = [$bit], ! BIND data available flag
; %PRINT: [0,2,1,0] (+%O'0')
; L 0352 0 UDB_INTERRUPT_AVAILABLE = [$bit] ! Interrupt data available flag
; %PRINT: [0,3,1,0] (+%O'0')
; 0353 0 $continue
; 0354 0 tes;
; 0355 0
; 0356 0 literal
; 0357 0 USER_DATA_BASE_SIZE = $field_set_size;
; 0358 0
; M 0359 0 macro USER_DATA_BASE =
; 0360 0 block [USER_DATA_BASE_SIZE] field (USER_DATA_BASE_FIELDS) %;
; 0361 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 13
Macro Interface Argument Block Field Definition 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (10)
; 0362 0 %sbttl 'Macro Interface Argument Block Field Definitions'
; 0363 0
; 0364 0 $field ARGUMENT_BLOCK_FIELDS =
; 0365 0 set
; L 0366 0 ARGUMENT_WORD_0 = [$sub_block(1)],
; %PRINT: [0,0,0,0] (+%O'0')
; 0367 0
; 0368 0 $overlay (ARGUMENT_WORD_0)
; L 0369 0 WORKING_AREA = [$address],
; %PRINT: [0,0,18,0] (+%O'0')
; L 0370 0 INTERRUPT_CHANNEL = [$short_integer],
; %PRINT: [0,18,18,1] (+%O'0')
; 0371 0 $continue
; 0372 0
; 0373 0 $overlay (ARGUMENT_WORD_0) ! Accept Incoming Connect
; L 0374 0 ACC_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0375 0 ACC_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; 0376 0 $continue
; 0377 0
; 0378 0 $overlay (ARGUMENT_WORD_0) ! Reject a Connect
; L 0379 0 REJ_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0380 0 REJ_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0381 0 REJ_SENSE_CODE = [$fullword],
; %PRINT: [2,0,36,0] (+%O'2')
; 0382 0 $continue
; 0383 0
; 0384 0 $overlay (ARGUMENT_WORD_0) ! Connect to an IBM Appl.
; L 0385 0 CON_PORT_NUMBER = [$halfword],
; %PRINT: [0,0,18,0] (+%O'0')
; L 0386 0 CON_INTERRUPT_CHANNEL = [$halfword],
; %PRINT: [0,18,18,0] (+%O'0')
; L 0387 0 CON_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0388 0 CON_NODE_NAME = [$pointer],
; %PRINT: [2,0,36,0] (+%O'2')
; L 0389 0 CON_CIRCUIT_NAME = [$pointer],
; %PRINT: [3,0,36,0] (+%O'3')
; L 0390 0 CON_PASSWORD = [$pointer],
; %PRINT: [4,0,36,0] (+%O'4')
; L 0391 0 CON_LOGON_MODE = [$pointer],
; %PRINT: [5,0,36,0] (+%O'5')
; L 0392 0 CON_PLU_NAME = [$pointer],
; %PRINT: [6,0,36,0] (+%O'6')
; L 0393 0 CON_USER = [$pointer],
; %PRINT: [7,0,36,0] (+%O'7')
; L 0394 0 CON_USER_DATA = [$pointer],
; %PRINT: [8,0,36,0] (+%O'10')
; L 0395 0 CON_USER_DATA_LENGTH = [$fullword],
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 14
Macro Interface Argument Block Field Definition 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (10)
; %PRINT: [9,0,36,0] (+%O'11')
; L 0396 0 CON_ACCESS_NAME = [$pointer],
; %PRINT: [10,0,36,0] (+%O'12')
; L 0397 0 CON_SLU_NUMBER = [$fullword],
; %PRINT: [11,0,36,0] (+%O'13')
; 0398 0 $continue
; 0399 0
; 0400 0 $overlay (ARGUMENT_WORD_0) ! Recieve Data Message
; L 0401 0 REC_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0402 0 REC_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0403 0 REC_DATA_LENGTH = [$fullword],
; %PRINT: [2,0,36,0] (+%O'2')
; L 0404 0 REC_DATA_POINTER = [$pointer],
; %PRINT: [3,0,36,0] (+%O'3')
; L 0405 0 REC_SEQ_NUMBER = [$integer],
; %PRINT: [4,0,36,1] (+%O'4')
; L 0406 0 REC_RH = [$fullword],
; %PRINT: [5,0,36,0] (+%O'5')
; 0407 0 $continue
; 0408 0
; 0409 0 $overlay (ARGUMENT_WORD_0) ! Receiving Interrupt Message
; L 0410 0 REM_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0411 0 REM_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0412 0 REM_DATA_LENGTH = [$short_integer],
; %PRINT: [2,0,18,1] (+%O'2')
; L 0413 0 REM_DATA = [$pointer],
; %PRINT: [3,0,36,0] (+%O'3')
; L 0414 0 REM_SEQ_NUMBER = [$fullword],
; %PRINT: [4,0,36,0] (+%O'4')
; L 0415 0 REM_RH = [$fullword],
; %PRINT: [5,0,36,0] (+%O'5')
; 0416 0 $continue
; 0417 0
; 0418 0 $overlay (ARGUMENT_WORD_0) ! Read Event data
; L 0419 0 RDE_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0420 0 RDE_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0421 0 RDE_EVENT_CODE = [$halfword],
; %PRINT: [2,0,18,0] (+%O'2')
; L 0422 0 RDE_RESERVED = [$bits(16)],
; %PRINT: [2,18,16,0] (+%O'2')
; L 0423 0 RDE_INTERRUPT_AVAILABLE = [$bit],
; %PRINT: [2,34,1,0] (+%O'2')
; L 0424 0 RDE_DATA_AVAILABLE = [$bit],
; %PRINT: [2,35,1,0] (+%O'2')
; L 0425 0 RDE_STATE = [$fullword],
; %PRINT: [3,0,36,0] (+%O'3')
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 15
Macro Interface Argument Block Field Definition 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (10)
; L 0426 0 RDE_ERROR = [$fullword],
; %PRINT: [4,0,36,0] (+%O'4')
; 0427 0 $continue
; 0428 0
; 0429 0 $overlay (ARGUMENT_WORD_0) ! Read Abort data
; L 0430 0 RAD_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0431 0 RAD_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0432 0 RAD_ABORT_STATUS = [$fullword],
; %PRINT: [2,0,36,0] (+%O'2')
; L 0433 0 RAD_ABORT_REASON = [$fullword],
; %PRINT: [3,0,36,0] (+%O'3')
; L 0434 0 RAD_SENSE_CODE = [$fullword],
; %PRINT: [4,0,36,0] (+%O'4')
; L 0435 0 RAD_STATE = [$halfword],
; %PRINT: [5,0,18,0] (+%O'5')
; L 0436 0 RAD_LENGTH = [$halfword],
; %PRINT: [5,18,18,0] (+%O'5')
; L 0437 0 RAD_DATA = [$pointer],
; %PRINT: [6,0,36,0] (+%O'6')
; 0438 0 $continue
; 0439 0
; 0440 0 $overlay (ARGUMENT_WORD_0) ! Read BIND data
; L 0441 0 RBD_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0442 0 RBD_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0443 0 RBD_BIND_LENGTH = [$fullword],
; %PRINT: [2,0,36,0] (+%O'2')
; L 0444 0 RBD_BIND_DATA = [$pointer],
; %PRINT: [3,0,36,0] (+%O'3')
; 0445 0 $continue
; 0446 0
; 0447 0 $overlay (ARGUMENT_WORD_0) ! Re-Connect
; L 0448 0 RCN_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0449 0 RCN_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; 0450 0 $continue
; 0451 0
; 0452 0 $overlay (ARGUMENT_WORD_0) ! Transmit Data Message
; L 0453 0 TRA_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0454 0 TRA_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0455 0 TRA_DATA_LENGTH = [$short_integer],
; %PRINT: [2,0,18,1] (+%O'2')
; L 0456 0 TRA_RESERVED = [$bits(17)],
; %PRINT: [2,18,17,0] (+%O'2')
; L 0457 0 TRA_DATA_TYPE = [$bit],
; %PRINT: [2,35,1,0] (+%O'2')
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 16
Macro Interface Argument Block Field Definition 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (10)
; L 0458 0 TRA_DATA_POINTER = [$pointer],
; %PRINT: [3,0,36,0] (+%O'3')
; L 0459 0 TRA_SEQ_NUMBER = [$fullword],
; %PRINT: [4,0,36,0] (+%O'4')
; L 0460 0 TRA_RH = [$fullword],
; %PRINT: [5,0,36,0] (+%O'5')
; 0461 0 $continue
; 0462 0
; 0463 0 $overlay (ARGUMENT_WORD_0) ! Terminate Port Access
; L 0464 0 TER_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0465 0 TER_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0466 0 TER_SENSE_CODE = [$fullword],
; %PRINT: [2,0,36,0] (+%O'2')
; 0467 0 $continue
; 0468 0
; 0469 0 $overlay (ARGUMENT_WORD_0) ! Listen for Incoming Connect
; L 0470 0 LIS_PORT_NUMBER = [$integer],
; %PRINT: [0,0,36,1] (+%O'0')
; L 0471 0 LIS_RETURN_CODE = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0472 0 LIS_NODE_NAME = [$pointer],
; %PRINT: [2,0,36,0] (+%O'2')
; L 0473 0 LIS_CIRCUIT_NAME = [$pointer],
; %PRINT: [3,0,36,0] (+%O'3')
; L 0474 0 LIS_ACCESS_NAME = [$pointer],
; %PRINT: [4,0,36,0] (+%O'4')
; L 0475 0 LIS_SLU_NUMBER = [$fullword]
; %PRINT: [5,0,36,0] (+%O'5')
; 0476 0 $continue
; 0477 0 tes;
; 0478 0
; 0479 0 literal
; 0480 0 ARGUMENT_BLOCK_SIZE = $field_set_size;
; 0481 0
; M 0482 0 macro ARGUMENT_BLOCK =
; 0483 0 block [ARGUMENT_BLOCK_SIZE] field (ARGUMENT_BLOCK_FIELDS) %;
; 0484 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 17
Miscelaneous Field Definitions 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (11)
; 0485 0 %sbttl 'Miscelaneous Field Definitions'
; 0486 0
; 0487 0 $field LEVTAB_BLOCK_FIELDS =
; 0488 0 set
; L 0489 0 BLOCK1 = [$fullword],
; %PRINT: [0,0,36,0] (+%O'0')
; L 0490 0 BLOCK2 = [$fullword],
; %PRINT: [1,0,36,0] (+%O'1')
; L 0491 0 BLOCK3 = [$fullword]
; %PRINT: [2,0,36,0] (+%O'2')
; 0492 0 tes;
; 0493 0
; M 0494 0 macro LEVTAB_BLOCK =
; 0495 0 block [3] field (LEVTAB_BLOCK_FIELDS) %;
; 0496 0
; 0497 0 $field CHNTAB_BLOCK_FIELDS =
; 0498 0 set
; L 0499 0 WORD0 = [$fullword],
; %PRINT: [0,0,36,0] (+%O'0')
; L 0500 0 CHAN_1 = [$halfword],
; %PRINT: [1,0,18,0] (+%O'1')
; L 0501 0 INTLEV1 = [$halfword],
; %PRINT: [1,18,18,0] (+%O'1')
; L 0502 0 CHAN_2 = [$halfword],
; %PRINT: [2,0,18,0] (+%O'2')
; L 0503 0 INTLEV2 = [$halfword],
; %PRINT: [2,18,18,0] (+%O'2')
; L 0504 0 BBZ = [$bytes(132)]
; %PRINT: [3,0,36,0] (+%O'3')
; 0505 0 tes;
; 0506 0
; M 0507 0 macro CHNTAB_BLOCK =
; 0508 0 block [36] field (CHNTAB_BLOCK_FIELDS) %;
; 0509 0
; 0510 0 $field LEVTAB_CHNTAB_FIELDS =
; 0511 0 set
; L 0512 0 CHNTAB_ADDRESS = [$halfword],
; %PRINT: [0,0,18,0] (+%O'0')
; L 0513 0 LEVTAB_ADDRESS = [$halfword]
; %PRINT: [0,18,18,0] (+%O'0')
; 0514 0 tes;
; 0515 0
; M 0516 0 macro INT_BLOCK =
; 0517 0 block [1] field (LEVTAB_CHNTAB_FIELDS) %;
; 0518 0
; 0519 0 $field SIGNED_BYTE_FIELDS =
; 0520 0 set
; 0521 0 VALUE = [0,0,8,1] ! Signed eight bit byte
; 0522 0 tes;
; 0523 0
; M 0524 0 macro $SIGNED_BYTE_VALUE =
; 0525 0 block [1] field (SIGNED_BYTE_FIELDS) %;
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 18
Miscelaneous Field Definitions 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (11)
; 0526 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 19
Functional Specification Literals 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (12)
; 0527 0 %sbttl 'Functional Specification Literals'
; 0528 0
; 0529 0 literal ! SNA Port state
; 0530 0 AS_UND = 0, ! UNDEFINED
; 0531 0 AS_BNW = 1, ! BINDWAIT (LISTENING)
; 0532 0 AS_BNR = 2, ! BIND RECIEVED (CALLED)
; 0533 0 AS_FLU = 3, ! FLUSHING
; 0534 0 AS_RUN = 4, ! RUNNING
; 0535 0 AS_RCN = 5, ! RECONNECTING
; 0536 0 AS_ABG = 6, ! ABORTING
; 0537 0 AS_ABD = 7, ! ABORTED
; 0538 0 AS_ERR = 8; ! ERROR
; 0539 0
; 0540 0 literal ! SNA Gateway Access protocol
; 0541 0 AP_OUTGOING_CONNECT = 1, ! 1
; 0542 0 AP_LISTEN_CONNECT = 2, ! 2
; 0543 0 AP_BINDDATA = 3, ! 3
; 0544 0 AP_BIND_ACCEPT = 4, ! 4
; 0545 0 AP_NORMAL_DATA = 5, ! 5
; 0546 0 AP_FLUSH_BUF = 6, ! 6
; 0547 0 AP_RECON_PEND = 7, ! 7
; 0548 0 AP_RECON_CONFIRM = 8; ! 8
; 0549 0
; 0550 0 literal ! Standard facility values
; 0551 0 AF_STANDARD_PACKET_SIZE = 10,
; 0552 0 AF_MINIMUM_PACKET_SIZE = 4,
; 0553 0 AF_MAXIMUM_PACKET_SIZE = 12,
; 0554 0 AF_MAXIMUM_BIND_DATA_SIZE = 128,
; 0555 0 AF_MAXIMUM_USER_DATA_SIZE = 128,
; 0556 0 AF_MAXIMUM_ABORT_DATA_SIZE = 128;
; 0557 0
; 0558 0 literal ! SNA Return error codes
; 0559 0 AC_SUC = 0, ! Success
; 0560 0 AC_DCE = 1^0, ! Error making the Decnet connection
; 0561 0 AC_IAR = 1^1, ! Insufficient access resources
; 0562 0 AC_PER = 1^2, ! Procedure error
; 0563 0 AC_NDA = 1^3, ! No data to read
; 0564 0 AC_NLN = 1^4, ! No translation, logical name SNAGAT
; 0565 0 AC_NCM = 1^5, ! No Communication
; 0566 0 AC_RCN = 1^6, ! Reconnect Pending
; 0567 0 AC_DFT = 1^7, ! Data field truncated
; 0568 0 AC_INA = 1^8, ! Illegal network access code
; 0569 0 AC_BPN = 1^9, ! Bad Port Number
; 0570 0 AC_BTL = 1^10, ! Buffer too long
; 0571 0 AC_BTS = 1^11, ! Buffer too short
; 0572 0 AC_RSS = 1^12, ! Reset seen
; 0573 0 AC_SER = 1^13, ! Error Sending Normal data
; 0574 0 AC_RCE = 1^14, ! Error Reconnecting
; 0575 0 AC_SIE = 1^15, ! Error Sending Interrupt Data
; 0576 0 AC_PSE = 1^16, ! Error setting up the PSI system
; 0577 0 AC_DLA = 1^17; ! Decnet Link aborted during connect
; 0578 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 20
Functional Specification Literals 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (12)
; 0579 0 literal ! SNA error code
; 0580 0 AR_UND = 0, ! Undefined error
; 0581 0 AR_UAB = 100, ! User Abort Reason code
; 0582 0 AR_URJ = 101, ! User Reject
; 0583 0 AR_IPV = 102, ! Insufficient Gateway resourses
; 0584 0 AR_IGR = 103, ! Insufficient Gateway resourses
; 0585 0 AR_NAN = 104, ! No Such Access Name
; 0586 0 AR_CNA = 105, ! Circuit Name not available
; 0587 0 AR_NSC = 106, ! No such Circuit
; 0588 0 AR_CNS = 107, ! Circuit Name not specified
; 0589 0 AR_PNS = 108, ! PLU Name not specified
; 0590 0 AR_NSA = 109, ! No such SLU
; 0591 0 AR_SNA = 110, ! SLU address not available (no ACTLU)
; 0592 0 AR_SIU = 111, ! SLU address in use
; 0593 0 AR_CRJ = 112, ! CONNECT request rejected by SSCP/PLU
; 0594 0 AR_BIN = 113, ! BIND values rejected by gateway
; 0595 0 AR_UBR = 114, ! UNBIND received while in RUNNING
; 0596 0 AR_SDA = 115, ! SLU deactivated
; 0597 0 AR_IAE = 116, ! Internal library error
; 0598 0 AR_IGE = 117, ! Internal Gateway error
; 0599 0 AR_SAA = 118, ! Session was aborted by re-
; 0600 0 AR_AST = 119, ! Abnormal session termination
; 0601 0 AR_NSL = 120, ! All SLU addresses inactive or in use
; 0602 0 AR_EDO = 121; ! Expedited data overrun
; 0603 0
; 0604 0
; 0605 0 literal ! SNA error codes
; 0606 0 AE_UNK = 0, ! Unknown error
; 0607 0 AE_IGR = 1^1, ! Insufficient gateway resources
; 0608 0 AE_INU = 1^2, ! Circuit in use
; 0609 0 AE_UCN = 1^3, ! Undefined circuit name
; 0610 0 AE_NLN = 1^4, ! No logical name
; 0611 0 AE_NCM = 1^5, ! No communication with the Gateway
; 0612 0 AE_DFT = 1^6, ! Data field truncated
; 0613 0 AE_FFT = 1^7, ! Facilities field truncated
; 0614 0 AE_EDO = 1^8; ! Expedited data overrun
; 0615 0
; 0616 0
; 0617 0 macro ! Gateway Access version text strings
; 0618 0 XV_VER = '001' %, ! Major
; 0619 0 XV_ECO = '001' %, ! ECO
; 0620 0 XV_CEC = '000' %, ! Customer ECO
; 0621 0 XV_GWA = '001' %, ! Gateway version
; 0622 0 XV_UEC = '000' %; ! User version
; 0623 0
; 0624 0 literal ! Gateway Access version numeric value
; 0625 0 XV$VER = %X'01', ! Major
; 0626 0 XV$ECO = %X'01', ! ECO
; 0627 0 XV$CEC = %X'00', ! Customer ECO
; 0628 0 XV$GWA = %X'01', ! Gateway version
; 0629 0 XV$UEC = %X'00'; ! User version
; 0630 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 21
Functional Specification Literals 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (12)
; M 0631 0 macro PROTOCOL_VERSION =
; 0632 0 %name ('P.VERS'): initial (XV$VER ^ 28 + XV$ECO ^ 20 + XV$CEC ^ 12 + XV$GWA ^ 4 + XV$UEC) %;
; 0633 0
; 0634 0 literal ! Rejection codes
; 0635 0 AR_REJ = 1, ! Incompatibility
; 0636 0 AR_ACC = 2; ! Illegal access
; 0637 0
; 0638 0 $literal ! Function codes
; 0639 0 AF_ACC = $distinct, ! Accept a Connect
; 0640 0 AF_CON = $distinct, ! Connect to IBM app.
; 0641 0 AF_REC = $distinct, ! Recieve Data Message
; 0642 0 AF_REM = $distinct, ! Read Expedited Message
; 0643 0 AF_REJ = $distinct, ! Reject a BIND
; 0644 0 AF_RBD = $distinct, ! Read BIND Data
; 0645 0 AF_RDE = $distinct, ! Read Event Data
; 0646 0 AF_RAD = $distinct, ! Read Abort Data
; 0647 0 AF_RCN = $distinct, ! Re-Connect
; 0648 0 AF_TRA = $distinct, ! Transmit Data Message
; 0649 0 AF_TER = $distinct, ! Terminate Port Access
; 0650 0 AF_LIS = $distinct; ! Listen (for) Incoming Connect
; 0651 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 22
Global Routine Name Mapping 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (13)
; 0652 0 %sbttl 'Global Routine Name Mapping'
; 0653 0
; M 0654 0 macro %ROUTINE (NAME) =
; M 0655 0 %sbttl %string (NAME %if not %identical (NAME, %string (%name (NAME)))
; M 0656 0 %then ,' (', %name (NAME), ')' %fi)
; M 0657 0 routine %name (NAME)
; M 0658 0 %if %length gtr 1
; 0659 0 %then (%remaining) %fi %;
; 0660 0
; M 0661 0 macro %GLOBAL_ROUTINE (NAME) =
; M 0662 0 %sbttl %string (NAME %if not %identical (NAME, %string (%name (NAME)))
; M 0663 0 %then ,' (', %name (NAME), ')' %fi)
; M 0664 0 global routine %name (NAME)
; M 0665 0 %if %length gtr 1
; 0666 0 %then (%remaining) %fi %;
; 0667 0
; 0668 0 !
; 0669 0 ! SNA Gateway Access DECnet Function Routines
; 0670 0 !
; 0671 0
; 0672 0 macro ! SAIDNF routines
; 0673 0 GAD$ABORT_LINK = GADABT %,
; 0674 0 GAD$ABORT_REASON = GADRSN %,
; 0675 0 GAD$DISCONNECT_LINK = GADDIS %,
; 0676 0 GAD$LINK_STATUS = GADSTA %,
; 0677 0 GAD$NETWORK_DESCRIPTOR = GADNET %,
; 0678 0 GAD$OPEN_LINK = GADOPN %,
; 0679 0 GAD$OPEN_SERVER = GADSRV %,
; 0680 0 GAD$PROTOCOL_TYPE = GADTYP %,
; 0681 0 GAD$PSI_CHANNELS = GADPSI %,
; 0682 0 GAD$RECEIVE_DATA = GADRCV %,
; 0683 0 GAD$SEND_DATA = GADSEN %,
; 0684 0 GAD$RECEIVE_INTERRUPT = GADRCI %,
; 0685 0 GAD$SEND_INTERRUPT = GADSNI %,
; 0686 0 GAD$EC_SEND_DATA = GADSEC %;
; 0687 0
; 0688 0 !
; 0689 0 ! SNA Gateway Access DECnet Link Function Routines
; 0690 0 !
; 0691 0
; 0692 0 macro ! SAIDLF routines
; 0693 0 GAL$CHECK_VERSION = GALCKR %,
; 0694 0 GAL$CONFIRM_VERSION = GALCFV %,
; 0695 0 GAL$LINK_SERVICE = GALSRV %,
; 0696 0 GAL$TERMINATE = GALTER %,
; 0697 0 GAL$REJECT = GALREJ %,
; 0698 0 GAL$INTERRUPT = GALINT %,
; 0699 0 GAL$RECEIVE_INTERRUPT = GALRCI %,
; 0700 0 GAL$RECEIVE_DATA = GALRCD %;
; 0701 0
; 0702 0 !
; 0703 0 ! SNA Gateway Access Macro Interface Routines
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 23
Global Routine Name Mapping 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (13)
; 0704 0 !
; 0705 0
; 0706 0 macro ! SAIMAC routines
; 0707 0 GAM$VERIFY_PORT = GAMVFY %,
; 0708 0 GAM$SERVICE_PORT = GAMSER %,
; 0709 0 GAM$PORT_STATE = GAMSTA %,
; 0710 0 GAM$ASCIZ = GAMASZ %,
; 0711 0 GAM$ASCIC = GAMASC %;
; 0712 0
; 0713 0 !
; 0714 0 ! SNA Gateway Access Protocol Input/Output Routines
; 0715 0 !
; 0716 0
; 0717 0 macro ! SAIPRI routines
; 0718 0 GAP$I_BIND_ACCEPT = GPIACP %,
; 0719 0 GAP$I_COPY = GPICPY %,
; 0720 0 GAP$I_BINDDATA = GPIBIN %,
; 0721 0 GAP$I_DATA = GPIDAT %,
; 0722 0 GAP$I_FLUSH_BUF = GPIFLB %,
; 0723 0 GAP$I_RECON_PEND = GPIRCP %,
; 0724 0 GAP$I_PROTOCOL_TYPE = GPITYP %;
; 0725 0
; 0726 0
; 0727 0 macro ! SAIPRO routines
; 0728 0 GAP$O_ACCEPT = GPOACP %,
; 0729 0 GAP$O_ASSEMBLE = GPOASM %,
; 0730 0 GAP$O_CALL = GPOCAL %,
; 0731 0 GAP$O_LISTEN = GPOLIS %,
; 0732 0 GAP$O_DATA = GPODAT %,
; 0733 0 GAP$O_FLUSH = GPOFLB %,
; 0734 0 GAP$O_RECONNECT = GPORCN %;
; 0735 0
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 24
Interface Linkages 21-Jan-1985 13:45:56 STAR:<SNA.TAPE2.AI.SOURCE>SNACOM.R36.1 (14)
; 0736 0 %sbttl 'Interface Linkages'
; 0737 0
; 0738 0 linkage MAC =
; 0739 0 pushj (register = 1):
; 0740 0 linkage_regs (15,13,0)
; 0741 0 preserve (0,1,2,3,4,5,6,7,8,9,10,11,12,14);
; 0742 0
; 0743 0
; 0744 0 !
; 0745 0 ! Buffer used to exchange abort messages between
; 0746 0 ! the gateway and AI
; 0747 0 !
; 0748 0 !...$SNAABTBUFDEF
; 0749 0
; 0750 0 MACRO SNAABTBUF$B_MSGCDE = 0,0,8,0%; ! Abort Message code
; 0751 0
; 0752 0 MACRO SNAABTBUF$T_SENSE = 1,0,0,0%; ! Sense data
; 0753 0 LITERAL SNAABTBUF$S_SENSE = 100;
; 0754 0
; 0755 0 MACRO SNAABTBUF$B_UNBCDE = 5,0,8,0%; ! Unbind type
; 0756 0 MACRO SNAABTBUF$B_ABTCDE = 6,0,8,0%; ! Server abort code
; 0757 0 MACRO SNAABTBUF$B_ABTQUAL = 7,0,8,0%; ! Server abort qualifier
; 0758 0
; 0759 0 LITERAL SNAABTBUF$C_LEN = 8;
; 0760 0 LITERAL SNAABTBUF$K_LEN = 8;
; 0761 0
; 0762 0
; 0763 0 ! Local Modes:
; 0764 0 ! Mode:BLISS
; 0765 0 ! Auto Save Mode:2
; 0766 0 ! Comment Column:40
; 0767 0 ! Comment Rounding:+1
; 0768 0 ! End:
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks Processing
; File Total Loaded Percent Read Time
;
; STAR:<SNA.TAPE2.AI.SOURCE>SNAXPT.L36.1
; 572 43 7 35 00:00.1
; Run Time: 00:14.5
; Elapsed Time: 00:30.6
; Lines/CPU Min: 3171
SNACOM -- SNA Gateway Access Common Symbols 13-Feb-1985 13:31:43 TOPS-20 Bliss-36 4A(225) Page 25
Interface Linkages
; Lexemes/CPU-Min:235457
; Memory Used: 23 pages
; Library Precompilation Complete