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 >
Text File  |  2022-10-26  |  2KB  |  63 lines
  1.  
  2.          *= $2000     ;startadresse
  3.  
  4.  
  5. filpar   = $ffba
  6. filnam   = $ffbd
  7. load     = $ffd5
  8. save     = $ffd8
  9. cls      = $e544
  10. strout   = $ab1e
  11.  
  12.          jsr dir      ;dir laden
  13. dump     ldx #$01     ;zeiger auf
  14.                       ;titel+1
  15.          lda #$00     ;hi/lo-byte
  16.          sta $fb      ;des speicher-
  17.          lda #$10     ;bereichs von
  18.          sta $fc      ;dir in zero-
  19.                       ;pageadressen
  20.                       ;laden
  21.          ldy #$00
  22. ;---------------------------------------
  23. loop1    lda ($fb),y  ;speicher nach
  24.          iny          ;>"< durchsuchen
  25.          cmp #$22
  26.          bne loop1
  27. ;---------------------------------------
  28. loop2    lda ($fb),y  ;namen lesen
  29.          cmp #$22     ;ende?
  30.          beq ende
  31.          sta titel,x  ;nein - zeichen
  32.          inx          ;in string
  33.          iny          ;schreiben
  34.          jmp loop2
  35. ;---------------------------------------
  36. ende     jsr cls      ;screen loeschen
  37.          lda #<titel  ;titel-string
  38.          ldy #>titel  ;ausgeben
  39.          jmp $ab1e
  40.  
  41. titel    .text ""    ;byte f. revers
  42.                       ;leerbytes fuer
  43.                       ;disknamen
  44.  
  45.          .byte $20,$20,$20,$20,$20,$20
  46.          .byte $20,$20,$20,$20,$20,$20
  47.          .byte $20,$20,$20,$20,$20,$00
  48. ;---------------------------------------
  49. dir      ldx #$08     ;floppy 8
  50.          ldy #$00     ;relativ laden
  51.          jsr filpar   ;param. setzen
  52.          ldx #<(name) ;lo-byte name
  53.          ldy #>(name) ;hi-byte name
  54.          lda #$01     ;laenge name
  55.          jsr filnam   ;name setzen
  56.          lda #$00     ;load-flag=load
  57.          ldx #$00     ;hi/lo fuer
  58.          ldy #$10     ;startadresse
  59.          jsr load     ;laden
  60.          rts          ;zureuck
  61. name     .text "$"    ;filename
  62.  
  63.