30 lines
446 B
Text
30 lines
446 B
Text
start: LDA load
|
|
ADD car ; head of list
|
|
STA ldcar
|
|
|
|
ADD one
|
|
STA ldcdr
|
|
|
|
ldcar: NOP
|
|
STA value
|
|
|
|
ldcdr: NOP
|
|
BRZ done ; 0 == NIL
|
|
STA car
|
|
|
|
JMP start
|
|
|
|
done: LDA value
|
|
STP
|
|
|
|
load: LDA 0
|
|
value: 0
|
|
car: 28 ; head of list
|
|
one: 1
|
|
|
|
20,21: 6, 0
|
|
22,23: 2, 26
|
|
24,25: 5, 20
|
|
26,27: 3, 30
|
|
28,29: 1, 22
|
|
30,31: 4, 24
|