*COPY BTUCMD 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').BTU01 00001400 PRINT OFF,NOGEN 00001600 .BTU01 ANOP 00001800 * 00002000 * EQUATE PACKAGE FOR USE OF THE IBM NETWORK CONTROL PROGRAM 00003000 * FOR THE 3704/5 COMMUNICATIONS CONTROL UNITS 00004000 * 00005000 SPACE 00006000 CONTACT EQU X'0600' CONTACT COMMAND (NO MODIFIERS) 00007000 SPACE 00008000 CNTLBTU EQU X'0800' CONTROL COMMAND WITHOUT MODIFIER 00009000 CDLSTAT EQU X'0801' DISPLAY LINE STATUS 00010000 CRSESII EQU X'0802' REPLACE SESSION INITIATION INFORMATION 00011000 CACTINV EQU X'0803' ACTIVATE INVITES 00012000 CDCTINV EQU X'0804' DEACTIVATE INVITES 00013000 CCSESII EQU X'0805' COPY SESSION INITIATION INFORMATION 00014000 CDDSTAT EQU X'0806' DISPLAY DEVICE STATUS 00015000 CREQDST EQU X'0807' REQUEST DEVICE STATISTICS 00016000 CDISPLY EQU X'0808' DISPLAY STORAGE 00017000 CSETDTM EQU X'0809' SET TIME AND DATE 00018000 CSCMSEC EQU X'080A' SET CHANNEL MODE SECONDARY 00019000 CDALRID EQU X'080B' DISPLAY ASSOCIATED LINE RESOURCE ID'S 00020000 CACTLTR EQU X'080C' ACTIVATE LINE TRACE 00021000 CTRMLTR EQU X'080D' TERMINATE LINE TRACE 00022000 CACTGRP EQU X'0810' ACTIVATE GROUP 00023000 CDCTGRP EQU X'0811' DEACTIVATE GROUP ORDERLY 00024000 CSCMPRM EQU X'0815' SET CHANNEL MODE PRIMARY 00025000 CCDESMD EQU X'0818' COPY DESTINATION MODE 00026000 CCDSESI EQU X'0821' COPY DEVICE SESSION INFORMATION 00027000 CRDSESI EQU X'0822' REPLACE DEVICE SESSION INFORMATION 00028000 CRESERL EQU X'0841' RESET ERROR LOCK 00029000 CRESDQ EQU X'0842' RESET DEVICE QUEUES 00030000 CREQCMR EQU X'0843' REQUEST CONTROL MODE RESET 00031000 CRESIMD EQU X'0844' RESET IMMEDIATE 00032000 CRESOLT EQU X'0848' RESET ONLINE TERMINAL TEST 00033000 CSWBACK EQU X'084A' SWITCH TO BACKUP 00034000 CSWPRIM EQU X'084C' SWITCH FROM BACKUP TO PRIMARY 00035000 CRESCND EQU X'0850' RESET CONDITIONAL 00036000 CRESEOC EQU X'0860' RESET AT END OF COMMAND 00037000 CSWLMEP EQU X'0882' SWITCH PEP LINE MODE TO EP 00038000 CSWLNCP EQU X'0883' SWITCH PEP LINE MODE TO NCP 00039000 CCHLSSP EQU X'0884' CHANGE LINE SERVICE SEEKING PAUSE 00040000 CCHLNPL EQU X'0885' CHANGE LINE NEGATIVE POLL RESPONSE LIMIT 00041000 CCHSESL EQU X'0886' CHANGE SESSION LIMIT 00042000 CCHRTRY EQU X'0887' CHANGE RETRY COUNT 00043000 CACTDEV EQU X'0888' ACTIVATE DEVICE 00044000 CDCTDEV EQU X'0889' DEACTIVATE DEVICE 00045000 CCHDTLM EQU X'088C' CHANGE DEVICE TRANSMISSION LIMIT 00046000 CMODBHS EQU X'088D' MODIFY BLOCK HANDLER SET ASSOCIATION 00047000 CACTLIN EQU X'0898' ACTIVATE LINE 00048000 CDCTLIN EQU X'0899' DEACTIVATE LINE 00049000 CSETDSM EQU X'089A' SET DESTINATION MODE 00050000 CDCTHLT EQU X'08C2' DEACTIVATE LINE HALT 00051000 SPACE 00052000 DISCNCT EQU X'0700' DISCONNECT NORMAL 00053000 DISCINV EQU X'0701' DISCONNECT WITH INVITE 00054000 DISCEOC EQU X'0702' DISCONNECT END OF CALL 00055000 DISCECIN EQU X'0703' DISCONNECT, END OF CALL, INVITE 00056000 SPACE 00057000 INVITE EQU X'0500' INVITE NORMAL 00058000 INVTBLK EQU X'0501' INVITE BLOCK 00059000 INVTMSG EQU X'0502' INVITE MESSAGE 00060000 INVTTRN EQU X'0503' INVITE TRANSMISSION 00061000 INVTRND EQU X'0504' INVITE TRANSMISSION, DISCONNECT 00062000 INVRSTR EQU X'0505' INVITE WITH AUTO RESTART 00063000 INVTPER EQU X'0506' INVITE PERPETUAL (CLUSTERS ONLY) 00064000 SPACE 00065000 READNRM EQU X'0100' READ NORMAL 00066000 READBLK EQU X'0101' READ BLOCK 00067000 READMSG EQU X'0102' READ MESSAGE 00068000 READTRN EQU X'0103' READ TRANSMISSION 00069000 READTRD EQU X'0104' READ TRANSMISSION WITH DISCONNECT 00070000 READINV EQU X'0105' READ WITH INVITE 00071000 SPACE 00072000 RESTLIN EQU X'0400' RESTART LINE 00073000 RESTDEV EQU X'0401' RESTART DEVICE 00074000 RESTSIL EQU X'0402' REPLACE LINE SESSION INITIATION INFO 00075000 RESTSID EQU X'0422' REPLACE DEVICE SESSION INITIATION INFO 00076000 SPACE 00077000 TESTNRM EQU X'0300' TEST NORMAL 00078000 TESTCON EQU X'0301' TEST WITH CONTACT 00079000 TESTDSC EQU X'0302' TEST WITH DISCONNECT 00080000 TESTCDC EQU X'0303' TEST WITH CONTACT AND DISCONNECT 00081000 SPACE 00082000 WRITNRM EQU X'0200' WRITE NORMAL 00083000 WRITEOM EQU X'0201' WRITE WITH END OF MESSAGE 00084000 WRITEOT EQU X'0202' WRITE WITH END OF TRANSMISSION 00085000 WRITDSC EQU X'0203' WRITE END OF TRANSMISSION, DISCONNECT 00086000 WRITRED EQU X'0206' WRITE, EOT, READ 00087000 WRITINV EQU X'0207' WRITE, EOT, DISCONNECT, INVITE 00088000 WRITCON EQU X'0208' WRITE WITH CONTACT 00089000 WRITCEM EQU X'0209' WRITE WITH CONTACT, END OF MESSAGE 00090000 WRITCET EQU X'020A' WRITE WITH CONTACT, END OF TRANSMISSION 00091000 WRITCTD EQU X'020B' WRITE WITH CONTACT, EOT, DISCONNECT 00092000 WRITCRD EQU X'020E' WRITE WITH CONTACT, EOT, READ NORMAL 00093000 SPACE 2 00094000 * BITS DEFINED IN BTU DATA FLAGS (CONDFLG): 00095000 WRTSTPR EQU X'04' SUPPRESS RESPONSE FOR SUCCESSFUL WRITE 00096000 SPACE 00097000 * BITS DEFINED IN BTU FUNCTION FLAGS (CONFUNC): 00098000 FNCHKPT EQU X'80' CONTROL - CHECKPOINT RECORD DESIRED 00099000 FNPREFX EQU X'40' ALL CMDS - USE HEADER BUFFER PREFIX 00100000 FNSPINV EQU X'20' CONTROL - SUPPRESS REJECTION OF INVITES 00101000 FNWRSOH EQU X'80' WRITE - (BSC) SEND START OF HEADER 00102000 FNFIRST EQU X'10' WRITE, READ, INVITE - FIRST BLOCK OF MSG 00103000 FNGRAPH EQU X'20' READ - ACKNOWLEDGE WITH LEADING GRAPHICS 00104000 FNPOSAK EQU X'04' READ - ACKNOWLEDGE PREVIOUS BLOCK READ 00105000 FNNEGAK EQU X'02' READ - PREVIOUS BLOCK READ WITH ERRORS 00106000 FNALTAK EQU X'01' READ - ALTERNATE ODD/EVEN ACKNOWLEDGEMENT 00107000 EJECT 00108000 POP PRINT 00109000 SPACE 00110000