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: XMIT INTFC MOD * SOURCE: 92840 - 18100 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM XMIT,7 92840-16001 REV 1819 780515 EXT .OPTN,PLTER,XXMIT ENT XMIT * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND XMIT * * XMIT NOP LDA XMIT JSB .OPTN DEF RTN DEF PARM DEF M2 DEF .1 DEF .1 ONE REQUIRED PARAMETER GCB DEF .0 NO OPTIONALS DEF RETRN RTN JMP ERROR JSB XXMIT DEF END PARM BSS 2 END JMP RETRN,I * * ERROR JSB PLTER DEF RTNER DEF .84 RTNER JMP RETRN,I * M2 OCT -2 RETRN NOP .84 DEC 84 .1 OCT 1 .0 OCT 0 END