home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / d / tast_led.d < prev    next >
Text File  |  1995-02-27  |  5KB  |  183 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : TAST.D
  4. ; -----------------
  5. ;
  6. ; (c) 1990 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Tasten und LED Definitionen
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17.  
  18.     ; =======================
  19.     ; Tastatur und LED Matrix
  20.     ; =======================
  21. MAX_X    equ    15    ; maximale Anzahl der X-Achsen
  22. MAX_XL    equ    16    ; maximale Anzahl der XL-Achsen
  23.  
  24. LED_MATRIX    equ    MAX_XL*8    ; Größe der LED-Matrix, 16 X-Achsen, 8 Y-Achsen
  25. TAST_MATRIX    equ    MAX_X*8    ; Größe der Tast-Matrix,15 X-Achsen, 8 Y-Achsen
  26. TAST_BER    equ    TAST_MATRIX*2    ; Größe der Tastaturberechtigung
  27.  
  28. ANZ_ANR_LED    equ    12    ; Anz. der LED`s für nicht abgefragten Anruf
  29.  
  30.  
  31.     org    0
  32. YL0    edo    MAX_XL    ; Offset auf LED-RAM für YL0
  33. YL1    edo    MAX_XL    ; Offset auf LED-RAM für YL1
  34. YL2    edo    MAX_XL    ; Offset auf LED-RAM für YL2
  35. YL3    edo    MAX_XL    ; Offset auf LED-RAM für YL3
  36. YL4    edo    MAX_XL    ; Offset auf LED-RAM für YL4
  37. YL5    edo    MAX_XL    ; Offset auf LED-RAM für YL5
  38. YL6    edo    MAX_XL    ; Offset auf LED-RAM für YL6
  39. YL7    edo    MAX_XL    ; Offset auf LED-RAM für YL7
  40.  
  41. OFFS_NO_LED    equ    YL6+$00    ; wenn keine LED berechtigt
  42.  
  43.  
  44.     ; ===============
  45.     ; LED Blinkzeiten
  46.     ; ===============
  47.  
  48. LD_R    equ    %00001000    ; rechte LED bearbeiten
  49. LD_L    equ    %00010000    ; linke LED bearbeiten
  50.  
  51. LD_OFF    equ    0    ; LED ausschalten
  52. LD_ON    equ    1    ; LED einschalten
  53. LD_N    equ    2    ; LED blinkt normal
  54. LD_S    equ    3    ; LED blinkt schnell
  55. LD_T    equ    4    ; LED blinkt sehr schnell
  56. LD_TP    equ    5    ; LED blinkt sehr schnell, phasenverschoben
  57.  
  58.  
  59.  
  60.  
  61.     ; ============================================
  62.     ; Offset auf Berechtigung für Relaisfunktionen
  63.     ; ============================================
  64.  
  65. ANR_REL    equ    0    ; Relais bei Anruf
  66. TERM7_REL    equ    1    ; Relais bei Termin 7 setzen
  67. TERM8_REL    equ    2    ; Relais bei Termin 8 löschen
  68.  
  69.  
  70.  
  71.     ; ===============================
  72.     ; Offset auf Namentasten Speicher
  73.     ; ===============================
  74.  
  75. NT_BABYRUF    equ    0        ; Namentaste für Babyruf Nummer
  76. NT_NOTRUF    equ    1        ; 1. Namentaste für Notruf Nummern
  77. HLP    set    MAX_NOTRUF/2    ; Anzahl NT für Notruf Nummern
  78. NT_NAMTAST    equ    NT_NOTRUF+HLP    ; 1. wirkliche Namentaste
  79. NT_TELBUCH    equ    MAX_NAM_TAST+NT_NAMTAST    ; 1. NT für Telefonbuch Einträge
  80.  
  81.  
  82.     ; =======================================
  83.     ; Offset auf Prg. Tabelle für NT Ausgaben
  84.     ; =======================================
  85. NTFKT_NAMT    equ    0        ; Namentaste speichern/kontrollieren
  86. NTFKT_NOTR    equ    2        ; Notruf speichern/kontrollieren
  87. NTFKT_TELB    equ    4        ; Telefonbuch
  88.  
  89.  
  90.  
  91.     ; ================================
  92.     ; Offset der LED`s für RX/TX Daten
  93.     ; ================================
  94. LD_TXD    equ    YL6    LED für TX Data
  95. LD_RXD    equ    YL6+1    LED für RX Data
  96.  
  97.  
  98.  
  99.     ; =================================
  100.     ; Offset der Relais über LED Matrix
  101.     ; =================================
  102.  
  103.     ifequ RELTEST
  104. LD_AB    equ    YL7+$0f    ; a/b anschalten
  105. LD_HALT    equ    YL6+$0d    ; Halten Relais
  106. LD_POST    equ    YL7+$0d    ; Relais Netzausfall/Postapparat
  107. LD_BEANTW    equ    YL6+$0e    ; Relais für Anrufbeantworter
  108. LD_MODEM    equ    YL6+$0f    ; Relais für Modemanschluß
  109. LD_REL1    equ    YL6+$0c    ; frei programmierbares Relais 1
  110. LD_REL2    equ    YL7+$0c    ; frei programmierbares Relais 2
  111. LD_REL3    equ    YL7+$0e    ; frei programmierbares Relais 3
  112.     endif
  113.  
  114.     ; LED`s für Testzwecke einschalten
  115.     ; --------------------------------
  116.     if RELTEST
  117. LD_AB    equ    YL1+9    ; a/b anschalten
  118. LD_HALT    equ    YL1+11    ; Halten Relais
  119. LD_POST    equ    YL1+3    ; Relais Netzausfall/Postapparat
  120. LD_BEANTW    equ    YL1+5    ; Relais für Anrufbeantworter
  121. LD_MODEM    equ    YL1+7    ; Relais für Modemanschluß
  122. LD_REL1    equ    YL0+5    ; frei programmierbares Relais 1
  123. LD_REL2    equ    YL0+3    ; frei programmierbares Relais 2
  124. LD_REL3    equ    YL0+1    ; frei programmierbares Relais 3
  125. LD_RL2    equ    YL0+9    ; frei programmierbarer Port RL2
  126. LD_RL3    equ    YL0+7    ; frei programmierbares Port RL3
  127.     endif
  128.  
  129.  
  130.  
  131.     ; ============
  132.     ; Wähltastatur
  133.     ; ============
  134.  
  135. MB4    equ     %11110111    ; Start MB4 bei Wähltastaturabfrage
  136. BTA_START    equ    12    ; BTA-Modus einleiten durch "*"
  137. BTA_NXT_MEN    equ    12    ; nächstes BTA Menue durch "*"
  138. BTA_END    equ    11    ; BTA-Modus verlassen durch "#"
  139. SHOWKEY_END    equ    11    ; Tastenwert anzeigen beenden durch "#"
  140. ASK_YES    equ    01    ; pos. Bestätigung bei ändern J/N = 1
  141.  
  142. ERD_ZIFF    equ    13    ; WTA-Wert für Erdtaste
  143. HTON_ZIFF    equ    11    ; WTA-Wert für Hörtonauswertung starten
  144.  
  145.  
  146.  
  147.     ; ================================================
  148.     ; Programmnummern für Tasten mit Text Funktion
  149.     ; werden in keytxt_prg eingetragen
  150.     ; ================================================
  151.  
  152. KEYTXT_TERM    equ    00    ; Termin Eingabe
  153. KEYTXT_TELB    equ    02    ; Telefonbuch Eingabe
  154.  
  155.  
  156.  
  157.     ; ================================================
  158.     ; Programmnummern für Wähltasten und Löschfunktion
  159.     ; werden in wta_prg eingetragen
  160.     ; ================================================
  161.  
  162. WTA_WAHL    equ    00    ; Wahl, muß immer NULL bleiben (stz)
  163. WTA_FUNKT    equ    02    ; Funktion für Wähltasten ausführen
  164. WTA_BTA_WHL    equ    04    ; BTA Modus auswählen
  165. WTA_KEY_BER    equ    06    ; BTA Modus Tastenberechtigung automatisch
  166. WTA_ASCII    equ    08    ; BTA Modus Textberechtigung
  167. WTA_UHRSET    equ    10    ; Uhr stellen
  168. WTA_SHOWKEY    equ    12    ; Tastenwert zeigen
  169. WTA_SPNAM    equ    14    ; Namentaste speichern
  170. WTA_TERMWHL    equ    16    ; Terminnr. auswählen
  171. WTA_TERMEIN    equ    18    ; Termin eingeben
  172. WTA_TERMTXT    equ    20    ; Termintext eingeben
  173. WTA_TERMDAY    equ    22    ; Termintage eingeben
  174. WTA_STAT    equ    24    ; Menueauswahl bei Statistik
  175. WTA_BER_CLR    equ    26    ; Tastenber wirklich löschen ?
  176. WTA_SPREL    equ    28    ; Relais speichern
  177. WTA_SPGEB    equ    30    ; Gebührenfaktor speichern
  178. WTA_SETUP    equ    32    ; Setup Routine
  179. WTA_SPTZYKL    equ    34    ; Termin Zyklus
  180. WTA_TMODE    equ    36    ; Terminal Mode aktiv
  181.  
  182. WTA_NOPRG    equ    38    ; kein Programm ausführen
  183.