home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_B.d64 / prg1.s4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  90 lines
  1. 100 open1,8,1,"prg1/a"
  2. 110 sys7*4096:     ; assembler aufrufen
  3. 120 bdos =$a000    ; startadresse bdos
  4. 130 prg  =1        ; fuer include-datei
  5. 140 .icl 8,"bds*   ; strukturen
  6. 150 .icl 8,"bdj*   ; jump-tabelle
  7. 170 .opt o1        ; code in file 1
  8. 180 *=$7000        ; startadresse prg
  9. 190 ;
  10. 200 ;   jsr init   ; init bdos, bei prompt verboten
  11. 210 ;
  12. 220 lda #0         ; laufwerk a
  13. 230 sec            ; setzen
  14. 240 jsr sgdrive    ; und ausfuehren
  15. 250 ;
  16. 260 lda #<dtp      ; adresse des
  17. 270 ldy #>dtp      ; disk-transfer-
  18. 280 sec            ; puffers
  19. 290 jsr sgdta      ; setzen
  20. 300 ;
  21. 310 lda #"*"       ; joker
  22. 320 sta dtp+dsname ; fuer name
  23. 330 sta dtp+dsext  ; und extension
  24. 340 lda #%00111110 ; attribut
  25. 350 sta dtp+dsattr ; setzen
  26. 360 jsr sfirst     ; ersten eintrag
  27. 370 jmp loop1      ; suchen und drucken
  28. 380 ;
  29. 390 loop           ; schleife
  30. 400 jsr snext      ; naechster eintrag
  31. 410 loop1
  32. 420 bne enddir     ; nicht gefunden
  33. 430 ;
  34. 440 lda #13        ; cr
  35. 450 jsr $ffd2      ; ausgeben
  36. 460 ldy #0         ; index name
  37. 470 name
  38. 480 lda dtp+dgname,y
  39. 490 jsr $ffd2      ; namen ausgeben
  40. 500 iny
  41. 510 cpy #8
  42. 520 bne name
  43. 530 ;
  44. 540 ldy #0         ; index extension
  45. 550 exten
  46. 560 lda dtp+dgext,y
  47. 570 jsr $ffd2      ; extension ausgeben
  48. 580 iny
  49. 590 cpy #3
  50. 600 bne exten
  51. 610 ;
  52. 620 lda #" "       ; space
  53. 630 jsr $ffd2      ; ausgeben
  54. 640 lda dtp+dgattr ; attribut
  55. 650 tax
  56. 660 and #8         ; maske disk-name
  57. 670 beq noname
  58. 680 lda #"n"
  59. 690 jsr $ffd2
  60. 700 noname
  61. 710 ;
  62. 720 txa
  63. 730 and #16        ; maske subdir
  64. 740 beq nodir
  65. 750 lda #"d"
  66. 760 jsr $ffd2
  67. 770 nodir
  68. 780 ;
  69. 790 txa
  70. 800 and #4         ; maske systemfile
  71. 810 beq nosys
  72. 820 lda #"s"
  73. 830 jsr $ffd2
  74. 840 nosys
  75. 850 ;
  76. 860 jmp loop
  77. 870 ;
  78. 880 enddir
  79. 890 lda #13        ; cr
  80. 900 jsr $ffd2      ; ausgeben
  81. 910 ;  jsr exit    ; bei aufruf aus prompt verboten
  82. 920 lda #0         ; fehlermeldung fuer prompt
  83. 930 rts
  84. 940 dtp
  85. 950 .word 0,0,0,0,0
  86. 960 .word 0,0,0,0,0
  87. 970 .word 0,0,0,0,0
  88. 980 .word 0,0,0,0,0
  89. 990 .word 0,0,0,0,0
  90.