Jump to content
tschak909

rainbow fuji logo with sourcecode on github

Recommended Posts

13 hours ago, tschak909 said:

The graphic itself is a standard Micropainter image, that is, 160x192, 2 bits per pixel. The last four bytes of the palette data aren't used, and all the colors, save COLUBK are set to $0E.

 

If someone has a better pic, then fold it in.  :)

 

-Thom

The rainbow looked kind of wrong to me, so I´ve changed your code a bit. In the main loop you now can set the rainbow to appear on on the Logo, the Text or the Background. Or all at once.

Just didn´t change the picture.

 

	;; Atari Logo with rainbow Fuji
	;; Author: Thom Cherryhomes <thom.[email protected].com>
	;; Edited by skr <[email protected].de>

C0	=	$D01A
DL	=	$F4
DH	=	$Ff5	
SDLSTL	=	$0230
SDLSTH	=	$0231
VCOUNT	=	$D40A
	
	ORG	$2200
      
START	
	LDA	SDLSTL
	STA	DL
	LDA	SDLSTH
	STA	DH

	;; SET COLOR REGISTERS
	LDA #$0E	;Color
	STA $02C4	;Set Color for Logo
	STA $02C5	;Set Color for Text
	
	;; SET DISPLAY LIST
	LDA	#$00
	STA	SDLSTL
	LDA	#$29
	STA	SDLSTH
	
LOOP	lda $d40b	;Load VCOUNT 
	clc 
	adc 20 			;Add counter 
	sta VCOUNT
	;sta $d01a		;Rainbow on Background
	sta $d016		;Rainbow on Logo
	sta $d017		;Rainbow on Text
	jmp loop	

	ORG	$2900

DLST
	.BYTE	$70,$70,$70
	.BYTE   $4E,$50,$31
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E
	.BYTE	$4E,$00,$40
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE	$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE	$41,$00,$29
	
	ORG 	$3150	;Load image to this address

	INS	"atari.mic"
	
	RUN	START

 

  • Like 1

Share this post


Link to post
Share on other sites
16 minutes ago, tane said:

atari.hea ?

It's just the definition of all the system variables. You can use the .h file of any g2f picture (created when saved as asm).

Share this post


Link to post
Share on other sites

btw, if you want to scroll the rainbow up, a simple change from dey to iny in DLI has to be done:

	.proc dli
	sta rega
	stx regx
	sty regy

	mva >fnt chbase
	sta wsync
	ldy $14
	ldx #85
lp	sty color1
	sty color2
	sty color0
	sta wsync
	iny			;this was dey for rainbow down
	dex
	bpl lp
	mva #0 color2
	mva #$e color1
	sta wsync
	ldy regy
	ldx regx
	lda rega
	rti
	.endp

  • Like 2

Share this post


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

btw, if you want to scroll the rainbow up, a simple change from dey to iny in DLI has to be done:

	.proc dli
	sta rega
	stx regx
	sty regy

	mva >fnt chbase
	sta wsync
	ldy $14
	ldx #85
lp	sty color1
	sty color2
	sty color0
	sta wsync
	iny			;this was dey for rainbow down
	dex
	bpl lp
	mva #0 color2
	mva #$e color1
	sta wsync
	ldy regy
	ldx regx
	lda rega
	rti
	.endp

 

suggestion- add velocity and have it reverse, going one way and then the other !  :)

Edited by _The Doctor__
  • Like 2

Share this post


Link to post
Share on other sites

Changing direction in Thom´s code works with using SBC instead of ADC.

You can also have both directions at once. I´ve just made Subroutines "SD" (Scroll Down) and "SU" (Scroll Up). Looks like this:

 

	;; Atari Logo with rainbow Fuji
	;; Author: Thom Cherryhomes <thom.[email protected].com>
	;; Edited by skr <[email protected].de>

C0	=	$D01A
DL	=	$F4
DH	=	$Ff5
	
SDLSTL	=	$0230
SDLSTH	=	$0231
VCOUNT	=	$D40A
	
	ORG	$2200

START	
	LDA	SDLSTL
	STA	DL
	LDA	SDLSTH
	STA	DH

	;; SET COLOR REGISTERS

	LDA	#$0E	;Color
	STA	$02C4	;Set Color for Logo
	STA $02C5	;Set Color for Text
	
	;; SET DISPLAY LIST

	LDA	#$00
	STA	SDLSTL
	LDA	#$29
	STA	SDLSTH
	
LOOP
	JSR SD
	sta $d01a		;Rainbow on Background
	JSR SU
	sta $d016		;Rainbow on Logo	
	sta $d017		;Rainbow on Text
	jmp loop	

SD	lda $d40b	;Load VCOUNT 
	clc
	adc 20 			;Add counter sbc scrolls down, adc scrolls up 
	sta VCOUNT
	RTS
	
SU	lda $d40b	;Load VCOUNT 
	clc
	sbc 20 			;Add counter sbc scrolls down, adc scrolls up 
	sta VCOUNT
	RTS	

	ORG	$2900

DLST
	.BYTE	$70,$70,$70
	.BYTE   $4E,$50,$31
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E
	.BYTE	$4E,$00,$40
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE   $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE	$0E,$0E,$0E,$0E,$0E,$0E,$0E
	.BYTE	$41,$00,$29
	
	ORG 	$3150	;Load image to this address

	INS	"atari.mic"
	
	RUN	START

  • Like 1

Share this post


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

suggestion- add velocity and have it reverse, going one way and then the other !  :)

not exactly velocity, but...

new DLI code for that:

	.proc dli
	sta rega
	stx regx
	sty regy

	mva >fnt chbase
	sta wsync
	lda $13
	cmp store
	bne chg
furth	ldy $14
	ldx #85
lp	sty color1
	sty color2
	sty color0
	sta wsync
what	iny
	dex
	bpl lp
	mva #0 color2
	mva #$e color1
	sta wsync
	ldy regy
	ldx regx
	lda rega
	rti
;-------
chg
	lda what
	cmp #$88	;dey?
	bne c_dey
;c_iny
	lda #$c8	;iny
	sta what
	mva $13 store
	jmp furth
c_dey
	lda #$88	;dey
	sta what
	mva $13 store
	jmp furth
	.endp

store is additional .zpvar .byte

rainbow_fuji_up_down.xex

  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites
26 minutes ago, ascrnet said:

I also made my version, since all the ones published here I find with details in the length, shape and font. I also publish the source code in MADS.

myfuji.png.6dd24d33370384f09700620bccb79249.png

Fuji.xex 888 B · 1 download

 

 

Nice logo shape. Perhaps scrolling is too fast (worst in NTSC machines).

Share this post


Link to post
Share on other sites

Thank you all guys, I´ve learned so much (I´m a total noob, srsly).

I very much like @ascrnet´s way using text mode. Have to check out later, how to have two different scroll directions in one line with that.

The last thing I didn´t understand was the "compressed" graphics, but changing the DL to Antic Mode D did the trick, as it uses 2 scanlines. So this is my last video:

  • Like 1

Share this post


Link to post
Share on other sites

See, this is what makes me smile, people jumping in and hacking on stuff. :)

 

-Thom

 

  • Like 1

Share this post


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

See, this is what makes me smile, people jumping in and hacking on stuff. :)

 

-Thom

 

You make me feel like 12 years old again. Wanted to do exactly this stuff then, but no other Atarians around, no literature, no internet etc.
Little Sascha will go to bed with a big smile in his face. :)

  • Like 4
  • Thanks 1

Share this post


Link to post
Share on other sites
6 hours ago, Philsan said:

Nice logo shape. Perhaps scrolling is too fast (worst in NTSC machines).

it's direct so it's super fast 😉

 

thanks to all who have shared their source code, you learn a lot. i share my second improved version with the rainbow in DLI with VBI. is there a way to disable the VBI before exiting the program? 😅

Fuji.xex

  • Thanks 1

Share this post


Link to post
Share on other sites
13 minutes ago, ascrnet said:

it's direct so it's super fast 😉

 

thanks to all who have shared their source code, you learn a lot. i share my second improved version with the rainbow in DLI with VBI. is there a way to disable the VBI before exiting the program? 😅

Fuji.xex 974 B · 0 downloads

Simply include another VBI, that just jumps to xitvbv and set it as VBI before exit or better save original VBI and DL and reset them before exit.

  • Like 1

Share this post


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

it's direct so it's super fast 😉

 

thanks to all who have shared their source code, you learn a lot. i share my second improved version with the rainbow in DLI with VBI. is there a way to disable the VBI before exiting the program? 😅

Fuji.xex 974 B · 1 download

save original VBI and DL and reset before exit.

 

Edited by tschak909

Share this post


Link to post
Share on other sites
38 minutes ago, ascrnet said:

improved version

+ exit also with Start & Trigger.

Share this post


Link to post
Share on other sites
Posted (edited)

Ok, last one by me...

ATARI would have added the registration mark back in the days, so I added it. Rainbow is taller here and you can exit to a warm reset.

 

rainbow_fuji_r_up_down.xex

Source code for all will be added to my github place in a few minutes. Link is in my signature.

Edited by pps
edit: correted wrong .xex
  • Like 5
  • Thanks 2

Share this post


Link to post
Share on other sites
16 hours ago, pps said:

Simply include another VBI, that just jumps to xitvbv and set it as VBI before exit or better save original VBI and DL and reset them before exit.

thanks for the information 👍

16 hours ago, tschak909 said:

save original VBI and DL and reset before exit.

 

thanks for the information 👍

16 hours ago, tane said:

+ exit also with Start & Trigger.

ok

 

now I share my third version 😉

Fuji.xex

Leaving the rainbow in DLI and VBI leaves it compatible for PAL and NTSC I learned.🤩
I also improved the blackout effect of the ATARI word and last but not least, thanks to all of you who made your own versions, we learn a lot from you.

  • Like 4

Share this post


Link to post
Share on other sites
2 hours ago, ascrnet said:

ok

 

now I share my third version

I like that one very much! Looks great on both my PAL and NTSC machines. :)

  • Thanks 1

Share this post


Link to post
Share on other sites
On 4/25/2021 at 6:34 PM, DrVenkman said:

I like that one very much! Looks great on both my PAL and NTSC machines. :)

Thanks for the feedback 👍

 

Now my fourth version with the rainbow down and up. next challenge to put some music....😅

Fuji.xex

  • Like 1

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.

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...