Small X-mas demo

Announce (tech) demos or games releases

Moderator: Mask of Destiny

TmEE co.(TM)
Very interested
Posts: 2440
Joined: Tue Dec 05, 2006 1:37 pm
Location: Estonia, Rapla City
Contact:

Small X-mas demo

Post by TmEE co.(TM) » Mon Dec 24, 2007 6:11 pm

Last edited by TmEE co.(TM) on Mon Dec 24, 2007 9:48 pm, edited 1 time in total.
Mida sa loed ? Nagunii aru ei saa ;)
http://www.tmeeco.eu
Files of all broken links and images of mine are found here : http://www.tmeeco.eu/FileDen

Jorge Nuno
Very interested
Posts: 374
Joined: Mon Jun 11, 2007 3:09 am
Location: Azeitão, PT

Post by Jorge Nuno » Mon Dec 24, 2007 9:01 pm

site is down...

ED: ok got it
Last edited by Jorge Nuno on Mon Dec 24, 2007 9:56 pm, edited 1 time in total.

Chilly Willy
Very interested
Posts: 2984
Joined: Fri Aug 17, 2007 9:33 pm

Post by Chilly Willy » Mon Dec 24, 2007 9:47 pm

No, he just typed in the url wrong. It's
http://www.hot.ee/tmeeco/DWNLOADS/XMASDEMO.RAR

TmEE co.(TM)
Very interested
Posts: 2440
Joined: Tue Dec 05, 2006 1:37 pm
Location: Estonia, Rapla City
Contact:

Post by TmEE co.(TM) » Mon Dec 24, 2007 9:48 pm

I just noticed... fixed it...
Mida sa loed ? Nagunii aru ei saa ;)
http://www.tmeeco.eu
Files of all broken links and images of mine are found here : http://www.tmeeco.eu/FileDen

HardWareMan
Very interested
Posts: 745
Joined: Sat Dec 15, 2007 7:49 am
Location: Kazakhstan, Pavlodar

Post by HardWareMan » Tue Dec 25, 2007 7:41 am

TmEE co.(TM) wrote:I just noticed... fixed it...
Check this out. You can use my scroll. :) Here is source:

Code: Select all

ScrollState     equ    $FFE00C         *Free scroll flag
ScrollPos       equ    $FFE00E         *Scroll current position
ScrollString    equ    $FFE012         *Pointer to start scroll string
Screen          equ    $FFF000         *ASCII screen

*Insert this in VBlank Routine
	move.w      ScrollState,d0  *
	addq.w      #1,d0           *
           and.w       #$0003,d0       *
           move.w      d0,ScrollState  *
           bne         SkipScrl        *
	move.l	#$03200002,$C00004	 *Reading form VRAM at 0x8320
           move.w      $c00000,d0      *[d0] - scrolling
           subq.b      #1,d0           *
           and.b       #$07,d0         *
	move.l	#$43200002,$C00004	 *Write to VRAM at 0x8320
           move.w      d0,$c00000      *[d0] - scrolling
           cmp.b       #07,d0          *
           bne         SkipScrl        *
           move.w      $FFFC80,$FFFCFE *
           move.l      #$FFFC7E,d0     *
           move.l      d0,a0           *
           addq.l      #2,d0           *
           move.l      d0,a1           *
           move.w      #40,d0          *
ScrlLn:    move.w      (a1)+,(a0)+     *
           dbra        d0,ScrlLn       *
*Printing #00-terminated string.
ScrlPrnt:  move.l      ScrollPos,d0    *
           move.l      d0,a0           *
           move.b      (a0)+,d0        *
           cmp.b       #0,d0           *
           beq         ScrlEnS         *
           and.w       #$00FF,d0       *
           or.w        #$8000,d0       *
           move.w      d0,$FFFCD0      *
           move.l      a0,d0           *
           move.l      d0,ScrollPos    *
           bra         SkipScrl        *
ScrlEnS:   move.w      #$8020,$FFFCD0  *
           move.l      #ScrollString,d0 *
           move.l      d0,ScrollPos    *
SkipScrl:
*Update ASCII screen every frame with DMA
*But it can be shrinking to scroll only. 32 or 40 words + 1.
        move.w	#$9300,$C00004	*Size low byte => Reg#19
	move.w	#$9407,$C00004		*Size high byte => Reg#20
	move.w	#$9500,$C00004		*String low byte => Reg#21
	move.w	#$96F8,$C00004		*String middle byte => Reg#22
	move.w	#$977F,$C00004		*String high byte => Reg#23
	move.l	#$40000083,$C00004	 *VRAM write with DMA at $C000
*end
*Call this to scroll init (copying string to buffer) (a0)
ScrlInit:  dc.w        $48E7,$FFFE     *MOVEM.L	 D0-D7/A0-A6,-(A7)
           or.w        #$0700,sr       *IRQ off
           move.l      #$FFFC80,d0     *
           move.l      d0,a1           *
           move.l      #41,d0          *
ScrlClr:   move.w      #$8020,(a1)+    *
           dbra        d0,ScrlClr      *
           move.l      #ScrollString,d0 *
           move.l      d0,ScrollPos    *
           move.l      d0,a1           *
ScrlInLp:  move.b      (a0),d0         *
           move.b      (a0)+,(a1)+     *
           cmp.b       #0,d0           *
           bne         ScrlInLp        *
	and.w       #$F8FF,sr		*IRQ on
           dc.w        $4CDF,$7FFF     *MOVEM.L	 (A7)+,D0-D7/A0-A6
           rts                         *
BTW. System independ timer program.

Code: Select all

*VBlank
        subq.w   #1,TimeStamp           *
        cmp.w    #0,TimeStamp           *
        bne      TimeEx                 *
        move.w   #60,d1                 *
        move.w   $A10000,d0             *
        and.b    #$40,d0                *
        cmp.b    #$00,d0                *
        beq      SetPre                 *
        move.w   #50,d1                 *
SetPre: move.w   d1,TimeStamp           *
        addq.b  #1,TimeSec+1            *
        cmp.b   #$3A,TimeSec+1          *
        bne     TimeEx                  *
        move.b  #$30,TimeSec+1          *
        addq.b  #1,TimeSec              *
        cmp.b   #$36,TimeSec            *
        bne     TimeEx                  *
        move.b  #$30,TimeSec            *
        addq.b  #1,TimeMin+1            *
        cmp.b   #$3A,TimeMin+1          *
        bne     TimeEx                  *
        move.b  #$30,TimeMin+1          *
        addq.b  #1,TimeMin              *
        cmp.b   #$36,TimeMin            *
        bne     TimeEx                  *
        move.b  #$30,TimeMin            *
TimeEx: 
TimeStamp - frame counter
TimeSec - 2 bytes time seconds in ASCII
TimeMin - 2 bytes time minutes in ASCII

TmEE co.(TM)
Very interested
Posts: 2440
Joined: Tue Dec 05, 2006 1:37 pm
Location: Estonia, Rapla City
Contact:

Post by TmEE co.(TM) » Tue Dec 25, 2007 12:31 pm

Hehe, nice !!! Thanks for the code, but I'll end up using my own anyway (I don't really like to use other's code in my stuff).

Merry x-mas everyone !!!
Mida sa loed ? Nagunii aru ei saa ;)
http://www.tmeeco.eu
Files of all broken links and images of mine are found here : http://www.tmeeco.eu/FileDen

HardWareMan
Very interested
Posts: 745
Joined: Sat Dec 15, 2007 7:49 am
Location: Kazakhstan, Pavlodar

Post by HardWareMan » Tue Dec 25, 2007 1:13 pm

TmEE co.(TM) wrote:Hehe, nice !!! Thanks for the code, but I'll end up using my own anyway (I don't really like to use other's code in my stuff).
I don't tell you "copy that". Just a sample. Use VDP scroll control and name table.
TmEE co.(TM) wrote:Merry x-mas everyone !!!
You too.

TmEE co.(TM)
Very interested
Posts: 2440
Joined: Tue Dec 05, 2006 1:37 pm
Location: Estonia, Rapla City
Contact:

Post by TmEE co.(TM) » Tue Dec 25, 2007 5:48 pm

The TFM player doesn't work correctly on my MD2 (or MD1s). If you try to play a file, it halts (scroller still works)...

I got a 2GB Kingston microSD card with its USB reader for x-mas, what did you get ?
Mida sa loed ? Nagunii aru ei saa ;)
http://www.tmeeco.eu
Files of all broken links and images of mine are found here : http://www.tmeeco.eu/FileDen

Jorge Nuno
Very interested
Posts: 374
Joined: Mon Jun 11, 2007 3:09 am
Location: Azeitão, PT

Post by Jorge Nuno » Tue Dec 25, 2007 6:17 pm

I just offered myself a LFXP6C-5QN208C (142 ios flash FPGA), a PIC18F2520 and some low power SRAMs for mega-driving purposes... :lol:

Christuserloeser
Very interested
Posts: 145
Joined: Sun Jan 28, 2007 2:01 am
Location: DCEvolution.net
Contact:

Post by Christuserloeser » Tue Dec 25, 2007 6:58 pm

Thanks for this demo. I'll download it when I'm home :D
http://www.DCEvolution.net - Gigabytes of free Dreamcast software for you

Image

TmEE co.(TM)
Very interested
Posts: 2440
Joined: Tue Dec 05, 2006 1:37 pm
Location: Estonia, Rapla City
Contact:

Post by TmEE co.(TM) » Tue Dec 25, 2007 7:03 pm

No problem... it was a last minute thing so there's not much in it.
Mida sa loed ? Nagunii aru ei saa ;)
http://www.tmeeco.eu
Files of all broken links and images of mine are found here : http://www.tmeeco.eu/FileDen

HardWareMan
Very interested
Posts: 745
Joined: Sat Dec 15, 2007 7:49 am
Location: Kazakhstan, Pavlodar

Post by HardWareMan » Wed Dec 26, 2007 4:38 am

TmEE co.(TM) wrote:The TFM player doesn't work correctly on my MD2 (or MD1s). If you try to play a file, it halts (scroller still works)...
My PD-ROMs are always pass trough test on real hardware. So, I guess it's your fault.
TmEE co.(TM) wrote:I got a 2GB Kingston microSD card with its USB reader for x-mas, what did you get ?
I got a 4Gb MMC card, MMC/SD connector, 4MB flash and other parts for my new project for MD. ;) So, I hope it will be finished very soon.

TmEE co.(TM)
Very interested
Posts: 2440
Joined: Tue Dec 05, 2006 1:37 pm
Location: Estonia, Rapla City
Contact:

Post by TmEE co.(TM) » Wed Dec 26, 2007 5:44 pm

The only problem I can think if is my flashcart which is just 2x 16mbit ROMs and a custom EEPROM mapper, no SRAM of any kind...
Mida sa loed ? Nagunii aru ei saa ;)
http://www.tmeeco.eu
Files of all broken links and images of mine are found here : http://www.tmeeco.eu/FileDen

HardWareMan
Very interested
Posts: 745
Joined: Sat Dec 15, 2007 7:49 am
Location: Kazakhstan, Pavlodar

Post by HardWareMan » Thu Dec 27, 2007 9:01 am

TmEE co.(TM) wrote:The only problem I can think if is my flashcart which is just 2x 16mbit ROMs and a custom EEPROM mapper, no SRAM of any kind...
It seems that I have to apologize to you. Indeed, at one NTSC console hangs happening. It turned out wrong expectation of Z80 bus... :shock: Bug fixed, take here: http://tv-games.ru/modules.php?name=Fil ... it&lid=840

Jorge Nuno
Very interested
Posts: 374
Joined: Mon Jun 11, 2007 3:09 am
Location: Azeitão, PT

Post by Jorge Nuno » Thu Dec 27, 2007 12:16 pm

Nice Xmas demo there, TmEE you should have applied some mask or modulo function to the address register, to display the text from the beginning instead of ascii-printable opcodes/data/$hit (like a circular buffer)

Post Reply