* %GOTO CD1PLS; /* BILINGUAL HEADER 00400000 MACRO 00800000 TCD1D 01200000 .*A000000-999999 @Y17XAXF 01600000 * 02000000 * DATA FLOW CONTROL COMMANDS 02400000 * 02800000 CD1LSTAT EQU X'04' . LUSTAT 03200000 CD1RTR EQU X'05' . READY TO RECEIVE 03600000 CD1QEC EQU X'80' . QUIESCE AT END OF CHAIN 04000000 CD1QC EQU X'81' . QUIESCE COMPLETE 04400000 CD1REL1 EQU X'82' . RELEASE QUIESCE 04800000 CD1CANCL EQU X'83' . CANCEL 05200000 CD1CHASE EQU X'84' . CHASE 05600000 CD1SHUTD EQU X'C0' . SHUTDOWN 06000000 CD1SHUTC EQU X'C1' . SHUTDOWN COMPLETE 06400000 CD1RSHUT EQU X'C2' . REQUEST SHUTDOWN 06800000 CD1BID EQU X'C8' . BID 07200000 CD1SIG EQU X'C9' . SIGNAL 07600000 SPACE 2 08000000 * 08400000 * SESSION CONTROL COMMANDS 08800000 * 09200000 CD1ACTLU EQU X'0D' . ACTIVATE LU 09600000 CD1DATLU EQU X'0E' . DEACTIVATE LU 10000000 CD1ACTPU EQU X'11' . ACTIVATE PU 10400000 CD1DATPU EQU X'12' . DEACTIVATE PU 10800000 CD1BIND EQU X'31' . BIND 11200000 CD1UBIND EQU X'32' . UNBIND 11600000 CD1SDT EQU X'A0' . START DATA TRAFFIC 12000000 CD1CLEAR EQU X'A1' . CLEAR 12400000 CD1STSN EQU X'A2' . SET AND TEST SEQ NUMBERS 12800000 CD1RQR EQU X'A3' . REQUEST RECOVERY 13200000 SPACE 2 13600000 * 14000000 * NETWORK CONTROL COMMANDS 14400000 * 14800000 CD1PREPS EQU X'02' . PREPARE SWITCH 15200000 CD1SWCOM EQU X'03' . SWITCH COMPLETE 15600000 CD1ANS EQU X'06' . AUTO NETWORK SHUTDOWN 16000000 CD1ANSC EQU X'07' . ANS COMPLETE 16400000 CD1INITC EQU X'50' . INIT COMPLETE 16800000 CD1SWNCP EQU X'51' . SWITCH TO NCP 16900000 CD1SWEP EQU X'52' . SWITCH TO EP 17000000 EJECT 17200000 * 17600000 * 18000000 * NETWORK SERVICES FID1 COMMANDS 18400000 * 18800000 * 19200000 CD1NETS EQU X'01' . NETWORK SERVICES IND 19600000 SPACE 20000000 * 20400000 * CONFIGURATION SERVICES FID1 COMMANDS 20800000 * 21200000 CD1CONFS EQU X'02' . CONFIGURATION SERV IND 21600000 SPACE 22000000 CD1CONT EQU X'01' . CONTACT 22400000 CD1DCONT EQU X'02' . DISCONTACT 22800000 CD1IPLI EQU X'03' . IPL INITIAL 23200000 CD1IPLT EQU X'04' . IPL TEXT 23600000 CD1IPLF EQU X'05' . IPL FINAL 24000000 CD1DMPI EQU X'06' . DUMP INITIAL 24400000 CD1DMPT EQU X'07' . DUMP TEXT 24800000 CD1DMPF EQU X'08' . DUMP FINAL 25200000 CD1RPO EQU X'09' . REMOTE POWER OFF 25600000 CD1ACTLK EQU X'0A' . ACTIVATE LINK 26000000 CD1DACLK EQU X'0B' . DEACTIVATE LINK 26400000 CD1CESLW EQU X'0C' . CONTROL ENTER SLOWDOWN 26800000 CD1CXSLW EQU X'0D' . CONTROL EXIT SLOWDOWN 27200000 CD1CONNO EQU X'0E' . CONNECT OUT 27600000 CD1ABC EQU X'0F' . ABANDON CONNECTION 28000000 CD1SETTD EQU X'01' . SET TIME AND DATE 28400000 CD1SETV EQU X'11' . SET CONTROL VECTOR 28600000 CD1SENV EQU X'12' . SENSE CONTROL VECTOR 28800000 CD1ESLOW EQU X'14' . ENTERING SLOWDOWN 29200000 CD1EXSLW EQU X'15' . EXITING SLOWDOWN 29600000 CD1ACI EQU X'16' . ACTIVATE CONNECT IN 30000000 CD1DCI EQU X'17' . DEACTIVATE CONNECT IN 30400000 CD1ACO EQU X'18' . ABANDON CONNECT OUT 30800000 CD1ANA EQU X'19' . ASSIGN NETWORK ADDR 31200000 CD1FNA EQU X'1A' . FREE NETWORK ADDR 31600000 CD1REQD EQU X'1B' . REQUEST DISCONTACT 32000000 CD1CONCT EQU X'80' . CONTACTED 32400000 CD1INOP EQU X'81' . INOPERATIVE 32800000 CD1REQC EQU X'84' . REQUEST CONTACT 33200000 SPACE 33600000 * 34000000 * MAINTENANCE SERVICES FID1 COMMANDS 34400000 * 34800000 CD1MAINT EQU X'03' . MAINTENANCE SERV IND 35200000 SPACE 35600000 CD1EX EQU X'01' . EXECUTE TEST 36000000 CD1ACTTR EQU X'02' . ACTIVATE TRACE 36400000 CD1DACTR EQU X'03' . DEACTIVATE TRACE 36800000 CD1RTP EQU X'80' . REQUEST TEST PROCEDURE 37200000 CD1RMS EQU X'81' . RECORD MAINTENANCE STATS @YM07259 37600000 CD1RTTD EQU X'82' . RECORD TEST DATA 38000000 CD1RTRD EQU X'83' . RECORD TRACE DATA 38400000 SPACE 38800000 * 39200000 * MEASUREMENT SERVICES FID1 COMMANDS 39600000 * 40000000 CD1MEAS EQU X'04' . MEASUREMENT SERVICES IND 40400000 SPACE 40800000 CD1STM EQU X'01' . START MEASUREMENT 41200000 CD1SPM EQU X'02' . STOP MEASUREMENT 41600000 CD1RMD EQU X'80' . RECORD MEASUREMENT DATA 42000000 SPACE 42400000 * 42800000 * SESSION SERVICES FID1 COMMANDS 43200000 * 43600000 CD1SESS EQU X'06' . SESSION SERVICES IND 44000000 SPACE 44400000 CD1CINIT EQU X'01' . CONTROL INITIATE 44800000 CD1CTERM EQU X'02' . CONTROL TERMINATE 45200000 CD1NSPRO EQU X'04' . NS PROC ERROR 45600000 CD1INITS EQU X'81' . INITIATE SELF 46000000 CD1INITO EQU X'80' . INITIATE OTHER 46400000 CD1TERMO EQU X'82' . TERMINATE OTHER 46800000 CD1TERMS EQU X'83' . TERMINATE SELF 47200000 CD1BINDF EQU X'85' . BIND FAILURE 47600000 CD1SESST EQU X'86' . SESSION STARTED 48000000 CD1UBNDF EQU X'87' . UNBIND FAILURE 48400000 CD1SESEN EQU X'88' . SESSION ENDED 48800000 SPACE 48830000 * 48860000 * NCP ONLY COMMAND CATEGORY 48890000 * 48920000 CD1PRE EQU X'00' . 3705 ONLY INDICATOR 48950000 SPACE 48980000 CD1CGTRL EQU X'01' . CHANGE DEVICE TRANS LIMIT 49010000 CD1CGNPL EQU X'02' . CHANGE NEGATIVE POLL LIMIT 49040000 CD1CGSSL EQU X'03' . CHANGE SESSION LIMIT 49070000 CD1CGSSP EQU X'04' . CHANGE SERVICE SEEKING PAUSE 49100000 MEND 49200000 * */ 49600000 *%CD1PLS:; 50000000 */* */ 50400000 */* DATA FLOW CONTROL COMMANDS */ 50800000 */* */ 51200000 * DCL CD1LSTAT BIT(8) CONSTANT('04'X); /* LUSTAT */ 51600000 * DCL CD1RTR BIT(8) CONSTANT('05'X); /* READY TO RECEIVE */ 52000000 * DCL CD1QEC BIT(8) CONSTANT('80'X); /* QUIESCE AT END OF CHAIN */ 52400000 * DCL CD1QC BIT(8) CONSTANT('81'X); /* QUIESCE COMPLETE */ 52800000 * DCL CD1RELQ BIT(8) CONSTANT('82'X); /* RELEASE QUIESCE */ 53200000 * DCL CD1CANCL BIT(8) CONSTANT('83'X); /* CANCEL */ 53600000 * DCL CD1CHASE BIT(8) CONSTANT('84'X); /* CHASE */ 54000000 * DCL CD1SHUTD BIT(8) CONSTANT('C0'X); /* SHUTDOWN */ 54400000 * DCL CD1SHUTC BIT(8) CONSTANT('C1'X); /* SHUTDOWN COMPLETE */ 54800000 * DCL CD1RSHUT BIT(8) CONSTANT('C2'X); /* REQUEST SHUTDOWN */ 55200000 * DCL CD1BID BIT(8) CONSTANT('C8'X); /* BID */ 55600000 * DCL CD1SIG BIT(8) CONSTANT('C9'X); /* SIGNAL */ 56000000 @SPACE; 56400000 */* */ 56800000 */* SESSION CONTROL COMMANDS */ 57200000 */* */ 57600000 * DCL CD1ACTLU BIT(8) CONSTANT('0D'X); /* ACTIVATE LU */ 58000000 * DCL CD1DATLU BIT(8) CONSTANT('0E'X); /* DEACTIVATE LU */ 58400000 * DCL CD1ACTPU BIT(8) CONSTANT('11'X); /* ACTIVATE PU */ 58800000 * DCL CD1DATPU BIT(8) CONSTANT('12'X); /* DEACTIVATE PU */ 59200000 * DCL CD1BIND BIT(8) CONSTANT('31'X); /* BIND */ 59600000 * DCL CD1UBIND BIT(8) CONSTANT('32'X); /* UNBIND */ 60000000 * DCL CD1SDT BIT(8) CONSTANT('A0'X); /* START DATA TRAFFIC */ 60400000 * DCL CD1CLEAR BIT(8) CONSTANT('A1'X); /* CLEAR */ 60800000 * DCL CD1STSN BIT(8) CONSTANT('A2'X); /* SET AND TEST SEQ NUMBERS */ 61200000 * DCL CD1RQR BIT(8) CONSTANT('A3'X); /* REQUEST RECEIVED */ 61600000 @SPACE; 62000000 */* */ 62400000 */* NETWORK CONTROL COMMANDS */ 62800000 */* */ 63200000 * DCL CD1PREPS BIT(8) CONSTANT('02'X); /* PREPARE SWITCH */ 63600000 * DCL CD1SWCOM BIT(8) CONSTANT('03'X); /* SWITCH COMPLETE */ 64000000 * DCL CD1ANS BIT(8) CONSTANT('06'X); /* AUTO NETWORK SHUTDOWN */ 64400000 * DCL CD1ANSC BIT(8) CONSTANT('07'X); /* ANS COMPLETE */ 64800000 * DCL CD1INITC BIT(8) CONSTANT('50'X); /* INIT COMPLETE */ 65200000 * DCL CD1SWNCP BIT(8) CONSTANT('51'X); /* SWITCH TO NCP */ 65400000 * DCL CD1SWEP BIT(8) CONSTANT('52'X); /* SWITCH TO EP */ 65600000 */* */ 66000000 */* */ 66400000 */* NETWORK SERVICES FID1 COMMANDS */ 66800000 */* */ 67200000 */* */ 67600000 * DCL CD1NETS BIT(8) CONSTANT('01'X); /* NETWORK SERV IND */ 68000000 @SPACE; 68400000 */* */ 68800000 */* CONFIGURATION SERVICES FID1 COMMANDS */ 69200000 */* */ 69600000 * DCL CD1CONFS BIT(8) CONSTANT('02'X); /* CONFIGURATION SERV IND */ 70000000 @SPACE; 70400000 * DCL CD1CONT BIT(8) CONSTANT('01'X); /* CONTACT */ 70800000 * DCL CD1DCONT BIT(8) CONSTANT('02'X); /* DISCONTACT */ 71200000 * DCL CD1IPLI BIT(8) CONSTANT('03'X); /* IPL INITIAL */ 71600000 * DCL CD1IPLT BIT(8) CONSTANT('04'X); /* IPL TEXT */ 72000000 * DCL CD1IPLF BIT(8) CONSTANT('05'X); /* IPL FINAL */ 72400000 * DCL CD1DMPI BIT(8) CONSTANT('06'X); /* DUMP INITIAL */ 72800000 * DCL CD1DMPT BIT(8) CONSTANT('07'X); /* DUMP TEXT */ 73200000 * DCL CD1DMPF BIT(8) CONSTANT('08'X); /* DUMP FINAL */ 73600000 * DCL CD1RPO BIT(8) CONSTANT('09'X); /* REMOTE POWER OFF */ 74000000 * DCL CD1ACTLK BIT(8) CONSTANT('0A'X); /* ACTIVATE LINK */ 74400000 * DCL CD1DACLK BIT(8) CONSTANT('0B'X); /* DEACTIVATE LINK */ 74800000 * DCL CD1CESLW BIT(8) CONSTANT('0C'X); /* CONTROL ENTER SLOWDOWN */ 75200000 * DCL CD1CXSLW BIT(8) CONSTANT('0D'X); /* CONTROL EXIT SLOWDOWN */ 75600000 * DCL CD1CONNO BIT(8) CONSTANT('0E'X); /* CONNECT OUT */ 76000000 * DCL CD1ABC BIT(8) CONSTANT('0F'X); /* ABANDON CONNECTION */ 76400000 * DCL CD1SETTD BIT(8) CONSTANT('01'X); /* SET TIME AND DATE */ 76800000 * DCL CD1SETV BIT(8) CONSTANT('11'X); /* SET CONTROL VECTOR */ 77000000 * DCL CD1SENV BIT(8) CONSTANT('12'X); /* SENSE CONTROL VECTOR */ 77200000 * DCL CD1ESLOW BIT(8) CONSTANT('14'X); /* ENTERING SLOWDOWN */ 77600000 * DCL CD1EXSLW BIT(8) CONSTANT('15'X); /* EXITING SLOWDOWN */ 78000000 * DCL CD1ACI BIT(8) CONSTANT('16'X); /* ACTIVATE CONNECT IN */ 78400000 * DCL CD1DCI BIT(8) CONSTANT('17'X); /* DEACTIVATE CONNECT IN */ 78800000 * DCL CD1ACO BIT(8) CONSTANT('18'X); /* ABANDON CONNECT OUT */ 79200000 * DCL CD1ANA BIT(8) CONSTANT('19'X); /* ASSIGN NETWORK ADDR */ 79600000 * DCL CD1FNA BIT(8) CONSTANT('1A'X); /* FREE NETWORK ADDR */ 80000000 * DCL CD1REQD BIT(8) CONSTANT('1B'X); /* REQUEST DISCONTACT */ 80400000 * DCL CD1CONCT BIT(8) CONSTANT('80'X); /* CONTACTED */ 80800000 * DCL CD1INOP BIT(8) CONSTANT('81'X); /* INOPERATIVE */ 81200000 * DCL CD1REQC BIT(8) CONSTANT('84'X); /* REQUEST CONTACT */ 81600000 @SPACE; 82000000 */* */ 82400000 */* MAINTENANCE SERVICES FID1 COMMANDS */ 82800000 */* */ 83200000 * DCL CD1MAINT BIT(8) CONSTANT('03'X); /* MAINTENANCE SERV IND */ 83600000 @SPACE; 84000000 * DCL CD1EX BIT(8) CONSTANT('01'X); /* EXECUTE TEST */ 84400000 * DCL CD1ACTTR BIT(8) CONSTANT('02'X); /* ACTIVATE TRACE */ 84800000 * DCL CD1DACTR BIT(8) CONSTANT('03'X); /* DEACTIVATE TRACE */ 85200000 * DCL CD1RTP BIT(8) CONSTANT('80'X); /* REQUEST TEST PROCEDURE */ 85600000 * DCL CD1RMS BIT(8) CONSTANT('81'X); /* RECORD MAINT STATISTICS */ 86000000 * DCL CD1RTTD BIT(8) CONSTANT('82'X); /* RECORD TEST DATA */ 86400000 * DCL CD1RTRD BIT(8) CONSTANT('83'X); /* RECORD TRACE DATA */ 86800000 @SPACE; 87200000 */* */ 87600000 */* MEASUREMENT SERVICES FID1 COMMANDS */ 88000000 */* */ 88400000 * DCL CD1MEAS BIT(8) CONSTANT('04'X); /* MEASUREMENT SERV IND */ 88800000 @SPACE; 89200000 * DCL CD1STM BIT(8) CONSTANT('01'X); /* START MEASUREMENT */ 89600000 * DCL CD1STP BIT(8) CONSTANT('02'X); /* STOP MEASUREMENT */ 90000000 * DCL CD1RMD BIT(8) CONSTANT('80'X); /* RECORD MEASUREMENT DATA */ 90400000 @SPACE; 90800000 */* */ 91200000 */* SESSION SERVICES FID1 COMMANDS */ 91600000 */* */ 91800000 * DCL CD1SESS BIT(8) CONSTANT('06'X); /* SESSION SERV IND */ 92000000 @SPACE; 92400000 * DCL CD1CINIT BIT(8) CONSTANT('01'X); /* CONTROL INITIATE */ 92800000 * DCL CD1CTERM BIT(8) CONSTANT('02'X); /* CONTROL TERMINATE */ 93200000 * DCL CD1NSPRO BIT(8) CONSTANT('04'X); /* NS PROC ERROR */ 93600000 * DCL CD1INITS BIT(8) CONSTANT('81'X); /* INITIATE SELF */ 94000000 * DCL CD1INITO BIT(8) CONSTANT('80'X); /* INITIATE OTHER */ 94400000 * DCL CD1TERMO BIT(8) CONSTANT('82'X); /* TERMINATE OTHER */ 94800000 * DCL CD1TERMS BIT(8) CONSTANT('83'X); /* TERMINATE SELF */ 95200000 * DCL CD1BINDF BIT(8) CONSTANT('85'X); /* BIND FAILURE */ 95600000 * DCL CD1SESST BIT(8) CONSTANT('86'X); /* SESSION STARTED */ 96000000 * DCL CD1UBNDF BIT(8) CONSTANT('87'X); /* UNBIND FAILURE */ 96400000 * DCL CD1SESEN BIT(8) CONSTANT('88'X); /* SESSION ENDED */ 96800000 @SPACE; 97000000 */* */ 97200000 */* 3705 ONLY COMMAND CATEGORY */ 97400000 */* */ 97600000 * DCL CD1PRE BIT(8) CONSTANT('00'X); /* 3705 ONLY INDICATOR */ 97800000 @SPACE; 98000000 * DCL CD1CGTRL BIT(8) CONSTANT('01'X); /* CHANGE DEVICE TRANS LIM */ 98200000 * DCL CD1CGNPL BIT(8) CONSTANT('02'X); /* CHANGE NEG POLL LIMIT */ 98400000 * DCL CD1CGSSL BIT(8) CONSTANT('03'X); /* CHANGE SESSION LIMIT */ 98600000 * DCL CD1CGSSP BIT(8) CONSTANT('04'X); /* CHANGE SERV SEEKING PAU */ 98800000 */* */ 99220000 */* 3 BYTE NETWORK SERVICE COMMANDS */ 99240000 */* */ 99260000 * DCL CD1XSCV BIT(24) CONSTANT('010211'X); /* SET CONTROL VECTOR */ 99280000 * DCL CD1XALK BIT(24) CONSTANT('01020A'X); /* ACTIVATE LINK */ 99300000 * DCL CD1XDLK BIT(24) CONSTANT('01020B'X); /* DEACTIVATE LINK */ 99320000 * DCL CD1XCON BIT(24) CONSTANT('010201'X); /* CONTACT */ 99340000 * DCL CD1XCTD BIT(24) CONSTANT('010280'X); /* CONTACTED */ 99360000 * DCL CD1XDSC BIT(24) CONSTANT('010202'X); /* DISCONTACT */ 99380000 * DCL CD1XINP BIT(24) CONSTANT('010281'X); /* INOPERATIVE */ 99400000 * DCL CD1XENS BIT(24) CONSTANT('010214'X); /* ENTERING SLOWDOWN */ 99406000 * /* @YM07042*/ 99412000 * DCL CD1XEXS BIT(24) CONSTANT('010215'X); /* EXITING SLOWDOWN */ 99420000 * DCL CD1XRDC BIT(24) CONSTANT('01021B'X); /* REQUEST DISCONTACT */ 99440000 * DCL CD1XINS BIT(24) CONSTANT('010681'X); /* INIT SELF */ 99460000 * DCL CD1XTMS BIT(24) CONSTANT('010683'X); /* TERMINATE SELF */ 99480000 * DCL CD1XSND BIT(24) CONSTANT('010688'X); /* SESSION ENDED */ 99500000 * DCL CD1XCIN BIT(24) CONSTANT('010601'X); /* CINIT */ 99520000 * DCL CD1XCTM BIT(24) CONSTANT('010602'X); /* CTERM */ 99540000 * DCL CD1XNSP BIT(24) CONSTANT('010604'X); /* NS PROC ERROR */ 99560000 * DCL CD1XBFL BIT(24) CONSTANT('010685'X); /* BIND FAILURE */ 99580000 * DCL CD1XSST BIT(24) CONSTANT('010686'X); /* SESSION STARTED */ 99600000 * DCL CD1XEXT BIT(24) CONSTANT('010301'X); /* EXECUTE TEST */ 99620000 * DCL CD1XATR BIT(24) CONSTANT('010302'X); /* ACTIVATE TRACE */ 99640000 * DCL CD1XRSR BIT(24) CONSTANT('010334'X); /* DPLY STOR REQ@ZM47883*/ 99650010 * DCL CD1XMNT BIT(24) CONSTANT('010381'X); /* REC MAINT STATISTICS */ 99660000 * DCL CD1XTST BIT(24) CONSTANT('010382'X); /* RECORD TEST DATA */ 99680000 * DCL CD1XTRC BIT(24) CONSTANT('010383'X); /* RECORD TRACE DATA */ 99700000 * DCL CD1XDTL BIT(24) CONSTANT('010001'X); /* CHGE DEV TRANS LIMIT */ 99720000 * DCL CD1XNPL BIT(24) CONSTANT('010002'X); /* CHGE NEG POLL LIMIT */ 99740000 * DCL CD1XSNL BIT(24) CONSTANT('010003'X); /* CHGE SESSION LIMIT */ 99760000 * DCL CD1XSSP BIT(24) CONSTANT('010004'X); /* CHGE SERV SEEKNG PAUSE*/ 99780000