home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital News 1
/
Digital_News_1_1988_-_de_Side_B.d64
/
control
next >
Wrap
Text File
|
2022-10-26
|
4KB
|
202 lines
getin = $ffe4
frame = $d020
backgr = $d021
text = $ab1e
;
;
;
;***************************************
;* *
;* unterprogramm farbe *
;* *
;***************************************
;
;
;
control
jsr $e544
jsr farbe
jsr farbset
lda #$12
sta $d018
lda #1
sta $d6
lda #9
sta $d3
jsr $e510
lda #<farb1 ;{SHIFT--} menue fuer
ldy #>farb1 ;{CBM-Q} die farbwahl
jsr text ;{SHIFT--} auf bildsch.
lda #7
sta $d6
lda #4
sta $d3
jsr $e510
lda #<farb2
ldy #>farb2
jsr text
lda #<farb3
ldy #>farb3
jsr text
farb4 lda #4
sta $d6
lda #16
sta $d3
jsr $e510
lda #<farbcur
ldy #>farbcur
jsr text
jsr getin; zeichen lesen
cmp #133 ; ueberpruefen
bne fs1
jmp farbset1 ; ob f1 gesetzt
fs1 cmp #134 ; ueberpruefen
bne fs2
jmp farbset2 ; ob f3 gesetzt
fs2 cmp #135 ; ueberpruefen
bne fs3
jmp farbset3 ; ob f5 gesetzt
fs3 cmp #"" ; ueberpruefen
bne fs4
jmp musikwahl ; ob f7 gesetzt
fs4 cmp #"" ; ob f2 gesetzt
bne fs5
jmp musikchange;
fs5 cmp #"" ; ob f4 gesetzt
bne fs6
jmp effekte
fs6 cmp #"" ; ob f6 gestezt
bne fs7
jmp ende
fs7 cmp #"" ; ob f8 gesetzt
bne fs8
jmp farbaus
fs8 jmp farb4
;
;
;
farbset1 inc cf
lda #16
cmp cf
beq farbpl1
jmp farbset4
farbpl1 lda #0
sta cf
jmp farbset4
farbset2 inc rf
lda #16
cmp rf
beq farbpl2
jmp farbset4
farbpl2 lda #0
sta rf
jmp farbset4
farbset3 inc hf
lda #16
cmp hf
beq farbpl3
jmp farbset4
farbpl3 lda #0
sta hf
farbset4 jsr farbset
jmp farb4
farbaus jsr $e544
rts
farbset lda cf
ldx rf
ldy hf
sta 646
stx frame
sty backgr
rts
musikwahl lda musik1 ; wenn musik
cmp #$20
beq aus ; eingeschaltet
musikk lda #$20
sta musik1 ; ist wird sie
sta musik2
lda #$4e ; ausgeschaltet
sta farb3+7
lda #$20 ; sonst umge-
sta farb3+8
jsr $1000 ; kehrt !!!!
jmp farbwahl
aus lda #$2c
sta musik1
sta musik2
jsr musikclear
lda #$55
sta farb3+7
lda #$53
sta farb3+8
jmp farbwahl
musikchange
jsr clear ; anderes
jsr soundpok ; musikstueck
jmp musikk ; anwaehlen !!
effekte
jmp farbwahl
;text fuer das controlmenue !!!!!
farbcur .text "cursor"
brk
rf .byte 0
hf .byte 0
cf .byte 1
farb1 .text "*** controlmenU ***"
brk
farb2 .text "schriftfarbe --------"
.text "---- > f1 <"
.byte 13,17,29,29,29,29
.text "rahmenfarbe ---------"
.text "---- > f3 <"
.byte 13,17,29,29,29,29
.text "hintergrundfarbe ----"
.text "---- > f5 <"
.byte 13,17,29,29,29,29
.byte 0
farb3 .text "musik an --------"
.text "---- > f7 <"
.byte 13,17,29,29,29,29
.text "musik wechseln ------"
.text "---- > f2 <"
.byte 13,17,29,29,29,29
teff .text "texteffekt an ---"
.text "---- > f4 <"
.byte 13,17,29,29,29,29
.text "exit digital news ---"
.text "---- > f6 <"
.byte 13,17,29,29,29,29
.text "exit controlmenU ----"
.text "---- > f8 <"
brk