base:fli-fpp-scroller
no way to compare when less than two revisions
Differences
This shows you the differences between two versions of the page.
— | base:fli-fpp-scroller [2015-04-17 04:31] (current) – created - external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | < | ||
+ | ; ---------------------------------------------------------------------------------------------------- | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; coding: testicle/ | ||
+ | ; logo: fabu/payday | ||
+ | ; musik: anvil/topaz beerline | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; contact and payday-releases: | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; this sourcecode is best view with the font " | ||
+ | ; you can compile this code using the ACME crossassembler. get the complete | ||
+ | ; package including resource files at www.popelganda.de | ||
+ | ; | ||
+ | ; the code was written with Relaunch64, the c64-crossassembler-tool | ||
+ | ; for windows-pc. grab it at www.popelganda.de! | ||
+ | ; | ||
+ | ; ---------------------------------------------------------------------------------------------------- | ||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; globale variablen | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !to " | ||
+ | |||
+ | text=$96 | ||
+ | fli_sinen=$0b00 | ||
+ | pic_char=$3200 | ||
+ | pic_farb=$3400 | ||
+ | nextpart=$080b | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; includes der roh-daten | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | ;*= $0800 | ||
+ | ;!byte $00, | ||
+ | |||
+ | *= $1000 | ||
+ | !bin " | ||
+ | |||
+ | *= $2000 | ||
+ | !bin " | ||
+ | |||
+ | *= pic_char | ||
+ | !bin " | ||
+ | |||
+ | *= fli_sinen | ||
+ | !bin " | ||
+ | |||
+ | *= $c000 | ||
+ | !bin " | ||
+ | |||
+ | *= $3800 | ||
+ | !bin " | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; start des haupt-sourcecodes | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | *= $8000 | ||
+ | |||
+ | lda #0 | ||
+ | jsr $e536 | ||
+ | sei | ||
+ | lda #<firq | ||
+ | sta $0314 | ||
+ | lda #>firq | ||
+ | sta $0315 | ||
+ | lda #1 | ||
+ | sta $d01a | ||
+ | lda #$7f | ||
+ | sta $dc0d | ||
+ | lda #$38 | ||
+ | sta $d012 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | lda #0 | ||
+ | sta $d020 | ||
+ | sta $d021 | ||
+ | sta $dc0e | ||
+ | |||
+ | ;most zeropage-adresses are used as counter-variables | ||
+ | ;for the fpp-effects | ||
+ | |||
+ | sta $50 | ||
+ | sta $52 | ||
+ | sta $53 | ||
+ | sta $55 | ||
+ | sta $56 | ||
+ | sta $45 | ||
+ | sta $46 | ||
+ | sta $35 | ||
+ | sta $36 | ||
+ | sta $60 | ||
+ | sta $62 | ||
+ | sta $64 | ||
+ | sta $63 | ||
+ | sta $68 | ||
+ | sta $d001 | ||
+ | jsr $1000 | ||
+ | lda #16 | ||
+ | sta $65 | ||
+ | lda #text | ||
+ | sta $51 | ||
+ | lda #8 | ||
+ | sta $27 | ||
+ | sta $34 | ||
+ | sta $37 | ||
+ | sta $54 | ||
+ | sta $57 | ||
+ | sta $44 | ||
+ | sta $47 | ||
+ | ldx #0 | ||
+ | .loop1 lda #0 | ||
+ | .cnt1 sta $4000,x | ||
+ | inx | ||
+ | bne .loop1 | ||
+ | inc .cnt1+2 | ||
+ | lda .cnt1+2 | ||
+ | cmp #$80 | ||
+ | bne .loop1 | ||
+ | lda #$40 | ||
+ | sta .cnt1+2 | ||
+ | ldx #0 | ||
+ | .loop2 lda # | ||
+ | sta $6140,x | ||
+ | sta $6240,x | ||
+ | inx | ||
+ | bne .loop2 | ||
+ | ldx #0 | ||
+ | .loop3 lda pic_char+$28, | ||
+ | sta $0450,x | ||
+ | lda pic_farb+$28, | ||
+ | sta $d850,x | ||
+ | lda pic_char+$0128, | ||
+ | sta $0550,x | ||
+ | lda pic_farb+$0128, | ||
+ | sta $d950,x | ||
+ | inx | ||
+ | bne .loop3 | ||
+ | cli | ||
+ | loading lda #0 | ||
+ | beq loading | ||
+ | |||
+ | jsr $c800 | ||
+ | ldx #8 | ||
+ | ldy #1 | ||
+ | jsr $ffba | ||
+ | lda #2 | ||
+ | ldx #<.fname | ||
+ | ldy #>.fname | ||
+ | jsr $ffbd | ||
+ | lda #0 | ||
+ | jsr $ffd5 | ||
+ | jmp nextpart | ||
+ | |||
+ | .fname | ||
+ | !ct pet | ||
+ | !tx " | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | firq inc $d019 | ||
+ | lda #$7b | ||
+ | sta $d011 | ||
+ | .wait lda #50 | ||
+ | dec .wait+1 | ||
+ | lda .wait+1 | ||
+ | bne .weiter | ||
+ | lda #<irq1 | ||
+ | sta $0314 | ||
+ | lda #>irq1 | ||
+ | sta $0315 | ||
+ | lda #$3a | ||
+ | sta $d012 | ||
+ | .weiter jmp $ea7e | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; first irq: afli-routine (display afli-scroller) | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | irq1 inc $d019 | ||
+ | save lda # | ||
+ | sta $d016 | ||
+ | lda #2 | ||
+ | sta $dd00 | ||
+ | |||
+ | |||
+ | ldy #$3c | ||
+ | lda #$7c | ||
+ | cpy $d012 | ||
+ | bne *-3 | ||
+ | !set m=0 | ||
+ | !do { | ||
+ | sta $d011 | ||
+ | lda chartab+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3d | ||
+ | sta $d011 | ||
+ | lda chartab+1+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3e | ||
+ | sta $d011 | ||
+ | lda chartab+2+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3f | ||
+ | sta $d011 | ||
+ | lda chartab+3+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$38 | ||
+ | sta $d011 | ||
+ | lda chartab+4+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$39 | ||
+ | sta $d011 | ||
+ | lda chartab+5+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3a | ||
+ | sta $d011 | ||
+ | lda chartab+6+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3b | ||
+ | sta $d011 | ||
+ | lda chartab+7+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3c | ||
+ | sta $d011 | ||
+ | lda chartab+8+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3d | ||
+ | sta $d011 | ||
+ | lda chartab+9+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3e | ||
+ | sta $d011 | ||
+ | lda chartab+10+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3f | ||
+ | sta $d011 | ||
+ | lda chartab+11+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$38 | ||
+ | sta $d011 | ||
+ | lda chartab+12+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$39 | ||
+ | sta $d011 | ||
+ | lda chartab+13+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3a | ||
+ | sta $d011 | ||
+ | lda chartab+14+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3b | ||
+ | sta $d011 | ||
+ | lda chartab+15+m | ||
+ | sta $d018 | ||
+ | cmp ($00,x) | ||
+ | lda #$3c | ||
+ | !set m=m+16 | ||
+ | } until m=96 | ||
+ | |||
+ | lda #$7b | ||
+ | sta $d011 | ||
+ | |||
+ | lda #$9f | ||
+ | sta $d012 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | lda #<irq2 | ||
+ | sta $0314 | ||
+ | lda #>irq2 | ||
+ | sta $0315 | ||
+ | jmp $ea7e | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; second irq: calculate afli-scroller | ||
+ | ; | ||
+ | ; this irq displays the payday-logo. | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | irq2 inc $d019 | ||
+ | |||
+ | lda #3 | ||
+ | sta $dd00 | ||
+ | lda #$19 | ||
+ | sta $d018 | ||
+ | lda #$3b | ||
+ | sta $d011 | ||
+ | lda #$d8 | ||
+ | sta $d016 | ||
+ | |||
+ | cmp ($00,x) | ||
+ | |||
+ | lda #15 | ||
+ | ldy $d012 | ||
+ | cpy $d012 | ||
+ | beq *-3 | ||
+ | sta $d020 | ||
+ | sta $d021 | ||
+ | |||
+ | lda #0 | ||
+ | ldy $d012 | ||
+ | cpy $d012 | ||
+ | beq *-3 | ||
+ | sta $d020 | ||
+ | sta $d021 | ||
+ | |||
+ | showlogo lda #$7b ;logo off in the beginning | ||
+ | sta $d011 | ||
+ | |||
+ | jsr clear ; | ||
+ | ;these values are used by the afli-scrollers, | ||
+ | |||
+ | lda $65 ; | ||
+ | cmp #1 | ||
+ | bne .boot1 | ||
+ | jsr fpp1 | ||
+ | jmp back | ||
+ | .boot1 cmp #2 | ||
+ | bne .boot2 | ||
+ | jsr fpp2 | ||
+ | jmp back | ||
+ | .boot2 cmp #3 | ||
+ | bne .boot3 | ||
+ | jsr fpp3 | ||
+ | jmp back | ||
+ | .boot3 cmp #4 | ||
+ | bne .boot4 | ||
+ | jsr fpp4 | ||
+ | jmp back | ||
+ | .boot4 cmp #5 | ||
+ | bne .boot5 | ||
+ | jsr fpp5 | ||
+ | jmp back | ||
+ | .boot5 cmp #6 | ||
+ | bne .boot6 | ||
+ | jsr fpp6 | ||
+ | jmp back | ||
+ | .boot6 cmp #7 | ||
+ | bne .boot7 | ||
+ | jsr fpp7 | ||
+ | jmp back | ||
+ | .boot7 cmp #8 | ||
+ | bne .boot8 | ||
+ | jsr fpp8 | ||
+ | jmp back | ||
+ | .boot8 cmp #9 | ||
+ | bne .boot9 | ||
+ | jsr fpp9 | ||
+ | jmp back | ||
+ | .boot9 cmp #10 | ||
+ | bne .boot10 | ||
+ | jsr fpp10 | ||
+ | jmp back | ||
+ | .boot10 cmp #11 | ||
+ | bne .boot11 | ||
+ | jsr fpp11 | ||
+ | jmp back | ||
+ | .boot11 cmp #12 | ||
+ | bne .boot12 | ||
+ | jsr fpp12 | ||
+ | jmp back | ||
+ | .boot12 cmp #13 | ||
+ | bne .boot13 | ||
+ | jsr fpp13 | ||
+ | jmp back | ||
+ | .boot13 cmp #14 | ||
+ | bne .boot14 | ||
+ | jsr fpp14 | ||
+ | jmp back | ||
+ | .boot14 cmp #15 | ||
+ | bne .boot15 | ||
+ | jsr fpp15 | ||
+ | jmp back | ||
+ | .boot15 cmp #16 | ||
+ | bne .boot16 | ||
+ | jsr fpp16 | ||
+ | jmp back | ||
+ | .boot16 cmp #17 | ||
+ | bne .boot17 | ||
+ | jsr fpp17 | ||
+ | jmp back | ||
+ | .boot17 cmp #18 | ||
+ | bne .boot18 | ||
+ | jsr fpp18 | ||
+ | jmp back | ||
+ | .boot18 cmp #19 | ||
+ | bne .boot19 | ||
+ | jsr fpp19 | ||
+ | jmp back | ||
+ | .boot19 cmp #20 | ||
+ | bne .boot20 | ||
+ | jsr fpp20 | ||
+ | jmp back | ||
+ | .boot20 cmp #21 | ||
+ | bne .boot21 | ||
+ | jsr fpp21 | ||
+ | jmp back | ||
+ | .boot21 cmp #22 | ||
+ | bne .boot22 | ||
+ | jsr fpp22 | ||
+ | jmp back | ||
+ | .boot22 jsr fpp4 | ||
+ | |||
+ | ; ------------------------------------------------------------ | ||
+ | ; after setting up the fpp-effect | ||
+ | ; continue with fli-scroller | ||
+ | ; ------------------------------------------------------------ | ||
+ | |||
+ | back lda save+1 | ||
+ | sec:sbc .speed | ||
+ | sta save+1 ; | ||
+ | cmp #$c0 | ||
+ | bcc .copy | ||
+ | jmp backy ;if no hardscroll, go on | ||
+ | .copy lda #$c7 | ||
+ | sta save+1 | ||
+ | ldx #0 | ||
+ | .loop1 lda $4029, | ||
+ | sta $4028,x | ||
+ | lda $4429,x | ||
+ | sta $4428,x | ||
+ | lda $4829,x | ||
+ | sta $4828,x | ||
+ | lda $4c29,x | ||
+ | sta $4c28,x | ||
+ | lda $5029,x | ||
+ | sta $5028,x | ||
+ | lda $5429,x | ||
+ | sta $5428,x | ||
+ | lda $5829,x | ||
+ | sta $5828,x | ||
+ | lda $5c29,x | ||
+ | sta $5c28,x | ||
+ | lda $6029,x | ||
+ | sta $6028,x | ||
+ | lda $6429,x | ||
+ | sta $6428,x | ||
+ | lda $6829,x | ||
+ | sta $6828,x | ||
+ | lda $6c29,x | ||
+ | sta $6c28,x | ||
+ | lda $7029,x | ||
+ | sta $7028,x | ||
+ | lda $7429,x | ||
+ | sta $7428,x | ||
+ | lda $7829,x | ||
+ | sta $7828,x | ||
+ | inx:cpx #40 | ||
+ | bne .loop1 | ||
+ | |||
+ | .fadeout jmp .nofade | ||
+ | |||
+ | .nofade lda $52 ; | ||
+ | beq .out1 ;an old char is to be displayed | ||
+ | jmp out2 | ||
+ | |||
+ | .out1 ldy #0 ;read new sign | ||
+ | lda ($50),y | ||
+ | tax | ||
+ | cmp #$a0 ;sign for activating the space-key? | ||
+ | bcc .slogo | ||
+ | lda #$dc ;if yes, free space-key | ||
+ | sta backy+2 | ||
+ | lda #$20 | ||
+ | tax | ||
+ | .slogo txa ; | ||
+ | cmp #$80 | ||
+ | bcc .yoyo | ||
+ | lda #$3b ;if so, activate logo | ||
+ | sta showlogo+1 | ||
+ | lda #$20 | ||
+ | tax | ||
+ | .yoyo txa ; | ||
+ | cmp #$60 ;are responsible for the different scrollspeeds | ||
+ | bcc .yoyo1 | ||
+ | and #15 | ||
+ | sta .speed | ||
+ | lda #$20 | ||
+ | tax | ||
+ | .yoyo1 txa ; | ||
+ | cmp #$40 ;for activating the different fpp-effects | ||
+ | bcc .yoyo2 | ||
+ | sec | ||
+ | sbc #$40 | ||
+ | sta $65 ; | ||
+ | lda #$20 | ||
+ | tax | ||
+ | .yoyo2 txa | ||
+ | bne .weiter2 ; | ||
+ | lda #$00 | ||
+ | sta $50 | ||
+ | lda #text | ||
+ | sta $51 | ||
+ | lda #$20 | ||
+ | .weiter2 sta byte ; | ||
+ | jsr textout ; | ||
+ | |||
+ | jsr charl ; | ||
+ | ;" | ||
+ | |||
+ | inc $52 ;and update counter for char-length | ||
+ | inc $50 ; | ||
+ | bne backy | ||
+ | inc $51 | ||
+ | backy lda $d001 ; | ||
+ | cmp # | ||
+ | bne .serve2 | ||
+ | lda #< | ||
+ | sta .fadeout+1 | ||
+ | lda #> | ||
+ | sta .fadeout+2 | ||
+ | .serve2 jsr $1003 ; | ||
+ | lda #<irq3 | ||
+ | sta $0314 | ||
+ | lda #>irq3 | ||
+ | sta $0315 | ||
+ | lda #$30 | ||
+ | sta $d012 | ||
+ | jmp $ea7e | ||
+ | |||
+ | ; | ||
+ | ; fadeout | ||
+ | ; | ||
+ | |||
+ | .serve3 jsr $1003 | ||
+ | dec .warten+1 | ||
+ | .warten lda #45 | ||
+ | bne .nix | ||
+ | lda #< | ||
+ | sta .fadeout+1 | ||
+ | lda #> | ||
+ | sta .fadeout+2 | ||
+ | lda #$7b | ||
+ | sta showlogo+1 | ||
+ | .nix lda #<irq3 | ||
+ | sta $0314 | ||
+ | lda #>irq3 | ||
+ | sta $0315 | ||
+ | lda #$30 | ||
+ | sta $d012 | ||
+ | jmp $ea7e | ||
+ | |||
+ | .serve4 jsr $1003 | ||
+ | .leiser lda #15 | ||
+ | sta $d418 | ||
+ | dec .leiser+1 | ||
+ | lda .leiser+1 | ||
+ | cmp #$ff | ||
+ | bne .nix2 | ||
+ | |||
+ | sei | ||
+ | lda #$7b | ||
+ | sta $d011 | ||
+ | lda #0 | ||
+ | sta $d418 | ||
+ | sta $d015 | ||
+ | lda #$31 | ||
+ | sta $0314 | ||
+ | lda #$ea | ||
+ | sta $0315 | ||
+ | lda #0 | ||
+ | sta $d01a | ||
+ | sta $d020 | ||
+ | sta $d021 | ||
+ | jsr $e536 | ||
+ | lda #$81 | ||
+ | sta $dc0d | ||
+ | ldx #0 | ||
+ | .fload lda $3800,x | ||
+ | sta $c800,x | ||
+ | lda $3900,x | ||
+ | sta $c900,x | ||
+ | lda $3a00,x | ||
+ | sta $ca00,x | ||
+ | lda $3b00,x | ||
+ | sta $cb00,x | ||
+ | lda $3c00,x | ||
+ | sta $cc00,x | ||
+ | lda $3d00,x | ||
+ | sta $cd00,x | ||
+ | lda $3e00,x | ||
+ | sta $ce00,x | ||
+ | lda $3f00,x | ||
+ | sta $cf00,x | ||
+ | inx:bne .fload | ||
+ | lda #1 | ||
+ | sta loading+1 | ||
+ | cli | ||
+ | jmp $ea7e | ||
+ | |||
+ | .nix2 lda #<irq3 | ||
+ | sta $0314 | ||
+ | lda #>irq3 | ||
+ | sta $0315 | ||
+ | lda #$30 | ||
+ | sta $d012 | ||
+ | jmp $ea7e | ||
+ | |||
+ | .speed ; | ||
+ | !byte 2 | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | |||
+ | !zone | ||
+ | irq3 inc $d019 | ||
+ | |||
+ | ldy $d012 | ||
+ | cpy $d012 | ||
+ | beq *-3 | ||
+ | |||
+ | lda #15 | ||
+ | ldy $d012 | ||
+ | cpy $d012 | ||
+ | beq *-3 | ||
+ | sta $d020 | ||
+ | |||
+ | lda #0 | ||
+ | ldy $d012 | ||
+ | cpy $d012 | ||
+ | beq *-3 | ||
+ | |||
+ | sta $d020 | ||
+ | |||
+ | lda #$3a | ||
+ | sta $d012 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | lda #<irq1 | ||
+ | sta $0314 | ||
+ | lda #>irq1 | ||
+ | sta $0315 | ||
+ | jmp $ea7e | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; text-out | ||
+ | ; | ||
+ | ; this routine reads the afli-data of | ||
+ | ; a new char and writes it in the afli-matrix/ | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | textout lda byte ;read char | ||
+ | asl: | ||
+ | sta $53 ; | ||
+ | tax | ||
+ | textit lda $c000, | ||
+ | sta $404f ;it into the afli-matrix | ||
+ | lda $c100,x | ||
+ | sta $444f | ||
+ | lda $c200,x | ||
+ | sta $484f | ||
+ | lda $c300,x | ||
+ | sta $4c4f | ||
+ | lda $c400,x | ||
+ | sta $504f | ||
+ | lda $c500,x | ||
+ | sta $544f | ||
+ | lda $c600,x | ||
+ | sta $584f | ||
+ | lda $c700,x | ||
+ | sta $5c4f | ||
+ | lda $c800,x | ||
+ | sta $604f | ||
+ | lda $c900,x | ||
+ | sta $644f | ||
+ | lda $ca00,x | ||
+ | sta $684f | ||
+ | lda $cb00,x | ||
+ | sta $6c4f | ||
+ | lda $cc00,x | ||
+ | sta $704f | ||
+ | lda $cd00,x | ||
+ | sta $744f | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; out2 | ||
+ | ; | ||
+ | ; this routine does not set a new char, but | ||
+ | ; reads the remaining parts of the current char | ||
+ | ; and writes it in the afli-matrix | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | out2 inc $53 ; | ||
+ | ldx $53 | ||
+ | jsr textit ; | ||
+ | inc $52 ; | ||
+ | lda $52 | ||
+ | leng cmp #5 ;char finished? | ||
+ | bne .weiter | ||
+ | lda #0 ;if yes, reset | ||
+ | sta $52 | ||
+ | .weiter jmp backy | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; charl | ||
+ | ; | ||
+ | ; this routine calculates the length of a char | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | charl ldx byte | ||
+ | lda chle,x | ||
+ | sta leng+1 | ||
+ | rts | ||
+ | |||
+ | chle | ||
+ | !byte 2, | ||
+ | !byte 4, | ||
+ | |||
+ | byte | ||
+ | !byte 0 | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; clear | ||
+ | ; | ||
+ | ; this routine clears the chartable, | ||
+ | ; the $d018-values of the afli-routine | ||
+ | ; of the first irq. | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | clear ldx #0 | ||
+ | lda #$f8 | ||
+ | .ooo sta chartab,x | ||
+ | inx:bpl .ooo | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; start of the fpp-effects | ||
+ | ; | ||
+ | ; the fpp-effectsare activated in the scroll-text. | ||
+ | ; | ||
+ | ; byte $46 in the scrolltext means, | ||
+ | ; fpp6 will be activated. | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp1: stretch mit pixellines | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp1 | ||
+ | .sinz ldx #0 | ||
+ | ldy #0 | ||
+ | .setp lda #$e8 | ||
+ | sta chartab,y | ||
+ | iny | ||
+ | tya | ||
+ | clc | ||
+ | adc sinus,x | ||
+ | tay | ||
+ | inx | ||
+ | lda .setp+1 | ||
+ | clc:adc #$10 | ||
+ | sta .setp+1 | ||
+ | cmp #$e8 | ||
+ | beq .ready | ||
+ | jmp .setp | ||
+ | .ready lda #$e8 | ||
+ | sta .setp+1 | ||
+ | sta chartab,y | ||
+ | inc .sinz+1 | ||
+ | lda .sinz+1 | ||
+ | cmp #95 | ||
+ | bcc .serve | ||
+ | lda #0 | ||
+ | sta .sinz+1 | ||
+ | .serve rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp2: sourround | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp2 ldy $62 | ||
+ | .loop ldx fli_sinen+$0200, | ||
+ | .incr lda #8 | ||
+ | sta chartab+3,x | ||
+ | cpx #8 | ||
+ | bcc .weiter | ||
+ | cpx #$4c | ||
+ | bcs .weiter | ||
+ | sta chartab+4,x | ||
+ | .weiter iny | ||
+ | lda .incr+1:clc | ||
+ | adc #$10:sta .incr+1 | ||
+ | bcc .loop | ||
+ | lda #8 | ||
+ | sta .incr+1 | ||
+ | inc $62 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp3: swing | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp3 ldy $63 | ||
+ | ldx fli_sinen+$0300, | ||
+ | .loop lda #8 | ||
+ | sta chartab+1,x | ||
+ | inx | ||
+ | lda .loop+1:clc | ||
+ | adc #$10:sta .loop+1 | ||
+ | bcc .loop | ||
+ | lda #8 | ||
+ | sta .loop+1 | ||
+ | inc $63 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp4: normal | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp4 ldx #32 | ||
+ | .loop lda #8 | ||
+ | sta chartab,x | ||
+ | inx | ||
+ | lda .loop+1:clc | ||
+ | |||
+ | adc #$10:sta .loop+1 | ||
+ | bcc .loop | ||
+ | lda #8 | ||
+ | sta .loop+1 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp5: normaler scroll, der sourrounded wird | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp5 lda $62 | ||
+ | cmp #$20 | ||
+ | bcc .first | ||
+ | cmp #$60 | ||
+ | bcc .second | ||
+ | cmp #$a0 | ||
+ | bcc .first | ||
+ | cmp #$e0 | ||
+ | bcc .second | ||
+ | .first jsr fpp4 | ||
+ | jsr fpp2 | ||
+ | jsr mirror | ||
+ | rts | ||
+ | .second jsr fpp2 | ||
+ | jsr fpp4 | ||
+ | jsr mirror | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp6: swing über pixel-stretsch, | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp6 jsr fpp1 | ||
+ | jsr fpp3 | ||
+ | jsr mirror | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp7: stretch full | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp7 | ||
+ | .sinz ldx #0 | ||
+ | |||
+ | ldy #0 | ||
+ | .setp lda #$e8 | ||
+ | sta chartab+0,y | ||
+ | sta chartab+1,y | ||
+ | sta chartab+2,y | ||
+ | sta chartab+3,y | ||
+ | sta chartab+4,y | ||
+ | sta chartab+5,y | ||
+ | sta chartab+6,y | ||
+ | sta chartab+7,y | ||
+ | sta chartab+8,y | ||
+ | sta chartab+9,y | ||
+ | sta chartab+10, | ||
+ | iny | ||
+ | tya | ||
+ | clc | ||
+ | adc sinus2,x | ||
+ | tay | ||
+ | inx | ||
+ | lda .setp+1 | ||
+ | clc:adc #$10 | ||
+ | sta .setp+1 | ||
+ | cmp #$e8 | ||
+ | beq .ready | ||
+ | jmp .setp | ||
+ | .ready lda #$e8 | ||
+ | sta .setp+1 | ||
+ | sta chartab+0,y | ||
+ | sta chartab+1,y | ||
+ | sta chartab+2,y | ||
+ | sta chartab+3,y | ||
+ | sta chartab+4,y | ||
+ | sta chartab+5,y | ||
+ | sta chartab+6,y | ||
+ | sta chartab+7,y | ||
+ | sta chartab+8,y | ||
+ | sta chartab+9,y | ||
+ | sta chartab+10, | ||
+ | inc .sinz+1 | ||
+ | lda .sinz+1 | ||
+ | cmp #95 | ||
+ | bcc .serve | ||
+ | lda #0 | ||
+ | sta .sinz+1 | ||
+ | .serve rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp8: stretch full, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp8 jsr fpp7 | ||
+ | jsr mirror | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp9: normaler-scroll, | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp9 ldy $64 | ||
+ | lda fli_sinen+$0100, | ||
+ | sta $62 | ||
+ | jsr fpp4 | ||
+ | jsr fpp5 | ||
+ | jsr mirror | ||
+ | inc $64 | ||
+ | lda $64 | ||
+ | cmp #$af | ||
+ | bcc .serve | ||
+ | lda #0 | ||
+ | sta $64 | ||
+ | .serve rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp10: stretch full, gespiegelt, mit swing drüber | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp10 jsr fpp7 | ||
+ | jsr mirror | ||
+ | jsr fpp3 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp11: swingende rolle | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp11 ldy $68 | ||
+ | ldx fli_sinen,y | ||
+ | fpprolle lda aa | ||
+ | sta chartab,x | ||
+ | lda aa+5 | ||
+ | sta chartab+1,x | ||
+ | lda aa+9 | ||
+ | sta chartab+2,x | ||
+ | lda aa+12 | ||
+ | sta chartab+3,x | ||
+ | lda aa+13 | ||
+ | sta chartab+4,x | ||
+ | lda aa+14 | ||
+ | sta chartab+5,x | ||
+ | lda aa+15 | ||
+ | sta chartab+6,x | ||
+ | sta chartab+7,x | ||
+ | lda aa+16 | ||
+ | sta chartab+8,x | ||
+ | sta chartab+9,x | ||
+ | sta chartab+10, | ||
+ | lda aa+17 | ||
+ | sta chartab+11, | ||
+ | sta chartab+12, | ||
+ | sta chartab+13, | ||
+ | sta chartab+14, | ||
+ | lda aa+18 | ||
+ | sta chartab+15, | ||
+ | sta chartab+16, | ||
+ | sta chartab+17, | ||
+ | sta chartab+18, | ||
+ | sta chartab+19, | ||
+ | lda aa+19 | ||
+ | sta chartab+20, | ||
+ | sta chartab+21, | ||
+ | sta chartab+22, | ||
+ | sta chartab+23, | ||
+ | sta chartab+24, | ||
+ | sta chartab+25, | ||
+ | lda aa+20 | ||
+ | sta chartab+26, | ||
+ | sta chartab+27, | ||
+ | sta chartab+28, | ||
+ | sta chartab+29, | ||
+ | sta chartab+30, | ||
+ | lda aa+21 | ||
+ | sta chartab+31, | ||
+ | sta chartab+32, | ||
+ | sta chartab+33, | ||
+ | sta chartab+34, | ||
+ | lda aa+22 | ||
+ | sta chartab+35, | ||
+ | sta chartab+36, | ||
+ | sta chartab+37, | ||
+ | lda aa+23 | ||
+ | sta chartab+38, | ||
+ | sta chartab+39, | ||
+ | lda aa+24 | ||
+ | sta chartab+40, | ||
+ | lda aa+25 | ||
+ | sta chartab+41, | ||
+ | lda aa+27 | ||
+ | sta chartab+42, | ||
+ | lda aa+30 | ||
+ | sta chartab+43, | ||
+ | lda aa+34 | ||
+ | sta chartab+44, | ||
+ | lda aa+39 | ||
+ | sta chartab+45, | ||
+ | lda $68 | ||
+ | and #1 | ||
+ | bne .ende | ||
+ | ldx #0 | ||
+ | ldy aa | ||
+ | .loop lda aa+1,x | ||
+ | sta aa,x | ||
+ | inx:cpx #$2a | ||
+ | bne .loop | ||
+ | sty aa+$29 | ||
+ | .ende inc $68 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | aa | ||
+ | !byte $08, | ||
+ | !byte $88, | ||
+ | !byte $28, | ||
+ | !byte $a8, | ||
+ | !byte $48, | ||
+ | !byte $c8,$d8 | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp12: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp12 jsr fpp11 | ||
+ | jsr mirror | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp13: swingende rolle, gespiegelt, mit swing drüber | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp13 jsr fpp11 | ||
+ | jsr mirror | ||
+ | jsr fpp3 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp14: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp14 | ||
+ | .sinz ldx #0 | ||
+ | ldy #0 | ||
+ | .setp lda $27 | ||
+ | sta chartab,y | ||
+ | iny | ||
+ | tya | ||
+ | adc sinus3,x | ||
+ | tay | ||
+ | inx | ||
+ | lda $27 | ||
+ | adc #$10 | ||
+ | sta $27 | ||
+ | cmp #$e8 | ||
+ | beq .ready | ||
+ | jmp .setp | ||
+ | .ready lda #$08 | ||
+ | sta $27 | ||
+ | sta chartab,y | ||
+ | inc .sinz+1 | ||
+ | lda .sinz+1 | ||
+ | cmp #99 | ||
+ | bcc .serve | ||
+ | lda #0 | ||
+ | sta .sinz+1 | ||
+ | .serve rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp15: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp15 jsr fpp17 | ||
+ | jsr mirror | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp16: rolle mit surround | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp16 lda $62 | ||
+ | cmp #$24 | ||
+ | bcc .w1 | ||
+ | cmp #$60 | ||
+ | bcc .w2 | ||
+ | cmp #$a0 | ||
+ | bcc .w1 | ||
+ | cmp #$e0 | ||
+ | bcc .w2 | ||
+ | .w1 ldx #$13 | ||
+ | jsr fpprolle | ||
+ | jsr fpp2 | ||
+ | rts | ||
+ | .w2 jsr fpp2 | ||
+ | ldx #$13 | ||
+ | jsr fpprolle | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp17: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp17 | ||
+ | .sinz ldx #0 | ||
+ | ldy #0 | ||
+ | .setp lda #$e8 | ||
+ | sta chartab+0,y | ||
+ | sta chartab+1,y | ||
+ | sta chartab+2,y | ||
+ | sta chartab+3,y | ||
+ | sta chartab+4,y | ||
+ | sta chartab+5,y | ||
+ | sta chartab+6,y | ||
+ | sta chartab+7,y | ||
+ | sta chartab+8,y | ||
+ | sta chartab+9,y | ||
+ | sta chartab+10, | ||
+ | iny | ||
+ | tya | ||
+ | clc | ||
+ | adc sinus4,x | ||
+ | tay | ||
+ | inx | ||
+ | lda .setp+1 | ||
+ | clc:adc #$10 | ||
+ | sta .setp+1 | ||
+ | cmp #$e8 | ||
+ | beq .ready | ||
+ | jmp .setp | ||
+ | .ready lda #$e8 | ||
+ | sta .setp+1 | ||
+ | sta chartab+0,y | ||
+ | sta chartab+1,y | ||
+ | sta chartab+2,y | ||
+ | sta chartab+3,y | ||
+ | sta chartab+4,y | ||
+ | sta chartab+5,y | ||
+ | sta chartab+6,y | ||
+ | sta chartab+7,y | ||
+ | sta chartab+8,y | ||
+ | sta chartab+9,y | ||
+ | sta chartab+10, | ||
+ | inc .sinz+1 | ||
+ | lda .sinz+1 | ||
+ | cmp #99 | ||
+ | bcc .serve | ||
+ | lda #0 | ||
+ | sta .sinz+1 | ||
+ | .serve rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp18: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp18 lda $54 | ||
+ | pha | ||
+ | lda $56 | ||
+ | pha | ||
+ | .cnt ldx $56 | ||
+ | .loop ldy sinus6,x | ||
+ | beq .nichts | ||
+ | ldx $55 | ||
+ | lda $54 | ||
+ | .loop2 sta chartab,x | ||
+ | inx | ||
+ | dey | ||
+ | bne .loop2 | ||
+ | stx $55 | ||
+ | .nichts lda $54 | ||
+ | adc #$10 | ||
+ | sta $54 | ||
+ | inc $56 | ||
+ | lda $55 | ||
+ | cmp #96 | ||
+ | bcc .cnt | ||
+ | pla | ||
+ | tax | ||
+ | inc .wait+1 | ||
+ | .wait lda #1 | ||
+ | and #1 | ||
+ | bne .w3 | ||
+ | inx | ||
+ | .w3 cpx #72 | ||
+ | bne .w2 | ||
+ | ldx #0 | ||
+ | .w2 stx $56 | ||
+ | pla | ||
+ | adc #$10 | ||
+ | |||
+ | sta $54 | ||
+ | lda #0 | ||
+ | sta $55 | ||
+ | .weiter rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp19: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp19 | ||
+ | .sinz ldx #0 | ||
+ | ldy #0 | ||
+ | .setp lda #$e8 | ||
+ | sta chartab+0,y | ||
+ | sta chartab+1,y | ||
+ | sta chartab+2,y | ||
+ | sta chartab+3,y | ||
+ | sta chartab+4,y | ||
+ | sta chartab+5,y | ||
+ | sta chartab+6,y | ||
+ | sta chartab+7,y | ||
+ | sta chartab+8,y | ||
+ | sta chartab+9,y | ||
+ | sta chartab+10, | ||
+ | iny | ||
+ | tya | ||
+ | clc | ||
+ | adc sinus5,x | ||
+ | tay | ||
+ | inx | ||
+ | lda .setp+1 | ||
+ | clc:adc #$10 | ||
+ | sta .setp+1 | ||
+ | cmp #$e8 | ||
+ | beq .ready | ||
+ | jmp .setp | ||
+ | .ready lda #$e8 | ||
+ | sta .setp+1 | ||
+ | sta chartab+0,y | ||
+ | sta chartab+1,y | ||
+ | sta chartab+2,y | ||
+ | sta chartab+3,y | ||
+ | sta chartab+4,y | ||
+ | sta chartab+5,y | ||
+ | sta chartab+6,y | ||
+ | sta chartab+7,y | ||
+ | sta chartab+8,y | ||
+ | sta chartab+9,y | ||
+ | sta chartab+10, | ||
+ | inc .sinz+1 | ||
+ | lda .sinz+1 | ||
+ | cmp #66 | ||
+ | bcc .serve | ||
+ | lda #0 | ||
+ | sta .sinz+1 | ||
+ | .serve rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp20: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp20 lda $44 | ||
+ | pha | ||
+ | lda $46 | ||
+ | pha | ||
+ | .cnt ldx $46 | ||
+ | .loop ldy sinus6,x | ||
+ | beq .nichts | ||
+ | ldx $45 | ||
+ | lda $44 | ||
+ | .loop2 sta chartab,x | ||
+ | inx | ||
+ | dey | ||
+ | bne .loop2 | ||
+ | stx $45 | ||
+ | .nichts lda $44 | ||
+ | adc #$10 | ||
+ | sta $44 | ||
+ | inc $46 | ||
+ | lda $45 | ||
+ | cmp #96 | ||
+ | bcc .cnt | ||
+ | pla | ||
+ | tax | ||
+ | inc .wait+1 | ||
+ | .wait lda #1 | ||
+ | and #1 | ||
+ | bne .w3 | ||
+ | inx | ||
+ | .w3 cpx #72 | ||
+ | bne .w2 | ||
+ | ldx #0 | ||
+ | .w2 stx $46 | ||
+ | pla | ||
+ | sbc #$10 | ||
+ | sta $44 | ||
+ | lda #0 | ||
+ | sta $45 | ||
+ | .weiter rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp21: swingende rolle, gespiegelt | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp21 lda $34 | ||
+ | pha | ||
+ | .cnt ldx $36 | ||
+ | .loop ldy sinus6,x | ||
+ | beq .nichts | ||
+ | ldx $35 | ||
+ | lda $34 | ||
+ | .loop2 sta chartab,x | ||
+ | inx | ||
+ | dey | ||
+ | bne .loop2 | ||
+ | stx $35 | ||
+ | .nichts lda $34 | ||
+ | adc #$10 | ||
+ | sta $34 | ||
+ | inc $36 | ||
+ | lda $35 | ||
+ | cmp #96 | ||
+ | bcc .cnt | ||
+ | inc .wait+1 | ||
+ | .wait lda #1 | ||
+ | and #1 | ||
+ | bne .w3 | ||
+ | inx | ||
+ | .w3 cpx #72 | ||
+ | bne .w2 | ||
+ | ldx #0 | ||
+ | .w2 stx $36 | ||
+ | pla | ||
+ | sbc #$10 | ||
+ | sta $34 | ||
+ | lda #0 | ||
+ | sta $35 | ||
+ | .weiter rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; fpp22: sourround-schlange | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | fpp22 ldy $62 | ||
+ | .cnt lda #5 | ||
+ | .loop ldx fli_sinen+$0200, | ||
+ | .incr lda #8 | ||
+ | sta chartab+3,x | ||
+ | cpx #8 | ||
+ | bcc .weiter | ||
+ | cpx #$4c | ||
+ | bcs .weiter | ||
+ | sta chartab+4,x | ||
+ | .weiter iny | ||
+ | lda .incr+1:clc | ||
+ | adc #$10:sta .incr+1 | ||
+ | bcc .loop | ||
+ | lda #8 | ||
+ | sta .incr+1 | ||
+ | dec .cnt+1 | ||
+ | lda .cnt+1 | ||
+ | bne .loop | ||
+ | lda #5 | ||
+ | sta .cnt+1 | ||
+ | inc $62 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; mirror: dieser effekt spiegelt | ||
+ | ; die fpp-effekte | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | mirror ldx #65 | ||
+ | ldy #65 | ||
+ | .loop lda chartab,x | ||
+ | sta chartab+1,y | ||
+ | dex:iny | ||
+ | cpy #93 | ||
+ | bne .loop | ||
+ | lda #$f8 | ||
+ | .coco ldx #0 | ||
+ | sta chartab+65 | ||
+ | rts | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; hier liegen die $d018-werte der | ||
+ | ; | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | *= $8f00 | ||
+ | chartab | ||
+ | !fill 255,0 | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; sinen. | ||
+ | ; | ||
+ | ; hier liegen die sinen für die | ||
+ | ; | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | *= $9000 | ||
+ | sinus | ||
+ | !fill 40,0 | ||
+ | !byte 1, | ||
+ | !byte 3,2,2,1 | ||
+ | !fill 90,00 | ||
+ | |||
+ | *= $9100 | ||
+ | sinus2 | ||
+ | !fill 40,0 | ||
+ | !byte 1, | ||
+ | !byte 3, | ||
+ | !fill 90,00 | ||
+ | |||
+ | *= $9200 | ||
+ | sinus3 | ||
+ | !byte 0,0,0 | ||
+ | !byte 1, | ||
+ | !byte 5, | ||
+ | !byte 4, | ||
+ | !byte 2, | ||
+ | !byte 3, | ||
+ | !byte 2, | ||
+ | !byte 5, | ||
+ | !byte 5, | ||
+ | !byte 3, | ||
+ | !byte 4, | ||
+ | |||
+ | !byte 1, | ||
+ | !byte 3, | ||
+ | |||
+ | *= $9300 | ||
+ | sinus4 | ||
+ | !byte 0,0,0 | ||
+ | !byte 1, | ||
+ | !byte 5, | ||
+ | !byte 3, | ||
+ | !byte 1, | ||
+ | !byte 4, | ||
+ | !byte 2, | ||
+ | !byte 5, | ||
+ | !byte 4, | ||
+ | !byte 3, | ||
+ | !byte 4, | ||
+ | |||
+ | !byte 1, | ||
+ | !byte 5, | ||
+ | !byte 3, | ||
+ | |||
+ | *= $9400 | ||
+ | sinus5 | ||
+ | !byte 0, | ||
+ | !byte 3, | ||
+ | !byte 6, | ||
+ | !byte 2, | ||
+ | |||
+ | !byte 3, | ||
+ | !byte 6, | ||
+ | !byte 2,2,2,1,1,1 | ||
+ | |||
+ | !byte 0, | ||
+ | !byte 3, | ||
+ | !byte 6, | ||
+ | !byte 2, | ||
+ | |||
+ | !byte 3, | ||
+ | !byte 6, | ||
+ | !byte 2,2,2,1,1,1 | ||
+ | |||
+ | !byte 0, | ||
+ | !byte 3, | ||
+ | !byte 6, | ||
+ | !byte 2, | ||
+ | |||
+ | !byte 3, | ||
+ | !byte 6, | ||
+ | !byte 2,2,2,1,1,1 | ||
+ | |||
+ | *= $9500 | ||
+ | sinus6 | ||
+ | !byte 0, | ||
+ | !byte 1, | ||
+ | !byte 1, | ||
+ | !byte 2, | ||
+ | !byte 3, | ||
+ | !byte 4, | ||
+ | !byte 2, | ||
+ | !byte 2, | ||
+ | !byte 1, | ||
+ | |||
+ | !byte 0, | ||
+ | !byte 1, | ||
+ | !byte 1, | ||
+ | !byte 2, | ||
+ | !byte 3, | ||
+ | !byte 4, | ||
+ | !byte 2, | ||
+ | !byte 2, | ||
+ | !byte 1, | ||
+ | |||
+ | !byte 0, | ||
+ | !byte 1, | ||
+ | !byte 1, | ||
+ | !byte 2, | ||
+ | !byte 3, | ||
+ | !byte 4, | ||
+ | !byte 2, | ||
+ | !byte 2, | ||
+ | !byte 1, | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ; der scroll-text | ||
+ | ; | ||
+ | ; | ||
+ | ; logo aktivieren: | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | *= $9600 | ||
+ | !ct scr | ||
+ | |||
+ | !tx " " | ||
+ | !byte $44 | ||
+ | !tx " | ||
+ | !byte $64 | ||
+ | !text " | ||
+ | !byte $68 | ||
+ | !tx " | ||
+ | |||
+ | !byte $43 | ||
+ | !tx " | ||
+ | |||
+ | !byte $80 | ||
+ | |||
+ | !byte $61 | ||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $41 | ||
+ | !tx " | ||
+ | !tx " | ||
+ | |||
+ | !byte $42 | ||
+ | !tx "the credits go as following" | ||
+ | !tx " | ||
+ | |||
+ | !byte $52 | ||
+ | !tx "the incredible coding was done by" | ||
+ | !tx " | ||
+ | !byte $61 | ||
+ | |||
+ | !byte $53 | ||
+ | !tx " | ||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $54 | ||
+ | !tx "the old but still beautiful logo you see was painted by" | ||
+ | !tx " | ||
+ | !byte $61 | ||
+ | |||
+ | !byte $56 | ||
+ | !tx "fabu of payday" | ||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $55 | ||
+ | !tx "the sound you can hear was composed by" | ||
+ | !tx " | ||
+ | !byte $61 | ||
+ | |||
+ | !byte $4b | ||
+ | !tx "anvil of topaz beerline" | ||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $46 | ||
+ | !tx "and this nice afli charset was painted by" | ||
+ | !tx " | ||
+ | !byte $61 | ||
+ | |||
+ | !byte $50 | ||
+ | !tx "tts of oxyron" | ||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $a0 | ||
+ | |||
+ | !byte $4e | ||
+ | !tx "now that you have seen some nice effects you can use space to continue" | ||
+ | !tx " | ||
+ | |||
+ | !byte $48 | ||
+ | !tx "or you take some time to watch all remaining effects" | ||
+ | !tx " | ||
+ | !byte $64 | ||
+ | |||
+ | !byte $45 | ||
+ | !tx "at this point i want to thank fabu for being lazy and not supporting any new stuff for this demo he he he" | ||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $4f | ||
+ | !tx "but anyway | ||
+ | !tx " | ||
+ | |||
+ | !byte $4c | ||
+ | !tx "i really would like to send some greetings" | ||
+ | !tx " | ||
+ | |||
+ | !byte $4a | ||
+ | !tx "but payday actually knows no one to greet because we were away from scene for over eight years" | ||
+ | !tx " | ||
+ | |||
+ | !byte $54 | ||
+ | !tx "and now we suddenly decided to release another issue of our great discmag" | ||
+ | !byte $68 | ||
+ | !tx " | ||
+ | !byte $61 | ||
+ | |||
+ | !byte $51 | ||
+ | !tx " | ||
+ | |||
+ | !tx " | ||
+ | !byte $62 | ||
+ | |||
+ | !byte $49 | ||
+ | !tx "i hope we will gather some fans around us with the new issue" | ||
+ | !tx " | ||
+ | |||
+ | !byte $53 | ||
+ | !tx "well at least i hope we will release this issue at all he he he" | ||
+ | !tx " | ||
+ | |||
+ | !byte $4d | ||
+ | !tx " | ||
+ | !tx " | ||
+ | |||
+ | !byte $50 | ||
+ | !tx "it is time to restart this text" | ||
+ | !tx " | ||
+ | |||
+ | !byte $47 | ||
+ | !tx "have a nice day " | ||
+ | !tx " | ||
+ | |||
+ | !byte 0 | ||
+ | </ |
base/fli-fpp-scroller.txt · Last modified: 2015-04-17 04:31 by 127.0.0.1