URL https://opencores.org/ocsvn/rf6809/rf6809/trunk

Subversion Repositories rf6809

[/] [rf6809/] [trunk/] [software/] [boot/] [demo.asm] - Blame information for rev 15

Go to most recent revision | Details | Compare with Previous | View Log


 
OPT include "d:\cores2022\rf6809\software\boot\mon_equates.asm"
OPT include "d:\cores2022\rf6809\software\boot\io_equates.asm"
 
sprite_xpos     EQU             $1000
sprite_ypos     EQU             $1020
sprite_dx               EQU             $1040
sprite_dy               EQU             $1080
 
        org             $FF8000
        lbra    sprite_demo
        lbra    disassem
 
;==============================================================================
; Disassembler
;==============================================================================
 
OPT     include "d:\cores2022\rf6809\software\boot\disassem.asm"
 
;==============================================================================
; Sprite Demo
;==============================================================================
sprite_demo:
        ldb             #1
        tfr             b,dpr
        setdp   1
        ldd             #-1                                             ; show them all
        tfr             d,x
        swi
        fcb             MF_ShowSprites
        ldy             #0
sprite_demo1:
        ; Assign random positions
        swi
        fcb             MF_Random
        andb    #$1FF
        clra
        addd    #200
        std             SPRITE_CTRL+0,y         ; hpos
        tfr             x,d
        andb    #$FF
        clra
        addd    #64
        std             SPRITE_CTRL+1,y         ; vpos
        leay    8,y
        cmpy    #$100
        blo             sprite_demo1
        ; turn on sprite DMA
        ldd             #-1
        std             SPRITE_CTRL+$3D0
        std             SPRITE_CTRL+$3D2
        ldy             #0
sprite_demo2:
        swi
        fcb             MF_Random
        andb    #$15
        subb    #8
        stb             sprite_dx,y
        anda    #15
        suba    #8
        sta             sprite_dx,y
        iny
        cmpy    #32
        blo             sprite_demo2
        ldy             #300000
sprite_demo3:
        dey
        bne             sprite_demo3
        ldx             #0
        ldy             #0
sprite_demo4:
        lda             SPRITE_CTRL+0,x
        adda    sprite_dx,y
        sta             SPRITE_CTRL+0,x
        lda             SPRITE_CTRL+1,x
        adda    sprite_dy,y
        sta             SPRITE_CTRL+1,x
        leax    8,x
        iny
        cmpy    #32
        blo             sprite_demo4
        clra
        clrb
        swi
        fcb             MF_INCH
        cmpb    #CTRLC
        bne             sprite_demo3
        ldd             #0
        tfr             d,x
        swi
        fcb             MF_ShowSprites
sprite_demo5:
        swi
        fcb             MF_Monitor
        bra             sprite_demo5

Line No.	Rev	Author	Line
1	15	robfinch
2			`OPT include "d:\cores2022\rf6809\software\boot\mon_equates.asm"`
3			`OPT include "d:\cores2022\rf6809\software\boot\io_equates.asm"`
4
5			`sprite_xpos EQU $1000`
6			`sprite_ypos EQU $1020`
7			`sprite_dx EQU $1040`
8			`sprite_dy EQU $1080`
9
10			`org $FF8000`
11			`lbra sprite_demo`
12			`lbra disassem`
13
14			`;==============================================================================`
15			`; Disassembler`
16			`;==============================================================================`
17
18			`OPT include "d:\cores2022\rf6809\software\boot\disassem.asm"`
19
20			`;==============================================================================`
21			`; Sprite Demo`
22			`;==============================================================================`
23			`sprite_demo:`
24			`ldb #1`
25			`tfr b,dpr`
26			`setdp 1`
27			`ldd #-1 ; show them all`
28			`tfr d,x`
29			`swi`
30			`fcb MF_ShowSprites`
31			`ldy #0`
32			`sprite_demo1:`
33			`; Assign random positions`
34			`swi`
35			`fcb MF_Random`
36			`andb #$1FF`
37			`clra`
38			`addd #200`
39			`std SPRITE_CTRL+0,y ; hpos`
40			`tfr x,d`
41			`andb #$FF`
42			`clra`
43			`addd #64`
44			`std SPRITE_CTRL+1,y ; vpos`
45			`leay 8,y`
46			`cmpy #$100`
47			`blo sprite_demo1`
48			`; turn on sprite DMA`
49			`ldd #-1`
50			`std SPRITE_CTRL+$3D0`
51			`std SPRITE_CTRL+$3D2`
52			`ldy #0`
53			`sprite_demo2:`
54			`swi`
55			`fcb MF_Random`
56			`andb #$15`
57			`subb #8`
58			`stb sprite_dx,y`
59			`anda #15`
60			`suba #8`
61			`sta sprite_dx,y`
62			`iny`
63			`cmpy #32`
64			`blo sprite_demo2`
65			`ldy #300000`
66			`sprite_demo3:`
67			`dey`
68			`bne sprite_demo3`
69			`ldx #0`
70			`ldy #0`
71			`sprite_demo4:`
72			`lda SPRITE_CTRL+0,x`
73			`adda sprite_dx,y`
74			`sta SPRITE_CTRL+0,x`
75			`lda SPRITE_CTRL+1,x`
76			`adda sprite_dy,y`
77			`sta SPRITE_CTRL+1,x`
78			`leax 8,x`
79			`iny`
80			`cmpy #32`
81			`blo sprite_demo4`
82			`clra`
83			`clrb`
84			`swi`
85			`fcb MF_INCH`
86			`cmpb #CTRLC`
87			`bne sprite_demo3`
88			`ldd #0`
89			`tfr d,x`
90			`swi`
91			`fcb MF_ShowSprites`
92			`sprite_demo5:`
93			`swi`
94			`fcb MF_Monitor`
95			`bra sprite_demo5`

Browse

Tools

Subversion Repositories rf6809

[/] [rf6809/] [trunk/] [software/] [boot/] [demo.asm] - Blame information for rev 15