ASMB,R,L,B,T,C HED A-05470-94039-1 REV. B NAM PGM20 ERS & LISTING NAM PGM20 **** * * 5451 - 5470 * **** * * PURPOSE: PGM20 IS THE 5470 MICROPROGRAM FOR DOWN- * SCALING BLOCK NB & ADDING BLOCK NA TO BLOCK * NB, WHEN BOTH BLOCKS ARE DOUBLE PRECISION. * * SIZE: 57 WORDS (71 OCTAL) * * ENTRY POINTS: PGM20 * * CALLING SEQUENCE: * SEE NAM RUN7 * * OPERATION: SEE NAM RUN7 * SKP * NAM PGM20 ENT PGM20 PGM20 OCT 57070 N1SK1,MODE7,K1,34. OCT 4003 1 STDATBSY; MD_0.N OCT 5000 OCT 4106 2 RRC; Q_DAT[K1];AR,AJ,BR,BJ_0. OCT 2777 OCT 4310 3 WRC; T_MD[C] OCT 5400 MULT OCT 4404 4 RRA OCT 0 OCT 4000 5 T_MD[A] OCT 5400 OCT 4000 6 A+T OCT 240 OCT 4011 7 WRA; MD_A[A+K1*C]. OCT 1000 OCT 4544 10 RRD; AR,AJ,BR,BJ_0. OCT 0377 OCT 4350 11 WRD; T_MD[D]; OCT 5400 MULT. OCT 4444 12 RRB OCT 0 OCT 4000 13 T_MD[B]. OCT 5400 OCT 4000 14 A+T OCT 240 OCT 4051 15 WRB; MD_A[B+K1*D] OCT 1000 OCT 3777 16 JMP Z0Y0X22. OCT 7755 OCT 3777 17 JMP Z0Y0X20. SKIP DC FN.ST OCT 7757 OCT 4003 20 STDATBSY. FULL BLOCK. OCT 5000 OCT 4002 21 Q_DAT[K1] OCT 2400 OCT 4504 22 RRC; AR,AJ,BR,BJ_0. OCT 0377 OCT 4564 23 RJD OCT 0 OCT 4310 24 WRC; T_MD[CD] OCT 5400 MULT. OCT 4570 25 WJD OCT 0 OCT 4404 26 RRA OCT 0 OCT 4464 27 RJB OCT 0 OCT 4000 30 T_MD[AB] OCT 5400 OCT 4000 31 A+T OCT 240 OCT 4011 32 WRA; MD_A[AB+K1*CD] OCT 1000 OCT 4070 33 WJB OCT 0 OCT 3777 34 JMP Z0Y0X22. OCT 7755 * END