ASMB,R,L,B,T,C HED A-05470-94081-1 NAM PGM49 SP SUBTRACT ERS & LISTING NAM PGM49 * * PURPOSE: * PGM49 IS A 5470A MICROPROGRAM FOR SINGLE PRECISION * SUBTRACTION WHERE ONLY BLOCK NA DATA IS TO BE * DOWNSCALED BY K1. * * NA _ K1 * NA - NB. * * CALLING SEQUENCE AND OPERATION: * SEE RUN7. * * SIZE: 17 WORDS (21 OCTAL) * ENT PGM49 * PGM49 OCT 051020 NISK1, MODE4, K1, 10 WORDS. * OCT 4003 1 STDATBSY OCT 4000 OCT 4002 2 Q _ DAT[K1]. OCT 2400 OCT 4004 3 RRA; AR _ 0. OCT 0300 OCT 4324 4 RJC; T _ MD[A]; OCT 5400 MULT. OCT 4130 5 WJC; XT _ MD[C]. OCT 6000 OCT 4000 6 AR-TR OCT 0100 OCT 4011 7 WRA; MD _ A[K1*A-C]. OCT 1000 OCT 3777 10 JMP Z0Y0X1 OCT 7774 * END