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: LIMIT INTFC MOD * SOURCE: 92840 - 18001 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM LIMIT,7 92840-16001 REV.1819 780515 EXT XLMIT,.OPTN,PLTER ENT LIMIT * * THIS IS THE INTERFACE MODULE FOR THE LIMIT COMMAND. * SPC 3 * * SPC 3 LIMIT NOP LDA LIMIT JSB .OPTN GO GET PARAMETER ADDRESSES DEF RTN PADR DEF PARM PARAME DEF M6 DEF .1 DEF .5 NUMBER OF PARAMETERS DEF .0 NO OPTIONAL PARAMETERS DEF RETRN RTN JMP CHECK JMP ENTRY * * THIS PORTION OF CODE DETERMINES WHETHER OR NOT CALL IS * INTERACTIVE OR AN ERROR. * CHECK CPA M4 INTERACTIVE JMP *+2 YES JMP ERROR NOT ENOUGH PARAMETERS LDA .2 ADD OFFSET TO CODE FOR INTERACTIVE SELECTION STA INTCD LDA DFINT STA PARM ENTRY JSB XLMIT DEF END PARM BSS 6 END JMP RETRN,I * SPC 2 * * SPC 2 * * * SPC 3 * ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .43 IGCB NOP RTNER JMP RETRN,I * * CONSTANTS AND STORAGE * DFINT DEF INTCD INTCD NOP M6 DEC -6 M4 DEC -4 .0 OCT 0 .1 OCT 1 .2 OCT 2 .5 OCT 5 RETRN NOP .43 DEC 43 * END