?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. #ifndef included_randinit
  2. #define included_randinit
  3.  
  4. randinit:
  5. ; need to make sure seed1 is non-zero
  6.   ld hl,seed1
  7.   ld a,(hl)
  8.   inc hl
  9.   or (hl)
  10.   inc hl
  11.   or (hl)
  12.   inc hl
  13.   or (hl)
  14.   ret nz
  15.   dec (hl)
  16.   ret
  17. #endif
  18.