Gordons Projects

--> Projects Top-Level GIT

Initial commit into GIT
[cesil] / tree.csl
1 # Example program
2 #       Note: We have 4 rows of 8 columns and
3 #       Row 0 is the bottom, column 0 is to the left
4
5 # Fire up the tree
6
7         tree
8
9 # 'colour' is a flag to indicate which colour to display
10
11         load    0
12         store   colour
13
14 restart:
15         load    3       # 3 into the Acc
16 loop:
17         store   row-count
18         row
19         jsr     fill-col
20         load    row-count
21         sub     1
22         jineg   done
23         jump    loop
24
25 done:   wait    20
26         load    colour
27         add     1
28         store   colour
29         jump    restart
30
31 fill-col:
32         load    7
33 fill-loop:
34         store   col-count
35         col
36         load    colour
37         colour
38         load    col-count
39         sub     1
40         jineg   fill-done
41         jump    fill-loop
42
43 fillDone:
44         ret