Konwerter HEX to BIN i odwrotność

[Gelip]

Potrzebuję program, który zamienia wartość HEX 8-bit na BIN, odwraca bity i oblicza znowu HEX:

Kod: [Zaznacz]

HEX -> BIN -> REVBIN -> HEX
40 - 01000000 - 00000010 - 2
C0 - 11000000 - 00000011 - 3
78 - 01111000 - 00011110 - 1e
Znalazłem jakieś programy i próbuję zlepić ale coś chyba pomieszałem i nie wiem jak teraz zamienić znowu bin na dec i na hex:
HEXtoDEC
DECtoBIN
Wyszło mi coś takiego.

DEC mi w sumie nie potrzebne tylko hex i bin

[trojacek]

A jakie masz wymagania jeśli chodzi o wydajność? To jednorazowa konwersja, czy coś, co jest liczone na bieżąco?
Bo jeśli to ma być zrobione prosto i działać szybko, to ja bym to stablicował jako nibble (4 bity):

0 -> 0
1 -> 8
2 -> 4
3 -> C
4 -> 2
...
E -> 7
F -> F

Nie zapominając o zamianie miejscami młodszego nibble ze starszym.
Unika się jakiejkolwiek konwersji z/na format binarny*, przesuwania bitów itp. Masz znaki HEX na wejściu i znaki HEX na wyjściu.

* - z wyjątkiem policzenia indeksu do tablicy.

[Gelip]

Chodzi o jednorazowe przeliczenie:

• program pyta o wartość HEX 8-bit
• konwertuje na bin, odwraca i konwertuje na hex
• wszystko wyświetla ładnie na ekranie i goto początek

Nie ukrywam iż chciałem gotowca  w przeciwnym razie będę musiał przysiąść do tego co mam bo już prawie uzyskałem rozwiąznie - trzeba by rozpisać na kartce blokowo co robią poszczególne części programu i gdzie mają być skoki goto.

Da się w BASIC'u bez zamiany na dec tylko od razy na bin?

[trojacek]

To jakiś przykład dydaktyczny? Bo nie bardzo widzę w nim sens.

[Gelip]

To jakiś przykład dydaktyczny? Bo nie bardzo widzę w nim sens.

Konwerter kodu IR w formacie 32-bit unsigned integer na kod NEC ADDR=xx, CMD=xx np.
mam kod przycisku 807F28D7 gdzie adres 80 NOT=7F polecenie 28 NOT=D7 i z tego ma wyjść:

80h = 10000000b -> rev 00000001 = 01h ADDR
28h = 00101000b -> rev 00010100 = 14h CMD

[steev]

A jak to się wiąże ze spectrum?

[Gelip]

Wejściowe i wyjściowe wartości do przeliczenia są 8-bitowe a poza tym w BASIC ZX coś tam potrafię w przeciwieństwie do C.
Z ciekawości - do ZX pewnie da się podłączyć nadajnik czy odbiornik IR np. przez RS-232 w ZX Interface 1 tylko pewnie jeszcze nikt nie próbował.
Chyba można wykorzystać ZX do różnych obliczeń nie związanych z samym komputerem - jeśli nie ten dział to proszę przenieść do odpowiedniego.

[steev]

Pytałem, bo byłem ciekawy czy po prostu korzystasz z ZX jako kalkulatora, czy masz do niego podłączony odbiornik IR

[steev]

Zła wiadomość - musisz najpierw załadować Beta Basic 3.0.

[Gelip]

Pomocy - zrobiłem nowe wersje podprogramów tak aby liniie w BASIC się nie pokrywały - ostatecznie połaczę wszystko w jeden program. Program hdclear.z80 to konwerter hex > dec (ma też konwersję w odwrotną stronę od linii numer 11)
Drugi program decbinv2.z80 konwertuje dec to bin gdzie mam wartość bin w b$. Myślałem iż zrobię z tego VAL b$ jako liczbę i wykorzystam polecenie BIN aby zamienić na dec a tu d..pa 
Mam też drugą wersję dec na bin rev dbr.z80 - w tablicy DIM b() jest wartość bin przed odwróceniem a w tablicy DIM i() po odwróceniu.

Brakuje mi tylko przekształcenia na dec bo na hex to wykorzystam hdclear.z80 od linii 11

[Phonex]

Serio? Pomocy? Przecież konwersja liczby binarnej do dziesiętnej to zadanie dla pierwszej klasy informatyki.
Da się to napisać przy porannej kawie.
Algorytm bezpośrednio wynika z konstrukcji liczby binarnej.

Mamy liczbę binarną B: B₇B₆B₅B₄B₃B₂B₁B₀
DEC=B₇*2⁷+B₆*2⁶+B₅*2⁵+B₄*2⁴+B₃*2³+B₂*2²+B₁*2¹+B₀*2⁰
A w Basic

Kod: [Zaznacz]

LET dec=2^7*b(1)+2^6*b(2)+2^5*b(3)+2^4*b(4)+2^3*b(5)+2^2*b(6)+2^1*b(7)+2^0*b(8)
Dla liczby binarnej w zmiennej łańcuchowej b$:

Kod: [Zaznacz]

LET dec=2^7*VAL b$(1)+2^6*VAL b$(2)+2^5*VAL b$(3)+2^4*VAL b$(4)+2^3*VAL b$(5)+2^2*VAL b$(6)+2^1*VAL b$(7)+2^0*VAL b$(8)

Albo elegancko w pętli

Kod: [Zaznacz]

LET dec=0
FOR a=1 TO 8
LET dec=dec+2^(8-a)*VAL b$(a)
NEXT a
Można to zrobić na pierwotnej nie-odwróconej liczbie binarnej wystarczy odwrócić ją "w biegu", czyli zmieniać indeks od końca do początku.

Kod: [Zaznacz]

LET dec=0
FOR a=1 TO 8
LET dec=dec+2^(8-a)*VAL b$(9-a)
NEXT a

Tylko po co zamieniać na dziesiętną? Można od razu na HEX.
To już poważniejsza sprawa, zajmuje aż 10 minut.

Kod: [Zaznacz]

10 LET h$=""
20 LET start=1: GO SUB 1000
30 LET start=5: GO SUB 1000
40 STOP: REM wynik w h$

1000 LET h=0
1010 FOR a=0 TO 3
1020 LET h=h+2^(3-a)*VAL b$(a+start)
1030 NEXT a
1040 IF h>9 THEN LET h=h+(CODE "A"-CODE "9"-1)
1050 LET h$=h$+CHR$ (h+CODE "0")
1060 RETURN
Pętla oblicza wartość dziesiętną połówki bajta, dwie następne linie tworzą hex.
Oczywiście zamiast CODE "coś-tam" można wpisać stałe - będzie szybciej.

Także w tym przypadku można działać na nie-odwórconej liczbie binarnej:

Kod: [Zaznacz]

10 LET h$=""
20 LET start=5: GO SUB 1000
30 LET start=1: GO SUB 1000
40 STOP: REM wynik w h$

1000 LET h=0
1010 FOR a=0 TO 3
1020 LET h=h+2^(3-a)*VAL b$(3-a+start)
1030 NEXT a
1040 IF h>9 THEN LET h=h+(CODE "A"-CODE "9"-1)
1050 LET h$=h$+CHR$ (h+CODE "0")
1060 RETURN


[Gelip]

Serio? Pomocy? Przecież konwersja liczby binarnej do dziesiętnej to zadanie dla pierwszej klasy informatyki.
Da się to napisać przy porannej kawie.

Wiem, wiem ale ostatnio jestem bardzo zmęczony i nic mi się nie chce. Mimo tego już rozwiązałem problem - wystarczy tylko połączyć wszystko w jeden program. Zrobiłem konwersję z bin na dec, odwrotność bin i znowu na dec tak jak w pliku decbinrevdec.z80

Ale oczywiście dzięki za Twój kod - sprawdzę tylko nie wiem kiedy.

[Phonex]

Luzik. W takim razie - "happy to help" cytując całkiem świeży film SF

[Gelip]

@Phonex
Sprawdziłem Twoje programy i ładnie konwertują BIN na HEX. A jak w odwrotną stronę czyli HEX na BIN?

[Phonex]

Trudne: 25 minut
Albo to przez to, że dziś dzień wolny...

Kod: [Zaznacz]

100 REM liczba HEX w x$, tylko duże litery
110 LET n$=""
120 LET s=CODE x$(1): GO SUB 2000
130 LET s=CODE x$(2): GO SUB 2000
140 STOP: REM wynik w n$
 
2000 IF s>CODE "9" THEN LET s=s-(CODE "A"-CODE "9"-1)
2010 LET s=s-CODE "0"
2020 FOR a=3 TO 0 STEP -1
2030 LET s$="0"
2040 LET b=INT s/(2^a)
2050 IF b THEN LET s$="1": LET s=s-b*2^a
2060 LET n$=n$+s$
2070 NEXT a
2080 RETURN