home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9201a.d64
/
dir.s
< prev
next >
Wrap
Text File
|
1995-03-30
|
2KB
|
63 lines
*= $2000 ;STARTADRESSE
FILPAR = $FFBA
FILNAM = $FFBD
LOAD = $FFD5
SAVE = $FFD8
CLS = $E544
STROUT = $AB1E
JSR DIR ;DIR LADEN
DUMP LDX #$01 ;ZEIGER 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 ;ENDE?
BEQ ENDE
STA TITEL,X ;NEIN - ZEICHEN
INX ;IN STRING
INY ;SCHREIBEN
JMP LOOP2
;---------------------------------------
ENDE JSR CLS ;SCREEN LOESCHEN
LDA #<TITEL ;TITEL-STRING
LDY #>TITEL ;AUSGEBEN
JMP $AB1E
TITEL .TEXT "" ;BYTE F. REVERS
;LEERBYTES FUER
;DISKNAMEN
.BYTE $20,$20,$20,$20,$20,$20
.BYTE $20,$20,$20,$20,$20,$20
.BYTE $20,$20,$20,$20,$20,$00
;---------------------------------------
DIR LDX #$08 ;FLOPPY 8
LDY #$00 ;RELATIV LADEN
JSR FILPAR ;PARAM. SETZEN
LDX #<(NAME) ;LO-BYTE NAME
LDY #>(NAME) ;HI-BYTE NAME
LDA #$01 ;LAENGE NAME
JSR FILNAM ;NAME SETZEN
LDA #$00 ;LOAD-FLAG=LOAD
LDX #$00 ;HI/LO FUER
LDY #$10 ;STARTADRESSE
JSR LOAD ;LADEN
RTS ;ZUREUCK
NAME .TEXT "$" ;FILENAME