5.DIRECTORY
FILE INFORMATION
FILENAME(S): 5.DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 859b
FIRST SEEN: 2025-12-02 00:14:46
APPEARS ON: 1 disk(s)
FILE HASH
64d49ddfc41748bc9ec96840160f7071ccc41e0c4f9954b777bf26686b748d4a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRIUMWYRATSPREAD | 5.DIRECTORY | PRG | Maestro | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 10 02 00 3B 54 48 49 53 20 50 52 4F 47 52 41 |....;THIS PROGRA| 00000010: 4D 4D 20 20 44 49 53 50 4C 41 59 53 20 54 48 45 |MM DISPLAYS THE| 00000020: 20 44 49 52 45 43 54 4F 52 59 00 BB 54 4F 20 54 | DIRECTORY..TO T| 00000030: 48 45 20 53 43 52 45 45 4E 2E 00 3B 20 20 31 2E |HE SCREEN..; 1.| 00000040: 20 43 4F 4D 50 49 4C 45 20 49 54 20 57 49 54 48 | COMPILE IT WITH| 00000050: 20 22 46 38 22 3B 00 3B 20 20 32 2E 20 47 45 54 | "F8";.; 2. GET| 00000060: 20 4F 55 54 20 46 52 4F 4D 20 54 48 45 20 45 44 | OUT FROM THE ED| 00000070: 49 54 4F 52 20 57 49 54 48 00 3B 20 20 20 20 20 |ITOR WITH.; | 00000080: 22 43 54 52 4C 2D 50 22 3B 00 3B 20 20 33 2E 20 |"CTRL-P";.; 3. | 00000090: 43 41 4C 4C 20 49 54 20 3A 20 22 53 59 53 20 36 |CALL IT : "SYS 6| 000000A0: 2A 34 30 39 36 22 00 00 3B 20 20 34 2E 20 52 45 |*4096"..; 4. RE| 000000B0: 54 55 52 4E 20 54 4F 20 54 48 45 20 45 44 49 54 |TURN TO THE EDIT| 000000C0: 4F 52 20 57 49 54 48 00 BB 22 53 59 53 20 34 39 |OR WITH.."SYS 49| 000000D0: 31 35 32 22 00 02 00 3B 20 52 4F 55 54 49 4E 45 |152"...; ROUTINE| 000000E0: 20 46 52 4F 4D 20 43 36 34 20 49 4E 54 45 52 4E | FROM C64 INTERN| 000000F0: 20 2F 44 41 54 41 20 42 45 43 4B 45 52 2F 00 02 | /DATA BECKER/..| 00000100: 00 00 2A 24 36 30 30 30 00 02 00 46 4E 41 44 52 |..*$6000...FNADR| 00000110: 3D 24 42 42 00 46 4E 4C 45 4E 3D 24 42 37 00 46 |=$BB.FNLEN=$B7.F| 00000120: 41 3D 24 46 39 00 53 41 3D 24 42 39 00 53 4E 44 |A=$F9.SA=$B9.SND| 00000130: 4E 41 4D 3D 24 46 33 44 35 00 54 41 4C 4B 3D 24 |NAM=$F3D5.TALK=$| 00000140: 46 46 42 34 00 53 41 54 41 4C 4B 3D 24 46 46 39 |FFB4.SATALK=$FF9| 00000150: 36 00 53 54 41 54 55 53 3D 24 39 30 00 49 45 43 |6.STATUS=$90.IEC| 00000160: 49 4E 3D 24 46 46 41 35 00 4C 4E 50 52 54 3D 24 |IN=$FFA5.LNPRT=$| 00000170: 42 44 43 44 00 50 52 49 4E 54 3D 24 46 46 44 32 |BDCD.PRINT=$FFD2| 00000180: 00 43 4C 53 46 49 4C 3D 24 46 36 34 32 00 02 00 |.CLSFIL=$F642...| 00000190: 44 49 52 45 43 54 4F 52 59 2F 00 CC 44 41 20 23 |DIRECTORY/..DA #| 000001A0: 22 24 22 00 D3 54 41 20 24 46 42 00 CC 44 41 20 |"$"..TA $FB..DA | 000001B0: 23 24 46 42 00 D3 54 41 20 46 4E 41 44 52 00 CC |#$FB..TA FNADR..| 000001C0: 44 41 20 23 30 00 D3 54 41 20 46 4E 41 44 52 2B |DA #0..TA FNADR+| 000001D0: 31 00 CC 44 41 20 23 31 00 D3 54 41 20 46 4E 4C |1..DA #1..TA FNL| 000001E0: 45 4E 00 CC 44 41 20 23 38 00 D3 54 41 20 46 41 |EN..DA #8..TA FA| 000001F0: 00 CC 44 41 20 23 24 36 30 00 D3 54 41 20 53 41 |..DA #$60..TA SA| 00000200: 00 CA 53 52 20 53 4E 44 4E 41 4D 00 CC 44 41 20 |..SR SNDNAM..DA | 00000210: 46 41 00 CA 53 52 20 54 41 4C 4B 00 CC 44 41 20 |FA..SR TALK..DA | 00000220: 53 41 00 CA 53 52 20 53 41 54 41 4C 4B 00 CC 44 |SA..SR SATALK..D| 00000230: 41 20 23 30 00 D3 54 41 20 53 54 41 54 55 53 00 |A #0..TA STATUS.| 00000240: CC 44 59 20 23 33 00 44 49 52 31 2F 00 D3 54 59 |.DY #3.DIR1/..TY| 00000250: 20 24 46 42 00 CA 53 52 20 49 45 43 49 4E 00 D3 | $FB..SR IECIN..| 00000260: 54 41 20 24 46 43 00 CC 44 59 20 53 54 41 54 55 |TA $FC..DY STATU| 00000270: 53 00 C2 4E 45 20 44 49 52 34 00 CA 53 52 20 49 |S..NE DIR4..SR I| 00000280: 45 43 49 4E 00 CC 44 59 20 53 54 41 54 55 53 00 |ECIN..DY STATUS.| 00000290: C2 4E 45 20 44 49 52 34 00 CC 44 59 20 24 46 42 |.NE DIR4..DY $FB| 000002A0: 00 C4 45 59 00 C2 4E 45 20 44 49 52 31 00 00 CC |..EY..NE DIR1...| 000002B0: 44 58 20 24 46 43 00 CA 53 52 20 4C 4E 50 52 54 |DX $FC..SR LNPRT| 000002C0: 00 CC 44 41 20 23 22 20 22 00 CA 53 52 20 50 52 |..DA #" "..SR PR| 000002D0: 49 4E 54 00 44 49 52 33 2F 00 CA 53 52 20 49 45 |INT.DIR3/..SR IE| 000002E0: 43 49 4E 00 CC 44 58 20 53 54 41 54 55 53 00 C2 |CIN..DX STATUS..| 000002F0: 4E 45 20 44 49 52 34 00 D4 41 58 00 C2 45 51 20 |NE DIR4..AX..EQ | 00000300: 44 49 52 32 00 CA 53 52 20 50 52 49 4E 54 00 CA |DIR2..SR PRINT..| 00000310: 4D 50 20 44 49 52 33 00 44 49 52 32 2F 00 CC 44 |MP DIR3.DIR2/..D| 00000320: 41 20 23 31 33 00 CA 53 52 20 50 52 49 4E 54 00 |A #13..SR PRINT.| 00000330: CC 44 59 20 23 32 00 C2 4E 45 20 44 49 52 31 00 |.DY #2..NE DIR1.| 00000340: 00 02 00 44 49 52 34 2F 00 CA 53 52 20 43 4C 53 |...DIR4/..SR CLS| 00000350: 46 49 4C 00 D2 54 53 00 5D 00 01 |FIL..TS.].. |
....;THIS PROGRAMM DISPLAYS THE DIRECTO RY..TO THE SCREEN..; 1. COMPILE IT WITH "F8";.; 2. GET OUT FROM THE EDITOR WIT H.; "CTRL-P";.; 3. CALL IT : "SYS 6 *4096"..; 4. RETURN TO THE EDITOR WITH. ."SYS 49152"...; ROUTINE FROM C64 INTERN /DATA BECKER/....*$6000...FNADR=$BB.FNL EN=$B7.FA=$F9.SA=$B9.SNDNAM=$F3D5.TALK=$ FFB4.SATALK=$FF96.STATUS=$90.IECIN=$FFA5 .LNPRT=$BDCD.PRINT=$FFD2.CLSFIL=$F642... DIRECTORY/.LDA #"$".STA $FB.LDA #$FB.STA FNADR.LDA #0.STA FNADR+1.LDA #1.STA FNL EN.LDA #8.STA FA.LDA #$60.STA SA.JSR SND NAM.LDA FA.JSR TALK.LDA SA.JSR SATALK.LD A #0.STA STATUS.LDY #3.DIR1/.STY $FB.JSR IECIN.STA $FC.LDY STATUS.BNE DIR4.JSR I ECIN.LDY STATUS.BNE DIR4.LDY $FB.DEY.BNE DIR1..LDX $FC.JSR LNPRT.LDA #" ".JSR PR INT.DIR3/.JSR IECIN.LDX STATUS.BNE DIR4. TAX.BEQ DIR2.JSR PRINT.JMP DIR3.DIR2/.LD A #13.JSR PRINT.LDY #2.BNE DIR1....DIR4/ .JSR CLSFIL.RTS.]..
> CLICK IMAGE PREVIEW FOR FULL MODAL