home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / ss.asm < prev    next >
Encoding:
Assembly Source File  |  1995-02-27  |  2.3 KB  |  104 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : SS.ASM
  4. ; -----------------
  5. ;
  6. ; (c) 1990 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Zustand des Schlüsselschalters ausgeben
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19. ; =========================================================================
  20. ;
  21. ; Funktion    : Zustand des SS direkt anzeigen
  22. ;
  23. ; Eingang    : ------
  24. ;
  25. ; Ausgang    : ------
  26. ;
  27. ; Register    : ------
  28. ;
  29. ; (c) by Thomas Lehmann Januar 1991
  30. ;
  31. ; =========================================================================
  32.  
  33. tst_ss    bbr DIP_SS,dip_stat,tst_ss_1        ; SS ist ausgeschaltet
  34.  
  35.     ; testen ob SS-ON Status bereits bekannt ist
  36.     ; ------------------------------------------
  37.     bbs SS_STAT,allg_stat,tst_ss_end    ; ja, Ende
  38.     
  39.     smb SS_STAT,allg_stat            ; akt. Status eintragen
  40.     bra tst_ss_2                ; direkt anzeigen
  41.  
  42.  
  43.     ; testen ob SS-OFF Status bereits bekannt ist
  44.     ; -------------------------------------------
  45. tst_ss_1    bbr SS_STAT,allg_stat,tst_ss_end    ; ja, Ende
  46.  
  47.     rmb SS_STAT,allg_stat            ; akt. Status eintragen
  48. tst_ss_2    rmb 7,sekunde                ; direktes Update
  49.     jmp baby_ss                ; Babyphone testen
  50.  
  51. tst_ss_end    rts
  52.  
  53.  
  54.  
  55. ; =========================================================================
  56. ;
  57. ; Funktion    : Schlüsselschalter Zustand bzw. Anzahl Anrufe im Display zeigen
  58. ;      wird von Uhrausgabe aus aufgerufen
  59. ;
  60. ; Eingang    : ------
  61. ;
  62. ; Ausgang    : ------
  63. ;
  64. ; Register    : Accu, X
  65. ;
  66. ; (c) by Thomas Lehmann März 1990
  67. ;
  68. ; =========================================================================
  69.  
  70. put_ss    lda #21        ; Cursorposition laden
  71.     jsr curs_set    ; Cursor setzen
  72.  
  73.     bbr SS_STAT,allg_stat,ss_off    ; SS ist ausgeschaltet
  74.         
  75.     ; Anzahl der nicht abgefragten Anrufe ausgeben, SS ein
  76.     ; ----------------------------------------------------
  77.     lda struct_stat+STAT_NANR    ; Anz. nicht abgefr. Anrufe laden
  78.     jsr putdez    ; 3-stellig ausgeben
  79.     jmp nanr_led    ; LED`s für nicht abgefragte Anrufe schalten
  80.  
  81.  
  82.     ; SS ist ausgeschaltet
  83.     ; --------------------
  84. ss_off    lda displ_prg    ; !!! puttxt schaltet DSP-Ausgabe aus !!!
  85.     ldx #<ss_txt    ; Text ausgeben
  86.     ldy #>ss_txt
  87.     jsr puttxt
  88.     sta displ_prg    ; wieder zurücksetzen
  89.     rts
  90.  
  91. ss_txt    byte 00
  92.     shift "Aus"
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99. ; --------------------------------------------------------------------------
  100.  
  101. HLP    set    *
  102. _SS    equ    HLP-MODUL_START        ; Größe des Moduls
  103.  
  104.