↓
 

Przeglądarka plików programu Softsynth

atari8.eu - czas na zabawę! Opublikowano w przez

  Program SoftSynth autorstwa Christiana Niebera to muzyczny kombajn, który w swoim czasie brzmieniowo położył na łopatki wszystkie muzyczne edytory jakie kiedykolwiek powstały dla małego Atari. Generował dźwięk przy pomocy syntezy i jako jeden z garści programów generował prawidłowo basy. Te dwie cechy dostarczały brzmieniowych wrażeń absolutnie odmiennych od wszystkiego co można było wcześniej usłyszeć.

  Muzykę utworzoną w SoftSynth można bez trudu posłuchać za pomocą odtwarzacza SSPLAY kolegi Mono. Wersję dla Sparta DOS X można pobrać ze strony autora.

  Tymczasem w ramach kolejnych wprawek program do podglądania zawartości plików z rozszerzeniem „S” , są to pliki zawierające 256 bajtową tablicę obwiedni. Podniosę nieco poprzeczkę i odmiennie niż dotychczas program nie będzie używać ani jednej procedury bibliotecznej Action! W zasadzie wszystko zrobi za nas system operacyjny Atari.

 
;SoftSynth 'S’ Viewer AtariFan, 220721, atari@atari8.eu

Byte
  B=$00CE, CRSROW=$0054, DMACTLS=$022F,
  COLPF1S=$02C5, COLPF2S=$02C6, COLBAKS=$02C8,
  CRSINH=$02F0, ATACHR=$02FB,
  ICCMD0=$0342, ICCMD2=$0362, ICCMD6=$03A2,
  ICAX1_0=$034A, ICAX2_0=$034B,
  ICAX1_2=$036A, ICAX2_2=$036B,
  ICAX1_6=$03AA, ICAX2_6=$03AB

Card
  X=$CA, Y=$CC, BUF=$A, CRSCOL=$55,
  ICBUFA0=$344, ICBUFL0=$348,
  ICBUFA2=$364, ICBUFL2=$368,
  ICBUFA6=$3A4, ICBUFL6=$3A8

Byte array
  P=0, T=”   SoftSynth Waveform : ” , DEVS=[’S’:$9B] , DEVE=[’E’:$9B]

Proc KBGET=$F302()
Proc CIO=$E456(BYTE A,X)
Proc PL=*()[$AD$3A7$48$AD$3A6$48$AD$2FB$60]
Proc DR(CARD X) CRSCOL=X ICCMD6=17 CIO(0,$60) Return

Proc S_VIEWER()

  ;Close(6) Open(6,”S:”,12,8) + okno tekstowe
  ICCMD6=$C CIO(0,$60) 
  ICCMD6=3 ICBUFA6=DEVS ICAX1_6=12+16 ICAX2_6=8 CIO(0,$60)

  DMACTLS=0 ;wylacz ekran
  COLBAKS=$0 COLPF1S=$0C COLPF2S=$02 CRSINH=1 ;kolory

  ;obrobka wiersza polecen
  X=BUF+$3F
  DO X==+1 IF P(X)=$20 THEN EXIT FI OD
  P(X)=’: X==-1 P(X)=’D

  ;wczytaj dane z pliku „*.S”
  ICCMD2=$C CIO(0,$20)
  ICCMD2=$3 ICBUFA2=X ICAX1_2=4 ICAX2_2=0 CIO(0,$20)
 
  ;tekst i nazwa pliku
  ICCMD0=$A ICBUFL0=25 ICBUFA0=T+1 CIO(0,0)
  ICCMD0=$9 ICBUFL0=$FF ICBUFA0=X+2 CIO(9,0)

  ;rysuj ramke
  ATACHR=1
  CRSCOL=30 CRSROW=62 PL2()
  CRSROW=62 DR(290) CRSROW=130 DR(290) DR(30) CRSROW=62 DR(30)

  ;siatka punktow
  FOR CRSCOL=32 TO 288 STEP 8
    DO
      FOR CRSROW=64 TO 128 STEP 8
        DO    
          PL() CRSCOL==-1
        OD
    OD

  CRSCOL=32 CRSROW=128 PL() ;poczatek wykresu
  DMACTLS=34 ;wlacz ekran

  ICCMD2=$7 ICBUFL2=0
  FOR Y=32 TO 287
    DO
      CIO(0,$20) ;pobierz bajt z pliku
      [$0A$0A$49$FF$69$81$85 CRSROW] ;odejmowanie i zapis do rejestru CRSROW
      DR(Y) ;DRAWTO
    OD

 ICCMD2=$C CIO(0,$20) ;Close(2)
 KBGET()
 ICCMD6=$C CIO(0,$60) ;Close(6)
 ICCMD0=$C CIO(0,$00) ;Close(0)
 ICCMD0=3 ICBUFA0=DEVE ICAX1_0=12 ICAX2_0=0 CIO(0,0) ;Open(0,”E:”,12,0)

[$6C$0A$00]  ;powrot do SDX
 

Program po kompilacji uruchamiamy pod kontrolą SDX i w obecności wpisu w sterowniku RUNEXT.SYS:

S, VIEW_S.COM

a następnie wywołujemy poleceniem:

VIEW_S.COM FNAME.S

W następnym odcinku rozszerzymy kod i zaglądniemy również do plików z rozszerzeniem „H” wchodzących w skład plików obwiedni SoftSynth-a.

Poniżej obwiednia widoczna w analizatorze dźwięku w utworze Jakuba Husaka – „Wodospadem czasu”

Biblioteka:

Klub Action!

Komentowanie zamknięte.

↑