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: SCALE OR WINDOW * SOURCE: 92840 - 18016 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM WINDW,7 92840-16001 REV.1819 780515 EXT WINDX,.OPTN,PLTER ENT SCALE ENT WINDW * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND * SCALE * SPC 3 WINDW EQU * SCALE NOP SCL1 LDA SCALE JSB .OPTN DEF RTN PADR DEF PARM DEF M6 DEF .1 DUMMY CODE DEF .5 DEF .0 NO OPTIONAL PARAMETERS DEF RETRN RTN JMP ERROR NOT ENOUGH PARAMETERS JSB WINDX DEF END PARM BSS 6 END JMP RETRN,I * * * CONSTANTS * .1 DEC 1 .5 OCT 5 .0 OCT 0 M6 OCT -6 .44 DEC 44 ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .44 IGCB NOP RTNER JMP RETRN,I RETRN NOP END