home *** CD-ROM | disk | FTP | other *** search
/ Digital News 1 / Digital_News_1_1988_-_de_Side_B.d64 / control next >
Encoding:
Text File  |  1988-01-01  |  3.9 KB  |  202 lines
  1.  
  2.  
  3. getin    = $ffe4
  4. frame    = $d020
  5. backgr   = $d021
  6. text     = $ab1e
  7.  
  8.  
  9. ;
  10. ;
  11. ;
  12. ;***************************************
  13. ;*                                     *
  14. ;*       unterprogramm farbe           *
  15. ;*                                     *
  16. ;***************************************
  17. ;
  18. ;
  19. ;
  20. control
  21.  
  22.          jsr $e544
  23.          jsr farbe
  24.          jsr farbset
  25.          lda #$12
  26.          sta $d018
  27.          lda #1
  28.          sta $d6
  29.          lda #9
  30.          sta $d3
  31.          jsr $e510
  32.          lda #<farb1    ;{SHIFT--} menue fuer
  33.          ldy #>farb1    ;{CBM-Q} die farbwahl
  34.          jsr text       ;{SHIFT--} auf bildsch.
  35.          lda #7
  36.          sta $d6
  37.          lda #4
  38.          sta $d3
  39.          jsr $e510
  40.          lda #<farb2
  41.          ldy #>farb2
  42.          jsr text
  43.          lda #<farb3
  44.          ldy #>farb3
  45.          jsr text
  46. farb4    lda #4
  47.          sta $d6
  48.          lda #16
  49.          sta $d3
  50.          jsr $e510
  51.          lda #<farbcur
  52.          ldy #>farbcur
  53.          jsr text
  54.          jsr getin; zeichen lesen
  55.          cmp #133       ; ueberpruefen
  56.          bne fs1
  57.          jmp farbset1   ; ob f1 gesetzt
  58.  
  59. fs1      cmp #134       ; ueberpruefen
  60.          bne fs2
  61.          jmp farbset2   ; ob f3 gesetzt
  62.  
  63. fs2      cmp #135       ; ueberpruefen
  64.          bne fs3
  65.          jmp farbset3   ; ob f5 gesetzt
  66.  
  67. fs3      cmp #""      ; ueberpruefen
  68.          bne fs4
  69.          jmp musikwahl  ; ob f7 gesetzt
  70.  
  71. fs4      cmp #""       ; ob f2 gesetzt
  72.          bne fs5
  73.          jmp musikchange;
  74.  
  75. fs5      cmp #""       ; ob f4 gesetzt
  76.          bne fs6
  77.          jmp effekte
  78.  
  79. fs6      cmp #""       ; ob f6 gestezt
  80.          bne fs7
  81.          jmp ende
  82.  
  83. fs7      cmp #""       ; ob f8 gesetzt
  84.          bne fs8
  85.          jmp farbaus
  86.  
  87. fs8      jmp farb4
  88.          ;
  89.          ;
  90.          ;
  91. farbset1 inc cf
  92.          lda #16
  93.          cmp cf
  94.          beq farbpl1
  95.          jmp farbset4
  96. farbpl1  lda #0
  97.          sta cf
  98.          jmp farbset4
  99. farbset2 inc rf
  100.          lda #16
  101.          cmp rf
  102.          beq farbpl2
  103.          jmp farbset4
  104. farbpl2  lda #0
  105.          sta rf
  106.          jmp farbset4
  107. farbset3 inc hf
  108.          lda #16
  109.          cmp hf
  110.          beq farbpl3
  111.          jmp farbset4
  112. farbpl3  lda #0
  113.          sta hf
  114. farbset4 jsr farbset
  115.          jmp farb4
  116. farbaus  jsr $e544
  117.          rts
  118. farbset  lda cf
  119.          ldx rf
  120.          ldy hf
  121.          sta 646
  122.          stx frame
  123.          sty backgr
  124.          rts
  125.  
  126. musikwahl lda musik1 ; wenn musik
  127.          cmp #$20
  128.          beq aus     ; eingeschaltet
  129. musikk   lda #$20
  130.          sta musik1  ; ist wird sie
  131.          sta musik2
  132.          lda #$4e    ; ausgeschaltet
  133.          sta farb3+7
  134.          lda #$20    ; sonst umge-
  135.          sta farb3+8
  136.          jsr $1000   ; kehrt !!!!
  137.          jmp farbwahl
  138. aus      lda #$2c
  139.          sta musik1
  140.          sta musik2
  141.          jsr musikclear
  142.          lda #$55
  143.          sta farb3+7
  144.          lda #$53
  145.          sta farb3+8
  146.          jmp farbwahl
  147.  
  148.  
  149. musikchange
  150.  
  151.          jsr clear      ; anderes
  152.          jsr soundpok   ; musikstueck
  153.          jmp musikk     ; anwaehlen !!
  154.  
  155. effekte
  156.  
  157.          jmp farbwahl
  158.  
  159.  
  160.  
  161.  
  162. ;text fuer das controlmenue !!!!!
  163.  
  164.  
  165.  
  166.  
  167. farbcur  .text "cursor"
  168.          brk
  169. rf       .byte 0
  170. hf       .byte 0
  171. cf       .byte 1
  172.  
  173. farb1    .text "***  controlmenU  ***"
  174.          brk
  175. farb2    .text "schriftfarbe --------"
  176.          .text "---- > f1 <"
  177.          .byte 13,17,29,29,29,29
  178.          .text "rahmenfarbe ---------"
  179.          .text "---- > f3 <"
  180.          .byte 13,17,29,29,29,29
  181.          .text "hintergrundfarbe ----"
  182.          .text "---- > f5 <"
  183.          .byte 13,17,29,29,29,29
  184.          .byte 0
  185.  
  186. farb3    .text "musik an     --------"
  187.          .text "---- > f7 <"
  188.          .byte 13,17,29,29,29,29
  189.          .text "musik wechseln ------"
  190.          .text "---- > f2 <"
  191.          .byte 13,17,29,29,29,29
  192. teff     .text "texteffekt an     ---"
  193.          .text "---- > f4 <"
  194.          .byte 13,17,29,29,29,29
  195.          .text "exit digital news ---"
  196.          .text "---- > f6 <"
  197.          .byte 13,17,29,29,29,29
  198.          .text "exit controlmenU ----"
  199.          .text "---- > f8 <"
  200.          brk
  201.  
  202.