Gordons Projects

--> Projects Top-Level GIT

Initial commit into GIT
[cesil] / row-up.csl
1 # row-up:
2 #       "Float" a row up the tree
3
4         tree
5
6         load    1               # Dark Blue
7         store   colour
8         jsr     treeFill
9         wait    100             # 1 Second (warm up time)
10
11 bigLoop:
12         load    0               # Row 0 to 3
13         store   myRow
14
15 nextRow:
16         load    1               # Silver
17         store   colour
18         jsr     treeFill
19
20         load    12              # Red
21         store   colour
22
23         load    myRow
24         row
25         jsr     fillRow
26         wait    10
27
28         load    myRow
29         add     1
30         store   myRow
31         sub     4
32         jizero  bigLoop
33         jump    nextRow
34
35         halt
36         
37
38 # treeFill:
39 #       Fill the whole tree with colour
40
41 treeFill:
42         load    3       # 4 Rows - 3,2,1 and 0
43 treeFill1:
44         store   rowCount
45         row
46         jsr     fillRow
47
48         load    rowCount
49         sub     1
50         jineg   doneTreeFill
51         jump    treeFill1
52
53 doneTreeFill:
54         ret
55
56 # fillRow
57 #       Fill a whole row with colour
58
59 fillRow:
60         load    7       # 8 Columns 8...0
61 fillRow1:
62         store   colCount
63         col
64         load    colour
65         colour
66         load    colCount
67         sub     1
68         jineg   fillRowDone
69         jump    fillRow1
70
71 fillRowDone:
72         ret
73
74 # fillCol
75 #       Fill a whole column with colour
76
77 fillCol:
78         load    3       # 4 Rows 3...0
79 fillCol1:
80         store   colCount
81         row
82         load    colour
83         colour
84         load    colCount
85         sub     1
86         jineg   fillColDone
87         jump    fillCol1
88
89 fillColDone:
90         ret