ASMB,R,Q,C * NAME: IXPUT * SOURCE: 92070-18319 * RELOC: 92070-1X319 * PGMR: DJN * * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * **************************************************************** * * NAM IXPUT,6 92071-1X320 REV.2041 800409 ENT IXPUT EXT $LIBR,$LIBX,.XSB * * * CALLING SEQUENCE: * * * PUT IDATA INTO IADDR * * CALL IXPUT(IADDR,IDATA) * * WHERE: IADDR = SYSTEM ADDRESS TO BE STUFFED * IDATA = VALUE TO BE PUT INTO "IADDR" * * * RTN NOP IXPUT NOP JSB $LIBR PRIVILEGED ROUTINE NOP * LDA IXPUT,I GET RETURN ADDRESS STA RTN SAVE IT ISZ IXPUT GET DATA ADDRESS DLD IXPUT,I LDA A,I RESOLVE INDIRECTS LDB B,I JSB .XSB STORE THE DATA AT THE RESOLVED ADDRESS DEF A,I JSB $LIBX $LIBX RETURN DEF RTN * * A EQU 0 B EQU 1 END