/PROGRAM TO PRINT DISK DIRECTORY *0 CLA TAD FILE OPEN  /OPEN DIRECTORY FILE IN [0,1] SZA  /CONT IF NO ERROR HLT  /OTHERWISE DIE JMP I .+1 200 *20 FILE, .+1 0 1  /[0,1] 2 /SYS:[0,2] 5470 5045 FCB, .+1 0 0 0 0 10 /FIRST DIR ENTRY IS AT 10 0 BUFFM1, BUFFER-1 M10, -10 BUFFER, 0 PAGE 1 LOOP, CLA TAD M10 DCA FCB+3 /READ 8. WORDS TAD BUFFM1 DCA FCB+4 /READ INTO (BUFFER) TAD FCB RFILE  /READ AN ENTRY SZA  /SKIP IF NO ERROR HLT TAD BUFFER+3 /GET LINK DCA FCB+5 /FOLLOW IT TAD BUFFER JMS TYPE /PRINT FIRST 2 CHARS TAD BUFFER+1 JMS TYPE /PRINT 2ND PAIR OF CHARS TAD BUFFER+2 JMS TYPE /PRINT 3RD PAIR TAD CR TLS CLA TAD LF TLS  /PRINT CR,LF JMP LOOP /PRINT NEXT ENTRY / CR, 215 LF, 212 / TYPE, 0 DCA CHAR /SAVE THE CHARS TAD CHAR 7002  /ROTATE INTO AC6:AC11 (BSW) AND K77  /CLEAR HIGH BITS TAD K240 /CONVERT TO ASCII TLS  /PRINT IT CLA TAD CHAR AND K77  /CLEAR HIGH BITS TAD K240 /CONVERT TO ASCII TLS  /PRINT 2ND CHAR CLA JMP I TYPE /RETURN / CHAR, 0 K77, 77 K240, 240 / $