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: GCLR INTFC MODULE * SOURCE: 92840 - 18007 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM GCLR,7 92840-16001 REV.1819 780515 * EXT .OPTN,XGCLR,PLTER ENT GCLR * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND GCLR(DISTANCE) * GCLR NOP LDA GCLR JSB .OPTN DEF GCRTN DEF PARM DEF M3 DEF .1 DEF .1 ONE REQUIRED PARAMETER IGCB DEF .1 ONE DEFAULE FORM FEED DEF FRMFD DEF RETRN GCRTN JMP ERROR JSB XGCLR DEF END PARM BSS 3 END JMP RETRN,I * SPC 2 ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .45 IGCB NOP RTNER JMP RETRN,I * M3 DEC -3 .1 OCT 1 FRMFD DEF .14 .14 OCT 14 RETRN NOP .45 DEC 45 END