1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
/ vim: set sw=8 noexpandtab :
*200
START, CLA
TAD SMC
DCA SAVED
LOOP, ISZ SMC
SMC, JMP VEC
SAVED, 0
VEC, 0
JMP FOO
JMP BAR
JMP RESET
FOO, CLA
TAD FOOSTR
JMS PUTS
JMP LOOP
BAR, CLA
TAD BARSTR
JMS PUTS
JMP LOOP
RESET, CLA
TAD SAVED
DCA SMC
JMP LOOP
PUTS, 0
DCA 10
PUTSL, CLA
TAD I 10
SNA
JMP PUTSX
JMS PUTC
JMP PUTSL
PUTSX, JMP I PUTS
PUTC, 0
TLS
TSF
JMP .-1
JMP I PUTC
FOOSTR, .
"F
"o
"o
15
12
0
BARSTR, .
"B
"a
"r
15
12
0
$
|
