ASMB,R,L,C
*     NAME:   FAKER 
*     SOURCE: 92064-18070 
*     RELOC:  92064-16061 
*     PGMR:   G.L.M.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  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 FAKER,7  92064-16061  REV.1709  770316
* 
* 
* 
      ENT DCMC,CREAT,APOSN,POST,PURGE,NAMF,SEGLD,IDCBS
* 
      EXT .ENTR 
CREAT NOP 
APOSN EQU CREAT 
POST  EQU CREAT 
PURGE EQU CREAT 
NAMF  EQU CREAT 
SEGLD EQU CREAT 
* 
* 
      LDA DZERO 
      STA ERR       PRE-SET ERROR WORD FOR POST CALL
      LDA CREAT 
      STA DUMMY 
      JMP DUM2
* 
* 
DBUF  NOP 
ERR   NOP 
      BSS 6 
DUMMY NOP 
DUM2  JSB .ENTR 
      DEF DBUF
* 
      LDA N200      FETCH ERROR CODE
      STA ERR,I 
      JMP DUMMY,I 
* 
* 
* 
* 
* 
DZERO DEF CREAT 
N200  DEC -200  
* 
* 
* 
IDCBS NOP 
      CLA 
      LDB IDCBS,I 
      JMP B,I 
* 
* 
DCMC  NOP           MOUNT/DISMOUNT CARTRIDGE DUMMY ROUTINE
      LDA N200
      LDB DCMC,I
      JMP B,I 
B     EQU 1 
      END 
                                                                                                                                                                                          