home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9201a.d64 / dir.s < prev    next >
Text File  |  1995-03-30  |  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.