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: PLOT * SOURCE: 92840 - 18063 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM CPLOT,7 92840-16001 REV.1819 780515 * * THIS MODULE IS THE INTERFACE FOR AGL COMMANDS * CPLOT. * EXT CHPLT,.OPTN,PLTER ENT CPLOT * * CPLOT NOP LDA .1 PLT STA CODE LDA CPLOT JSB .OPTN OPTIONAL PARAMETER PROCESSING SUBROUTINE DEF RTN PADR DEF PARM DEF M5 NUMBER OF ENTRIES TO CLEAR DEF CODE DEF .3 NUMBER OF PARAMETERS - # OF DEFAULTS DEF .1 NUMBER OF DEFAULTS DEF DF1 TOP OF LIST FOR DEFAULT VALUES DEF RETRN RTN JMP MESUP ERROR RETURN JSB CHPLT DEF END PARM BSS 5 END JMP RETRN,I MESUP LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .47 IGCB NOP RTNER JMP RETRN,I * * * * SPC 3 B EQU 1 .4 OCT 4 M5 DEC -5 .0 OCT 0 .1 OCT 1 .2 OCT 2 .3 OCT 3 .5 OCT 5 DF1 DEF .1 RETRN NOP A EQU 0 .47 DEC 51 CODE NOP * END