LEX    'NOPRIV'
       ID     #5C
       MSG    0
       POLL   0
*
       ENTRY  RLIST
       CHAR   1
       KEY    'RLIST'
       TOKEN  1
       ENDTXT
*
************************
*
* pRivate LIST
* for BASIC files ONLY!
*
*  !!!- WARNING -!!!
* NO ERROR TRAPPING 
*
* This routine is
* 'quick & dirty'
*
* op sys 1BBBB only
* uses unsupported
* entry points
* * * * * * * * * * * *
*
       REL(5) #05839
       REL(5) #03B92
RLIST
       LC(2)  #1F
       D1=(5) #2F870
       DAT1=C B
       D1=(5) #2F55D
       C=DAT1 A
       D1=C
       A=DAT0 B
       GOSBVL #05405
       GOSBVL #09F2D
       GOSBVL #09F63
       GOSBVL #06EC0
       P=     0
       C=0    A
       C=C+1  A
       R1=C
       LCHEX  9999
       R3=C
       D1=D1+ #10
       GOVLNG #06ACA
*
* * * * * * * * * * * *
*
* see 71 code for PLIST
* all we do is omit call
* to check private bit
* again, BASIC ONLY !!!!
* anything else may 
* trash the machine
*
* only works on files 
* contained in RAM
* or in ROM
* won't work on pil
*
       END