* %GOTO BSLRRT; /* 01000010 MACRO 02000010 TRRTD 03000010 SPACE 04000010 * VERSION DATED 08/31/72 05000010 .*C150000-160000,200000,250000,300000,340000-350000,420000 @Y17XAXF 05200010 .*C580000,670000,760000,840000,770000 @Y17XAXF 05400010 .*A420000,810000,840000 @Y17XAXF 05600010 SPACE 06000010 IEDNRRTD DSECT 07000010 RRTHDRLN DS H . LENGTH OF HEADER DATA 08000010 RRTKEYLN DS H . HOST UNIT SIZE 09000010 RRTUNITN DS XL1 . NUMBER OF UNITS IN HOST BUFFER 10000010 RRTUNITR DS XL1 . NUMBER OF 3705 UNITS INITIALLY 11000010 * ALLOCATED FOR DATA TRANSFER 12000010 * FROM THE HOST 13000010 RRTKEYLR DS XL1 . 3705 UNIT SIZE 14000010 RRTBUFPD DS XL1 . BUFFER PAD SIZE @Y17XAXF 15000010 RRTXTPD DS XL1 . ALWAYS EQUAL TO ZERO @Y17XAXF 16000010 RRTNODEL DS XL1 . SYSTEM NODE LENGTH 17000010 SPACE 3 19000010 IEDNRTRM DSECT START OF 1ST RRT ENTRY @Y17XAXF 20000010 * NOTE - TO DETERMINE ACTUAL BEGINNING POINT, ADD RRTHDRLN TO ADDRESS 21000010 * OF RESOURCE RESOLUTION TABLE 22000010 RRTERMNM DS CL8 . NAME OF RESOURCE 23000010 RRTRSID DS AL2 . RESOURCE ID 24000010 RRTRMTP1 DS XL1 . TYPE OF RESOURCE-BYTE 1@Y17XAXF 25000010 SPACE 26000010 RRTLINE EQU X'80' RESOURCE IS A LINE 27000010 RRTDEVCE EQU X'40' RESOURCE IS A CLUSTER, TERMINAL 28000010 * OR COMPONENT 29000010 RRTPU EQU X'20' ON-PU TYPE 1 OR 2 @Y17XAXF 30000010 * OFF-PU TYPE 4 @Y17XAXF 31000010 RRTINPUT EQU X'10' DEVICE IS CAPABLE OF INPUT 32000010 RRTOUTPT EQU X'08' DEVICE IS CAPABLE OF OUTPUT 33000010 * OR IS LU @Y17XAXF 34000010 RRTSWTCH EQU X'04' SWITCHED @Y17XAXF 35000010 RRTAUTOC EQU X'02' 3705 CAN CALL THE DEVICE 36000010 RRTDVTYD EQU X'01' DEVICE TYPE DEPENDENT - 37000010 * 2980 WITH ALTERNATE ADDRESSING 38000010 * SECOND TERMINAL TYPE BIT ASSIGNMENTS 39000010 RRTRMTP2 DS XL1 . TYPE OF RESOURCE-BYTE2 @Y17XAXF 39500010 RRTCLSTR EQU X'80' DEVICE IS A CLUSTER 40000010 RRTCTERM EQU X'40' LOGICAL CONNECTION DEVICE 41000010 RRTSNA EQU X'20' . SNA RESOURCE @Y17XAXF 42000010 RRTGPTRM EQU X'08' . DEVICE ON GP CLUSTER @Y17XAXF 42500010 * BITS 3,5-7 RESERVED 43000010 MEND , */ 44000010 *%BSLRRT: ; 45000010 *DECLARE 46000010 * 1 IEDNRRT BDY(WORD) BASED(IEDNRPTR), /*RESOURCE RESOLUTION TABLE */ 47000010 * 2 RRTHDRLN FIXED(15), /* LENGTH OF HEADER DATA */ 48000010 * 2 RRTKEYLN FIXED(15), /* HOST UNIT SIZE */ 49000010 * 2 RRTUNITN PTR(8), /* NUMBER OF UNITS IN HOST 50000010 * BUFFER */ 51000010 * 2 RRTUNITR PTR(8), /* NUMBER OF 3705 UNITS 52000010 * INITIALLY ALLOCATED FOR 53000010 * DATA TRANSFER FROM THE 54000010 * HOST */ 55000010 * 2 RRTKEYLR PTR(8), /* 3705 UNIT SIZE */ 56000010 * 2 RRTBUFPD PTR(8), /* BUFFER PAD SIZE */ 57000010 * 2 RRTXTPD PTR(8), /* ALWAYS = 0 @Y17XAXF*/ 58000010 * 2 RRTNODEL PTR(8); /* SYSTEM NODE LENGTH */ 60000010 * 62000010 *DECLARE 63000010 * 1 IEDNRTRM BDY(BYTE) BASED(IEDNRPTR + LENGTH(IEDNRRT)), 64000010 * 2 RRTERMNM CHAR(8), /* NAME OF RESOURCE */ 65000010 * 2 RRTRSID PTR(16), /* RESOURCE ID */ 66000010 * 2 RRTRMTP1 BIT(8), /* TYPE OF RESOURCE-BYTE1 */ 67000010 * /* @Y17XAXF*/ 67500010 * 68000010 * 3 RRTLINE BIT(1), /* RESOURCE IS A LINE */ 69000010 * 3 RRTDEVCE BIT(1), /* RESOURCE IS A CLUSTER, 70000010 * TERMINAL, OR COMPONENT */ 71000010 * 3 RRTPU BIT(1), /* ON-PU TYPE 1 OR 2 72000010 * OFF-PU TYPE 4 @Y17XAXF*/ 73000010 * 3 RRTINPUT BIT(1), /* DEVICE IS CAPABLE OF INPUT*/ 74000010 * 3 RRTOUTPT BIT(1), /* DEVICE IS CAPABLE OF 75000010 * OUTPUT, OR IS LU @Y17XAXF*/ 76000010 * 3 RRTSWTCH BIT(1), /* SWITCHED @Y17XAXF*/ 77000010 * 3 RRTAUTOC BIT(1), /* 3705 CAN CALL THE DEVICE */ 78000010 * 3 RRTDVTYD BIT(1), /* DEVICE TYPE DEPENDENT- 79000010 * 2980 WITH ALTERNATE 80000010 * ADDRESSING */ 81000010 * 2 RRTRMTP2 BIT(8), /* TYPE OF RESOURCE-BYTE2 */ 81300010 * /* @Y17XAXF*/ 81600010 * 3 RRTCLSTR BIT(1), /* DEVICE IS A CLUSTER */ 82000010 * 3 RRTCTERM BIT(1), /* LOGICAL CONNECTION DEVICE */ 83000010 * 3 RRTSNA BIT(1), /* SNA RESOURCE @Y17XAXF*/ 84000010 * 3 * BIT(1), /* RESERVED @Y17XAXF*/ 84200010 * 3 RRTGPTRM BIT(1), /* DEVICE ON GP CLUS @Y17XAXF*/ 84400010 * 3 * BIT(3); /* RESERVED @Y17XAXF*/ 84600010