home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 January
/
64er_Magazin_92-01_1992_Markt__Technik_de_Side_A.d64
/
dir.s
< prev
next >
Wrap
Text File
|
2022-10-26
|
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