home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / bea_post.asm < prev    next >
Assembly Source File  |  1995-02-27  |  3KB  |  144 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : BEA_POST.ASM
  4. ; -----------------------
  5. ;
  6. ; (c) 1990 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Anrufbeantworter und Postapparat
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19.  
  20. ; =========================================================================
  21. ;
  22. ; Type    : Hauptprg.
  23. ;
  24. ; Eingang    : bei Anrufbeantwortertaste
  25. ;    : Offset auf Tastaturtabelle in X-Reg.
  26. ;    : Tastenwert im Accu
  27. ;
  28. ; Ausgang    : Anrufbeantworter ein/ausschalten
  29. ;
  30. ; Register    : Accu
  31. ;
  32. ; (c) by Thomas Lehmann März 1990
  33. ;
  34. ; =========================================================================
  35.  
  36. key_beantw    bbs ST_BEANTW,feap_stat,kbea_off    ; Beantworter abschalten
  37.  
  38. bea_set_on    smb ST_BEANTW,feap_stat    ; Status eintragen
  39.     bbs LTG_BEL,ltg_stat,kbea_ltg    ; Ltg. ist belegt
  40.  
  41.     jmp beantw_on    ; Beantworter anschalten
  42.  
  43. kbea_ltg    lda #KEY_BEA
  44.     ldy #LD_L|LD_N    ; LED Status laden
  45.     jmp set_prgled
  46.  
  47. kbea_off    rmb ST_BEANTW,feap_stat    ; Status austragen
  48.     jmp beantw_off    ; Beantworter abschalten
  49.  
  50.  
  51. ; =========================================================================
  52. ;
  53. ; Type    : Hauptprg.
  54. ;
  55. ; Eingang    : bei Postapparattaste
  56. ;    : Offset auf Tastaturtabelle in X-Reg.
  57. ;    : Tastenwert im Accu
  58. ;
  59. ; Ausgang    :
  60. ;
  61. ; Register    : Accu, X, Y
  62. ;
  63. ; (c) by Thomas Lehmann März 1990
  64. ;
  65. ; =========================================================================
  66.  
  67. key_post    bbr ST_POST,feap_stat,kpost_off    ; Postapparat abschalten
  68.  
  69. po_set_on    rmb ST_POST,feap_stat        ; Status eintragen
  70.     bbs LTG_HLT,ltg_stat,kpost_on    ; Ltg. ist in Halten
  71.     bbs LTG_BEL,ltg_stat,kpost_led    ; Ltg. ist belegt
  72.  
  73. kpost_on    jmp post_on    ; Postapp. anschalten
  74.  
  75. kpost_led    lda #KEY_POST
  76.     ldy #LD_L|LD_N    ; nur LED schalten
  77.     jmp set_prgled
  78.  
  79. kpost_off    smb ST_POST,feap_stat    ; Status eintragen
  80.     jmp post_off    ; Postapp. abschalten
  81.  
  82.  
  83. ; =========================================================================
  84. ;
  85. ; Funktion    : Terminzeit für Beantworter ein/aus eingeben
  86. ;
  87. ; Eingang    : Auswahl bei Speichern/Kontrolle
  88. ;
  89. ; Ausgang    : Terminzeit ausgegeben
  90. ;    : Wähltasten auf Termin-Eingabe umgeleitet wenn speichern aktiv
  91. ;    : sonst auf Terminkontrolle
  92. ;
  93. ; Register    : X
  94. ;
  95. ; (c) by Thomas Lehmann Mai 1990
  96. ;
  97. ; =========================================================================
  98.  
  99.  
  100. spko_bea    lda #MAX_TERM+TERM_BEA_ON    ; Terminnr. laden
  101.     jmp term_beapo    ; Termin ausgeben
  102.  
  103. spko_post    lda #MAX_TERM+TERM_ZW_ON    ; Terminnr. laden
  104.     jmp term_beapo    ; Termin ausgeben
  105.  
  106.  
  107.  
  108.  
  109. ; =========================================================================
  110. ;
  111. ; Funktion    : Termin für Beantworter / Zweitapp. ist erreicht
  112. ;
  113. ; Eingang    : Termin Nr. im ACCU
  114. ;
  115. ; Ausgang    : --------
  116. ;
  117. ; Register    :
  118. ;
  119. ; (c) by Thomas Lehmann März 1993
  120. ;
  121. ; =========================================================================
  122.  
  123. beapo_ttab    word bea_set_on
  124.     word kbea_off
  125.     word kpost_off
  126.     word po_set_on
  127.  
  128.  
  129. beapo_term    sec
  130.     sbc #MAX_TERM    ; Beantw. ein/aus, Zweit ein/aus
  131.     asl        ; Offset auf Tabelle
  132.     tax
  133.     jmp (beapo_ttab,x)    ; Beantw. / Zweitapp. schalten
  134.  
  135.  
  136.  
  137.  
  138.  
  139. ; --------------------------------------------------------------------------
  140.  
  141. HLP    set    *
  142. _BEA_POST    equ    HLP-MODUL_START        ; Größe des Moduls
  143.  
  144.