Перевод из шестнадцатеричной в двоичную систему

movzx cx,[hex]
mov [bin],cl
shl [bin],2
mov si,hex+1
mov di,bin+1
xor bx,bx
@@:lodsb
   mov bl,al
   shl bx,2
   mov eax,[table+bx]
   stosd
loop @b

;***************************************************************
; Programa pakeicianti dvejetaini skaiciu desimtainiu
;***************************************************************
.model small
buferioDydis  EQU  5
.stack 256
.data
  bufDydis DB  buferioDydis          ;kiek maksimaliai simboliu galima nuskaityti
  nuskaite DB  ?                     ;cia bus patalpinta, kiek simboliu nuskaityta
  buferis  DB  buferioDydis dup (?)  ;cia bus talpinamas nuskaitytas skaicius
  
  ;kiti duomenys
  SUM      DW 0
  ivesk    DB "HEX:$"
  enteris  DB  13, 10,'$'
  rezult   DB "DEC:$"
  empty    DB "Nerasta jokiu simboliu $"
  klaida   DB "KLAIDA! $"
  ;Pagalbos praneрimas:
  help     DB "Daemon025", 10, 13,"Informacines technologijos", 10, 13,"I kursas", 10, 13,"1 grupe", 10, 13,"17 uzduotis", 10, 13,"Parasykite programa, kuri ivesta ilga sesioliktaini skaiciu uzraso dvejetainiu pavidalu; $"
 
.code
  pradzia:
  MOV  ax, @data                         ;reikalinga kiekvienos programos pradюioj
  MOV  ds, ax                            ;reikalinga kiekvienos programos pradюioj
 
  MOV  ch, 0      
  MOV  cl, [es:0080h]                    ;programos paleidimo parametru simboliu skaicius raрomas ES 128-ame (80h) baite
  CMP  cx, 0                             ;jei paleidimo parametru nera,
  JE   Nera                              ;nereikia nieko tikrinti.
  MOV  bx, 0081h                         ;programos paleidimo parametrai raрomi segmente es pradedant 129 (arba 81h) baitu
Ieskok:
  CMP  [es:bx], '?/'                     ;atmintyje jaunesnysis baitas saugomas pirmiau,
                                         ;todel pirmasis baitas iraрomas i bl, o antrasis i bh.
                                         ;taip '/?' virsta '?/'.
  JE   Yra                               ;jeigu radau '/?', vadinasi reikia spausdinti praneрimа
  INC  bx                                ;neradau '/?' рiuose baituose, paslenku rodyklж ir tikrinu toliau esancius parametrus
  LOOP Ieskok                            ;jei dar nepatikrinti visi parametrai, reikia tikrinti toliau
  JMP  Nera                              ;jei patikrinti visi parametrai ir nerastas '/?' reikia baigti programos darbа
 
  ;spausdinu i ekranа pagalbos praneрimа
Yra:
  MOV  ah, 9                             ;i ah iraрau dosinio pertraukimo funkcijos numeri
  MOV  dx, offset help                   ;i dx iraрau nuorodа i spausdinamo teksto pradюiа
  INT  21h 
  JMP  pabaiga                          ;iрkvieciu dosini pertraukimа - spausdinu praneрimа
Nera:
  MOV  ah, 9
  MOV  dx, offset ivesk
  INT  21h                               ;spausdinamas prasymas ivesti eilute
  
  MOV  ah, 0Ah
  MOV  dx, offset bufDydis
  INT  21h                               ;nuskaitoma ivesta eilute
  
  MOV  ah, 9
  MOV  dx, offset enteris                ;kursorius nukeliamas i nauja eilute
  INT  21h                               ;kursorius nukeliamas i nauja eilute
  MOV  cl, nuskaite                      ;i cl idedama kiek simboliu buvo nuskaityta                                     
  CMP  cl, 0                              ;tikriname ar buvo nuskaityti simboliai
  JE tuscia                              ;Jei nieko persokame i 'tuscia' 
  MOV  si, offset buferis  ;i si idedamas pirmojo nuskaityto simbolio adresas
          ;si - einamojo simbolio adresas
  MOV  dl, '0'
  MOV  dh, '9'
  MOV  al, 'A'
  MOV  ah, 'F' 
 
ciklas:
  CMP  byte ptr [si], dl        ;jei einamasis simbolis didesnis uz '0'
  JB   error_1         ;tokiu atveju tikriname ar tai skaicius
  CMP  byte ptr [si], ah        ;jei einamasis simbolis mazesnis uz '9'
  JA   error_1         ;tokiu atveju tai ne didzioji raide
  CMP  byte ptr [si], dh
  JB   nekeisti
  CMP  byte ptr [si], al
  JB   error_1 
  
nekeisti:
  INC  si      ;perstumiame adresa vienu baitu i prieki -
               ;i kita nuskaityta simboli
  LOOP ciklas
  
  MOV ah, 9
  MOV dx, offset rezult                 ;rezultato pranesimas
  INT 21h
  
  MOV cl, nuskaite
  XOR ax, ax                            ;isvalome ax registra, nes jis dalyvaus skaiciaus konvertavime
  MOV BX, 1
  DEC si                                ;sumaziname steko adresa vienetu, nes praejusiame padidinome ji +1 per daug
next_digit:
  MOV al, byte ptr [si]                  ;pasiimame skaiciu
  CMP al, '9'
  JB skaicius
  JMP raide
Skaicius:  
  SUB al, 30h
  JMP pradedam
raide:
  SUB al, 37h
pradedam:
  MUL BX                                ;Cia dauginame musu skaiciu (0 .. F) *2-n laipsnyje
  ADD SUM, ax                            ;Pridedame gauta rezultata prie dx
  SHL bx, 4
  DEC si                                ;keliaujame iki kito skaiciaus
  LOOP next_digit
  
  MOV ax, SUM                            ;priskiriame ax:= dx
  CALL Skaiciuok                         ;iskvieciame skaiciaus spausdinimo procedurа 
  JMP pabaiga                            ;persokame i progarmos pabaiga  
  
error_1:
  MOV ah, 9
  MOV dx, offset klaida                 ;pranesimas apie tuscia buferi
  INT 21h     
  JMP pabaiga 
  
tuscia:
  MOV ah, 9
  MOV dx, offset empty                  ;pranesimas apie tuscia buferi
  INT 21h      
pabaiga:
  MOV  ah, 4Ch                          ;reikalinga kiekvienos programos pabaigoj
  MOV  al, 0                            ;reikalinga kiekvienos programos pabaigoj
  INT  21h 
  
PROC Skaiciuok
  ;Korektiрka procedыra privalo po darbo atstatyti panaudotu registru reikрmes
  ;Todel prieр tai turime jas kur nors iрsisaugoti
  ;Patogiausia tai daryti steke
  PUSH  ax
  PUSH  cx
  PUSH  dx
  
  MOV  cx, 2                           ;kadangi naudojam deрimtainж sistemа, tai dalinsim iр 10
  PUSH  "$$"                           ;kad spausdindami skaitmenis iр steko, galetume rasti pabaigа
Dalink:
  MOV  dx, 0                           ;tiesiog iрvalom registrа, nes jis dalyvaus dalyboje
  DIV  cx                              ;[DX,AX]:10 = AX(liek DX)
  PUSH  dx                             ;idedam skaitmeni i stekа; deja, negalime ideti 1 baito
  CMP  ax, 0                           ;ar dar neperskaiteme viso skaiciaus?
  JA  Dalink                           ;jei ne, skaitom toliau
 
  ;pradedam skaiciaus spausdinimа
  MOV  ah, 2                           ;i AH irasom simbolio spausdinimo dosines funkcijos numeri
Spausdink:
  POP  dx                              ;isimam skaitmeni is steko
  CMP  dx, "$$"                        ;ar isspausdinome visа skaiciu?
  JE  Finish                           ;jei taip, reikia baigti darbа
  ADD  dl, '0'                         ;liekanos jaunesnysis baitas - tai vienas skaitmuo; prideje simbolini 0 iр skaiciaus (pvz.: 1) gausime simboli ('1')
  INT  21h                             ;jei ne, spausdinam skaitmeni
  JMP  Spausdink                       ;spausdink kitа skaitmeni
Finish:
  ;Turime atstatyti iрsaugotu registru reikрmes
  POP  dx
  POP  cx
  POP  ax
  RET                                   ;grizimo is proceduros komanda
  Skaiciuok ENDP                        ;reikalinga kiekvienos proceduros pabaigoj
END pradzia