home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / main_task.asm < prev    next >
Assembly Source File  |  1995-02-27  |  2KB  |  61 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : MAIN_TASK.ASM
  4. ; ------------------------
  5. ;
  6. ; (c) 1990 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Main Routine
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19.  
  20.     ; =========================================================
  21.     ; Hauptprg. Task
  22.     ; !! die Task darf nicht schlafen gelegt werden (Tast-Task)
  23.     ; =========================================================
  24.  
  25. main_task    jsr watchdog_m    ; Software Watchdog Main Prg.
  26.     jsr taster_los    ; testen ob Taster losgelassen wurde
  27.     jsr ltg_bel    ; Ltg. belegen wenn Anforderung besteht
  28.     jsr tst_anr    ; Anruf testen
  29.     jsr summer    ; Summer ein/ausschalten
  30.     jsr anr_led    ; Anruf-LED ein/ausschalten
  31.     jsr get_gu    ; GU-Zustand einlesen
  32.  
  33.     jsr nxt_task    ; nächste Task aktivieren
  34.  
  35.     ; ========================================
  36.     ; Task zur Anzeige verschiedener Meldungen
  37.     ; ========================================
  38.     lda Dip_sw    ; Zustand des DIP-Schalters einlesen
  39.     sta dip_stat    ; und in Zeropage ablegen
  40.     jsr tst_ss    ; SS Zustand schalten und direkt anzeigen
  41.  
  42.     jsr uhr_notbetr    ; Notbetrieb der Uhr testen
  43.     jsr uhr_trigger    ; Uhr nachtriggern
  44.     jsr displ_out    ; aktuelle Display-Ausgaben anzeigen
  45.     jsr inc_geb    ; Gesprächsdauer bzw. Gebührenzeit nachführen
  46.  
  47.     jsr nxt_task    ; nächste Task aktivieren
  48.  
  49.  
  50.     bra main_task    ; neuer Durchlauf
  51.  
  52.  
  53.  
  54.  
  55.  
  56. ; --------------------------------------------------------------------------
  57.  
  58. HLP    set    *
  59. _MAIN_TASK    equ    HLP-MODUL_START        ; Größe des Moduls
  60.  
  61.