home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / hoerton.asm < prev    next >
Assembly Source File  |  1995-02-27  |  2KB  |  100 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : HOERTON.ASM
  4. ; ----------------------
  5. ;
  6. ; (c) 1991 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Hörtonauswertung
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19.  
  20. ; =========================================================================
  21. ;
  22. ; Type    : Timer IRQ
  23. ;    : Hörton testen
  24. ;
  25. ; Eingang    : alle 10mS
  26. ;
  27. ; Ausgang    : BIT "HTON_OK" in hgeb_stat gesetzt wenn Hörtonzeit erreicht
  28. ;
  29. ; Register    : Accu
  30. ;
  31. ; (c) by Thomas Lehmann Mai 1990
  32. ;
  33. ; =========================================================================
  34.  
  35. tst_hton    bbr HTON_UEB,hgeb_stat,tst_hton_e    ; keine Überwachung eingesch.
  36.  
  37.     lda Via_porta    ; Zustand des Ports laden
  38.     and #HTON    ; ist Hörton vorhanden ?
  39.     bne tst_hton_e    ; nein, Ende
  40.  
  41.     if TEST
  42.     lda #$ff
  43.     sta led_ram+1+YL1
  44.     endif
  45.  
  46.     dec hton_tim    ; Hörtonzeit nachtriggern
  47.     bpl tst_hton_e1    ; Hörton ist noch ungültig
  48.  
  49.     smb HTON_OK,hgeb_stat    ; Flag für Hörton erkannt setzen
  50.     rmb HTON_UEB,hgeb_stat    ; Überwachung ausschalten
  51.     jmp htport_off    ; Hörton Port löschen
  52.  
  53. tst_hton_e
  54.     if TEST
  55.     stz led_ram+1+YL1
  56.     endif
  57.  
  58.     lda #HTON_TIM    ; Timerwert laden
  59.     sta hton_tim    ; Timer aufziehen
  60. tst_hton_e1    rts
  61.  
  62.  
  63. ; =========================================================================
  64. ;
  65. ; Type    : Unterprg.
  66. ;    : Hörtonauswertung einschalten
  67. ;
  68. ; Eingang    : --------
  69. ;
  70. ; Ausgang    : BIT`s für Hörtonerkennung geschaltet
  71. ;
  72. ; Register    : ------
  73. ;
  74. ; (c) by Thomas Lehmann Mai 1990
  75. ;
  76. ; =========================================================================
  77.  
  78. hton_on    bbr DIP_HTON,dip_stat,hton_on_1    ; Hardware ist installiert
  79.  
  80.     smb HTON_OK,hgeb_stat    ; Hörton erkannt eintragen
  81.     ldx #VORWHL_TIM    ; Timerwert Vorwahlzeit ohne Hörton laden
  82.     stx vorwahl_tim    ; und für Wahlzeit eintragen
  83.     rts
  84.  
  85. hton_on_1    ldx #04        ; Timerwert Vorwahlzeit mit Hörton laden
  86.     stx vorwahl_tim    ; und für Wahlzeit eintragen
  87.     smb HTON_UEB,hgeb_stat    ; Überwachung einschalten
  88.     rmb HTON_OK,hgeb_stat    ; kein Hörton erkannt eintragen
  89.     jmp htport_on    ; Hörton Port setzen
  90.  
  91.  
  92.  
  93.  
  94.  
  95. ; --------------------------------------------------------------------------
  96.  
  97. HLP    set    *
  98. _HOERTON    equ    HLP-MODUL_START        ; Größe des Moduls
  99.  
  100.