diff options
Diffstat (limited to 'layout.s')
-rw-r--r-- | layout.s | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/layout.s b/layout.s new file mode 100644 index 0000000..04a768c --- /dev/null +++ b/layout.s @@ -0,0 +1,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 |