ASMB,R,L,B,T,C HED A-05470-94079-1 NAM PGM47 SP ADD/SUB ERS & LISTING NAM PGM47 * * PURPOSE: * PGM47 IS A 5470A MICROPROGRAM FOR SINGLE PRECISION * ADDITION OR SUBTRACTION WHEN ONLY BLOCK NB DATA * IS TO BE SCALED. * * NA _ NA + K1 * NB * * CALLING SEQUENCE AND OPERATION: * SEE RUN7. * * SIZE: 17 WORDS (21 OCTAL) * ENT PGM47 * PGM47 OCT 051020 NISK1, MODE4, K1, 10WORDS OCT 4003 1 STDATBSY. OCT 4000 OCT 4002 2 Q _ DAT[K1]. OCT 2400 OCT 4104 3 RRC; AR _ 0. OCT 0300 OCT 4224 4 RJA; T_MD[C]; OCT 5400 MULT. OCT 4110 5 WRC; XT _ MD[A]. OCT 6000 OCT 4000 6 AR+TR OCT 0200 OCT 4011 7 WRA; MD _ A[A+K1*C]. OCT 1000 OCT 3777 10 JMP ZOYOXE. OCT 7774 * END