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: LABEL,LABON,LABOF * SOURCE: 92840 - 18053 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM LABEL,7 92840-16001 REV.1819 780515 ENT LABEL EXT .OPTN,XLABL,PLTER * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS * LABEL AND LORG. * LABEL NOP LDA LABEL JSB .OPTN DEF RTN1 PADR DEF PARM DEF M5 DEF .1 CODE DEF .1 REQUIRED PARAMETERS DEF .1 ONE DEFAULT DEF DZER0 DEFAULT VALUE DEF RETRN RTN1 JMP ERROR ENTRY JSB XLABL DEF RTNER PARM BSS 5 END JSB PLTER ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .66 IGCB NOP RTNER JMP RETRN,I * * * DZER0 DEF .0 RETRN NOP .0 OCT 0 .1 OCT 1 .2 OCT 2 M5 DEC -5 .66 DEC 66 END