aboutsummaryrefslogtreecommitdiff
path: root/examples/alpha.s
blob: 5504310fe0ed7bc3074d791539d81ceb8e9bac31 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SET PUSH, 0x0000
:LABEL0BEGIN_WHILE
IFG 0x001A, PEEK
SET PC, LABEL1ELSE
SET PC, LABEL2END
:LABEL1ELSE
SET B, PEEK
SET A, 0x8000
ADD A, B
SET C, PEEK
SET B, 0x0041
ADD B, C
SET [A], B
SET A, PEEK
ADD A, 0x0001
SET PEEK, A
SET PC, LABEL0BEGIN_WHILE
:LABEL2END
BRK