?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ; DE - buffer
  2. ; HL - output
  3. atohl:
  4.     ld hl, 0
  5. .loop
  6.     ld a, (de)
  7.     inc de
  8.     ; Sepparators
  9.     push bc, hl
  10.         ld bc, sepparators_len
  11.         ld hl, sepparators
  12.         cpir
  13.     pop hl, bc
  14.     ret z
  15.  
  16.     sub '0'
  17.    
  18.     push bc
  19.         ld c, l
  20.         ld b, h
  21.  
  22.         add hl, hl
  23.         add hl, hl
  24.         add hl, bc
  25.         add hl, hl
  26.         ld c, a
  27.         ld b, 0
  28.         add hl, bc
  29.     pop bc
  30.     jr .loop
  31.