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 - 18022 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM PLOT,7 92840-16001 REV.1819 780515 * * THIS MODULE IS THE INTERFACE FOR AGL COMMANDS * PLOT. * EXT PLOTA,.OPTN,PLTER ENT PLOT * * PLOT NOP LDA .1 PLT STA CODE LDA PLOT 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 PLOTA 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 * * * CHARACTER PLOT * * * 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 47 CODE NOP * END