ASMB,R,Q,C
*     NAME:   SAM.. 
*     SOURCE: 92070-18138 
*     RELOC:  92070-1X138 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (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 SAM..,0  92070-1X138  REV.1941  790807
* 
      ENT $ALC,$RTN,$MAX,$.SAM
      ENT $SMLS 
*     ENT $$SAM     MUST NOT BE DEFINED 
* 
      ENT REIO,ZEIO 
* 
* 
REIO  RPL 101712B   'JSB EXEC' OP CODE
ZEIO  RPL 101712B   'JSB EXEC' OP CODE
* 
$MAX  NOP 
* 
$SMLS DEF SMEM      DUMMY BLOCK ADDRESS(DON'T MESS!)
* 
SMEM  OCT -1        DUMMY BLOCK LENGTH (NOT USED) 
PNTR  OCT 77777     DUMMY BLOCK END    (DON'T MESS!)
* 
$ALC  NOP 
      ISZ $ALC
      CCA 
      CLB 
      JMP $ALC,I
* 
$RTN  NOP 
      ISZ $RTN
      ISZ $RTN
      JMP $RTN,I
* 
$.SAM DEC -1        DUMMY MODULE
* 
      END 
                                                                                                