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