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.EMX < prev    next >
Text File  |  1988-07-07  |  640b  |  26 lines
  1. ;******************************************************************************
  2. ;                                          *
  3. ;            Code segment from EMX-313.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
  12.     LD    DE,INBUF
  13.     CALL    MATCH
  14.     CP    0
  15.     JP    Z,FNDUSR    ; Match so process
  16.     LD    HL,(RRNO)
  17.     DEC    HL
  18.     LD    A,H
  19.     CP    0FFH        ; Done with records?
  20.     JP    Z,NEWUSR
  21.     JP    RDUSRS        ; No, keep going
  22. ;
  23. ; Found user so process info
  24. ;
  25. FNDUSR:    :LD    A,(ACCESSF)
  26.