47
|
1
|
|
2 ;set both data banks to VRAM
|
|
3 ldim $E1, db
|
|
4 ldimh $E0, db
|
|
5
|
|
6 ;setup palette
|
|
7 ldim 2, r0
|
|
8 outi $E, r0
|
|
9 ldim 0, r0
|
|
10 outi $E, r0
|
|
11 ldimh $F, r0
|
|
12 outi $E, r0
|
|
13
|
|
14 ;pointer to VRAM
|
|
15 ldim 0, r0
|
|
16
|
|
17 ;black
|
|
18 ldim 0, r1
|
|
19
|
|
20 ;4 pixels of red
|
|
21 ldim $11, r2
|
|
22 ldimh $11, r2
|
|
23
|
|
24 ;outer loop counter
|
|
25 ldim 8, r4
|
|
26
|
|
27 ;framebuffer offset
|
|
28 ldim 0, r5
|
|
29 outer:
|
|
30 ;loop counter to do one row of pattern
|
|
31 ldim $A0, r3
|
|
32 ldimh 0, r3
|
|
33
|
|
34 blackred:
|
|
35 str16 r0, r5, r1
|
|
36 addi 2, r5
|
|
37 str16 r0, r5, r1
|
|
38 addi 2, r5
|
|
39 str16 r0, r5, r1
|
|
40 addi 2, r5
|
|
41 str16 r0, r5, r1
|
|
42 addi 2, r5
|
|
43 str16 r0, r5, r2
|
|
44 addi 2, r5
|
|
45 str16 r0, r5, r2
|
|
46 addi 2, r5
|
|
47 str16 r0, r5, r2
|
|
48 addi 2, r5
|
|
49 str16 r0, r5, r2
|
|
50 addi 2, r5
|
|
51
|
|
52 addi -1, r3
|
|
53 bne blackred
|
|
54
|
|
55
|
|
56 ldim $A0, r3
|
|
57 ldimh 0, r3
|
|
58 redblack:
|
|
59 str16 r0, r5, r2
|
|
60 addi 2, r5
|
|
61 str16 r0, r5, r2
|
|
62 addi 2, r5
|
|
63 str16 r0, r5, r2
|
|
64 addi 2, r5
|
|
65 str16 r0, r5, r2
|
|
66 addi 2, r5
|
|
67 str16 r0, r5, r1
|
|
68 addi 2, r5
|
|
69 str16 r0, r5, r1
|
|
70 addi 2, r5
|
|
71 str16 r0, r5, r1
|
|
72 addi 2, r5
|
|
73 str16 r0, r5, r1
|
|
74 addi 2, r5
|
|
75
|
|
76 addi -1, r3
|
|
77 bne redblack
|
|
78
|
|
79 addi -1, r4
|
|
80 bne outer
|
|
81
|
|
82 ldim 1, r4
|
|
83 ldimh $80, r4
|
|
84 outi $D, r4
|
|
85
|
|
86 forever:
|
|
87 bra forever |