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: LGERR INTFC MOD * SOURCE: 92840 - 18060 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM LGERR,7 92840-16001 REV.1819 780515 ENT LGERR EXT .OPTN,XGERR,PLTER EXT PLTER * * THIS IS THE INTERFACE MODULE FOR THE ERROR HANDLING COMMAND * LGERR(LU). * LGERR NOP LDA LGERR LG1 JSB .OPTN DEF RTN DEF PARM DEF M3 DEF .1 DEF .1 IGCB REQUIRED PARAMETER DEF .1 DEF DF0 DEFAULT LU = 1 DEF RETRN RTN JMP ERROR JSB XGERR DEF END PARM BSS 3 END JMP RETRN,I * RETRN NOP M3 DEC -3 .1 DEC 1 .0 OCT 0 DF0 DEF .0 ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .61 IGCB NOP RTNER JMP RETRN,I .61 DEC 61 END