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 / ZSYS / SIMTEL20 / SYSLIB / STEST.LBR / STEST010.Z80 < prev    next >
Text File  |  2000-06-30  |  896b  |  51 lines
  1. ;
  2. ;  PROGRAM: STEST010
  3. ;  AUTHOR: RICHARD CONN
  4. ;  PURPOSE: This program tests the FSIZE routine.  It creates a directory
  5. ;  display (using DIRFS) and displays the name of each file with its size
  6. ;  via the FSIZE routine.
  7. ;
  8.     ext    dirfs,fsize
  9.     ext    codend,retud
  10.     ext    print,phldc
  11.     ext    pfn1,crlf
  12.  
  13. ;
  14. ;  Begin
  15. ;
  16.     call    print
  17.     db    'STEST010 - Testing FSIZE',0dh,0ah,0
  18.     call    retud        ; get disk/user in BC
  19.     call    codend        ; determine end of code and pt to fcb
  20.     ld    de,fcb1
  21.     ld    a,c        ; get user in A
  22.     or    80h        ; set non-sys in current user
  23.     call    dirfs        ; get files
  24. loop:
  25.     push    hl
  26.     ex    de,hl
  27.     inc    de
  28.     call    pfn1
  29.     pop    hl
  30.     call    print
  31.     db    ' - ',0
  32.     push    hl
  33.     call    fsize
  34.     ex    de,hl
  35.     call    phldc
  36.     pop    hl
  37.     ld    de,16
  38.     add    hl,de
  39.     call    crlf
  40.     dec    bc
  41.     ld    a,b
  42.     or    c
  43.     jp    nz,loop
  44.     ret
  45.  
  46. fcb1:
  47.     db    0
  48.     db    '???????????'
  49.  
  50.     end
  51.