ASMB,R,L * * * ************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ************************************************************** * * * * NAME: IGERR INTFC MOD * SOURCE: 92840 - 18106 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM IGERR,7 92840-16001 REV.1819 780515 ENT IGERR EXT .OPTN,XIGER,PLTER EXT PLTER * * THIS IS THE INTERFACE MODULE FOR THE ERROR HANDLING COMMAND * IGERR(LU). * IGERR NOP LDA IGERR LG1 JSB .OPTN DEF RTN DEF PARM DEF M2 DEF .1 DEF .1 IGCB REQUIRED PARAMETER DEF .0 DEF RETRN RTN JMP ERROR JSB XIGER DEF END PARM NOP ERMSG NOP END JMP RETRN,I * RETRN NOP M2 DEC -2 .1 DEC 1 .2 OCT 2 .0 OCT 0 DF1 DEF .1 ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .91 IGCB NOP RTNER LDA .6 JMP RETRN,I .91 DEC 91 .6 OCT 6 END