?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  ifndef included_normalizexOP1
  2.  define included_normalizexOP1
  3. normalizexOP1:
  4.   ld a,(xOP1+7)
  5.   add a,a
  6.   ret c
  7. normalizexOP1_0;_:
  8.   ld hl,xOP1
  9.   sla (hl) : inc_hl_opt (xOP1)
  10.   rl (hl) : inc_hl_opt (xOP1+1)
  11.   rl (hl) : inc_hl_opt (xOP1+2)
  12.   rl (hl) : inc_hl_opt (xOP1+3)
  13.   rl (hl) : inc_hl_opt (xOP1+4)
  14.   rl (hl) : inc_hl_opt (xOP1+5)
  15.   rl (hl) : inc_hl_opt (xOP1+6)
  16.   rl (hl)
  17.   ld hl,(xOP1+8)
  18.   dec hl
  19.   ld (xOP1+8),hl
  20.   jp p,normalizexOP1_0;-_
  21.   ret
  22.  endif
  23.