base:afli-plasma
no way to compare when less than two revisions
Differences
This shows you the differences between two versions of the page.
— | base:afli-plasma [2015-04-17 04:30] (current) – created - external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | < | ||
+ | ; ---------------------------------------------------------------------------------------------------- | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | ; coding: testicle/ | ||
+ | ; logo: fabu/payday | ||
+ | ; musik: htd/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! | ||
+ | ; | ||
+ | ; ---------------------------------------------------------------------------------------------------- | ||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @globale variablen@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | nextpart=$080b | ||
+ | sinus1 =$0a00 | ||
+ | sinus2 =$0c00 | ||
+ | sinus3 =$0e00 | ||
+ | chartab=$9a00 | ||
+ | aflicolor=$9c00 | ||
+ | paydata=$2800 | ||
+ | stext = $3800 | ||
+ | |||
+ | !to " | ||
+ | |||
+ | |||
+ | ; | ||
+ | ;----- Paragraph @includes of binaries@ ----- | ||
+ | ; | ||
+ | |||
+ | *= $0800 | ||
+ | !byte $00, | ||
+ | |||
+ | *= sinus1 | ||
+ | !bin " | ||
+ | |||
+ | *= sinus2 | ||
+ | !bin " | ||
+ | |||
+ | *= sinus3 | ||
+ | !bin " | ||
+ | |||
+ | *= $1000 | ||
+ | !bin " | ||
+ | |||
+ | *= $2000 | ||
+ | !bin " | ||
+ | |||
+ | *= $2800 | ||
+ | !bin " | ||
+ | |||
+ | *= $3000 | ||
+ | !bin " | ||
+ | |||
+ | *= aflicolor | ||
+ | !bin " | ||
+ | |||
+ | ;*= $c800 | ||
+ | ;!bin " | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @start of sourcecode@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | *= $8000 | ||
+ | |||
+ | lda #0 | ||
+ | jsr $e536 | ||
+ | |||
+ | sei | ||
+ | lda #<firq1 | ||
+ | sta $0314 | ||
+ | lda #>firq1 | ||
+ | sta $0315 | ||
+ | |||
+ | lda # | ||
+ | sta $d01a | ||
+ | lda #$7f | ||
+ | sta $dc0d | ||
+ | lda #$a8 | ||
+ | sta $d012 | ||
+ | lda #$7b | ||
+ | sta $d011 | ||
+ | |||
+ | lda #0 | ||
+ | sta $d020 | ||
+ | sta $d021 | ||
+ | sta $d001 | ||
+ | sta $dc0e | ||
+ | sta $40 | ||
+ | sta $41 | ||
+ | |||
+ | jsr $1000 ; | ||
+ | |||
+ | lda #0 ;init text-counter | ||
+ | sta $50 | ||
+ | lda #>stext | ||
+ | sta $51 | ||
+ | |||
+ | ldx #0 | ||
+ | lda # | ||
+ | .loop sta $6140,x | ||
+ | sta $6180,x | ||
+ | inx:bne .loop | ||
+ | jsr .logoinit | ||
+ | cli | ||
+ | loading lda #0 ;wait for signal-byte set... (during scroller) | ||
+ | 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 " | ||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @sub-route: logo init@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | .logoinit ldx #0 | ||
+ | .loop1 lda paydata+$80, | ||
+ | sta $04f0,x | ||
+ | inx | ||
+ | bne .loop1 | ||
+ | |||
+ | ldx #103 | ||
+ | .loop2 lda paydata+$180, | ||
+ | sta $05f0,x | ||
+ | dex | ||
+ | bpl .loop2 | ||
+ | |||
+ | ldx #0 | ||
+ | lda #8 | ||
+ | .loop3 sta $d8f0,x | ||
+ | sta $d9f0,x | ||
+ | inx | ||
+ | bne .loop3 | ||
+ | ldx #0 | ||
+ | lda #0 | ||
+ | .loop4 sta $0400,x | ||
+ | inx:cpx #$f0 | ||
+ | bne .loop4 | ||
+ | ldx #39 | ||
+ | lda #15 | ||
+ | .loop5 sta $d878,x | ||
+ | dex:bpl .loop5 | ||
+ | rts | ||
+ | |||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @dummy-irq: logo fade-in@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | firq1 inc $d019 | ||
+ | lda #$d8 | ||
+ | sta $d016 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | lda #$19 | ||
+ | sta $d018 | ||
+ | |||
+ | .col1 lda # | ||
+ | sta $d023 | ||
+ | .col2 lda #0 | ||
+ | sta $d022 | ||
+ | .col3 lda #0 | ||
+ | sta $d021 | ||
+ | |||
+ | jsr $1003 ; | ||
+ | |||
+ | .wait lda #1 | ||
+ | dec .wait+1 | ||
+ | lda .wait+1 | ||
+ | bne .weiter | ||
+ | |||
+ | .cnt ldx # | ||
+ | lda pfcol,x | ||
+ | sta .col1+1 | ||
+ | lda pfcol+1,x | ||
+ | sta .col2+1 | ||
+ | lda pfcol+2,x | ||
+ | sta .col3+1 | ||
+ | lda pfcol+3,x | ||
+ | sta .wait+1 | ||
+ | lda .cnt+1 | ||
+ | clc:adc #4 | ||
+ | sta .cnt+1 | ||
+ | cmp #48 | ||
+ | bcc .weiter | ||
+ | |||
+ | lda #$8c | ||
+ | sta frast+1 | ||
+ | lda #<irq2 | ||
+ | sta fwait1+1 | ||
+ | lda #>irq2 | ||
+ | sta fwait2+1 | ||
+ | |||
+ | .weiter lda #<firq2 | ||
+ | sta $0314 | ||
+ | lda #>firq2 | ||
+ | sta $0315 | ||
+ | lda #$30 | ||
+ | sta $d012 | ||
+ | jmp $ea7e | ||
+ | |||
+ | |||
+ | ;----- Paragraph @fade-in-farben für payday-logo@ ----- | ||
+ | |||
+ | pfcol | ||
+ | !byte $00, | ||
+ | !byte $00, | ||
+ | !byte $09, | ||
+ | !byte $0c, | ||
+ | !byte $01, | ||
+ | !byte $0f, | ||
+ | !byte $0c, | ||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @dummy-irq2: | ||
+ | ; | ||
+ | ; this irq simulates a fli-routine, | ||
+ | ; is on the right position before the plasma | ||
+ | ; starts (switching on the plasma (fli) means that | ||
+ | ; the screenarea is moved down) | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | firq2 inc $d019 | ||
+ | lda #0 | ||
+ | sta $d021 | ||
+ | |||
+ | .loop1 lda #$3a ;wait for rasterline | ||
+ | cmp $d012 | ||
+ | bne .loop1 | ||
+ | |||
+ | ldy # | ||
+ | .loop2 dey | ||
+ | bne .loop2 | ||
+ | lda #$7b | ||
+ | sta $d011 | ||
+ | nop:nop | ||
+ | cmp ($00,x) | ||
+ | |||
+ | ldx #0 | ||
+ | .loop3 lda # | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$7d | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$7e | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$7f | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$78 | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$79 | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$7a | ||
+ | sta $d011 | ||
+ | cmp ($00,x) | ||
+ | cmp ($00,x) | ||
+ | nop | ||
+ | lda #$7b | ||
+ | sta $d011 | ||
+ | bit $ea | ||
+ | nop:nop | ||
+ | inx:cpx #10 | ||
+ | bne .loop3 | ||
+ | |||
+ | fwait1 lda #<firq1 | ||
+ | |||
+ | sta $0314 | ||
+ | fwait2 lda #>firq1 | ||
+ | sta $0315 | ||
+ | frast lda #$a8 | ||
+ | sta $d012 | ||
+ | jmp $ea7e | ||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ;----- Paragraph @first irq: show afli-plasma@ ----- | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | irq1 inc $d019 | ||
+ | fixit lda #$c7 | ||
+ | sta $d016 | ||
+ | lda #2 | ||
+ | sta $dd00 | ||
+ | |||
+ | ldy #$3c | ||
+ | |||
+ | lda #$7c | ||
+ | .loop1 cpy $d012 | ||
+ | bne .loop1 | ||
+ | |||
+ | start | ||
+ | !set m=0 | ||
+ | !do { | ||
+ | sta $d011 ; | ||
+ | lda chartab+m ; | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3d | ||
+ | sta $d011 | ||
+ | lda chartab+1+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3e | ||
+ | sta $d011 | ||
+ | lda chartab+2+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3f | ||
+ | sta $d011 | ||
+ | lda chartab+3+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$38 | ||
+ | sta $d011 | ||
+ | lda chartab+4+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$39 | ||
+ | sta $d011 | ||
+ | lda chartab+5+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3a | ||
+ | sta $d011 | ||
+ | lda chartab+6+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3b | ||
+ | sta $d011 | ||
+ | lda chartab+7+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3c | ||
+ | sta $d011 | ||
+ | lda chartab+8+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3d | ||
+ | sta $d011 | ||
+ | lda chartab+9+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3e | ||
+ | sta $d011 | ||
+ | lda chartab+10+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3f | ||
+ | sta $d011 | ||
+ | lda chartab+11+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$38 | ||
+ | sta $d011 | ||
+ | lda chartab+12+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$39 | ||
+ | sta $d011 | ||
+ | lda chartab+13+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3a | ||
+ | sta $d011 | ||
+ | lda chartab+14+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3b | ||
+ | sta $d011 | ||
+ | lda chartab+15+m | ||
+ | sta $d018 | ||
+ | lda #$00 | ||
+ | sta $d016 | ||
+ | lda #$3c | ||
+ | !set m=m+16 | ||
+ | } until m = 80 | ||
+ | |||
+ | lda #$7b | ||
+ | sta $d011 ; | ||
+ | |||
+ | lda #3 | ||
+ | sta $dd00 | ||
+ | lda #$19 | ||
+ | sta $d018 | ||
+ | lda #$8c | ||
+ | sta $d012 | ||
+ | lda #<irq2 | ||
+ | sta $0314 | ||
+ | lda #>irq2 | ||
+ | sta $0315 | ||
+ | jmp $ea7e | ||
+ | |||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ;----- Paragraph @second irq: 1x1 scroller@ ----- | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | irq2 inc $d019 | ||
+ | lda #3 | ||
+ | sta $dd00 | ||
+ | lda #$1d | ||
+ | sta $d018 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | |||
+ | scroller lda #$c7 | ||
+ | sta $d016 | ||
+ | |||
+ | jsr $1003 ; | ||
+ | |||
+ | .schluss jmp space | ||
+ | space lda $d001 ; | ||
+ | cmp #$ef | ||
+ | beq .undweg | ||
+ | jmp .ende | ||
+ | .undweg lda #< | ||
+ | sta .schluss+1 | ||
+ | lda #> | ||
+ | sta .schluss+2 | ||
+ | jmp .ende | ||
+ | |||
+ | .bildweg lda # | ||
+ | dec .bildweg+1 | ||
+ | lda .bildweg+1 | ||
+ | bne .ende | ||
+ | |||
+ | .cnt ldx # | ||
+ | lda pfcol,x | ||
+ | sta fout1+1 | ||
+ | lda pfcol+1,x | ||
+ | sta fout1+1 | ||
+ | lda pfcol+2,x | ||
+ | sta fout3+1 | ||
+ | lda pfcol+3,x | ||
+ | sta .bildweg+1 | ||
+ | lda .cnt+1 | ||
+ | sec:sbc #4 | ||
+ | sta .cnt+1 | ||
+ | bcs .ende | ||
+ | lda #0 | ||
+ | sta fout1+1 | ||
+ | sta fout2+1 | ||
+ | sta fout3+1 | ||
+ | lda #< | ||
+ | sta .schluss+1 | ||
+ | lda #> | ||
+ | sta .schluss+2 | ||
+ | jmp .ende | ||
+ | |||
+ | .soundweg lda # | ||
+ | sta $d418 | ||
+ | dec .soundweg+1 | ||
+ | lda .soundweg+1 | ||
+ | cmp #$ff | ||
+ | bne .ende | ||
+ | |||
+ | 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 | ||
+ | lda #1 ;set loading-signal for loading next part | ||
+ | sta loading+1 | ||
+ | jmp $ea7e | ||
+ | |||
+ | .ende lda #<irq3 | ||
+ | sta $0314 | ||
+ | lda #>irq3 | ||
+ | sta $0315 | ||
+ | lda #$a8 | ||
+ | sta $d012 | ||
+ | jmp $ea7e | ||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ; | ||
+ | ;----- Paragraph @third irq: display logo and afli-action-routine@ ----- | ||
+ | ; | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | irq3 inc $d019 | ||
+ | lda # | ||
+ | sta $d018 | ||
+ | lda # | ||
+ | sta $d016 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | |||
+ | fout1 lda # | ||
+ | sta $d023 | ||
+ | fout2 lda #8 | ||
+ | sta $d022 | ||
+ | fout3 lda #9 | ||
+ | sta $d021 | ||
+ | |||
+ | jsr .scrollroute ; | ||
+ | |||
+ | .cnt ldx #0 | ||
+ | ldy #0 | ||
+ | .loop lda aflicolor, | ||
+ | sta $4028,y | ||
+ | lda aflicolor+2, | ||
+ | sta $4428,y | ||
+ | lda aflicolor+4, | ||
+ | sta $4828,y | ||
+ | lda aflicolor+6, | ||
+ | sta $4c28,y | ||
+ | lda aflicolor+8, | ||
+ | sta $5028,y | ||
+ | lda aflicolor+10, | ||
+ | sta $5428,y | ||
+ | lda aflicolor+12, | ||
+ | sta $5828,y | ||
+ | lda aflicolor+14, | ||
+ | sta $5c28,y | ||
+ | lda aflicolor+16, | ||
+ | sta $6028,y | ||
+ | lda aflicolor+18, | ||
+ | sta $6428,y | ||
+ | lda aflicolor+20, | ||
+ | sta $6828,y | ||
+ | lda aflicolor+22, | ||
+ | sta $6c28,y | ||
+ | lda aflicolor+24, | ||
+ | sta $7028,y | ||
+ | lda aflicolor+26, | ||
+ | sta $7428,y | ||
+ | lda aflicolor+28, | ||
+ | sta $7828,y | ||
+ | lda aflicolor+30, | ||
+ | sta $7c28,y | ||
+ | inx:iny | ||
+ | cpy #40 | ||
+ | bne .loop | ||
+ | |||
+ | sinchange jsr sinroute1 | ||
+ | |||
+ | inc $40 ; | ||
+ | dec $41 | ||
+ | dec $41 | ||
+ | inc .pause+1 | ||
+ | .pause lda #0 ;pause for sinus-counter | ||
+ | and #1 | ||
+ | bne rwait1 | ||
+ | inc .cnt+1 | ||
+ | lda .cnt+1 ; | ||
+ | cmp #$6c | ||
+ | bne rwait1 | ||
+ | lda #0 | ||
+ | sta .cnt+1 | ||
+ | rwait1 lda #<firq2 | ||
+ | sta $0314 | ||
+ | rwait2 lda #>firq2 | ||
+ | sta $0315 | ||
+ | lda #$38 | ||
+ | sta $d012 | ||
+ | lda #$1b | ||
+ | sta $d011 | ||
+ | lda #0 | ||
+ | sta $d021 | ||
+ | jmp $ea7e | ||
+ | |||
+ | ; | ||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @sub-route: 1x1-scroller@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | .scrollroute dec scroller+1 ; | ||
+ | lda scroller+1 | ||
+ | cmp #$bf | ||
+ | bne .sweiter | ||
+ | lda #$c7 ;if 7 pixel moved, the scrolltext | ||
+ | sta scroller+1 ; | ||
+ | |||
+ | ldx #0 | ||
+ | .sloop lda $0479,x | ||
+ | sta $0478,x | ||
+ | inx:cpx #40 | ||
+ | bne .sloop | ||
+ | |||
+ | ldy #0 | ||
+ | lda ($50), | ||
+ | bne .setchar ; | ||
+ | lda #0 ;if yes, reset text-counter | ||
+ | sta $50 | ||
+ | lda #>stext | ||
+ | sta $51 | ||
+ | lda #$20 | ||
+ | .setchar cmp # | ||
+ | bne .setchar2 | ||
+ | lda #< | ||
+ | sta rwait1+1 | ||
+ | lda #>irq1 | ||
+ | sta rwait2+1 | ||
+ | lda #$20 | ||
+ | .setchar2 cmp #254 ;new sinus? | ||
+ | |||
+ | bne .setchar3 | ||
+ | lda #< | ||
+ | sta sinchange+1 | ||
+ | lda #> | ||
+ | sta sinchange+2 | ||
+ | lda #$20 | ||
+ | .setchar3 cmp #253 ;new sinus? | ||
+ | bne .setchar4 | ||
+ | lda #< | ||
+ | sta sinchange+1 | ||
+ | lda #> | ||
+ | sta sinchange+2 | ||
+ | lda #$20 | ||
+ | .setchar4 cmp #252 ;new sinus? | ||
+ | bne .setchar5 | ||
+ | lda #< | ||
+ | sta sinchange+1 | ||
+ | lda #> | ||
+ | sta sinchange+2 | ||
+ | lda #$20 | ||
+ | .setchar5 cmp #251 | ||
+ | bne .setchar6 | ||
+ | lda #$dc | ||
+ | sta space+2 | ||
+ | lda #$20 | ||
+ | .setchar6 sta $049f | ||
+ | inc $50 | ||
+ | lda $50 | ||
+ | bne .sweiter | ||
+ | inc $51 | ||
+ | .sweiter rts | ||
+ | |||
+ | ; | ||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @sub-route: sinus1@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | sinroute1 ldx $40 | ||
+ | ldy $41 | ||
+ | .loop2 lda sinus1, | ||
+ | clc:adc sinus1,y | ||
+ | bcc .weit1 | ||
+ | eor #$f8 | ||
+ | ora #8 | ||
+ | jmp .weit2 | ||
+ | .weit1 and #$f8 | ||
+ | ora #8 | ||
+ | .weit2 sta chartab ; | ||
+ | inx: | ||
+ | inc .weit2+1 | ||
+ | lda .weit2+1 | ||
+ | cmp #80 | ||
+ | bne .loop2 | ||
+ | lda #0 | ||
+ | sta .weit2+1 | ||
+ | |||
+ | ldx $40 | ||
+ | ldy $41 | ||
+ | !set p=0 | ||
+ | !do { | ||
+ | lda sinus1+p, | ||
+ | clc:adc sinus1+p,y | ||
+ | and #7:eor #$c7 | ||
+ | ; and #7:eor #$c0 | ||
+ | sta start+10+p*$10 ; | ||
+ | !set p=p+1 | ||
+ | } until p = 80 | ||
+ | |||
+ | rts | ||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @sub-route: sinus2@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | sinroute2 ldx $40 | ||
+ | ldy $41 | ||
+ | .loop2 lda sinus2, | ||
+ | clc:adc sinus2,y | ||
+ | bcc .weit1 | ||
+ | eor #$f8 | ||
+ | ora #8 | ||
+ | jmp .weit2 | ||
+ | .weit1 and #$f8 | ||
+ | ora #8 | ||
+ | .weit2 sta chartab ; | ||
+ | inx: | ||
+ | inc .weit2+1 | ||
+ | lda .weit2+1 | ||
+ | cmp #80 | ||
+ | bne .loop2 | ||
+ | lda #0 | ||
+ | sta .weit2+1 | ||
+ | |||
+ | ldx $40 | ||
+ | ldy $41 | ||
+ | !set p=0 | ||
+ | !do { | ||
+ | lda sinus2+p, | ||
+ | clc:adc sinus2+p,y | ||
+ | and #7:eor #$c7 | ||
+ | ; and #7:eor #$c0 | ||
+ | sta start+10+p*$10 ; | ||
+ | !set p=p+1 | ||
+ | } until p = 80 | ||
+ | rts | ||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @sub-route: sinus3@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | !zone | ||
+ | sinroute3 ldx $40 | ||
+ | ldy $41 | ||
+ | .loop2 lda sinus3, | ||
+ | clc:adc sinus3,y | ||
+ | bcc .weit1 | ||
+ | eor #$f8 | ||
+ | ora #8 | ||
+ | jmp .weit2 | ||
+ | .weit1 and #$f8 | ||
+ | ora #8 | ||
+ | .weit2 sta chartab ; | ||
+ | inx: | ||
+ | inc .weit2+1 | ||
+ | lda .weit2+1 | ||
+ | cmp #80 | ||
+ | bne .loop2 | ||
+ | lda #0 | ||
+ | sta .weit2+1 | ||
+ | |||
+ | ldx $40 | ||
+ | ldy $41 | ||
+ | !set p=0 | ||
+ | !do { | ||
+ | lda sinus3+p, | ||
+ | clc:adc sinus3+p,y | ||
+ | and #7:eor #$c7 | ||
+ | ; and #7:eor #$c0 | ||
+ | sta start+10+p*$10 ; | ||
+ | !set p=p+1 | ||
+ | } until p = 80 | ||
+ | rts | ||
+ | |||
+ | ; | ||
+ | |||
+ | |||
+ | |||
+ | ; -------------------------------------------------- | ||
+ | ;----- Paragraph @scrolltext@ ----- | ||
+ | ; -------------------------------------------------- | ||
+ | |||
+ | *= stext | ||
+ | |||
+ | !ct scr | ||
+ | !tx " | ||
+ | !tx "hm, where is it? " | ||
+ | |||
+ | ; | ||
+ | !byte 255 | ||
+ | !tx "ah yes! the credits: this small part was coded by me, testicle/ | ||
+ | |||
+ | ; | ||
+ | !byte 254 | ||
+ | !tx "the payday-logo was painted years ago by fabu/ | ||
+ | !tx " | ||
+ | |||
+ | ; | ||
+ | !byte 253 | ||
+ | !tx "the music was done by htd/topaz beerline. " | ||
+ | !tx "and last but not least this incredible charset, which was also done by me." | ||
+ | |||
+ | |||
+ | ; | ||
+ | !byte 252 | ||
+ | !tx " | ||
+ | !byte 251 | ||
+ | !tx "the last time payday was active was in the year 1995." | ||
+ | !tx " we have - more or less periodical - released our discmag popelganda." | ||
+ | |||
+ | ; | ||
+ | !byte 254 | ||
+ | !tx "those who are interested in this mag can download all released issues at www.popelganda.de." | ||
+ | |||
+ | |||
+ | ; | ||
+ | !byte 253 | ||
+ | !tx " | ||
+ | !tx " | ||
+ | !tx " | ||
+ | |||
+ | ; | ||
+ | !byte 252 | ||
+ | !tx "and popelganda will be kicking the scene, hehe... | ||
+ | !tx " | ||
+ | |||
+ | ;endzeichen | ||
+ | !byte 0 | ||
+ | </ |
base/afli-plasma.txt · Last modified: 2015-04-17 04:30 by 127.0.0.1