home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / pbbs / hp-fix01.ark / RDUSRS.HBS < prev    next >
Encoding:
Text File  |  1988-07-08  |  1.1 KB  |  47 lines
  1. ;******************************************************************************
  2. ;                                          *
  3. ;            Code segment from HBBS-1.LBR                  *
  4. ;                                          *
  5. ;******************************************************************************
  6.  
  7. ;
  8. ; Loop to read users file and attempt match
  9. ;
  10. RDUSRS:    CALL    GET
  11.     LD    B,NAMLEN
  12.     LD    HL,UNAMEF    ; Compare the user name to file record
  13.     LD    DE,INBUF
  14.     CALL    MATCH
  15.     OR    A
  16.     JR    Z,FNDUSR    ; Match so process
  17.     LD    A,(AVAILF)
  18.     OR    A        ; Free record?
  19.     JP    Z,NUOK        ; (we've got room, so let him in)
  20.     AND    A        ; Clear carry flag
  21.     LD    HL,(TMPREC)    ; See if we've already found a deleted record
  22.     LD    DE,-1
  23.     SBC    HL,DE
  24.     JR    NZ,NXTREC    ; Yup, so just keep scanning
  25.     LD    HL,(RRNO)    ; Nope, save this one in case we don't find him
  26.     LD    (TMPREC),HL
  27. ;
  28. NXTREC:    XOR    A        ; Clear the carry flag
  29.     LD    HL,(RRNO)
  30.     INC    HL
  31.     EX    DE,HL
  32.     LD    HL,(HSHREC)
  33.     SBC    HL,DE
  34.     JP    Z,NOSPC        ; So there's no match, so see if we have room
  35.     LD    HL,MAXU-1
  36.     XOR    A
  37.     SBC    HL,DE
  38.     EX    DE,HL
  39.     JR    NC,RDUSRS
  40.     LD    HL,0        ; Load up first record in file
  41.     JR    RDUSRS        ; No, keep going
  42. ;.....
  43. ;
  44. ; Found user so process info
  45. ;
  46. FNDUSR:    LD    A,(ACESSF)
  47.