ASMB,R,Q,C * NAME: IGET * SOURCE: 92070-18261 * RELOC: 92070-1X261 * PGMR: HLC * * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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 IGET,6 92070-1X261 REV.2040 800815 ENT IGET,IXGET EXT .ZPRV SPC 2 * * CALLING SEQUENCE: * * IVALUE = IGET (IADRS) * OR * IVALUE = IXGET (IADRS) * * WHERE: IADRS IS THE ADDRESS OF THE CORE LOCATION DESIRED. * IVALUE IS THE VALUE OF "IADRS" SPC 2 IXGET EQU * IGET NOP ENTRY ".ENTR" STYLE JSB .ZPRV MUST BE SHARABLE (BASIC NEEDS IT) DEF EXIT LDB IGET,I GET RETURN ADDRESS ISZ IGET NOW GET VALUE ADDRESS LDA IGET,I GET VALUE ADDRESS LDA A,I GET VALUE CONTENTS LDA A,I GET VALUE STB IGET FIXUP RETURN EXIT JMP IGET,I RETURN DEF IGET A EQU 0 B EQU 1 END *