home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / kontrolle.asm < prev    next >
Assembly Source File  |  1995-02-27  |  3KB  |  113 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : KONTROLLE.ASM
  4. ; ------------------------
  5. ;
  6. ; (c) 1990 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Kontroll Funktionen
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19. ; =========================================================================
  20. ;
  21. ; Type    : Hauptprg.
  22. ;
  23. ; Eingang    : bei Kontrolltaste
  24. ;    : Offset auf Tastaturtabelle in X-Reg.
  25. ;    : Tastenwert im Accu
  26. ;
  27. ; Ausgang    : Kontrolltext ausgegeben
  28. ;    : LED eingeschaltet
  29. ;    : Wähltasten umgeleitet
  30. ;    : letzte Textnr. in X-Reg
  31. ;    : erste Textnr. in Y-Reg
  32. ;
  33. ; Register    : Accu, X, Y
  34. ;
  35. ; (c) by Thomas Lehmann März 1990
  36. ;
  37. ; =========================================================================
  38.  
  39. komenu_tab    word ko_h_menu    ; Kontrolle Hauptmenu
  40.     word _rts    ; Untermenu Relais ist aktiv
  41.     word stat_out    ; Untermenu Statisktik ist aktiv
  42.     word term_out    ; Untermenu Termin ist aktiv
  43.     word vers_out    ; Untermenu Version ist aktiv
  44.     word _rts    ; Untermenu Notruf ist aktiv
  45.  
  46.  
  47.  
  48. kowhl_txt    byte    DSP_CLR
  49.     shift "1=NT 2=Term 3=Stat.  -->"
  50.  
  51.     byte    DSP_CLR
  52.     shift "4=Beantw. 5=Zweitapp.-->"
  53.  
  54.     byte    DSP_CLR
  55.     shift "6=Tastenwert 7=Vers. -->"
  56.  
  57.  
  58.  
  59. kontr_tab    word spko_namkey    ; 1=Namentaste kontrollieren
  60.     word spko_term    ; 2=Termin kontrollieren
  61.     word statistik    ; 3=Statistik ausgeben
  62.     word spko_bea    ; 4=Beantworter ein/aus
  63.     word spko_post    ; 5=Postapparat ein/aus
  64.     word show_key    ; 7=Tastenwert anzeigen
  65.     word show_vers    ; 6=Version anzeigen
  66.  
  67. TAB_LEN    set    *-kontr_tab    ; Tabellenlänge
  68.  
  69.  
  70.  
  71. key_kontr    bbs MOD_SP,modus,ko_h_menu    ; Speichern ist aktiv, KO einsch.
  72.  
  73.     ldx menu    ; ausgewähltes Menu laden
  74.     jmp (komenu_tab,x)    ; Programm ausführen
  75.  
  76.  
  77.     ; Kontrolle Hauptmenu
  78.     ; ===================
  79. ko_h_menu    bbr MOD_KO,modus,key_ko_1    ; Kontrolle nicht eingeschaltet
  80.  
  81.     jsr nxt_dsptxt    ; nächstes Menu ausgeben
  82.     bra kontr_wta    ; Wähltastenfunktionen intallieren
  83.  
  84.     ; Kontrollmodus einschalten
  85.     ; -------------------------
  86. key_ko_1    jsr key_ende    ; Speichern ausschalten
  87.     smb MOD_KO,modus    ; Kontrollmodus aktiv eintragen
  88.  
  89.     ldy #LD_L|LD_ON    ; LED-Wert laden
  90.     jsr set_prgled    ; und LED einschalten
  91.  
  92.     ldx #<kowhl_txt    ; Textadr. laden
  93.     ldy #>kowhl_txt
  94.     lda #ANZ_KOTXT    ; Anzahl der Texte laden
  95.     jsr init_dsptxt    ; Textwahl initialisieren
  96.  
  97.     ; Funktionstabelle für Wähltasten
  98.     ; -------------------------------
  99. kontr_wta    lda #TAB_LEN    ; Tabellenlänge laden
  100.     ldx #<kontr_tab    ; Adresse der Tabelle
  101.     ldy #>kontr_tab
  102.     jmp set_wta_fkt    ; Funktionstabelle für Wähltasten installieren
  103.  
  104.  
  105.  
  106.  
  107.  
  108. ; --------------------------------------------------------------------------
  109.  
  110. HLP    set    *
  111. _KONTROLLE    equ    HLP-MODUL_START        ; Größe des Moduls
  112.  
  113.