home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / version.asm < prev    next >
Assembly Source File  |  1995-02-27  |  3KB  |  125 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : VERSION.ASM
  4. ; ----------------------
  5. ;
  6. ; (c) 1990/91 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Programmversion und Datum der Assemblierung eintragen
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19.  
  20.  
  21. ; =========================================================================
  22. ;
  23. ; Funktion    : Version und Datum Meldung für Displayausgabe vorbereiten
  24. ;
  25. ; Eingang    : bei ausgewähltem Kontrollmenu oder Direktwahltaste
  26. ;
  27. ; Ausgang    : Displayausgabe auf Versionstext umgeleitet
  28. ;
  29. ; Register    : Accu, X, Y
  30. ;
  31. ; (c) by Thomas Lehmann März 1990
  32. ;
  33. ; =========================================================================
  34.  
  35.     ; Einsprung bei Auswahl über Direktwahl Taste
  36.     ; -------------------------------------------
  37. key_vers    jsr key_ende    ; andere Modi`s verlassen
  38.     stz vers_stat    ; Versiontext einstellen
  39.     bra put_vers    ; und toggeln
  40.  
  41.  
  42.     ; Einsprung bei Auswahl über Kontrolle
  43.     ; ------------------------------------
  44. show_vers    stz vers_stat    ; Versiontext einstellen
  45.     lda #MENU_VERS    ; Programmnr. für Kontrolltaste laden
  46.     sta menu    ; und bei Taste ausführen
  47.  
  48.  
  49.     ; Einsprung bei Kontrolltaste
  50.     ; ---------------------------
  51. vers_out    lda vers_stat    ; Textart laden
  52.     eor #$ff    ; nächsten Text einstellen
  53.     sta vers_stat
  54.     beq put_dattxt    ; Version-Datum ausgeben
  55.  
  56. put_verstxt    ldx #<version    ; Versiontext ausgeben
  57.     ldy #>version
  58.     bra put_txt
  59.  
  60. put_dattxt    ldx #<vers_date    ; Version Datum ausgeben
  61.     ldy #>vers_date
  62. put_txt    jmp puttxt    ; Text ins Display
  63.  
  64.  
  65. ; =========================================================================
  66. ;
  67. ; Funktion    : Version und Datum im Display anzeigen
  68. ;
  69. ; Eingang    : zyklisch von Displayprg. Verteiler
  70. ;
  71. ; Ausgang    : -----------
  72. ;
  73. ; Register    : X, Y
  74. ;
  75. ; (c) by Thomas Lehmann Feb. 1990
  76. ;
  77. ; =========================================================================
  78.  
  79. put_vers    jsr st_dp_tim    ; Displayanzeige Timer aufziehen
  80.     bbs 1,vers_stat,vers_wait    ; Timer abgelaufen testen
  81.     bbs 0,vers_stat,put_vdat    ; Version Datum ausgeben
  82.  
  83.     ; Version Text ausgeben
  84.     ; ---------------------
  85.     jsr put_verstxt    ; Version ausgeben
  86.     bra vers_s_tim    ; Timer aufziehen
  87.  
  88.  
  89.     ; Version Datum ausgeben
  90.     ; ----------------------
  91. put_vdat    jsr put_dattxt    ; Datum ausgeben
  92.  
  93.  
  94.     ; Timer aufziehen
  95.     ; ---------------
  96. vers_s_tim    smb 1,vers_stat    ; Timer abgelaufen testen
  97.     ldx #VERS_TIM    ; Timerstartwert laden
  98.     stx struct_tim100+VERS_TIM_O    ; Timer starten
  99.     lda #VER_DISPL    ; Displayprgnr. für Version anzeigen laden
  100.     sta displ_prg    ; und Displayprg. bei Anzeige ausführen
  101.     rts
  102.  
  103.  
  104.     ; Timer abgelaufen testen
  105.     ; -----------------------
  106. vers_wait    lda struct_tim100+VERS_TIM_O    ; Timerwert laden
  107.     bne vers_w_end    ; nicht abgelaufen, Ende
  108.  
  109.     rmb 1,vers_stat    ; Timer nicht mehr testen
  110.     lda #01        ; Datum BIT laden
  111.     tsb vers_stat    ; wurde Datum bereits ausgegeben ?
  112.     beq vers_w_end    ; nein, Datum Ausgabe ist vorbereitet
  113.  
  114.     stz displ_prg    ; Display Reset, Ende Taste ausführen
  115. vers_w_end    rts
  116.  
  117.  
  118.  
  119.  
  120. ; --------------------------------------------------------------------------
  121.  
  122. HLP    set    *
  123. _VERSION    equ    HLP-MODUL_START        ; Größe des Moduls
  124.  
  125.