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: INTERFACE FOR WHERE,CURSOR,DIGITIZE * SOURCE: 92840 - 18056 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM WHERE,7 92840-16001 REV.1819 780515 EXT INTAC,.OPTN,PLTER ENT WHERE,CURSR,DIGTZ,POINT * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS * WHERE,CURSOR,DIGITIZE AND POINT. * WHERE NOP LDA .1 STA CODE LDA .55 STA ERCOD LDA WHERE WHR1 JSB .OPTN DEF RTN PADR DEF PARM DEF M5 DEF CODE DEF .3 3 REQUIRED PARAMETERS DEF .1 OPTIONAL PARAM. DEF BLNK DEF RETRN RTN JMP ERROR JSB INTAC DEF END PARM BSS 5 END JMP RETRN,I * CURSR NOP LDA .53 STA ERCOD LDA .2 STA CODE LDA CURSR JMP WHR1 * DIGTZ NOP LDA .54 STA ERCOD LDA .3 STA CODE LDA DIGTZ JMP WHR1 * POINT NOP LDA .52 STA ERCOD LDA .4 STA CODE CLA STA BLANK LDA POINT JMP WHR1 * BLNK DEF BLANK BLANK NOP RETRN NOP .1 OCT 1 .2 OCT 2 M5 DEC -5 .52 DEC 52 .53 DEC 53 .54 DEC 54 .55 DEC 55 ERCOD NOP .3 OCT 3 .4 OCT 4 CODE NOP ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF ERCOD IGCB NOP RTNER JMP RETRN,I * END