*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