Dir in Basic

10 open2,8,0,"$"
15 l=-1
20 if st and 254 goto 130

rem disassembly of 1541 rom
rem 4 bytes at list beginning:  '1411'
rem **asm** ECBC   LDA #$01      1
rem **asm** ECBE   JSR $CFF1     write in buffer
rem **asm** ECC1   LDA #$04      4, start address $0401
rem **asm** ECC3   JSR $CFF1     write in buffer
rem **asm** ECC6   LDA #$01      2 times 1
rem **asm** ECC8   JSR $CFF1
rem **asm** ECCB   JSR $CFF1     write in buffer as link address
rem
rem '0' at directory header:
rem **asm** ECCE   LDA $0272     drive number
rem **asm** ECD1   JSR $CFF1     write in buffer as line number
rem **asm** ECD4   LDA #$00      line number hi
rem **asm** ECD6   JSR $CFF1     in buffer
25 rem ** drops 2 bytes at list beginning
30 get#2,d$,d$

rem disassembly of 1541 rom
rem 3 bytes for each line:  '011'; 0 is endline
rem **asm** ECE5   LDA #$00
rem **asm** ECE7   JSR $CFF1     0 as line end in buffer
rem **asm** ECEA   LDA #$01
rem **asm** ECEC   JSR $CFF1     2 times 1 as link address
rem **asm** ECEF   JSR $CFF1
35 rem ** drops 2 bytes at each line beginning ('11')
40 get#2,d$,d$

45 rem ** if eof exit
50 if st and 64 goto 130
55 rem ** reads 2 bytes file size lo/hi; if zero adds chr(0)
70 get#2,a$:if a$="" then a$=chr$(0)
80 get#2,b$:if b$="" then b$=chr$(0)
90 l=asc(b$)*256+asc(a$):li$=mid$(str$(l),2)+" "
95 rem ** reads directory line
100 get#2,c$
110 if c$ then li$=li$+c$:goto100
120 print li$:goto40
130 close 2