ASMB,R,Q,C * NAME: ABREG * SOURCE: 92070-18255 * RELOC: 92070-1X255 * 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 ABREG,7 92070-1X255 REV.1941 790606 ENT ABREG SPC 2 * * CALLING SEQUENCE: * * CALL ABREG (IA,IB) * * WHERE: IA WILL BE THE VALUE OF A-REGISTER BEFORE CALL * IB WILL BE THE VALUE OF B-REGISTER BEFORE CALL * REGISTERS ARE LEFT UNMODIFIED. * * WARNING!!!!!! * * IA & IB MUST NOT BE ARRAY ELEMENTS IN FORTRAN OR ALGOL * BECAUSE THE REGISTERS WILL HAVE BEEN MODIFIED IN THE * ARRAY CALCULATIONS AFTER THE EXECUTION OF THE PREVIOUS * STATEMENT. SPC 2 ABREG NOP ENTRY ".ENTR" STYLE STA AREG STB BREG LDB ABREG,I GET RETURN ADDRESS ISZ ABREG LDA ABREG,I GET ADDRESS OF IA STA IA ISZ ABREG LDA ABREG,I GET ADDRESS OF IB STB ABREG LDB BREG GET B-REGISTER STB A,I PUT IN IB LDA AREG GET A-REGISTER STA IA,I PUT IN IA JMP ABREG,I IA NOP AREG NOP BREG NOP A EQU 0 END *