48a49,54 > DTCA=6762 > DTLB=6774 > DTRA=6761 > DTRB=6772 > DTSF=6771 > DTXA=6764 5053c5059,5189 < TAD2 AE1@d"04PdLPKQ T `aD`SUROGV$SITDNRAL --- > > TAD [7770 > SPA CLA > JMP FOGO5 > > FOGO3, CLA > TAD I FXR1 > OPRINTC > TAD (". > OPRINTC > TAD [7772 > DCA OCNTR > > TAD I FXR1 > OPRINTC > ISZ OCNTR > JMP .-3 > > TAD ("E > OPRINTC > TAD I (DECEXP > SPA CLA > L0002 > TAD ("+ > OPRINTC > TAD I (DECEXP > SPA > CIA > ISZ OFLOUT / TAKE SKIP RETURN TO PRINT EXPONENT > JMP FLOXIT > FOGO4, TAD (". > OPRINTC > TAD (60 > OPRINTC > FOGO5, TAD (-7 > DCA OCNTR > TAD (OTEMP+6 > FOGO6, DCA TEMPX > TAD I TEMPX > TAD (-60 > SZA CLA > JMP FOGO7 > ISZ OCNTR > L7777 > TAD TEMPX > JMP FOGO6 > FOGO7, TAD I (DECEXP > TAD OCNTR > SPA CLA > JMP FOGO8 > TAD I (DECEXP > CMA > DCA OCNTR > FOGO8, CLA CLL CMA RAL > CMA > TAD I (DECEXP > SZA > JMP FOGO9 > TAD (". > OPRINTC > FOGO9, DCA I (DECEXP > TAD I FXR1 > OPRINTC > ISZ OCNTR > JMP FOGO8+1 > FLOXIT, CIF CDF 0 > JMP I OFLOUT > > MODL2, MODF5-1 / CR > MODF2-1 / BELL > MODF4-1 / RUBOUT > MODF4-1 / _ > MODF1+1 / CHAR > MODF1-1 / FF > MODF3+1 / LF > > LIST70, 13^40+34 > LIST71 > -"S+337^100-"T+337 > -"O+337^100-"P+337 > > TEN, 2045 /REAL CONSTANT OF 10.0 > 0000 > 0000 > PAGE > > FIXUP, 0 > TAD ACEXP > TAD O7610 > DCA ACEXP > O7610, SKP CLA / ALSO CONSTANT 7610 > FIXUP4, TAD DECEXP > DCA DECEXP > NORMIT, TAD AC1 > RTL > SZL CLA > JMP NORMED > JMS I (AL1 / ROTATE FAC LEFT ONE BIT > L7777 > TAD ACEXP > DCA ACEXP > JMP NORMIT > > NORMED, TAD ACEXP > SZA SMA > JMP NOTX10 > CLA > JMS I [AR1 / ROTATE FAC RIGHT ONE BIT > JMS I [AR1 > JMS I [AR1 > JMS I [AR1 > JMS I (MULT10 / MULTIPLY MANTISSA BY 10 > L0004 > TAD ACEXP > DCA ACEXP > L7777 > JMP FIXUP4 > NOTX10, TAD (7773 > SPA > JMP FIXUP5 > > FIXUP7, CLA CLL > TAD (7740 > DCA OCNTR > FIXUP8, TAD AC1 > TAD (5400 > SMA > DCA AC1 > CLA > TAD AC3 > RAL