ASMB,R,L,B,T,C HED A-05470-94075-1 REV C NAM PGM43 ERS & LISTING * NAM PGM43 **** * 5451A/5470A **** * * PURPOSE: * PGM43 IS THE 5470A MICROPROGRAM FOR DOUBLE PRECISION * SUBTRACTION OF BLOCK NB FROM NA. NA _ NA-NB. TO * BE USED WHEN SCALE FACTORS ARE EQUAL. * * ENTRY POINT ENT PGM43 * * CALLING SEQUENCE AND OPERATION * SEE NAM RUN7. * SKP * PGM43 OCT 056054 NISK1,MODE7,26 WORDS * OCT 4004 1. RRA;LDMD;AR,AJ_0. OCT 1360 OCT 4104 2. RRC;T_MD[DC1]. OCT 5400 OCT 4110 3. WRC;A+T. OCT 0240 OCT 4000 4. T_MD[DC2]. OCT 5400 OCT 4000 5. A-T. OCT 0120 OCT 4011 6. WRA; MD_A[DC1-DC2]. OCT 1000 OCT 4044 7. RRB;LDMD;AR,AJ_0. OCT 1360 OCT 4144 10. RRD;T_MD[FN1]. OCT 5400 OCT 4150 11. WRD; A+T. OCT 0240 OCT 4000 12. T_MD[FN2]. OCT 5400 OCT 4000 13. A-T. OCT 0120 OCT 4051 14. WRB; MD_A[FN1-FN2]. OCT 1000 OCT 3777 15. JMP Z0Y0X16. OCT 7761 * OCT 4004 16. RRA OCT 0000 OCT 4064 17. RJB OCT 0000 OCT 4104 20. RRC;T_MD[A.B];AR,AJ_0. OCT 5760 OCT 4164 21. RJD; A+T. OCT 0240 OCT 4110 22. WRC; T_MD[C.D]. OCT 5400 OCT 4170 23. WJD; A-T. OCT 0120 OCT 4011 24. WRA; MD_A[A.B-C.D]. OCT 1000 OCT 4070 25. WJB. OCT 0000 OCT 3777 26. JMP Z0Y0X16. OCT 7761 * END