home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / babyruf.asm < prev    next >
Assembly Source File  |  1995-02-27  |  3KB  |  118 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : BABYRUF.ASM
  4. ; ----------------------
  5. ;
  6. ; (c) 1991 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Babyruf Funktion
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19.  
  20.  
  21. ; =========================================================================
  22. ;
  23. ; Type    : Hauptprg.
  24. ;
  25. ; Eingang    : bei Babyruf Taste
  26. ;    : Offset auf Tastaturtabelle in X-Reg.
  27. ;    : Tastenwert im Accu
  28. ;
  29. ; Ausgang    :
  30. ;
  31. ; Register    : Accu, X, Y
  32. ;
  33. ; (c) by Thomas Lehmann Juni 1991
  34. ;
  35. ; =========================================================================
  36.  
  37. key_baby
  38.     block
  39.     bbs MOD_BABY,modus,baby_aktiv    ; 2. Tastendruck
  40.  
  41.     jsr key_ende    ; Ende ausführen
  42.     ldy #LD_L|LD_T    ; LED-Wert laden
  43.     jsr set_prgled    ; LED schalten
  44.     smb MOD_BABY,modus    ; Babyruf Funktion vorbereitet
  45.  
  46. baby_aktiv    lda #00        ; NT Nr.
  47.     smb ST_2SP,feap_stat    ; 2.SP ist aktiv
  48.     jmp keynam_sp
  49.     bend
  50.  
  51.  
  52. baby_end    rts
  53.  
  54.  
  55.     ; ========================
  56.     ; Einsprung bei SS aus/ein
  57.     ; ========================
  58. baby_ss    bbs SS_STAT,allg_stat,babyss_on    ; SS wurde eingeschaltet
  59.  
  60.     ; SS wurde ausgeschaltet
  61.     ; ----------------------
  62.     bbr MOD_BABY,modus,baby_end    ; Babyruf nicht vorbereitet, RTS
  63.  
  64.     jsr put_baby_nr        ; Rufnummer und Text anzeigen
  65.  
  66.     ; Babyruf Funktion aktivieren
  67.     ; ---------------------------
  68.     jsr key_ende        ; Ende Babyruf Eingabe, Fkt. ist aktiv
  69.     lda #NO_DISPL        ; kein Display-Prg. ausführen
  70.     sta displ_prg        ; Text bis Timeout stehen lassen
  71.     smb ST_BABY,no_ini_flag    ; Babyruf Funktion aktiv
  72.  
  73.     ; LED phasenverschoben schalten
  74.     ; -----------------------------
  75. baby_led    lda #KEY_BABY        ; Tastenwert laden
  76.     ldy #LD_L|LD_T        ; LED Wert laden
  77.     jsr set_prgled        ; zum Tastenwert gehörende LED schalten
  78.     ldy #LD_R|LD_TP        ; LED Wert laden
  79.     jmp set_prgled        ; zum Tastenwert gehörende LED schalten
  80.  
  81.  
  82.     ; Babyruf Funktion deaktivieren
  83.     ; -----------------------------
  84. babyss_on    bbr ST_BABY,no_ini_flag,baby_end ;    Babyruf nicht aktiv, RTS
  85.  
  86.     rmb ST_BABY,no_ini_flag    ; Babyruf Funktion deaktivieren
  87.     jmp key_ende        ; Ende Taste ausführen
  88.  
  89.  
  90.  
  91.  
  92.  
  93.     ; Rufnummer für Babyphone ausgeben / wählen
  94.     ; =========================================
  95. put_baby_nr
  96.     block
  97.     lda #NT_BABYRUF            ; NT Nr. für Babyphone Rufnr.
  98.     smb ST_2SP,feap_stat        ; 2.SP ist aktiv
  99.     bbs MOD_BABY,modus,baby_nr    ; Rufnummer und Text zeigen
  100.  
  101.     rmb NT_OUT,allg_stat        ; Rufnr. auf NT wählen
  102.     jmp put_nt            ; NT wählen
  103.  
  104.  
  105. baby_nr    jsr keynam_out            ; Rufnr. der NT ausgeben
  106.     jmp put_babyruf            ; "Baybyruf" ausgeben
  107.     bend
  108.  
  109.  
  110.  
  111.  
  112.  
  113. ; --------------------------------------------------------------------------
  114.  
  115. HLP    set    *
  116. _BABYRUF    equ    HLP-MODUL_START        ; Größe des Moduls
  117.  
  118.