Trailing-Edge
-
PDP-10 Archives
-
BB-FB51A-RM
-
sna-ai/sources/saibls.lst
There are no other files named saibls.lst in the archive.
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 1
3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (1)
; 0001 0 %title 'SNA GATEWAY ACCESS INTERFACE FOR BLISS'
; 0002 0
; 0003 0 ! Copyright (c) 1985 by
; 0004 0 ! DIGITAL EQUIPMENT CORPORATION, Maynard, Massachusetts 01754
; 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 !++
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 2
Supporting Macros 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (2)
; 0020 0 %sbttl 'Supporting Macros'
; 0021 0
; M 0022 0 macro $INITIALIZE (BLOCK, BLOCK_SIZE) =
; 0023 0 ch$fill (0, BLOCK_SIZE, ch$ptr (BLOCK,,36)) %;
; 0024 0
; M 0025 0 macro $ASSIGN (ARG1, ARG2) =
; M 0026 0 %if not %null (ARG2)
; 0027 0 %then ARG1 = ARG2 %fi %;
; 0028 0
; M 0029 0 macro $VASSIGN (ARG1, ARG2) =
; M 0030 0 %if not %null (ARG2)
; 0031 0 %then ARG1 = .ARG2 %fi %;
; 0032 0
; M 0033 0 macro $RETURN (ARG1, ARG2) =
; M 0034 0 %if not %null (ARG1)
; 0035 0 %then ARG1 = ARG2 %fi %;
; 0036 0
; 0037 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 3
AACC - Accept Incoming BIND 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (3)
; 0038 0 %sbttl 'AACC - Accept Incoming BIND'
; 0039 0
; 0040 0 keywordmacro AACC (PORT_NUMBER,
; M 0041 0 RETURN_CODE = 0) =
; M 0042 0 begin
; M 0043 0 local ACCBLK: ARGUMENT_BLOCK;
; M 0044 0 external routine
; M 0045 0 A_ACC: MAC novalue;
; M 0046 0
; M 0047 0 $INITIALIZE (ACCBLK, ARGUMENT_BLOCK_SIZE);
; M 0048 0
; M 0049 0 ACCBLK[ACC_PORT_NUMBER] = PORT_NUMBER;
; M 0050 0
; M 0051 0 A_ACC (ACCBLK);
; M 0052 0
; M 0053 0 $RETURN (RETURN_CODE, .ACCBLK[ACC_RETURN_CODE]);
; M 0054 0
; 0055 0 end %;
; 0056 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 4
AREJ - Reject Connect Request 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (4)
; 0057 0 %sbttl 'AREJ - Reject Connect Request'
; 0058 0
; 0059 0 keywordmacro AREJ (PORT_NUMBER,
; 0060 0 SENSE_CODE = 0,
; M 0061 0 RETURN_CODE = 0) =
; M 0062 0 begin
; M 0063 0 local REJBLK: ARGUMENT_BLOCK;
; M 0064 0 external routine
; M 0065 0 A_REJ: MAC novalue;
; M 0066 0
; M 0067 0 $INITIALIZE (REJBLK, ARGUMENT_BLOCK_SIZE);
; M 0068 0
; M 0069 0 REJBLK[REJ_PORT_NUMBER] = PORT_NUMBER;
; M 0070 0 REJBLK[REJ_SENSE_CODE] = SENSE_CODE;
; M 0071 0
; M 0072 0 A_REJ (REJBLK);
; M 0073 0
; M 0074 0 $RETURN (RETURN_CODE, .REJBLK[REJ_RETURN_CODE]);
; M 0075 0
; 0076 0 end %;
; 0077 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 5
ACON - Connect to IBM 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (5)
; 0078 0 %sbttl 'ACON - Connect to IBM'
; 0079 0
; 0080 0 keywordmacro ACON (WORK_AREA_ADDRESS,
; 0081 0 PSI_CHANNEL = -1,
; 0082 0 PORT_NUMBER = 0,
; 0083 0 NODE_NAME = 0,
; 0084 0 CIRCUIT_ID = 0,
; 0085 0 PASSWORD = 0,
; 0086 0 LOGON_MODE = 0,
; 0087 0 PLU_NAME = 0,
; 0088 0 USER_NAME = 0,
; 0089 0 USER_DATA_ADDRESS = 0,
; 0090 0 USER_DATA_LENGTH = 0,
; 0091 0 ACCESS,
; 0092 0 SLU_NUMBER = 0,
; M 0093 0 RETURN_CODE = 0) =
; M 0094 0 begin
; M 0095 0 local CONBLK: ARGUMENT_BLOCK;
; M 0096 0 external routine
; M 0097 0 A_CON: MAC novalue;
; M 0098 0
; M 0099 0 $INITIALIZE (CONBLK, ARGUMENT_BLOCK_SIZE);
; M 0100 0
; M 0101 0 CONBLK[WORKING_AREA] = WORK_AREA_ADDRESS;
; M 0102 0 CONBLK[INTERRUPT_CHANNEL] = PSI_CHANNEL;
; M 0103 0 CONBLK[CON_NODE_NAME] = NODE_NAME;
; M 0104 0 CONBLK[CON_CIRCUIT_NAME] = CIRCUIT_ID;
; M 0105 0 CONBLK[CON_PASSWORD] = PASSWORD;
; M 0106 0 CONBLK[CON_LOGON_MODE] = LOGON_MODE;
; M 0107 0 CONBLK[CON_PLU_NAME] = PLU_NAME;
; M 0108 0 CONBLK[CON_USER] = USER_NAME;
; M 0109 0 CONBLK[CON_ACCESS_NAME] = ACCESS;
; M 0110 0 CONBLK[CON_USER_DATA] = USER_DATA_ADDRESS;
; M 0111 0 CONBLK[CON_USER_DATA_LENGTH] = USER_DATA_LENGTH;
; M 0112 0 CONBLK[CON_SLU_NUMBER] = SLU_NUMBER;
; M 0113 0
; M 0114 0 A_CON (CONBLK);
; M 0115 0
; M 0116 0 PORT_NUMBER = .CONBLK[CON_PORT_NUMBER];
; M 0117 0 $RETURN (RETURN_CODE, .CONBLK[CON_RETURN_CODE]);
; M 0118 0
; 0119 0 end %;
; 0120 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 6
AREC - Recieve Data Message 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (6)
; 0121 0 %sbttl 'AREC - Recieve Data Message'
; 0122 0
; 0123 0 keywordmacro AREC (PORT_NUMBER,
; 0124 0 DATA_LENGTH,
; 0125 0 DATA_POINTER,
; 0126 0 SEQ_NUMBER,
; 0127 0 RH,
; M 0128 0 RETURN_CODE = 0) =
; M 0129 0 begin
; M 0130 0 local RECBLK: ARGUMENT_BLOCK;
; M 0131 0 external routine
; M 0132 0 A_REC: MAC novalue;
; M 0133 0
; M 0134 0 $INITIALIZE (RECBLK, ARGUMENT_BLOCK_SIZE);
; M 0135 0
; M 0136 0 RECBLK[REC_PORT_NUMBER] = PORT_NUMBER;
; M 0137 0 RECBLK[REC_DATA_POINTER] = .DATA_POINTER;
; M 0138 0 RECBLK[REC_DATA_LENGTH] = .DATA_LENGTH;
; M 0139 0
; M 0140 0 A_REC (RECBLK);
; M 0141 0
; M 0142 0 SEQ_NUMBER = .RECBLK[REC_SEQ_NUMBER];
; M 0143 0 RH = .RECBLK[REC_RH];
; M 0144 0 DATA_POINTER = .RECBLK[REC_DATA_POINTER];
; M 0145 0 DATA_LENGTH = .RECBLK[REC_DATA_LENGTH];
; M 0146 0 $RETURN (RETURN_CODE, .RECBLK[REC_RETURN_CODE]);
; M 0147 0
; 0148 0 end %;
; 0149 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 7
AREM - Read Expedited Message 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (7)
; 0150 0 %sbttl 'AREM - Read Expedited Message'
; 0151 0
; 0152 0
; 0153 0 keywordmacro AREM (PORT_NUMBER,
; 0154 0 DATA_LENGTH,
; 0155 0 DATA_POINTER,
; 0156 0 SEQ_NUMBER,
; 0157 0 RH,
; M 0158 0 RETURN_CODE = 0) =
; M 0159 0 begin
; M 0160 0 local REMBLK: ARGUMENT_BLOCK;
; M 0161 0 external routine
; M 0162 0 A_REM: MAC novalue;
; M 0163 0
; M 0164 0
; M 0165 0 $INITIALIZE (REMBLK, ARGUMENT_BLOCK_SIZE);
; M 0166 0
; M 0167 0 REMBLK[REM_PORT_NUMBER] = PORT_NUMBER;
; M 0168 0 REMBLK[REM_DATA] = DATA_POINTER;
; M 0169 0 REMBLK[REM_DATA_LENGTH] = .DATA_LENGTH;
; M 0170 0
; M 0171 0 A_REM (REMBLK);
; M 0172 0
; M 0173 0 SEQ_NUMBER = .REMBLK[REM_SEQ_NUMBER];
; M 0174 0 RH = .REMBLK[REM_RH];
; M 0175 0 DATA_LENGTH = .REMBLK[REM_DATA_LENGTH];
; M 0176 0 $RETURN (RETURN_CODE, .REMBLK[REM_RETURN_CODE]);
; M 0177 0
; 0178 0 end %;
; 0179 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 8
ARDE - Read Data Event 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (8)
; 0180 0 %sbttl 'ARDE - Read Data Event'
; 0181 0
; 0182 0 keywordmacro ARDE (PORT_NUMBER,
; 0183 0 ERROR = 0,
; 0184 0 STATE = 0,
; 0185 0 DATA_AVAILABLE = 0,
; 0186 0 INTERRUPT_AVAILABLE = 0,
; M 0187 0 RETURN_CODE = 0) =
; M 0188 0 begin
; M 0189 0 local RDEBLK: ARGUMENT_BLOCK;
; M 0190 0 external routine
; M 0191 0 A_RDE: MAC novalue;
; M 0192 0
; M 0193 0 $INITIALIZE (RDEBLK, ARGUMENT_BLOCK_SIZE);
; M 0194 0
; M 0195 0 RDEBLK[RDE_PORT_NUMBER] = PORT_NUMBER;
; M 0196 0
; M 0197 0 A_RDE (RDEBLK);
; M 0198 0
; M 0199 0 ERROR = .RDEBLK[RDE_ERROR];
; M 0200 0 STATE = .RDEBLK[RDE_STATE];
; M 0201 0 DATA_AVAILABLE = .RDEBLK[RDE_DATA_AVAILABLE];
; M 0202 0 INTERRUPT_AVAILABLE = .RDEBLK[RDE_INTERRUPT_AVAILABLE];
; M 0203 0 $RETURN (RETURN_CODE, .RDEBLK[RDE_RETURN_CODE]);
; M 0204 0
; 0205 0 end %;
; 0206 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 9
ARAD - Read Abort Data 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (9)
; 0207 0 %sbttl 'ARAD - Read Abort Data'
; 0208 0
; 0209 0 keywordmacro ARAD (PORT_NUMBER,
; 0210 0 ABORT_STATUS = 0,
; 0211 0 ABORT_REASON = 0,
; 0212 0 SENSE_CODE = 0,
; 0213 0 STATE = 0,
; 0214 0 LENGTH = 0,
; 0215 0 DATA_PTR = 0,
; M 0216 0 RETURN_CODE = 0) =
; M 0217 0 begin
; M 0218 0 local RADBLK: ARGUMENT_BLOCK;
; M 0219 0 external routine
; M 0220 0 A_RAD: MAC novalue;
; M 0221 0
; M 0222 0 $INITIALIZE (RADBLK, ARGUMENT_BLOCK_SIZE);
; M 0223 0
; M 0224 0 RADBLK[RAD_PORT_NUMBER] = PORT_NUMBER;
; M 0225 0 RADBLK[RAD_DATA] = DATA_PTR;
; M 0226 0
; M 0227 0 A_RAD (RADBLK);
; M 0228 0
; M 0229 0 ABORT_STATUS = .RADBLK[RAD_ABORT_STATUS];
; M 0230 0 ABORT_REASON = .RADBLK[RAD_ABORT_REASON];
; M 0231 0 SENSE_CODE = .RADBLK[RAD_SENSE_CODE];
; M 0232 0 STATE = .RADBLK[RAD_STATE];
; M 0233 0 LENGTH = .RADBLK[RAD_LENGTH];
; M 0234 0 $RETURN (RETURN_CODE, .RADBLK[RAD_RETURN_CODE]);
; M 0235 0
; 0236 0 end %;
; 0237 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 10
ARBD - Read BINDDATA 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (10)
; 0238 0 %sbttl 'ARBD - Read BINDDATA'
; 0239 0
; 0240 0 keywordmacro ARBD (PORT_NUMBER,
; 0241 0 LENGTH,
; 0242 0 DATA_PTR,
; M 0243 0 RETURN_CODE = 0) =
; M 0244 0 begin
; M 0245 0 local RBDBLK: ARGUMENT_BLOCK;
; M 0246 0 external routine
; M 0247 0 A_RBD: MAC novalue;
; M 0248 0
; M 0249 0 $INITIALIZE (RBDBLK, ARGUMENT_BLOCK_SIZE);
; M 0250 0
; M 0251 0 RBDBLK[RBD_PORT_NUMBER] = PORT_NUMBER;
; M 0252 0 RBDBLK[RBD_BIND_DATA] = DATA_PTR;
; M 0253 0
; M 0254 0 A_RBD (RBDBLK);
; M 0255 0
; M 0256 0 LENGTH = .RBDBLK[RBD_BIND_LENGTH];
; M 0257 0 $RETURN (RETURN_CODE, .RBDBLK[RBD_RETURN_CODE]);
; M 0258 0
; 0259 0 end %;
; 0260 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 11
ARCN - Recconect 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (11)
; 0261 0 %sbttl 'ARCN - Recconect'
; 0262 0
; 0263 0 keywordmacro ARCN (PORT_NUMBER,
; M 0264 0 RETURN_CODE = 0) =
; M 0265 0 begin
; M 0266 0 local RCNBLK: ARGUMENT_BLOCK;
; M 0267 0 external routine
; M 0268 0 A_RCN: MAC novalue;
; M 0269 0
; M 0270 0 $INITIALIZE (RCNBLK, ARGUMENT_BLOCK_SIZE);
; M 0271 0
; M 0272 0 RCNBLK[RCN_PORT_NUMBER] = PORT_NUMBER;
; M 0273 0
; M 0274 0 A_RCN (RCNBLK);
; M 0275 0
; M 0276 0 $RETURN (RETURN_CODE, .RCNBLK[RCN_RETURN_CODE]);
; M 0277 0
; 0278 0 end %;
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 12
ATRA - Transmit Data Message 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (12)
; 0279 0 %sbttl 'ATRA - Transmit Data Message'
; 0280 0
; 0281 0 keywordmacro ATRA (PORT_NUMBER,
; 0282 0 DATA_TYPE,
; 0283 0 DATA_LENGTH,
; 0284 0 DATA_POINTER,
; 0285 0 SEQ_NUMBER,
; 0286 0 RH,
; M 0287 0 RETURN_CODE = 0) =
; M 0288 0 begin
; M 0289 0 local TRABLK: ARGUMENT_BLOCK;
; M 0290 0 external routine
; M 0291 0 A_TRA: MAC novalue;
; M 0292 0
; M 0293 0 $INITIALIZE (TRABLK, ARGUMENT_BLOCK_SIZE);
; M 0294 0
; M 0295 0 TRABLK[TRA_PORT_NUMBER] = PORT_NUMBER;
; M 0296 0 TRABLK[TRA_DATA_TYPE] = DATA_TYPE;
; M 0297 0 TRABLK[TRA_DATA_LENGTH] = .DATA_LENGTH;
; M 0298 0 TRABLK[TRA_DATA_POINTER] = .DATA_POINTER;
; M 0299 0 TRABLK[TRA_SEQ_NUMBER] = SEQ_NUMBER;
; M 0300 0 TRABLK[TRA_RH] = RH;
; M 0301 0
; M 0302 0 A_TRA (TRABLK);
; M 0303 0
; M 0304 0
; M 0305 0 DATA_POINTER = .TRABLK[TRA_DATA_POINTER];
; M 0306 0 $RETURN (RETURN_CODE, .TRABLK[TRA_RETURN_CODE]);
; M 0307 0
; 0308 0 end %;
; 0309 0
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 13
ATER - Terminate Port Access 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (13)
; 0310 0 %sbttl 'ATER - Terminate Port Access'
; 0311 0
; 0312 0 keywordmacro ATER (PORT_NUMBER,
; 0313 0 SENSE_CODE,
; M 0314 0 RETURN_CODE = 0) =
; M 0315 0 begin
; M 0316 0 local TERBLK: ARGUMENT_BLOCK;
; M 0317 0 external routine
; M 0318 0 A_TER: MAC novalue;
; M 0319 0
; M 0320 0 $INITIALIZE (TERBLK, ARGUMENT_BLOCK_SIZE);
; M 0321 0
; M 0322 0 TERBLK[TER_PORT_NUMBER] = PORT_NUMBER;
; M 0323 0 TERBLK[TER_SENSE_CODE] = SENSE_CODE;
; M 0324 0
; M 0325 0 A_TER (TERBLK);
; M 0326 0
; M 0327 0 $RETURN (RETURN_CODE, .TERBLK[TER_RETURN_CODE]);
; M 0328 0
; 0329 0 end %;
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 14
ALIS - Listen Incoming Connect 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (14)
; 0330 0 %sbttl 'ALIS - Listen Incoming Connect'
; 0331 0
; 0332 0 keywordmacro ALIS (WORK_AREA_ADDRESS,
; 0333 0 PORT_NUMBER,
; 0334 0 PSI_CHANNEL = -1,
; 0335 0 NODE_NAME = 0,
; 0336 0 CIRCUIT_NAME = 0,
; 0337 0 ACCESS,
; 0338 0 SLU_NUMBER = 0,
; M 0339 0 RETURN_CODE = 0) =
; M 0340 0 begin
; M 0341 0 local LISBLK: ARGUMENT_BLOCK;
; M 0342 0 external routine
; M 0343 0 A_LIS: MAC novalue;
; M 0344 0
; M 0345 0 $INITIALIZE (LISBLK, ARGUMENT_BLOCK_SIZE);
; M 0346 0
; M 0347 0 LISBLK[WORKING_AREA] = WORK_AREA_ADDRESS;
; M 0348 0 LISBLK[INTERRUPT_CHANNEL] = PSI_CHANNEL;
; M 0349 0 LISBLK[LIS_NODE_NAME] = NODE_NAME;
; M 0350 0 LISBLK[LIS_CIRCUIT_NAME] = CIRCUIT_NAME;
; M 0351 0 LISBLK[LIS_ACCESS_NAME] = ACCESS;
; M 0352 0 LISBLK[LIS_SLU_NUMBER] = SLU_NUMBER;
; M 0353 0
; M 0354 0 A_LIS (LISBLK);
; M 0355 0
; M 0356 0 PORT_NUMBER = .LISBLK[LIS_PORT_NUMBER];
; M 0357 0 $RETURN (RETURN_CODE, .LISBLK[LIS_RETURN_CODE]);
; M 0358 0
; 0359 0 end %;
SNA GATEWAY ACCESS INTERFACE FOR BLISS 13-Feb-1985 13:31:32 TOPS-20 Bliss-36 4A(225) Page 15
ALIS - Listen Incoming Connect 3-Jul-1984 16:10:51 STAR:<SNA.TAPE2.AI.SOURCE>SAIBLS.R36.1 (15)
; 0360 0
; 0361 0 ! Local Modes:
; 0362 0 ! Mode:BLISS
; 0363 0 ! Auto Save Mode:2
; 0364 0 ! Comment Column:40
; 0365 0 ! Comment Rounding:+1
; 0366 0 ! End:
; Run Time: 00:01.9
; Elapsed Time: 00:08.5
; Lines/CPU Min: 11473
; Lexemes/CPU-Min: 49968
; Memory Used: 6 pages
; Library Precompilation Complete