100 OPEN1,8,1,"PRG1/A"
110 SYS7*4096:     ; ASSEMBLER AUFRUFEN
120 BDOS =$A000    ; STARTADRESSE BDOS
130 PRG  =1        ; FUER INCLUDE-DATEI
140 .ICL 8,"BDS*   ; STRUKTUREN
150 .ICL 8,"BDJ*   ; JUMP-TABELLE
170 .OPT O1        ; CODE IN FILE 1
180 *=$7000        ; STARTADRESSE PRG
190 ;
200 ;   JSR INIT   ; INIT BDOS, BEI PROMPT VERBOTEN
210 ;
220 LDA #0         ; LAUFWERK A
230 SEC            ; SETZEN
240 JSR SGDRIVE    ; UND AUSFUEHREN
250 ;
260 LDA #<DTP      ; ADRESSE DES
270 LDY #>DTP      ; DISK-TRANSFER-
280 SEC            ; PUFFERS
290 JSR SGDTA      ; SETZEN
300 ;
310 LDA #"*"       ; JOKER
320 STA DTP+DSNAME ; FUER NAME
330 STA DTP+DSEXT  ; UND EXTENSION
340 LDA #%00111110 ; ATTRIBUT
350 STA DTP+DSATTR ; SETZEN
360 JSR SFIRST     ; ERSTEN EINTRAG
370 JMP LOOP1      ; SUCHEN UND DRUCKEN
380 ;
390 LOOP           ; SCHLEIFE
400 JSR SNEXT      ; NAECHSTER EINTRAG
410 LOOP1
420 BNE ENDDIR     ; NICHT GEFUNDEN
430 ;
440 LDA #13        ; CR
450 JSR $FFD2      ; AUSGEBEN
460 LDY #0         ; INDEX NAME
470 NAME
480 LDA DTP+DGNAME,Y
490 JSR $FFD2      ; NAMEN AUSGEBEN
500 INY
510 CPY #8
520 BNE NAME
530 ;
540 LDY #0         ; INDEX EXTENSION
550 EXTEN
560 LDA DTP+DGEXT,Y
570 JSR $FFD2      ; EXTENSION AUSGEBEN
580 INY
590 CPY #3
600 BNE EXTEN
610 ;
620 LDA #" "       ; SPACE
630 JSR $FFD2      ; AUSGEBEN
640 LDA DTP+DGATTR ; ATTRIBUT
650 TAX
660 AND #8         ; MASKE DISK-NAME
670 BEQ NONAME
680 LDA #"N"
690 JSR $FFD2
700 NONAME
710 ;
720 TXA
730 AND #16        ; MASKE SUBDIR
740 BEQ NODIR
750 LDA #"D"
760 JSR $FFD2
770 NODIR
780 ;
790 TXA
800 AND #4         ; MASKE SYSTEMFILE
810 BEQ NOSYS
820 LDA #"S"
830 JSR $FFD2
840 NOSYS
850 ;
860 JMP LOOP
870 ;
880 ENDDIR
890 LDA #13        ; CR
900 JSR $FFD2      ; AUSGEBEN
910 ;  JSR EXIT    ; BEI AUFRUF AUS PROMPT VERBOTEN
920 LDA #0         ; FEHLERMELDUNG FUER PROMPT
930 RTS
940 DTP
950 .WORD 0,0,0,0,0
960 .WORD 0,0,0,0,0
970 .WORD 0,0,0,0,0
980 .WORD 0,0,0,0,0
990 .WORD 0,0,0,0,0