HEX till DEC

10 posts in thread

• Sture Engström <7237> · Text 988 · w8 · inlagg

  1987-10-25 15:56

  Ärende: HEX till DEC

  Hur omvandlar man hexadecimal till decimal tal med maskinkod ?. Hexa talet är på fyra byte. Jag blir mycke tacksam om någon kan svara idag.
  • Stefan Lennerbrant <4364> · Text 989 · w8 · kommentar

    1987-10-25 21:57

    Ärende: HEX till DEC

    In: DE pekar på hextalet Ut: HL=Talet, DE på byte före hextalet START: LD HL,0 LD B,4 INC DE : INC DE : INC DE IGEN: LD A,(DE) DEC DE SUB 48 CP 10 JR C,SIFFRA SUB 7 ; Bokstav A-F till siffra 10-15 SIFFRA: OR L ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL DJNZ IGEN RET Hoppas detta fungerar - det skrevs i en hast och det går säkert att göra snabbare och kortare varianter.
    • Lars Gjörling <6825> · Text 990 · w8 · kommentar

      1987-10-26 01:37

      Ärende: HEX till DEC

      Nej det förslaget fungerar inte, det är flera tankefel i det. Men det här fungerar: START LD HL,0 LD B,3 IGEN LD A,(DE) ; DE skall peka på hextalet. CALL DECIMAL CALL MUL16 DJNZ IGEN LD A,(DE) CALL DECIMAL RET ; HL = talet ; DECIMAL SUB 48 CP 10 JR C,SIFFRA SUB 7 ; Bokstav A-F till siffra 10-15 SIFFRA OR L LD L,A RET ; MUL16 ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL INC DE RET Mvh Lars
      • Björn Linderson <5829> · Text 991 · w8 · kommentar

        1987-10-26 22:26

        Ärende: HEX till DEC

        I det näst senaste (?) ABC-bladet skall det finnas en eller flera snuttar i mkod för att omvandla tal från en bas till en annan, som man anger.
        • Lars Gjörling <6825> · Text 992 · w8 · kommentar

          1987-10-28 16:55

          Ärende: HEX till DEC

          Även förslaget i mitt inlägg 990 kan lätt generaliseras till att gälla godtycklig bas. Om man skall omvandla en ASCII-sträng, som innehåller siffror (A-F... räknas också som siffror) av ett god- tyckligt tal i en godtycklig bas och med godtyckligt antal bytes till ett 16-bitars binärt tal (svaret får inte bli större), så kan man göra så här: IN: DE pekar på strängen B = antalet bytes C = basen (radix) UT: HL = 16-bitars binärt tal, som utgör svaret START LD HL,0 ; B = antalet bytes, C = basen IGEN CALL MUL_BAS ; Multiplicera HL med basen. LD A,(DE) ; DE pekar på in-strängen. CALL ASC_TAL ; Ascii --> tal. Addera till HL INC DE DJNZ IGEN RET ; Återgå med HL = resultatet. ; ASC_TAL SUB 48 ; Om 0-9, ascii --> tal 0-9. CP 10 JR C,SIFFRA SUB 7 ; Om A-F, ascii --> tal 10-15 SIFFRA ADD A,L ; Addera .......... JR NC,NOCARRY INC H NOCARRY LD L,A ; ...... A till HL. RET ; MUL_BAS PUSH BC ; HL skall multipliceras med basen PUSH DE LD B,C DEC B ; B laddas med basen minus 1 LD D,H LD E,L LOOP ADD HL,DE DJNZ LOOP ; Multiplikation genom upprepad ad- POP DE ; dition (en mycket klumpig metod, POP BC ; men basen är ju inte så stor). RET Mvh Lars
          • Sture Engström <7237> · Text 993 · w8 · kommentar

            1987-10-29 21:34

            Ärende: HEX till DEC

            Du Lars , Jag får inte ditt program att funka! Vad ja ville med första frågan var att omvandla fyra bytes tal (ex. AD F3 4B BC) till Decimalt. (ex. 12 34 56 78 90 fem byte) Programmet BINASC som står i ABC bladet 87.2 funkar, men den klara bara två byte. Föresten kan någon hjälpa mej hur man DIV / o MUL * stora tal i BCD-kod. Tack för in som visar intresse "DEC till HEX" inlägget. Mvh S.E.
            • Lars Gjörling <6825> · Text 994 · w8 · kommentar

              1987-10-30 00:42

              Ärende: HEX till DEC

              Jaså det var ju en helt annan sak. I ditt inlägg 988 frågar du om hur man omvandlar ett hexadecimalt tal till decimalt. Både jag och Stefan Lennerbrant uppfattade detta som att du hade en ascii-text på 4 bytes med ett hexadecimalt tal lagrat tecken för tecken, och som du ville få omvandlat till ett 16-bitars tal. Vad BINASC i ABC-bl.87.2 gör är att omvandla ett 16-bitars binärt tal till en textsträng, där varje siffra får en egen byte. ASCBIN gör det omvända. Om jag förstår inlägg 993 rätt, så vill du ha en rutin, som omvand- lar ett 32-bitars binärt tal till ett decimalt, skrivet i BCD-form. Det vore kanske inte helt omöjligt att bygga ut BINASC till 32 bitar, men då får man en textsträng, där varje siffra får en egen byte. Om- vandlingen till BCD kan göras efteråt. Stämmer verkligen det exempel du ger? Jag har en räknedosa, som kan räkna med hex-dec-oct-bin på 32-bitars tal, och jag kan inte få det att stämma. Mvh Lars
            • Kristoffer Eriksson <5357> · Text 996 · w8 · kommentar

              1987-11-01 00:43

              Ärende: HEX till DEC

              Kandu förtydliga dig lite: Är det omvandling från binär form eller från hexadecimal textform till decimal textform du vill ha? Är det från binär form är det bara att hacka om den BINASC som fanns i Bladet lite grand. Jag har aldrig sysslat med räkning på BCD-tal, men kommer man inte på något bättre, går det ju alltid att låta datorn imitera det sätt man räknar på med papper och penna. När man multiplicerar binärt får man hålla reda på tre tal som vid start är A=Ena intalet, B=Andra intalet, R=Blir svaret och startar som 0. Sen kan man göra på två sätt. 1) Skifta talet A åt vänster en bit i taget tills alla bittar skiftats ut. Skifta även R ett steg åt vänster varje gång och för in nya nollor från höger. Vid varje skiftning trillar det ut en ny bit till vänster ur A, och varje gång det är en etta, adderar vi B till R. När bittarna i A ärslut har vi svaret i R. 2) Skifta talet A åt höger en bit i taget tills alla bittar skiftats ut. För man in nya nollor från vänster kan man avbryta redan när A=0. Om en etta trillar ut till höger adderar vi B till R. Skifta sen B ett steg åt vänster och för in en ny nolla från höger, och fortsätt med nästa skift av A. Vill man vara säker på att aldrig förlora en bit av resultatet måste R innehålla lika många bittar som A och B tillsammans. I metod 2 måste det även finnas plats att utöka B till denna längd. Vänsterskift är det samma som att dubblera ett tal, och högerskift är detsamma som en halvering. Det hela bygger på att A i tur och ordning multipliceras med en bitt från B, och varje delprodukt ackumuleras i R. Att multiplicera med en bitt är mycket enkelt, för den kan ju bara vara antingen 0 eller 1, och 0 * A = 0 samt 1 * A = A. En mycket kort multiplikationstabell alltså. Ska man nu multiplicera ett BCD-tal med ett vanligt binärt tal och få svaret i BCD kan man låta A vara det binära talet, och göra räkningen på B och R med ADD/ADC och DAA. Vänsterskift är ju detsamma som att talet adderas med sig självt, och Z80 har den inbyggda instruktionen DAA för att fixa BCD-addering. Ska man multiplicera två BCD-tal utan att omvandla till binära tal, kommer jag inte på annat än att skala upp det hela och skifta en BCD-siffra i taget och multiplicera en BCD-siffra i taget lämpligen via en 10 * 10 multiplikationstabell där resultatet bara är att slå upp. Lämpligen har man en särskild subrutin för multiplikation av en BCD-sträng med en BCD-siffra så blir det snyggt. Division går till på ett liknande sätt.
              • Sture Engström <7237> · Text 998 · w8 · kommentar

                1987-11-01 23:33

                Ärende: HEX till DEC

                Jag vill bara veta hur man omvandlar hex till dec, och det har jag fått ett bra program. BINASC var namnet. Om det sen är ascii tecken eller binärt man startar o slutar med gör det inget. Om multiplikation och division i decimalt,så har jag fått hjälp med det. hejdå!
                • Kristoffer Eriksson <5357> · Text 999 · w8 · kommentar

                  1987-11-02 01:40

                  Ärende: HEX till DEC

                  Det verkar vara viss språkförbistring här. Den där rutinen BINASC omvandlar faktiskt inte från HEX-form, utan från BINÄR-form, precis som namnet anger. Det är skillnad på hexadecimal och binär, även om du kanske är van att tänka på binära tal representerade i hexadecimal form. ( Kommentar i text 1001 av Sture Engström <7237> ) ( Text 999 )