0001 ! Adapted by Tom Cadwallader; PPC (3502), CHHU [70], HPX <46>, MUNCH {1}.
0002 ! Written by John R. Baker - See AST71N2 or CHHU01.
0003 ! Requires no LEX files.
0004 ! The parameters for the variables J and K (Lines 60 and 100) could be
0005 !     changed to reflect system conditions (J = Port and K = Device in the
0006 !     Port) with the maximum J = 5 and the maximum K = 15.  For example,
0007 !     if you have no extra RAM in the Card Reader Port or internally, then
0008 !     J = 4 and K = 4 (or 6 if HPILROM catalog is to be printed).
0009 ! Uncomment Line 75 if you want to omit ROM (but not some EPROM) catalogs.
0010 CALL FILES71 @ SUB FILES71 ! Version 09/10/87
0020 STD @ A$='bytes used &' @ B$='usable ' @ DIM K$[43] @ M$='MAIN ' @ T=MEM
0030 PRINT 'HP-71 Files:           ';DATE$[4];'/';DATE$[1,2];' ';TIME$[1,5]
0040 FOR I=1 TO 999 @ K$=CAT$(I) @ GOSUB 130 @ NEXT I
0050 M=N @ PRINT N;A$;T;B$&M$ @ M$=''
0060 ON ERROR GOTO 100 @ FOR J=0 TO 5 @ FOR K=0 TO 9
0070 N=0 @ Q=J+K*.01 @ J$=':PORT('&STR$(Q)&')' @ IF CAT$(1,J$)='' THEN 80
0075 ! IF PEEK$(DTH$(HTD(ADDR$(CAT$(1,J$)))-8),8)#"B3DDDDDE" THEN 100
0080 FOR I=1 TO 999 @ K$=CAT$(I,J$) @ GOSUB 130 @ NEXT I
0090 M=M+N @ PRINT N;A$;MEM(Q);B$&J$ @ T=T+MEM(Q)
0100 IF J#0 AND J#5 THEN K=9
0110 NEXT K @ NEXT J @ OFF ERROR
0120 PRINT @ PRINT 'Total';M;'RAM/ROM '&A$;T;B$ @ END 
0130 IF I=1 THEN PRINT @ PRINT '  NAME   S TYPE   LEN    DATE   TIME  PORT POS'
0140 IF K$='' THEN I=999 @ RETURN 
0145 L$='' @ IF I<10 THEN L$=M$&'  ' ELSE IF I<100 THEN L$=M$&' ' ELSE L$=M$
0150 PRINT K$&L$&STR$(I) @ N=N+VAL(K$[18,22]) @ RETURN @ END SUB