Jump to content
Heaven/TQA

#standwithukraine intro

Recommended Posts


as demo sceners we always want that general public sees our coding as art... and art in terms of graphics, music and style... and sometimes art has to be political...
so... here is my #standwithukriane Atari intro I have coded in just few hours to get those feelings inside out...
music was composed by Maze thanks!
As usual... my personal political demos are not published under Desire...


Heaven

PS: if Albert wants to remove it... fair enough...

standwithukraine_packed.zip

  • Like 32
  • Thanks 9

Share this post


Link to post
Share on other sites
* Ukr Intro

        org player

stereomode=0


        icl "rmtplayr.a65"

init:   
        lda #0
        ldx #<$8000
        ldy #>$8000
        jsr rastermusictracker

        lda 20 ;waiting for VBL
@       cmp 20
        beq @-
        lda #<dlist
        sta $230
        lda #>dlist
        sta $231
 
        jsr pm_init
        lda #0
        sta 559

        lda #$ff
        sta 708

        lda #7
        ldx #>vbl
        ldy #<vbl
        jsr $e45c ;setvbl

loop    lda $d40b
        bne loop
        lda #$86
        sta $d40a
        sta $d018
        sta $d01a

rasterpos        ldx #1
;kernel racing the beam
@       sta $d40a
        dex
        bne @-

        lda #$ff
        sta $d40a
        sta $d018
        sta $d01a
@
        jsr rastermusictracker+3

        jmp loop

pm_init:
        ldx #0
        txa
        sta $a300,x
@       sta $a400,x
        sta $a500,x
        sta $a600,x
        sta $a700,x
        inx
        bne @-
        ldx #$10
@
        sta $d000,x
        dex
        bpl @-
        lda #$a0
        sta $d407
        lda #3 
        sta 53277

        lda #15
        sta 704
        sta 705
        sta 706
        sta 707
        lda #1
        sta 623
        rts

set_dove:
;input x which sprite
        lda spritetab_xhi,x
        sta $d000,x
        ldy spriteanim,x
        lda spritedata_lo,y
        sta $b0
        lda spritedata_hi,y
        sta $b1
        txa
        clc
        adc #$a4 ;pm base
        sta $b3
        lda spritetab_yhi,x
        sta $b2

        lda spritetab_xlo,x
        clc
        adc spritetab_deltaxlo,x
        sta spritetab_xlo,x
        lda spritetab_xhi,x
        adc spritetab_deltaxhi,x
        sta spritetab_xhi,x

        lda spritetab_ylo,x
        sec
        sbc spritetab_deltaylo,x
        sta spritetab_ylo,x
        lda spritetab_yhi,x
        sbc spritetab_deltayhi,x
        sta spritetab_yhi,x

        dec animspeed,x
        bne @+
        lda animspeed_reset,x
        sta animspeed,x
 
        inc spriteanim,x
        lda spriteanim,x
        cmp #10
        bcc @+
        lda #0
        sta spriteanim,x
@
;copy anim frame
        ldy #0
@
        lda ($b0),y
        sta ($b2),y
        iny
        cpy #16
        bne @-
        lda #0
        sta ($b2),y
        iny
        sta ($b2),y
        iny
        sta ($b2),y
        iny
        sta ($b2),y
@

;now check if repositioning is needed
        ldx #3
@
        lda spritetab_yhi,x
        cmp #16
        bcc sprite_erase

        lda spritetab_xhi,x
        cmp #248
        bcc @+2
sprite_erase:
;erase old data
        lda #0
        ldy #15
@
        sta ($b2),y
        dey
        bpl @-

        lda #0
        sta spritetab_xhi,x
        lda 53370
        sta spritetab_deltaxlo,x
        lda #2
        ldy 53770
        bpl @+
        lda #1
@
        sta spritetab_deltaxhi,x
        lda 53370
        ora #$80
        sta spritetab_deltaylo,x
        lda #0
        sta spritetab_deltayhi,x
        lda 53770
        and #15
        clc
        adc #160
        sta spritetab_yhi,x
@
        dex
        bpl @-3

        rts


vbl:    
        lda p_song
        sta $600

        jsr rastermusictracker+3

        lda rasterpos+1
        bmi @+
        inc rasterpos+1
@

        lda #62-34
        sta 559
        lda $600
        cmp #$84
        bcc @+
        lda #62
        sta 559
        ldx #0
        jsr set_dove
        ldx #1
        jsr set_dove
        ldx #2
        jsr set_dove
        ldx #3
        jsr set_dove
        lda #$34
        sta 708
@
        jmp $e462

        org $5010
bitmap  ins "taube.mic",0,204*40
        org $7010
bitmap2 ins "taube.mic",204*40


    .align $400
dlist
    .byte $4f,<bitmap,>bitmap
.rept 101
    .byte $0f
.endr
    .byte $4f,<(bitmap+102*40),>(bitmap+102*40)
.rept 101
    .byte $0f
.endr
    .byte $4f,<(bitmap2),>(bitmap2)
.rept 33-15
    .byte $0f
.endr
    .byte $47
lms .word text
    .byte $41,<dlist,>dlist

    .align $100
text .byte d"  #STANDWITHUKRAINE     "

    .align $100
dove_sprites: ins "dove.dat"

    .align $100
spritedata_lo:
.rept 16
    .byte <[dove_sprites+#*16+32]
.endr
spritedata_hi:
.rept 16
    .byte >[dove_sprites+#*16+32]
.endr

spritetab_xlo:
        .byte 0,0,0,0
spritetab_xhi:
        .byte 4,12,8,0
spritetab_ylo:
        .byte 0,0,0,0
spritetab_yhi:
        .byte 200,190,140,170
spritetab_deltaxlo:
        .byte $80,$40,0,0
spritetab_deltaxhi:
        .byte $00,$01,$02,$01
spritetab_deltaylo:
        .byte $40,$80,$70,$20
spritetab_deltayhi:
        .byte $00,$00,$00,$00

spriteanim:
        .byte 0,3,2,4
animspeed:
        .byte 8,2,2,2
animspeed_reset:
        .byte 8,2,2,2

        org $8000
        ins "maze_ukr2_8000.rmt",6

    org $2e0
    .word init

 

  • Like 4
  • Thanks 1

Share this post


Link to post
Share on other sites

What a wonderful way to show some love for our friends, some no longer with us. Thank you for a tasteful visual hope for peace.

  • Like 1

Share this post


Link to post
Share on other sites

My best friends from the amazing Color Music Children's choir are from Dnipro, Ukraine. They left the country, but had to leave the husband and dad from the family in Ukraine. 

thanks for this beautiful tribute. It means a lot to them, and to me. 
 

 

  • Like 4

Share this post


Link to post
Share on other sites

Great demo and an even better message - could not agree more and hope this is resolved as soon as possible!

  • Like 4

Share this post


Link to post
Share on other sites
Posted (edited)

Another way to break censorship: Spreading the truth via 6502 binaries around the world. 

 

Good stuff Karolj!

Edited by twh/f2
  • Like 3

Share this post


Link to post
Share on other sites

Sorry for derailing this thread but when seeing the doves in this demo I wish there were a patched version of the Summer Games intro where the dove player missiles are corrected.

Share this post


Link to post
Share on other sites
1 hour ago, patjomki said:

Sorry for derailing this thread but when seeing the doves in this demo I wish there were a patched version of the Summer Games intro where the dove player missiles are corrected.

What do you mean? You mean the ones moving into others at the top? Because I ripped the sprites there 199x and used them in my Carpe demo… from where I ripped them now for this…

Share this post


Link to post
Share on other sites

I think he just means that he wants a Summer Games with the sprites fixed..

Share this post


Link to post
Share on other sites
3 minutes ago, Mclaneinc said:

I think he just means that he wants a Summer Games with the sprites fixed..

Yeah I think those strange copy paste bugs yeah… btw had a look on all versions (8bit) of Summer Games and all of them look odd… even the c64 one…

 

1984 good old days when West against East… anything changed? 

Share this post


Link to post
Share on other sites

 

Back then, If it was animated then that was enough :)

 

And yes, it seems no change... Truly sad..

Share this post


Link to post
Share on other sites
Posted (edited)
16 minutes ago, Heaven/TQA said:

What do you mean? You mean the ones moving into others at the top?

 

Yes, that's what I meant.

 

Here's a link to a youtube video where you can see it right at the beginning.

(0:20-0:23)

 

Edited by patjomki

Share this post


Link to post
Share on other sites
12 minutes ago, patjomki said:

 

Yes, that's what I meant.

 

Here's a link to a youtube video where you can see it right at the beginning.

(0:20-0:23)

 

The question is if it is visible on 80s TV sets (border?)

Share this post


Link to post
Share on other sites

Yes, it is.

 

I was playing it back in the days on an old Grundig TV and I recognized it there for the very first time (still have the original from Epyx).

Share this post


Link to post
Share on other sites

I think it's a great demo.  I'm sure events touch us all in different ways.  I live in the U.S. but I own a home in Kremenchuk, Ukraine.  Obviously I have family and economic ties to the country.  My wife and daughter are Ukrainian and anyway, frankly I don't want to run afoul of the rules here. 

 

ah frankly I've been talking on this subject non-stop and yet somehow also don't know what to say....it's just so tragic.

  • Like 1

Share this post


Link to post
Share on other sites
On 3/10/2022 at 3:06 PM, Heaven/TQA said:

here is my #standwithukriane Atari intro I have coded in just few hours to get those feelings inside out...

 

Hey, if you don't mind me doing a little of the same...

 

the truth is, when I'm at AtariAge, I talk about that pre-teen boy that owned an Atari 400 and had visions of changing the world with computers.

And certainly that is part of who I am today.

 

But that hasn't been my whole life, there was also that young man that lived in Kyiv that fell in love and married a Ukrainian woman and adopted her infant daughter.

 

And there is Olga, my wife's mother who lived with us for years, and was an everyday part of our life, and is now trapped in Ukraine

 

And the truth is, I know I"m in America,  i'm not facing this....Olga faces it, not me.    And my sister-in-law, and my brother-in-law who now fights for Ukraine, they face it.     

 

But yes, I see that I'm not alone in, you know, being upset over it.  I just am, sad and at times boiling angry

 

  • Sad 1

Share this post


Link to post
Share on other sites
Posted (edited)
33 minutes ago, Mark2008 said:

 

Hey, if you don't mind me doing a little of the same...

 

the truth is, when I'm at AtariAge, I talk about that pre-teen boy that owned an Atari 400 and had visions of changing the world with computers.

And certainly that is part of who I am today.

 

But that hasn't been my whole life, there was also that young man that lived in Kyiv that fell in love and married a Ukrainian woman and adopted her infant daughter.

 

And there is Olga, my wife's mother who lived with us for years, and was an everyday part of our life, and is now trapped in Ukraine

 

And the truth is, I know I"m in America,  i'm not facing this....Olga faces it, not me.    And my sister-in-law, and my brother-in-law who now fights for Ukraine, they face it.     

 

But yes, I see that I'm not alone in, you know, being upset over it.  I just am, sad and at times boiling angry

 

Well I have many ties family wise to Ukraine… cousins of my son being 18 years old just in time at military services before the shit hit the fan… he is now in Kiev… my sons uncle even retired from military went back to defend… relatives went to Hungary and Slovakia… son’s grand parents staid… as they don’t want to leave their houses… are too slow running into bunkers when air raid Trainings etc etc… (luckily they are all based to the Hungarian border south west)…

 

it hits you more when you have a kind of connection… 

 

what is more weird 2022 all those military terms we now know and here right few hundred km away from EU… not in Afghanistan, Syria or Mali…

Edited by Heaven/TQA
  • Like 1

Share this post


Link to post
Share on other sites
Posted (edited)

I'm so sorry for folks that have connections to this insane war, I can only imagine how I would feel, and it's not good. Yet again, a group of people dictate what is not the wish of the actual people in Russia, most are totally against this war.

 

I can only hope that you folks with loved one's in Ukraine can either get them out or they remain safe..

 

Our thoughts are with you and everyone over there..

 

Sorry to mods or admin if my post is deemed wrong, I don't want to discuss politics, just wanted to pass on sympathy and care..

Edited by Mclaneinc
  • Like 4

Share this post


Link to post
Share on other sites
17 hours ago, Mark2008 said:

 

Hey, if you don't mind me doing a little of the same...

 

the truth is, when I'm at AtariAge, I talk about that pre-teen boy that owned an Atari 400 and had visions of changing the world with computers.

And certainly that is part of who I am today.

 

But that hasn't been my whole life, there was also that young man that lived in Kyiv that fell in love and married a Ukrainian woman and adopted her infant daughter.

 

And there is Olga, my wife's mother who lived with us for years, and was an everyday part of our life, and is now trapped in Ukraine

 

And the truth is, I know I"m in America,  i'm not facing this....Olga faces it, not me.    And my sister-in-law, and my brother-in-law who now fights for Ukraine, they face it.     

 

But yes, I see that I'm not alone in, you know, being upset over it.  I just am, sad and at times boiling angry

 

Hang in there.  Even those of us with no personal ties are feeling the same sadness.  No innocent person needs to suffer this for no fault of their own.  I am as far removed from this as can be, and am deeply saddened by it.

  • Like 3

Share this post


Link to post
Share on other sites

We will probably welcome Ukrainian people in our home. They are very kind and grateful people. I do not want them to go to a special refugee camp. I would like to know them better, and support them. So I let them stay in my home. We will live together for a few months. It's the least I can do. I will show them the demo you created. I am sure they will be amazed that such an old piece of computer technology will play a demo in favor of their country. 

This demo means a lot to me, and I am sure it will mean even more to them. 

 

Thanks again!

  • Like 11

Share this post


Link to post
Share on other sites

I'm sure it's not lost on anyone that Putin says he's removing Nazi's in Ukraine by actually duplicating the same actions the Nazi's did, I so wish the Russian people could see what is actually happening. Let's hope these people can escape or win against huge odds. The demo was a brilliant way of peacefully supporting these poor folk. And let's praise the Polish people for stepping up and helping these people, and for all the other nations looking to help.

 

That's it, I've said enough already, but I think the world needs to say so much more..

  • Like 4

Share this post


Link to post
Share on other sites
On 3/12/2022 at 12:59 AM, Mark2008 said:

 

Hey, if you don't mind me doing a little of the same...

 

the truth is, when I'm at AtariAge, I talk about that pre-teen boy that owned an Atari 400 and had visions of changing the world with computers.

And certainly that is part of who I am today.

 

But that hasn't been my whole life, there was also that young man that lived in Kyiv that fell in love and married a Ukrainian woman and adopted her infant daughter.

 

And there is Olga, my wife's mother who lived with us for years, and was an everyday part of our life, and is now trapped in Ukraine

 

And the truth is, I know I"m in America,  i'm not facing this....Olga faces it, not me.    And my sister-in-law, and my brother-in-law who now fights for Ukraine, they face it.     

 

But yes, I see that I'm not alone in, you know, being upset over it.  I just am, sad and at times boiling angry

 

I can barely imagine what it must be like ... all I can say is I hope things work out for the best and this gets resolved peacefully.  :(

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...