MACRO 02000020 &NAME STCOM &A PROTOTYPE 04000020 .********************************************************************** 06000020 .* * 08000020 .*RELEASE 23 DELETIONS * 10000020 .* * 12000020 .*RELEASE 22 DELETIONS * 14000020 .* * 16000020 .*RELEASE 21 DELETIONS * 18000020 .* * 20000020 .*STATUS - CHANGE LEVEL 000 * 22000020 .* * 24000020 .*NAME - STCOM * 26000020 .* * 28000020 .*FUNCTION - THE STCOM MACRO IS USED TO SPECIFY WHETHER OR NOT THE * 30000020 .* USER WISHES TO RECEIVE INTER-TERMINAL COMMUNICATIONS. * 32000020 .* * 34000020 .* * 36000020 .* THE MACRO PROTOTYPE IS ABOVE * 38000020 .* * 40000020 .* THE STANDARD FORM OF THE EXPANSION IS BELOW * 42000020 .* * 44000020 .*&NAME LA 1,128 LOAD FLAG BYTE * 46000020 .* SLL 0,24 PUT ENTRY CODE IN LEFT MOST * 48000020 .* BYTE OF REGISTER * 50000020 .* LA 0,5 LOAD ENTRY CODE * 52000020 .* SLL 0,24 PUT ENTRY CODE IN LEFT MOST * 54000020 .* SVC 94 ISSUE SVC * 56000020 .* * 58000020 .********************************************************************** 60000020 AIF ('&A' EQ 'YES' OR '&A' EQ '').COM 62000020 AIF ('&A' EQ 'NO').NOCOM 64000020 .ERROR IHBERMAC 36,,&A 66000020 MEXIT EXIT 68000020 .COM ANOP 70000020 &NAME LA 1,128 LOAD FLAG BYTE 72000020 SLL 1,24 PUT ABOVE IN LEFT MOST OF REG 74000020 AGO .ENTRYCD GO TO ENTRYCD 76000020 .NOCOM ANOP 78000020 &NAME SR 1,1 PREPARE PARM 80000020 .ENTRYCD LA 0,5 LOAD ENTRY CODE 82000020 SLL 0,24 PUT ENTRY CODE IN LEFT MOST 84000020 .* BYTE OF REGISTER 86000020 SVC 94 ISSUE SVC 88000020 MEND 90000020