SPL,L,O ! NAME: SM.. ! SOURCE: 92067-18251 ! RELOC: 92067-16185 ! PGMR: B.L. ! ! *************************************************************** ! * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * ! * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * ! * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* ! * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ! *************************************************************** ! NAME SM..(8) "92067-16185 REV.1903 790102" ! LET NAMR, \NAMR PARSE ROUTINE SM.SB \SEND MESSAGE SUBROUTINE BE SUBROUTINE,EXTERNAL LET C.BUF(40), \COMMAND INPUT BUFFER ECH. \COMMAND LENGTH BE INTEGER,EXTERNAL LET IPBUF(10) \NAMR PARSE RETURN BUFFER BE INTEGER ! ! SM..: SUBROUTINE (NUM,PLIST,ERR) GLOBAL LET NUM,PLIST,ERR BE INTEGER IS_1 !STARTING CHAR FOR PARSE CALL NAMR(IPBUF,C.BUF,80,IS) !PARSE TO USER.GROUP NAME IF IS>80 THEN [ERR_55;RETURN] !IF END, MISSING PARAMETER I_IS/2 IF (I*2 # IS) THEN I_I+1, \IF ODD, ADD EXTRA WORD ELSE C.BUF(I)_(C.BUF(I) AND 377K) OR 20000K !ELSE PAD BLANK IF I>ECH. THEN [ERR_55;RETURN] CALL SM.SB(C.BUF(I),ECH.-I+1,ERR) RETURN END END END$