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