home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / gu.asm < prev    next >
Assembly Source File  |  1995-02-27  |  2KB  |  70 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : GU.ASM
  4. ; -----------------
  5. ;
  6. ; (c) 1990 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Gabelumschalter Handling
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19. ; =========================================================================
  20. ;
  21. ; Type    : Hauptprg.
  22. ;
  23. ; Eingang    : wird zyklisch von Hauptprg.-Schleife aufgerufen
  24. ;
  25. ; Ausgang    : Ltg. belegt wenn GU ausgehangen wird
  26. ;    : Ltg. getrennt wenn GU eingehangen und FS nicht aktiv
  27. ;
  28. ; Register    : 
  29. ;
  30. ; (c) by Thomas Lehmann Feb. 1990
  31. ;
  32. ; =========================================================================
  33.  
  34. get_gu    lda Via_portb    ; zustand der VIA einlesen
  35.     and #GU        ; ist GU eingehangen ?
  36.     beq get_gu_ein    ; ja, Prg. für eingehangen ausführen
  37.  
  38.     ; Prg. für GU ausgehangen
  39.     ; -----------------------
  40.     bbs ST_GU,feap_stat,get_gu_end    ; GU war bereits ausgehangen
  41.  
  42.     smb ST_GU,feap_stat ; GU ausgehangen eintragen
  43.     bbs LTG_DURCH,ltg_stat,get_gu_0    ; Ltg. ist belegt, FS aus
  44.  
  45.     jsr key_ltg    ; Leitung belegen
  46. get_gu_0    rmb ST_FSLH,feap_stat    ; Freisprech-Relais ausschalten
  47.     rts
  48.  
  49.  
  50.     ; Prg. für GU eingehangen
  51.     ; -----------------------
  52. get_gu_ein    bbr ST_GU,feap_stat,get_gu_end    ; GU war bereits eingehangen
  53.  
  54.     rmb ST_GU,feap_stat ; GU eingehangen eintragen
  55.     dec fs_stat    ; war nur LH aktiviert ?
  56.     bpl get_gu_end    ; nein FS, noch nicht trennen
  57.  
  58. get_gu_1    jmp key_trenn    ; Leitung trennen, FS ausschalten
  59.  
  60. get_gu_end    rts
  61.  
  62.  
  63.  
  64.  
  65. ; --------------------------------------------------------------------------
  66.  
  67. HLP    set    *
  68. _GU    equ    HLP-MODUL_START        ; Größe des Moduls
  69.  
  70.