! 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'$$