home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / key_ende.asm < prev    next >
Assembly Source File  |  1995-02-27  |  2KB  |  102 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : KEY_ENDE.ASM
  4. ; -----------------------
  5. ;
  6. ; (c) 1990/91 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Ende Taste auswerten
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19. ; =========================================================================
  20. ;
  21. ; Type    : Hauptprg.
  22. ;
  23. ; Eingang    : bei Endetaste
  24. ;    : Offset auf Tastaturtabelle in X-Reg.
  25. ;    : Tastenwert im Accu
  26. ;
  27. ; Ausgang    : Displayanzeige umgeschaltet
  28. ;    : Speichern, Kontrolle ... ausgeschaltet
  29. ;    : Wähltastenprg. wieder original
  30. ;
  31. ; Register    : ------
  32. ;
  33. ; (c) by Thomas Lehmann März 1990
  34. ;
  35. ; =========================================================================
  36.  
  37. ;    Tabelle der Tasten deren LED`s bei Ende-Taste ausgeschaltet werden
  38. ;    ------------------------------------------------------------------
  39. key_e_tab    byte KEY_SP,LD_L|LD_OFF                Speichertaste
  40.     byte KEY_KO,LD_L|LD_OFF                Kontrolltaste
  41.     byte KEY_UHR,LD_L|LD_OFF            Uhr stellen Taste
  42.     byte KEY_TELBUCH,LD_L|LD_OFF        Telefonbuch Taste
  43.     byte KEY_NAM,LD_L|LD_R|LD_OFF     Namentaste
  44.     byte KEY_TMODE,LD_L|LD_R|LD_OFF     Terminal Mode Taste
  45.  
  46. TAB_LEN    set *-key_e_tab
  47.  
  48.  
  49. key_ende
  50.     block
  51.     pha
  52.     phy
  53.     phx
  54.  
  55.     bbr MOD_NT_SPEC,modus,kend_1    Sonder NT eingegeben
  56.     jsr zwsp_off    2. Speicher ausschalten (Sonder NT speichern)
  57.  
  58. kend_1    stz namsp_fkt    NamenSpeicher hat NT Funktion
  59.     stz modus    kein Modus aktiv eintragen
  60.     stz menu    Hauptmenu bei Speichern/Kontrolle
  61.     stz wta_prg    Wähltasten normal auswerten
  62.     stz displ_prg    Display Reset
  63.     rmb NT_OUT,allg_stat    Rufnr. auf NT wählen
  64.     rmb TTY_CON,tty_sts        Terminal Modus ist nicht aktiv
  65.     ldy #$ff
  66.     sty last_nt    keine NT gedrückt
  67.  
  68.     lda #$ff
  69.     sta term_nr    Text eines erreichten Termins erneut ausgeben
  70.  
  71.     ldx #TAB_LEN-2    Offs. auf Tabelle
  72. loop    lda key_e_tab,x    Tastenwert laden
  73.     ldy key_e_tab+1,x    LED-Status laden
  74.     jsr set_prgled    zum Tastenwert gehörende LED schalten
  75.     dex        ; nächste Taste einstellen
  76.     dex
  77.     bpl loop
  78.  
  79.     bbs ST_BABY,no_ini_flag,end    Babyphone aktiv, LED bleibt ein
  80.  
  81.     ; Babyruf LED`s löschen
  82.     ; ---------------------
  83.     lda #KEY_BABY    Tastenwert laden
  84.     ldy #LD_L|LD_R|LD_OFF
  85.     jsr set_prgled    zum Tastenwert gehörende LED schalten
  86.  
  87. end    jsr set_postbea    Post und Beantworter-Relais + LED zurück
  88.     plx
  89.     ply
  90.     pla
  91.     rts
  92.     bend
  93.  
  94.  
  95.  
  96.  
  97. ; --------------------------------------------------------------------------
  98.  
  99. HLP    set    *
  100. _KEY_ENDE    equ    HLP-MODUL_START        ; Größe des Moduls
  101.  
  102.