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: FXD INTFC MOD * SOURCE: 92840 - 18075 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM FXD,7 92840-16001 REV.1819 780515 EXT .OPTN,PLTER,XFXD ENT FXD * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND FXD * * FXD NOP LDA FXD JSB .OPTN DEF RTN DEF PARM DEF M3 DEF .1 DEF .2 TWO REQUIRED PARAMETERS DEF .0 NO OPTIONALS DEF RETRN RTN JMP ERROR JSB XFXD DEF END PARM BSS 3 END JMP RETRN,I * * ERROR JSB PLTER DEF RTNER DEF .80 RTNER JMP RETRN,I * M3 OCT -3 RETRN NOP .80 DEC 80 .2 OCT 2 .1 OCT 1 .0 OCT 0 END