! DK:RDIR.TXT   DATE: 21-MAY-83   TIME: 17:31:32 !

! reads volume ID and directory, stored in reg. X !
! append text, if any, to reg. D, with FF !
Z"G ZJ12I$H:XDHK'
! if more than 8 blocks, call write routine in reg. Y !
:QD-(8*512)"G MY|
! else read new volume ID !
2#EDED ERDK:$ _DECRT11A$ 8R.,ZK 24R B,.K 12CI	$ZJI
$2^_&EDED
! read and format directory !
ENDK:*.*$<:EN$;G*I
$>JL<:S:$;0KS.$RI      $0^Q+6D>JL'$$
                                                                                    