Отправлено колян безпарольныи 18 февраля 2005 г. 09:12 В ответ на: Пашет Колян! Тока у меня код 12ти разрядный со знаком поэтому я ыще подсократил отправлено nikolaus 18 февраля 2005 г. 08:39

на первый взгляд все красиво. Проверить до понедельника неначем такчто проверяй сам)))

B16BCDD:   clr   A       ;онже двоично-десятичый десяки-сотни
           clr   C
           mov   R1,A; 
           mov   R2,A; 
           mov   B, #16 
           sjmp  B16BCDD_2 ;
B16BCDD_1: 
           addc  A,#0 
           add   A,ACC
           da    A 
       
           xch   A,R2 
           addc  A,R2 
           da    A 
           xch   A,R2 
           
           xch   A,R1 
           addc  A,R1
           xch   A,R1   ; R1-R2-A умножено на 2 по правилам 10-чной системы
B16BCDD_2: xch   A,R4 
           rlc   A 
           xch   A,R4 
           xch   A,R5 
           rlc   A 
           xch   A,R5   ; число сдвинуто влево 
       
           djnz  B,B16BCDD_1; зацикливание  
           mov   R3,A; 
          ret

• Не колян, не пашет. — nikolaus   (18.02.2005 14:56, пустое)