DIR.S
FILE INFORMATION
FILENAME(S): DIR.S
FILE TYPE(S): SEQ
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 01:12:59
APPEARS ON: 1 disk(s)
FILE HASH
e42aae1d601fa84cf7216b127e217cca42a6711fa1b797952f288c7bc34a193e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10201 SEITE A | DIR.S | SEQ | C64er | 5 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 32 30 |. *= $20| 00000010: 30 30 20 20 20 20 20 3B 53 54 41 52 54 41 44 52 |00 ;STARTADR| 00000020: 45 53 53 45 0D 0D 0D 46 49 4C 50 41 52 20 20 20 |ESSE...FILPAR | 00000030: 3D 20 24 46 46 42 41 0D 46 49 4C 4E 41 4D 20 20 |= $FFBA.FILNAM | 00000040: 20 3D 20 24 46 46 42 44 0D 4C 4F 41 44 20 20 20 | = $FFBD.LOAD | 00000050: 20 20 3D 20 24 46 46 44 35 0D 53 41 56 45 20 20 | = $FFD5.SAVE | 00000060: 20 20 20 3D 20 24 46 46 44 38 0D 43 4C 53 20 20 | = $FFD8.CLS | 00000070: 20 20 20 20 3D 20 24 45 35 34 34 0D 53 54 52 4F | = $E544.STRO| 00000080: 55 54 20 20 20 3D 20 24 41 42 31 45 0D 0D 20 20 |UT = $AB1E.. | 00000090: 20 20 20 20 20 20 20 4A 53 52 20 44 49 52 20 20 | JSR DIR | 000000A0: 20 20 20 20 3B 44 49 52 20 4C 41 44 45 4E 0D 44 | ;DIR LADEN.D| 000000B0: 55 4D 50 20 20 20 20 20 4C 44 58 20 23 24 30 31 |UMP LDX #$01| 000000C0: 20 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 46 | ;ZEIGER AUF| 000000D0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000000E0: 20 20 20 20 20 20 20 3B 54 49 54 45 4C 2B 31 0D | ;TITEL+1.| 000000F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 00000100: 30 20 20 20 20 20 3B 48 49 2F 4C 4F 2D 42 59 54 |0 ;HI/LO-BYT| 00000110: 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |E. STA $| 00000120: 46 42 20 20 20 20 20 20 3B 44 45 53 20 53 50 45 |FB ;DES SPE| 00000130: 49 43 48 45 52 2D 0D 20 20 20 20 20 20 20 20 20 |ICHER-. | 00000140: 4C 44 41 20 23 24 31 30 20 20 20 20 20 3B 42 45 |LDA #$10 ;BE| 00000150: 52 45 49 43 48 53 20 56 4F 4E 0D 20 20 20 20 20 |REICHS VON. | 00000160: 20 20 20 20 53 54 41 20 24 46 43 20 20 20 20 20 | STA $FC | 00000170: 20 3B 44 49 52 20 49 4E 20 5A 45 52 4F 2D 0D 20 | ;DIR IN ZERO-. | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 3B 50 41 47 45 41 44 52 45 53 53 | ;PAGEADRESS| 000001A0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN. | 000001B0: 20 20 20 20 20 20 20 20 20 3B 4C 41 44 45 4E 0D | ;LADEN.| 000001C0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 | LDY #$0| 000001D0: 30 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |0.;-------------| 000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4C 4F 4F 50 31 |----------.LOOP1| 00000200: 20 20 20 20 4C 44 41 20 28 24 46 42 29 2C 59 20 | LDA ($FB),Y | 00000210: 20 3B 53 50 45 49 43 48 45 52 20 4E 41 43 48 0D | ;SPEICHER NACH.| 00000220: 20 20 20 20 20 20 20 20 20 49 4E 59 20 20 20 20 | INY | 00000230: 20 20 20 20 20 20 3B 3E 22 3C 20 44 55 52 43 48 | ;>"< DURCH| 00000240: 53 55 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 |SUCHEN. | 00000250: 43 4D 50 20 23 24 32 32 0D 20 20 20 20 20 20 20 |CMP #$22. | 00000260: 20 20 42 4E 45 20 4C 4F 4F 50 31 0D 3B 2D 2D 2D | BNE LOOP1.;---| 00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000290: 2D 2D 2D 2D 0D 4C 4F 4F 50 32 20 20 20 20 4C 44 |----.LOOP2 LD| 000002A0: 41 20 28 24 46 42 29 2C 59 20 20 3B 4E 41 4D 45 |A ($FB),Y ;NAME| 000002B0: 4E 20 4C 45 53 45 4E 0D 20 20 20 20 20 20 20 20 |N LESEN. | 000002C0: 20 43 4D 50 20 23 24 32 32 20 20 20 20 20 3B 45 | CMP #$22 ;E| 000002D0: 4E 44 45 3F 0D 20 20 20 20 20 20 20 20 20 42 45 |NDE?. BE| 000002E0: 51 20 45 4E 44 45 0D 20 20 20 20 20 20 20 20 20 |Q ENDE. | 000002F0: 53 54 41 20 54 49 54 45 4C 2C 58 20 20 3B 4E 45 |STA TITEL,X ;NE| 00000300: 49 4E 20 2D 20 5A 45 49 43 48 45 4E 0D 20 20 20 |IN - ZEICHEN. | 00000310: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 | INX | 00000320: 20 20 20 3B 49 4E 20 53 54 52 49 4E 47 0D 20 20 | ;IN STRING. | 00000330: 20 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 | INY | 00000340: 20 20 20 20 3B 53 43 48 52 45 49 42 45 4E 0D 20 | ;SCHREIBEN. | 00000350: 20 20 20 20 20 20 20 20 4A 4D 50 20 4C 4F 4F 50 | JMP LOOP| 00000360: 32 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |2.;-------------| 00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 45 4E 44 45 20 |----------.ENDE | 00000390: 20 20 20 20 4A 53 52 20 43 4C 53 20 20 20 20 20 | JSR CLS | 000003A0: 20 3B 53 43 52 45 45 4E 20 4C 4F 45 53 43 48 45 | ;SCREEN LOESCHE| 000003B0: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |N. LDA #| 000003C0: 3C 54 49 54 45 4C 20 20 3B 54 49 54 45 4C 2D 53 |<TITEL ;TITEL-S| 000003D0: 54 52 49 4E 47 0D 20 20 20 20 20 20 20 20 20 4C |TRING. L| 000003E0: 44 59 20 23 3E 54 49 54 45 4C 20 20 3B 41 55 53 |DY #>TITEL ;AUS| 000003F0: 47 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 4A |GEBEN. J| 00000400: 4D 50 20 24 41 42 31 45 0D 0D 54 49 54 45 4C 20 |MP $AB1E..TITEL | 00000410: 20 20 20 2E 54 45 58 54 20 22 12 22 20 20 20 20 | .TEXT "." | 00000420: 3B 42 59 54 45 20 46 2E 20 52 45 56 45 52 53 0D |;BYTE F. REVERS.| 00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000440: 20 20 20 20 20 20 3B 4C 45 45 52 42 59 54 45 53 | ;LEERBYTES| 00000450: 20 46 55 45 52 0D 20 20 20 20 20 20 20 20 20 20 | FUER. | 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 49 53 | ;DIS| 00000470: 4B 4E 41 4D 45 4E 0D 0D 20 20 20 20 20 20 20 20 |KNAMEN.. | 00000480: 20 2E 42 59 54 45 20 24 32 30 2C 24 32 30 2C 24 | .BYTE $20,$20,$| 00000490: 32 30 2C 24 32 30 2C 24 32 30 2C 24 32 30 0D 20 |20,$20,$20,$20. | 000004A0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 | .BYTE $2| 000004B0: 30 2C 24 32 30 2C 24 32 30 2C 24 32 30 2C 24 32 |0,$20,$20,$20,$2| 000004C0: 30 2C 24 32 30 0D 20 20 20 20 20 20 20 20 20 2E |0,$20. .| 000004D0: 42 59 54 45 20 24 32 30 2C 24 32 30 2C 24 32 30 |BYTE $20,$20,$20| 000004E0: 2C 24 32 30 2C 24 32 30 2C 24 30 30 0D 3B 2D 2D |,$20,$20,$00.;--| 000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000510: 2D 2D 2D 2D 2D 0D 44 49 52 20 20 20 20 20 20 4C |-----.DIR L| 00000520: 44 58 20 23 24 30 38 20 20 20 20 20 3B 46 4C 4F |DX #$08 ;FLO| 00000530: 50 50 59 20 38 0D 20 20 20 20 20 20 20 20 20 4C |PPY 8. L| 00000540: 44 59 20 23 24 30 30 20 20 20 20 20 3B 52 45 4C |DY #$00 ;REL| 00000550: 41 54 49 56 20 4C 41 44 45 4E 0D 20 20 20 20 20 |ATIV LADEN. | 00000560: 20 20 20 20 4A 53 52 20 46 49 4C 50 41 52 20 20 | JSR FILPAR | 00000570: 20 3B 50 41 52 41 4D 2E 20 53 45 54 5A 45 4E 0D | ;PARAM. SETZEN.| 00000580: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C 28 | LDX #<(| 00000590: 4E 41 4D 45 29 20 3B 4C 4F 2D 42 59 54 45 20 4E |NAME) ;LO-BYTE N| 000005A0: 41 4D 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |AME. LDY| 000005B0: 20 23 3E 28 4E 41 4D 45 29 20 3B 48 49 2D 42 59 | #>(NAME) ;HI-BY| 000005C0: 54 45 20 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 |TE NAME. | 000005D0: 20 4C 44 41 20 23 24 30 31 20 20 20 20 20 3B 4C | LDA #$01 ;L| 000005E0: 41 45 4E 47 45 20 4E 41 4D 45 0D 20 20 20 20 20 |AENGE NAME. | 000005F0: 20 20 20 20 4A 53 52 20 46 49 4C 4E 41 4D 20 20 | JSR FILNAM | 00000600: 20 3B 4E 41 4D 45 20 53 45 54 5A 45 4E 0D 20 20 | ;NAME SETZEN. | 00000610: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 | LDA #$00 | 00000620: 20 20 20 20 3B 4C 4F 41 44 2D 46 4C 41 47 3D 4C | ;LOAD-FLAG=L| 00000630: 4F 41 44 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |OAD. LDX| 00000640: 20 23 24 30 30 20 20 20 20 20 3B 48 49 2F 4C 4F | #$00 ;HI/LO| 00000650: 20 46 55 45 52 0D 20 20 20 20 20 20 20 20 20 4C | FUER. L| 00000660: 44 59 20 23 24 31 30 20 20 20 20 20 3B 53 54 41 |DY #$10 ;STA| 00000670: 52 54 41 44 52 45 53 53 45 0D 20 20 20 20 20 20 |RTADRESSE. | 00000680: 20 20 20 4A 53 52 20 4C 4F 41 44 20 20 20 20 20 | JSR LOAD | 00000690: 3B 4C 41 44 45 4E 0D 20 20 20 20 20 20 20 20 20 |;LADEN. | 000006A0: 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 5A 55 |RTS ;ZU| 000006B0: 52 45 55 43 4B 0D 4E 41 4D 45 20 20 20 20 20 2E |REUCK.NAME .| 000006C0: 54 45 58 54 20 22 24 22 20 20 20 20 3B 46 49 4C |TEXT "$" ;FIL| 000006D0: 45 4E 41 4D 45 0D 0D |ENAME.. |
. *= $2000 ;STARTADRESSE...F
ILPAR = $FFBA.FILNAM = $FFBD.LOAD
= $FFD5.SAVE = $FFD8.CLS = $E
544.STROUT = $AB1E.. JSR DIR
;DIR LADEN.DUMP LDX #$01 ;ZE
IGER AUF. ;TITEL+1.
LDA #$00 ;HI/LO-BYTE.
STA $FB ;DES SPEICHER-.
LDA #$10 ;BEREICHS VON. STA
$FC ;DIR IN ZERO-.
;PAGEADRESSEN.
;LADEN. LDY #$00.;-------------
--------------------------.LOOP1 LDA
($FB),Y ;SPEICHER NACH. INY
;>"< DURCHSUCHEN. CMP #$22
. BNE LOOP1.;-------------------
--------------------.LOOP2 LDA ($FB),
Y ;NAMEN LESEN. CMP #$22 ;E
NDE?. BEQ ENDE. STA TITE
L,X ;NEIN - ZEICHEN. INX
;IN STRING. INY ;SCH
REIBEN. JMP LOOP2.;-------------
--------------------------.ENDE JSR
CLS ;SCREEN LOESCHEN. LDA #
<TITEL ;TITEL-STRING. LDY #>TIT
EL ;AUSGEBEN. JMP $AB1E..TITEL
.TEXT "." ;BYTE F. REVERS.
;LEERBYTES FUER.
;DISKNAMEN.. .BYTE $
20,$20,$20,$20,$20,$20. .BYTE $2
0,$20,$20,$20,$20,$20. .BYTE $20
,$20,$20,$20,$20,$00.;------------------
---------------------.DIR LDX #$08
;FLOPPY 8. LDY #$00 ;REL
ATIV LADEN. JSR FILPAR ;PARAM.
SETZEN. LDX #<(NAME) ;LO-BYTE N
AME. LDY #>(NAME) ;HI-BYTE NAME.
LDA #$01 ;LAENGE NAME.
JSR FILNAM ;NAME SETZEN. L
DA #$00 ;LOAD-FLAG=LOAD. LDX
#$00 ;HI/LO FUER. LDY #$10
;STARTADRESSE. JSR LOAD
;LADEN. RTS ;ZUREUCK.NA
ME .TEXT "$" ;FILENAME..
> CLICK IMAGE PREVIEW FOR FULL MODAL