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: MOVEI * SOURCE: 92840 - 18071 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM MOVEI,7 92840-16001 REV.1819 780515 * * THIS MODULE IS THE INTERFACE FOR AGL COMMANDS * MOVEI. * EXT XMOVI,.OPTN,PLTER ENT MOVEI * * MOVEI NOP LDA MOVEI JSB .OPTN OPTIONAL PARAMETER PROCESSING SUBROUTINE DEF RTN PADR DEF PARM DEF M4 NUMBER OF ENTRIES TO CLEAR DEF .1 DEF .3 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 XMOVI DEF END PARM BSS 4 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 M4 DEC -4 .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 72 CODE NOP * END