blob: 04a768c73dfaccc6cc8ca81f42e18b9ef755437a (
plain)
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
^- stack
1000:
init
2000:
read
3000:
eval
4000:
print
4400:
cons
4500:
assoc
4600:
eq
5000:
atom "NIL\0"
005000 005003
005002 044516 ; "NI"
005004 000114 ; "L\0"
atom "T\0"
005006 005011
005010 000124 ; "T\0"
atom "F\0"
005012 005015
005014 000106 ; "F\0"
atom "QUOTE\0"
005016 005021
005020 052521 ; "QU"
005022 052117 ; "OT"
005024 000105 ; "E\0"
atom "ATOM\0"
005026 005031
005030 052101 ; "AT"
005032 046517 ; "OM"
005034 000000 ; "\0"
atom "EQ\0"
005036 005041
005040 050505 ; "EQ"
005042 000000 ; "\0"
atom "COND\0"
005044 005047
005046 047503 ; "CO"
005050 042116 ; "ND"
005052 000000 ; "\0"
atom "CAR\0"
005054 005057
005056 040503 ; "CA"
005060 000122 ; "R\0"
atom "CDR\0"
005062 005065
005064 042103 ; "CD"
005066 000122 ; "R\0"
atom "CONS\0"
005070 005073
005072 047503 ; "CO"
005074 051516 ; "NS"
005076 000000 ; "\0"
atom "LABEL\0"
005100 005103
005102 040514 ; "LA"
005104 042502 ; "BE"
005106 000114 ; "L\0"
atom "LAMBDA\0"
005110 005113
005112 040514 ; "LA"
005114 041115 ; "MB"
005116 040504 ; "DA"
005120 000000 ; "\0"
atom "DEFINE\0"
005122 005125
005124 042504 ; "DE"
005126 044506 ; "FI"
005130 042516 ; "NE"
005132 000000 ; "\0"
5400:
copy
5600:
big_cons
6000:
symbol table
7000:
print buffer
10000:
little_heap
010000 010002 ; free pointer
11000:
big_heap
011000 011002 ; free pointer
|
