dane SEGMENT PUBLIC USE16'DATA'
Podaj db ' Podaj liczbe w zapisie HEX: $'
nowalinia db 10,13,'$'
tmp dw 0
buf db 5, 0, 0, 0, 0, 0, 0 ;bufor 5 znaków [max ilosc][ilosc wpisanych][..wpisane..]
dane ENDS


sts segment STACK USE16 'STACK'
db 1024 dup(0)
sts ENDS


program SEGMENT PUBLIC USE16 'CODE'
assume cs:program, ds:dane, ss:sts

;procedura zwracajaca wartosc znaku w al (wartosc w ax)
Wartosc PROC
cmp al, '0' ; pierwsze wzgledem drugiego
jb ZlyZnak ; al<'0'
cmp al, ':'
ja Litera ; al>=':'

sub al, 48
jmp KoniecWartosc

Litera:
cmp al, 'A' ; pierwsze wzgledem drugiego
jb ZlyZnak ; al<'A'
cmp al, '['
ja LiteraMala ; al>='['

sub al, 55
jmp KoniecWartosc

LiteraMala:
cmp al, 'a' ; pierwsze wzgledem drugiego
jb ZlyZnak ; al<'a'
cmp al, '{'
ja ZlyZnak ; al>='{'

sub al, 87
jmp KoniecWartosc

ZlyZnak:
mov al, 0

KoniecWartosc:
mov ah, 0
ret
Wartosc ENDP


;procedura obliczajaca wartosc wpisana do
Zamiana PROC

mov bh, 0
mov bl, al
mov di, offset buf[bx]

mov al, buf[2] ;al = kod pierwszego znaku bufora
call Wartosc ;w ax jest wartosc znaku pierwszego
shl ax, 12 ;przesuniecie bitow ax o 12 pozycji w lewo
mov tmp, ax ;przeniesienie bitów do tmp

mov al, buf[3] ;al = kod drugiego znaku bufora
call Wartosc ;w ax jest wartosc znaku pierwszego
shl ax, 8 ;przesuniecie bitow ax o 12 pozycji w lewo
or tmp, ax ;wkomponowanie bitów do tmp

mov al, buf[4] ;al = kod drugiego znaku bufora
call Wartosc ;w ax jest wartosc znaku pierwszego
shl ax, 4 ;przesuniecie bitow ax o 12 pozycji w lewo
or tmp, ax ;wkomponowanie bitów do tmp

mov al, buf[5] ;al = kod drugiego znaku bufora
call Wartosc ;w ax jest wartosc znaku pierwszego
or tmp, ax ;wkomponowanie bitów do tmp

ret
Zamiana ENDP




start:
mov dx, seg dane ;ax = segment wszystkich zmiennych
mov ds, dx ;ds = ax

mov ah, 9
mov dx, offset Podaj ;w dx musi by† offset tekstu, (offset nazwa_zmiennej)
int 21h


mov ah, 0Ah
mov dx, offset buf
int 21h ;pobierz tekst do buf

call Zamiana
mov ax, tmp ;w ax wartość przeliczona



mov al, 07h ; czekaj na klawisz
mov ah,0Ch
int 21h


mov ah,4ch
int 21h
program ENDS

end start