15 lines
598 B
Plaintext
15 lines
598 B
Plaintext
program Sum
|
|
// Input: Sequence of non-zero integers, followed by 0000
|
|
// Output: The sum of all the integers.
|
|
// -----------------------------------------------------------------------------
|
|
|
|
// Initialize
|
|
10: 7C00 RC <- 0000 sum = 0
|
|
while (true) {
|
|
11: 8AFF read RA read a
|
|
12: CA15 if (RA == 0) pc <- 15 if (a == 0) break
|
|
13: 1CCA RC <- RC + RA sum = sum + a
|
|
14: C011 pc <- 11 }
|
|
15: 9CFF write RC write sum
|
|
16: 0000 halt
|