home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / demo / s1 / setup.asm < prev    next >
Encoding:
Assembly Source File  |  1995-02-27  |  2.1 KB  |  102 lines
  1. ;**************************************************************************
  2. ;
  3. ; Filename : SETUP.ASM
  4. ; --------------------
  5. ;
  6. ; (c) 1991 by Thomas Lehmann
  7. ;
  8. ;
  9. ; Jackophone V5.00
  10. ;
  11. ;
  12. ; Setup Routinen
  13. ;
  14. ;
  15. ;**************************************************************************
  16.  
  17. MODUL_START    set    *    ; Größe des Moduls berechnen
  18.  
  19.  
  20. ; =========================================================================
  21. ;
  22. ; Type    : Hauptprg.
  23. ;
  24. ; Eingang    : BTA-Modus für automatische Tastenberechtigung einschalten
  25. ;
  26. ; Ausgang    : Wähltasten auf BTA-Tastenwert Eingabe umgeleitet
  27. ;    : Tasten in X/Y-Matrix umgeleitet
  28. ;
  29. ; Register    : Accu, X
  30. ;
  31. ; (c) by Thomas Lehmann Januar 1991
  32. ;
  33. ; =========================================================================
  34.  
  35. setup    lda #WTA_SETUP        ; Prg. bei Wähltaste
  36.     sta wta_prg
  37.     bra ht_out        ; Text und Port ausgeben
  38.  
  39.  
  40. ; =========================================================================
  41. ;
  42. ; Type    : Hauptprg.
  43. ;
  44. ; Eingang    : bei Wähltaste und eingeschaltetem Setup-Modus
  45. ;    : Tastenwert (1 bis ...) im Accu
  46. ;
  47. ; Ausgang    : --------
  48. ;
  49. ; Register    : Accu
  50. ;
  51. ; (c) by Thomas Lehmann Mai 1991
  52. ;
  53. ; =========================================================================
  54.  
  55. wta_setup    cmp #BTA_END    ; BTA verlassen ?
  56.     bne wta_setup_1    ; nein
  57.  
  58.     jmp bta        ; wieder BTA Haupt-Menue anzeigen
  59.  
  60. wta_setup_1    jsr check_wta    ; Taste im Gültigkeitsbereich ?
  61.     bcs wta_setup_e    ; nein, Ende
  62.  
  63.     cmp #PRG_PORT    ; Portnr. gültig ?
  64.     bcc setup_1    ; ja, eintragen
  65.  
  66.     lda #$ff    ; freier Port
  67. setup_1    sta ht_port    ; Hörtonport eintragen
  68.  
  69.     ; Hörtonport Text ausgeben
  70.     ; ----------------------
  71. ht_out
  72.     block
  73.     ldx #<ht_txt    ; Hörton Port Text ausgeben
  74.     ldy #>ht_txt
  75.     jsr puttxt
  76.  
  77.     lda ht_port    ; Hörtonport holen
  78.     cmp #PRG_PORT    ; ist Port gültig ?
  79.     bcc ht_out_1    ; ja, Portnr. ausgeben
  80.  
  81.     lda #253    ; "-" -48 Char für kein Port gespeichert laden
  82. ht_out_1    clc
  83.     adc #48        ; ASCII erzeugen
  84.     jsr putchar    ; Port ausgeben
  85.     jmp curs_left
  86.     bend
  87.  
  88. wta_setup_e    rts
  89.  
  90.  
  91. ht_txt    byte DSP_CLR|CURS_ON
  92.     shift "Hoertonport ? "
  93.  
  94.  
  95.  
  96.  
  97. ; --------------------------------------------------------------------------
  98.  
  99. HLP    set    *
  100. _SETUP    equ    HLP-MODUL_START        ; Größe des Moduls
  101.  
  102.