Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement