! DK:RDIR.TEC 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 ZJ12IH: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'