home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / intserv.asm < prev    next >
Encoding:
Assembly Source File  |  1991-03-26  |  1.4 KB  |  28 lines
  1. ************************************************************
  2. * INTSERV.ASM:   Interrupt-Server-Routine   für   Atari-ST *
  3. * Dieser Interruptserver  kann  über  XBIOS-31 für Timer A *
  4. * installiert werden.  Er  liest  dann einen Datensatz von *
  5. * einem Sampler am ROM-Port, wenn COUNT zurückgesetzt wird.*
  6. ************************************************************
  7.  
  8. SAMPLE: MOVEM.L D4-D5/A6,-(A7)      * Register retten
  9.         MOVE.B  $FA0001,D4          * AD-Wandler lesen
  10.         MOVE.W  COUNT(PC),D5        * Zähler laden
  11.         CMP.W   UNTIL(PC),D5        * Schon am Ende ?
  12.         BEQ     EXIT                * Dann raus !
  13.         LEA     DATA(PC),A6         * Tabellenadresse laden
  14.         MOVE.B  D4,0(A6,D5.W)       * Wert in Tabelle legen
  15.         ADDQ.W  #1,D5               * sonst hochzählen
  16.         LEA     COUNT(PC),A6        * Adresse von Count
  17.         MOVE.W  D5,(A6)             * Zähler sichern 
  18. EXIT:   MOVEM.L (A7)+,D4-D5/A6      * Register zurückladen
  19.         ANDI.B  #%11011111,$FFFA0F  * Interrupts freigeben
  20.         RTE                         * Ab nach Hause
  21. COUNT:  .DC.W   4096                * Zeiger auf Daten
  22. UNTIL:  .DC.W   4096                * Ende des Datenfeldes
  23. DATA:   .DS.B   4096
  24.         .END
  25.  
  26. ************************************************************
  27. *                 Ende von INTSERV.ASM                     *
  28.