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: MARGIN * SOURCE: 92840 - 18009 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM MARGN,7 92840-16001 REV.1819 780515 EXT .OPTN,XMARG,PLTER ENT MARGN * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND MARGIN * MARGN NOP LDA MARGN JSB .OPTN DEF *+8 DEF PARM DEF M7 DEF .1 DEF .5 FOUR REQ'D PARAMETERS DEF .1 ONE OPTIONAL DEF DZER0 INDICATES CHARACTERS/1= GDU'S DEF RETRN JMP ERROR JSB XMARG DEF END PARM BSS 7 END JMP RETRN,I * ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .41 IGCB NOP RTNER JMP RETRN,I * DZER0 DEF .0 .1 OCT 1 .5 OCT 5 .41 DEC 41 M7 OCT -7 .0 OCT 0 RETRN NOP END