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: GDSTT * SOURCE: 92840 - 18101 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM GDSTT,7 92840-16001 REV.1913 790122 * * THIS MODULE IS THE INTERFACE FOR AGL COMMANDS * GDSTT. * EXT XDSTT,.OPTN,PLTER ENT GDSTT * * GDSTT NOP LDA GDSTT JSB .OPTN OPTIONAL PARAMETER PROCESSING SUBROUTINE DEF RTN PADR DEF PARM DEF M5 NUMBER OF ENTRIES TO CLEAR DEF .1 DEF .4 NUMBER OF PARAMETERS - # OF DEFAULTS DEF .0 NUMBER OF DEFAULTS DEF DF1 TOP OF LIST FOR DEFAULT VALUES DEF RETRN RTN JMP MESUP ERROR RETURN JSB XDSTT DEF END PARM BSS 5 END JMP RETRN,I MESUP LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF ERCOD 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 ERCOD DEC 85 CODE NOP * END