ASMB,R,L,C
*     NAME:   SY..
*     SOURCE: 92070-18034 
*     RELOC:  92070-16034 
*     PGMR:   M.L.K.
* 
*  ***************************************************************
*  * (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.       *
*  ***************************************************************
* 
* 
      NAM SY..,7  92070-1X034  REV.1941  790717 
* 
* 
      ENT SY..
* 
      EXT .ENTR,C.BUF,CNOPT,CAM.O,MESSS,ECH 
* 
***** 
*****   SYSTEM COMMAND PROCESSOR
***** 
* 
* 
SYN   NOP 
SYLST NOP 
SYER  NOP 
SY..  NOP 
      JSB .ENTR 
      DEF SYN       ADJUST RETURN ADDRESS 
* 
      LDA ECH       FETCH INPUT LENGTH
      ADA A         DOUBLE IT FOR BYTE COUNT
      STA SYN       SAVE IT IN TEMP 
* 
*   PASS THE COMMAND TO THE SYSTEM
* 
      JSB MESSS 
      DEF *+3 
      DEF C.BUF     BUFFER ADDRESS
      DEF SYN       BYTE COUNT
* 
      CMA,INA,SZA,RSS IF NO RESPONSE
      JMP SY..,I    THEN WE ARE ALL DONE
* 
      CLE,ERA       DIVIDE BY 2 TO GET WORD COUNT 
      STA ECH       SAVE THE WORD COUNT 
      JSB CNOPT     GO PRINT THE RESPONSE ON LOG
      DEF *+5 
      DEF .2
      DEF CAM.O 
      DEF C.BUF 
      DEF ECH 
      JMP SY..,I
* 
.2    DEC 2 
A     EQU 0 
* 
      END 
                                                        