*COMDECK UTILCOM
ZOT       MACRO     FUNC,PROG,CODE
          EJECT 
**        ZOT IS A MACRO IN UTILCOM. IT ISSUES THE FUNCTION CODE WHICH  01251868
*         IS THE THIRD PARAMETER IN THE MACRO CALL TO THE ROUTINE 
*         NAMED IN THE SECOND PARAMETER.  (THE FIRST PARAMETER IS THE 
*         ENTRY POINT NAME.) ZOT EXPECTS THE FILE NAMES TO BE OPERATED  01251871
*         ON TO BE STORED IN RA+2 THRU RA+63B, AND CONSIDERS A ZERO WORD01251872
*         OR A CONTINUATION TO BE END-OF-LIST. IF THE LIST IS EMPTY,THE 01251873
*         PROGRAM ISSUES A DIAGNOSTIC.                                  01251874
          ABS 
          ORG       65
          SPACE     2 
CIO       VFD       18/3R_PROG,6/20B,18/0,18/FET
MSG       VFD       18/3RMSG,42/MESS
MESS      DIS       ,*RETURN, REWIND, OR UNLOAD MUST HAVE AT LEAST ONE P
,ARAMETER.* 
 MSG2     VFD    18/3RMSG,42/MESS2
 MESS2    DIS    ,* LFN GREATER THAN 7 CHARACTERS*
          SPACE     2 
FET       VFD       60/0
          VFD       16/1,20/0,6/1,18/0
          VFD       60/0
          VFD       60/0
          VFD       60/1
          VFD       60/0
          SPACE     2 
FUNC      SB1       1 
          SA4       B1+B1          FETCH FIRST PARAMETER
          MX0       56             MASK FOR DELIMITER CODE
          SA2       B1             PRESET REGISTER TO LOAD PARAMETERS 
          ZR        X4,ERR         ERROR IF NO PARAMETERS 
          MX3       42             MASK TO CLEAN UP PARAMETER 
          SA4       CIO            LOAD PROGRAM CALL
          BX7       X4
          SX5       CODE           LOAD FUNCTION CODE TO BE ISSUED
LOOP      SA2       A2+B1          LOAD NEXT PARAMETER
          ZR        X2,END         JUMP IF END OF LIST
          BX4       -X0*X2         MASK OUT ALL BUT DELIMITER CODE
          ZR     X4,ERR2           DISPLAY LFN GT 7 CHAR DIAGNOSTIC 
          BX2       X2*X3          CLEAR ALL BUT PARAMETER
          BX6       X2+X5          ADD FUNCTION CODE TO FILE NAME 
          SA6       X7             PUT FILE NAME AND CODE IN FET
          BX6    X7                                                     000250
          RJ     CALLPP            RA+1 REQUEST                         000260
          EQ        LOOP           LOOP FOR NEXT PARAMETER
          SPACE     2 
ERR       SA1       MSG 
          EQ     ERROR
 ERR2     SA1    MSG2 
 ERROR    BSS    0
          BX6       X1
END       SX6       3REND 
          LX6       42
          RJ     CALLPP            RA+1 REQUEST                         000290
+         EQ        *              STOP 
*CALL CALLPP                                                            000310
ZOT       ENDM
