Mercurial > repo
diff interps/clc-intercal/CLC-INTERCAL-Base-1.-94.-2/INTERCAL/Include/sick.iacc @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/interps/clc-intercal/CLC-INTERCAL-Base-1.-94.-2/INTERCAL/Include/sick.iacc Sun Dec 09 19:30:08 2012 +0000 @@ -0,0 +1,570 @@ +PLEASE NOTE: IACC FILE TO GENERATE A COMPILER FOR CLC-INTERCAL + +Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved. + +CLC-INTERCAL is copyrighted software. However, permission to use, modify, +and distribute it is granted provided that the conditions set out in the +licence agreement are met. See files README and COPYING in the distribution. + +PERVERSION "CLC-INTERCAL INTERCAL/Include/sick.iacc 1.-94.-2" + + DO %BA <- #2 + DO %RT <- ?CLC + DO %WT <- #0 + DO %IO <- ?CLC + DO %CR <- ?ASCII + DO %CW <- ?ASCII + DO %CF <- #0 + DO %DM <- #0 + DO %RM <- #1 + DO ?TYPE <- ?COMPILER + DO CREATE _2 ?PROGRAM ?STATEMENT AS ?STATEMENT #1 + DO CREATE _2 ?CALC_EXPR ?EXPRESSION AS STS + * + ROU + #1 + + ?EXPRESSION #1 + DO CREATE _2 ?CALC_EXPR ?CALCULATION AS STS + * + ?CALCULATION + #1 + DO CREATE _2 ?CALC_FULL ?EXPRESSION AS STS + * + ROU + #1 + + ?EXPRESSION #1 + DO CREATE _2 ?CALC_FULL ?STATEMENT AS ?STATEMENT #1 + DO CREATE _2 ?END_JUNK ?STMT_LABEL AS ,, + DO CREATE _2 ?END_JUNK ?DO_PLEASE AS ,, + DO CREATE _2 ?STATEMENT ?MAYBE_STMT_LABEL ?DO_PLEASE + ?QUALIFIERS ?WVERB AS STS + * + ?MAYBE_STMT_LABEL #1 + + ?QUALIFIERS #1 + ?WVERB #1 + DO CREATE _2 ?STMT_LABEL ,#40, ?CONSTANT ,#41, AS ?CONSTANT #1 + DO CREATE _2 ?MAYBE_STMT_LABEL ,, AS ,, + DO CREATE _2 ?MAYBE_STMT_LABEL ?STMT_LABEL AS LAB + ?STMT_LABEL + #1 + DO CREATE _2 ?DO_PLEASE ,DO, AS ,, + DO CREATE _2 ?DO_PLEASE ,PLEASE, AS ,, + DO CREATE _2 ?DO_PLEASE ,PLEASE, ,DO, AS ,, + DO CREATE _2 ?QUALIFIERS ,, AS ,, + DO CREATE _2 ?QUALIFIERS ?DOUBLE_OH_SEVEN ?QUALIFIERS AS + ?DOUBLE_OH_SEVEN #1 + ?QUALIFIERS #1 + DO CREATE _2 ?QUALIFIERS ?NOT ?QUALIFIERS AS ?NOT #1 + + ?QUALIFIERS #1 + DO CREATE _2 ?DOUBLE_OH_SEVEN ,#37, ?CONSTANT AS DSX + + ?CONSTANT #1 + DO CREATE _2 ?DOUBLE_OH_SEVEN ,#37, ?EXPRESSION AS DSX + + ?EXPRESSION #1 + DO CREATE _2 ?NOT ,NOT, AS NOT + DO CREATE _2 ?NOT ,N, ,#39, ,T, AS NOT + DO CREATE _2 ?NOT ,#172, AS NOT + DO CREATE _2 ?WVERB ?NOT ?JUNK AS NOT + MSP + #0 + #1 + ?JUNK + #1 + DO CREATE _2 ?WVERB ?VERB ?MAYBE_WHILE AS ?MAYBE_WHILE #1 + + ?VERB #1 + DO CREATE _2 ?WVERB ?EXPRESSION ,WHILE, ?VERB AS ECB + + ?EXPRESSION #1 + ?VERB #1 + DO CREATE _2 ?MAYBE_WHILE ,, AS ,, + DO CREATE _2 ?MAYBE_WHILE ,WHILE, ?VERB AS CWB + ?VERB #1 + DO CREATE _2 ?MAYBE_WHILE ,WHILE, ?EXPRESSION AS EBC + + ?EXPRESSION #1 + DO CREATE _2 ?TEMPLATE ,CONDITION, ,WHILE, ,BODY, AS CWB + DO CREATE _2 ?TEMPLATE ,BODY, ,WHILE, ,CONDITION, AS BWC + DO CREATE _2 ?TEMPLATE ,EXPRESSION, ,WHILE, ,STATEMENT, AS ECB + DO CREATE _2 ?TEMPLATE ,STATEMENT, ,WHILE, ,EXPRESSION, AS EBC + DO CREATE _2 ?GERUND ,LOOPING,=4 AS CWB + BWC + ECB + EBC + DO CREATE _2 ?GERUND ,WHILING,=4 AS CWB + BWC + ECB + EBC + DO CREATE _2 ?GERUND ,COMMENTING,=1 AS MSP + DO CREATE _2 ?GERUND ,COMMENTS,=1 AS MSP + DO CREATE _2 ?GERUND ,COMPILER, ,BUG,=1 AS BUG + DO CREATE _2 ?GERUND ,QUANTUM, ,COMPUTING,=1 AS QUA + DO CREATE _2 ?CALCULATION ?EXPRESSION ,#60, ,#45, ?EXPR_OR_DIM + ?Q_CALCULATE AS ?Q_CALCULATE #1 + STO + ?EXPR_OR_DIM #1 + + ?EXPRESSION #1 + DO CREATE _2 ?VERB ?CALCULATION AS ?CALCULATION #1 + DO CREATE _2 ?GERUND ,CALCULATING,=1 AS STO + DO CREATE _2 ?TEMPLATE ?REG_EXPR ,#60, ,#45, ,EXPRESSION, + ?MAYBE_LIST AS STO + DO CREATE _2 ?Q_CALCULATE ,, AS ,, + DO CREATE _2 ?Q_CALCULATE ,WHILE, ,NOT, ,ASSIGNING, ,TO, ,IT, + AS QUA + DO CREATE _2 ?VERB ,STASH, ?NAMES ?Q_STASH AS ?Q_STASH #1 + STA + + !NAMES #1 + ?NAMES #1 + DO CREATE _2 ?GERUND ,STASHING,=1 AS STA + DO CREATE _2 ?TEMPLATE ,STASH, ,REGISTER, ?MAYBE_LIST AS STA + DO CREATE _2 ?Q_STASH ,, AS ,, + DO CREATE _2 ?Q_STASH ,WHILE, ,NOT, ,STASHING, ?IT AS QUA + DO CREATE _2 ?VERB ,RETRIEVE, ?NAMES ?Q_RETRIEVE AS ?Q_RETRIEVE + #1 + RET + !NAMES #1 + ?NAMES #1 + DO CREATE _2 ?GERUND ,RETRIEVING,=1 AS RET + DO CREATE _2 ?TEMPLATE ,RETRIEVE, ,REGISTER, ?MAYBE_LIST AS RET + DO CREATE _2 ?Q_RETRIEVE ,, AS ,, + DO CREATE _2 ?Q_RETRIEVE ,WHILE, ,NOT, ,RETRIEVING, ?IT AS QUA + DO CREATE _2 ?VERB ,IGNORE, ?NAMES ?Q_IGNORE AS ?Q_IGNORE #1 + + IGN + !NAMES #1 + ?NAMES #1 + DO CREATE _2 ?GERUND ,IGNORING,=1 AS IGN + DO CREATE _2 ?TEMPLATE ,IGNORE, ,REGISTER, ?MAYBE_LIST AS IGN + DO CREATE _2 ?Q_IGNORE ,, AS ,, + DO CREATE _2 ?Q_IGNORE ,WHILE, ,REMEMBERING, ?IT AS QUA + DO CREATE _2 ?VERB ,REMEMBER, ?NAMES ?Q_REMEMBER AS ?Q_REMEMBER + #1 + REM + !NAMES #1 + ?NAMES #1 + DO CREATE _2 ?GERUND ,REMEMBERING,=1 AS REM + DO CREATE _2 ?TEMPLATE ,REMEMBER, ,REGISTER, ?MAYBE_LIST AS REM + DO CREATE _2 ?Q_REMEMBER ,, AS ,, + DO CREATE _2 ?Q_REMEMBER ,WHILE, ,IGNORING, ?IT AS QUA + DO CREATE _2 ?VERB ,ABSTAIN, ,FROM, ?ABSTAIN ?Q_ABSTAIN AS + ?Q_ABSTAIN #1 + ?ABSTAIN #1 + DO CREATE _2 ?ABSTAIN ?LABEL AS ABL + ?LABEL #1 + DO CREATE _2 ?ABSTAIN ?GERUNDS AS ABG + !GERUNDS #1 + ?GERUNDS + #1 + DO CREATE _2 ?GERUND ,ABSTAINING,=2 ,FROM, AS ABL + ABG + DO CREATE _2 ?GERUND ,ABSTAINING,=2 AS ABL + ABG + DO CREATE _2 ?TEMPLATE ,ABSTAIN, ,FROM, ,LABEL, AS ABL + DO CREATE _2 ?TEMPLATE ,ABSTAIN, ,FROM, ,GERUND, ?MAYBE_LIST AS + ABG + DO CREATE _2 ?Q_ABSTAIN ,, AS ,, + DO CREATE _2 ?Q_ABSTAIN ,WHILE, ,REINSTATING, ?IT AS QUA + DO CREATE _2 ?VERB ,REINSTATE, ?REINSTATE ?Q_REINSTATE AS + ?Q_REINSTATE #1 + ?REINSTATE #1 + DO CREATE _2 ?REINSTATE ?LABEL AS REL + ?LABEL #1 + DO CREATE _2 ?REINSTATE ?GERUNDS AS REG + !GERUNDS #1 + + ?GERUNDS #1 + DO CREATE _2 ?GERUND ,REINSTATING,=2 AS REL + REG + DO CREATE _2 ?TEMPLATE ,REINSTATE, ,LABEL, AS REL + DO CREATE _2 ?TEMPLATE ,REINSTATE, ,GERUND, ?MAYBE_LIST AS REG + DO CREATE _2 ?GERUND ?TEMPLATE=1 AS ?TEMPLATE #1 + DO CREATE _2 ?GERUNDS ?GERUND=* AS ?GERUND #1 + DO CREATE _2 ?GERUNDS ?GERUND=* ,#43, ?GERUNDS=* AS ?GERUND #1 + + ?GERUNDS #1 + DO CREATE _2 ?Q_REINSTATE ,, AS ,, + DO CREATE _2 ?Q_REINSTATE ,WHILE, ,ABSTAINING, ,FROM, ?IT AS + QUA + DO CREATE _2 ?VERB ,GIVE, ,UP, ?Q_GIVE_UP AS ?Q_GIVE_UP #1 + + GUP + DO CREATE _2 ?GERUND ,GIVING, ,UP,=1 AS GUP + DO CREATE _2 ?GERUND ,GIVING,=1 AS GUP + DO CREATE _2 ?TEMPLATE ,GIVE, ,UP, AS GUP + DO CREATE _2 ?Q_GIVE_UP ,, AS ,, + DO CREATE _2 ?Q_GIVE_UP ,WHILE, ,CONTINUING, ,TO, ,RUN, AS QUA + DO CREATE _2 ?VERB ,WRITE, ,IN, ?E_LIST ?Q_WRITE_IN AS + ?Q_WRITE_IN #1 + WIN + !E_LIST #1 + ?E_LIST #1 + DO CREATE _2 ?GERUND ,WRITING, ,IN,=1 AS WIN + DO CREATE _2 ?GERUND ,WRITING,=1 AS WIN + DO CREATE _2 ?TEMPLATE ,WRITE, ,IN, ?REG_EXPR ?MAYBE_LIST AS + WIN + DO CREATE _2 ?Q_WRITE_IN ,, AS ,, + DO CREATE _2 ?Q_WRITE_IN ,WHILE, ,NOT, ,WRITING, ?IT ?MAYBE_IN + AS QUA + DO CREATE _2 ?MAYBE_IN ,, AS ,, + DO CREATE _2 ?MAYBE_IN ,IN, AS ,, + DO CREATE _2 ?VERB ,READ, ,OUT, ?E_LIST AS ROU + !E_LIST #1 + + ?E_LIST #1 + DO CREATE _2 ?GERUND ,READING, ,OUT,=1 AS ROU + DO CREATE _2 ?GERUND ,READING,=1 AS ROU + DO CREATE _2 ?TEMPLATE ,READ, ,OUT, ?REG_EXPR ?MAYBE_LIST AS + ROU +PLEASE NOTE: NO QUANTUM OUTPUT (YET) + DO CREATE _2 ?VERB ,COME, ,FROM, ?COME_FROM ?Q_COME_FROM AS + ?Q_COME_FROM #1 + ?COME_FROM #1 + DO CREATE _2 ?COME_FROM ?LABEL AS CFL + ?LABEL #1 + DO CREATE _2 ?COME_FROM ?GERUNDS AS CFG + !GERUNDS #1 + + ?GERUNDS #1 + DO CREATE _2 ?GERUND ,COMING, ,FROM,=2 AS CFL + CFG + DO CREATE _2 ?GERUND ,COMING,=2 AS CFL + CFG + DO CREATE _2 ?TEMPLATE ,COME, ,FROM, ,LABEL, AS CFL + DO CREATE _2 ?TEMPLATE ,COME, ,FROM, ,GERUND, ?MAYBE_LIST AS + CFG + DO CREATE _2 ?Q_COME_FROM ,, AS ,, + DO CREATE _2 ?Q_COME_FROM ,WHILE, ,NOT, ,COMING, ,FROM, ,THERE, + AS QUA + DO CREATE _2 ?VERB ,ENSLAVE, ?RNAME ,TO, ?RNAME ?Q_ENSLAVE AS + ?Q_ENSLAVE #1 + ENS + ?RNAME #1 + ?RNAME #2 + DO CREATE _2 ?GERUND ,ENSLAVING,=1 AS ENS + DO CREATE _2 ?TEMPLATE ,ENSLAVE, ,REGISTER, ,TO, ,REGISTER, AS + ENS + DO CREATE _2 ?Q_ENSLAVE ,, AS ,, + DO CREATE _2 ?Q_ENSLAVE ,WHILE, ,LEAVING, ,IT, ,FREE, AS QUA + DO CREATE _2 ?VERB ,FREE, ?RNAME ,FROM, ?RNAME ?Q_FREE AS + ?Q_FREE #1 + FRE + ?RNAME #1 + ?RNAME #2 + DO CREATE _2 ?GERUND ,FREEING,=1 AS FRE + DO CREATE _2 ?TEMPLATE ,FREE, ,REGISTER, ,FROM, ,REGISTER, AS + FRE + DO CREATE _2 ?Q_FREE ,, AS ,, + DO CREATE _2 ?Q_FREE ,WHILE, ,LEAVING, ,IT, ,IN, ,SLAVERY, AS + QUA + DO CREATE _2 ?VERB ,STUDY, ?EXPRESSION ,AT, ?LABEL ,IN, ,CLASS, + ?RNAME ?Q_STUDY AS ?Q_STUDY #1 + STU + ?EXPRESSION #1 + + ?LABEL #1 + ?RNAME #1 + DO CREATE _2 ?GERUND ,STUDYING,=1 AS STU + DO CREATE _2 ?TEMPLATE ,STUDY, ?EXPR_OR_SUBJECT ,AT, ,LABEL, + ,IN, ,CLASS, ,REGISTER, AS STU + DO CREATE _2 ?EXPR_OR_SUBJECT ,EXPRESSION, AS ,, + DO CREATE _2 ?EXPR_OR_SUBJECT ,SUBJECT, AS ,, + DO CREATE _2 ?Q_STUDY ,, AS ,, + DO CREATE _2 ?Q_STUDY ,WHILE, ,NOT, ,STUDYING, ,IT, AS QUA + DO CREATE _2 ?VERB ,ENROL, ?RNAME ,TO, ,LEARN, ?E_LIST ?Q_ENROL + AS ?Q_ENROL #1 + ENR + !E_LIST #1 + ?E_LIST #1 + ?RNAME #1 + DO CREATE _2 ?GERUND ,ENROLLING,=1 AS ENR + DO CREATE _2 ?TEMPLATE ,ENROL, ,REGISTER, ,TO, ,LEARN, + ?EXPR_OR_SUBJECT ?MAYBE_LIST AS ENR + DO CREATE _2 ?Q_ENROL ,, AS ,, + DO CREATE _2 ?Q_ENROL ,WHILE, ,NOT, ,ENROLLING, AS QUA + DO CREATE _2 ?VERB ?RNAME ,LEARNS, ?EXPRESSION ?Q_LEARNS AS + ?Q_LEARNS #1 + LEA + ?EXPRESSION #1 + ?RNAME #1 + DO CREATE _2 ?GERUND ,LEARNING,=1 AS LEA + DO CREATE _2 ?TEMPLATE ,REGISTER, ,LEARNS, ?EXPR_OR_SUBJECT AS + LEA + DO CREATE _2 ?Q_LEARNS ,, AS ,, + DO CREATE _2 ?Q_LEARNS ,WHILE, ,NOT, ,LEARNING, ,IT, AS QUA + DO CREATE _2 ?VERB ,FINISH, ,LECTURE, ?Q_FINISH AS ?Q_FINISH #1 + + FIN + DO CREATE _2 ?GERUND ,FINISHING, ,LECTURE,=1 AS FIN + DO CREATE _2 ?GERUND ,FINISHING,=1 AS FIN + DO CREATE _2 ?TEMPLATE ,FINISH, ,LECTURE, AS FIN + DO CREATE _2 ?Q_FINISH ,, AS ,, + DO CREATE _2 ?Q_FINISH ,WHILE, ,CONTINUING, ,IT, AS QUA + DO CREATE _2 ?VERB ?RNAME ,GRADUATES, ?Q_GRADUATES AS + ?Q_GRADUATES #1 + GRA + ?RNAME #1 + DO CREATE _2 ?GERUND ,GRADUATING,=1 AS GRA + DO CREATE _2 ?TEMPLATE ,REGISTER, ,GRADUATES, AS GRA + DO CREATE _2 ?Q_GRADUATES ,, AS ,, + DO CREATE _2 ?Q_GRADUATES ,WHILE, ,REMAINING, ,A, ,STUDENT, AS + QUA + DO CREATE _2 ?VERB ,NEXT, ,FROM, ?NEXT_FROM ?Q_NEXT_FROM AS + ?Q_NEXT_FROM #1 + ?NEXT_FROM #1 + DO CREATE _2 ?NEXT_FROM ?LABEL AS NXL + ?LABEL #1 + DO CREATE _2 ?MEXT_FROM ?GERUNDS AS NXG + !GERUNDS #1 + + ?GERUNDS #1 + DO CREATE _2 ?GERUND ,NEXTING, ,FROM,=2 AS NXL + NXG + DO CREATE _2 ?TEMPLATE ,NEXT, ,FROM, ,LABEL, AS NXL + DO CREATE _2 ?TEMPLATE ,NEXT, ,FROM, ,GERUND, ?MAYBE_LIST AS + NXG + DO CREATE _2 ?Q_NEXT_FROM ,, AS ,, + DO CREATE _2 ?Q_NEXT_FROM ,WHILE, ,NOT, ,NEXTING, ,FROM, + ,THERE, AS QUA + DO CREATE _2 ?VERB ,CONVERT, ?TEMPLATE ,TO, ?TEMPLATE + ?Q_CONVERT AS ?Q_CONVERT #1 + CON + ?TEMPLATE #1 + ?TEMPLATE + #2 + DO CREATE _2 ?GERUND ,CONVERTING,=3 AS CON + DO CREATE _2 ?TEMPLATE ,CONVERT, ,STATEMENT, ,TO, ,STATEMENT, + AS CON + DO CREATE _2 ?Q_CONVERT ,, AS ,, + DO CREATE _2 ?Q_CONVERT ,WHILE, ,LEAVING, ,IT, ,UNCHANGED, AS + QUA + DO CREATE _2 ?VERB ,SWAP, ?TEMPLATE ,AND, ?TEMPLATE ?Q_SWAP AS + ?Q_SWAP #1 + SWA + ?TEMPLATE #1 + ?TEMPLATE #2 + DO CREATE _2 ?GERUND ,SWAPPING,=2 AS SWA + DO CREATE _2 ?TEMPLATE ,SWAP, ,STATEMENT, ,AND, ,STATEMENT, AS + SWA + DO CREATE _2 ?Q_SWAP ,, AS ,, + DO CREATE _2 ?Q_SWAP ,WHILE, ,LEAVING, ,THEM, ,UNCHANGED, AS + QUA + DO CREATE _2 ?VERB ,CREATE, ?GSYMBOL ?LEFT ,AS, ?RIGHT + ?Q_CREATE AS ?Q_CREATE #1 + CRE + #1 + ?GSYMBOL #1 + !LEFT + #1 + ?LEFT #1 + !RIGHT #1 + ?RIGHT #1 + DO CREATE _2 ?GERUND ,CREATING,=1 AS CRE + DO CREATE _2 ?TEMPLATE ,CREATE, ,SYMBOL, ,LEFT, ,AS, ,RIGHT, AS + CRE + DO CREATE _2 ?Q_CREATE ,, AS ,, + DO CREATE _2 ?Q_CREATE ,WHILE, ,NOT, ,CREATING, ,IT, AS QUA + DO CREATE _2 ?VERB ,DESTROY, ?GSYMBOL ?LEFT ?Q_DESTROY AS + ?Q_DESTROY #1 + DES + #1 + ?GSYMBOL #1 + !LEFT #1 + ?LEFT #1 + DO CREATE _2 ?GERUND ,DESTROYING,=1 AS DES + DO CREATE _2 ?TEMPLATE ,DESTROY, ,SYMBOL, ,EXPRESSION, ,LEFT, + AS DES + DO CREATE _2 ?Q_DESTROY ,, AS ,, + DO CREATE _2 ?Q_DESTROY ,WHILE, ,NOT, ,DESTROYING, ,IT, AS QUA + DO CREATE _2 ?VERB ,RESUME, ?EXPRESSION ?Q_RESUME AS ?Q_RESUME + #1 + RES + ?EXPRESSION #1 + DO CREATE _2 ?GERUND ,RESUMING,=1 AS RES + DO CREATE _2 ?TEMPLATE ,RESUME, ,EXPRESSION, AS RES + DO CREATE _2 ?Q_RESUME ,, AS ,, + DO CREATE _2 ?Q_RESUME ,WHILE, ,NOT, ,RESUMING, AS QUA + DO CREATE _2 ?VERB ,FORGET, ?EXPRESSION ?Q_FORGET AS ?Q_FORGET + #1 + FOR + ?EXPRESSION #1 + DO CREATE _2 ?GERUND ,FORGETTING,=1 AS FOR + DO CREATE _2 ?TEMPLATE ,FORGET, ,EXPRESSION, AS FOR + DO CREATE _2 ?Q_FORGET ,, AS ,, + DO CREATE _2 ?Q_FORGET ,WHILE, ,NOT, ,FORGETTING, AS QUA + DO CREATE _2 ?Q_FORGET ,WHILE, ,REMEMBERING, AS QUA + DO CREATE _2 ?NAMES ?RNAME=1 AS ?RNAME #1 + DO CREATE _2 ?NAMES ?RNAME=1 ,#43, ?NAMES=* AS ?RNAME #1 + + ?NAMES #1 + DO CREATE _2 ?RTYPE ,#46, AS SPO + DO CREATE _2 ?RTYPE ,#58, AS TSP + DO CREATE _2 ?RTYPE ,#44, AS TAI + DO CREATE _2 ?RTYPE ,#59, AS HYB + DO CREATE _2 ?RTYPE ,#64, AS WHP + DO CREATE _2 ?RTYPE ,_, AS CHO + DO CREATE _2 ?RTYPE ,#43, ?REGISTER AS TYP + ?REGISTER #1 + DO CREATE _2 ?RNUMBER ?CONSTANT AS ?CONSTANT #1 + DO CREATE _2 ?RNUMBER ,#45, ?REGISTER AS NUM + ?REGISTER #1 + DO CREATE _2 ?RNAME ?OWNER ?RTYPE ?RNUMBER AS ?OWNER #1 + + ?RTYPE #1 + ?RNUMBER #1 + DO CREATE _2 ?REGISTER ?OWNER ?RTYPE ?UNARIES ?RNUMBER AS + ?UNARIES #1 + ?OWNER #1 + ?RTYPE #1 + ?RNUMBER #1 + DO CREATE _2 ?REGISTER ?OWNER ,#43, ?UNARIES ?REGISTER ?RNUMBER + AS ?UNARIES #1 + ?OWNER #1 + TYP + ?REGISTER #1 + ?RNUMBER + #1 + DO CREATE _2 ?OWNER ,, AS ,, + DO CREATE _2 ?OWNER ?MASTER ?OWNER AS ?OWNER #1 + ?MASTER #1 + DO CREATE _2 ?MASTER ,#36, AS OWN + #1 + DO CREATE _2 ?MASTER ,1, AS OWN + #1 + DO CREATE _2 ?MASTER ,2, AS OWN + #2 + DO CREATE _2 ?MASTER ,3, AS OWN + #3 + DO CREATE _2 ?MASTER ,4, AS OWN + #4 + DO CREATE _2 ?MASTER ,5, AS OWN + #5 + DO CREATE _2 ?MASTER ,6, AS OWN + #6 + DO CREATE _2 ?MASTER ,7, AS OWN + #7 + DO CREATE _2 ?MASTER ,8, AS OWN + #8 + DO CREATE _2 ?MASTER ,9, AS OWN + #9 + DO CREATE _2 ?ELEMENT ?OWNER ?RTYPE ?UNARIES ?CONSTANT + ?SUBSCRIPTS AS ?UNARIES #1 + ?SUBSCRIPTS #1 + ?OWNER #1 + + ?RTYPE #1 + ?CONSTANT #1 + DO CREATE _2 ?LELEMENT ?OWNER ?RTYPE ?CONSTANT ?SUBSCRIPTS AS + ?SUBSCRIPTS #1 + ?OWNER #1 + ?RTYPE #1 + ?CONSTANT #1 + DO CREATE _2 ?SUBSCRIPTS ,SUB, ?EXPRESSION ?MORE_SUBSCRIPTS AS + ?MORE_SUBSCRIPTS #1 + SUB + ?EXPRESSION #1 + DO CREATE _2 ?MORE_SUBSCRIPTS ,, AS ,, + DO CREATE _2 ?MORE_SUBSCRIPTS ,SUB, ?EXPRESSION + ?MORE_SUBSCRIPTS AS ?MORE_SUBSCRIPTS #1 + SUB + ?EXPRESSION + #1 + DO CREATE _2 ?NONUNARIES ?REGISTER AS ?REGISTER #1 + DO CREATE _2 ?NONUNARIES ?ELEMENT AS ?ELEMENT #1 + DO CREATE _2 ?NONUNARIES ,#45, ?REGISTER AS NUM + ?REGISTER #1 + DO CREATE _2 ?NONUNARIES ,#35, ?UNARIES ?CONSTANT AS ?UNARIES + #1 + ?CONSTANT #1 + DO CREATE _2 ?NONUNARIES ,#39, ?UNARIES ?EXPRESSION ,#39, AS + ?UNARIES #1 + ?EXPRESSION #1 + DO CREATE _2 ?NONUNARIES ,#34, ?UNARIES ?EXPRESSION ,#34, AS + ?UNARIES #1 + ?EXPRESSION #1 + DO CREATE _2 ?NONUNARIES ,#42, AS SPL + DO CREATE _2 ?BANG ?RNUMBER AS SPO + ?RNUMBER #1 + DO CREATE _2 ?BANG_U ?UNARIES ?RNUMBER AS ?UNARIES #1 + SPO + + ?RNUMBER #1 + DO CREATE _2 ?NONUNARIES ?BANG_U ?MAYBE_BINARY ,#39, AS + ?MAYBE_BINARY #1 + ?BANG_U #1 + DO CREATE _2 ?NONUNARIES ?BANG ,#47, ?EXPRESSION ,#39, AS OVR + + ?EXPRESSION #1 + ?BANG #1 + DO CREATE _2 ?NONUNARIES ?BANG_U ,#92, ?EXPRESSION ,#39, AS OVM + + ?EXPRESSION #1 + ?BANG_U #1 + DO CREATE _2 ?RABBIT_U ,#34 + #8 + #46, ?UNARIES ?CONSTANT AS + ?UNARIES #1 + SPO + ?CONSTANT #1 + DO CREATE _2 ?RABBIT ,#34 + #8 + #46, ?CONSTANT AS SPO + + ?CONSTANT #1 + DO CREATE _2 ?NONUNARIES ?RABBIT_U ?MAYBE_BINARY ,#34, AS + ?MAYBE_BINARY #1 + ?RABBIT_U #1 + DO CREATE _2 ?NONUNARIES ?RABBIT ,#47, ?EXPRESSION ,#34, AS OVR + + ?EXPRESSION #1 + ?RABBIT #1 + DO CREATE _2 ?NONUNARIES ?RABBIT_U ,#92, ?EXPRESSION ,#34, AS + OVM + ?EXPRESSION #1 + ?RABBIT_U #1 + DO CREATE _2 ?EXPRESSION ?NONUNARIES ?MAYBE_BINARY AS + ?MAYBE_BINARY #1 + ?NONUNARIES #1 + DO CREATE _2 ?EXPRESSION ?OVERLOADABLE ,#47, ?EXPRESSION AS OVR + + ?EXPRESSION #1 + ?OVERLOADABLE #1 + DO CREATE _2 ?EXPRESSION ?NONUNARIES ,#92, ?EXPRESSION AS OVM + + ?EXPRESSION #1 + ?NONUNARIES #1 + DO CREATE _2 ?E_LIST ?EXPRESSION=1 AS ?EXPRESSION #1 + DO CREATE _2 ?E_LIST ?EXPRESSION=1 ,#43, ?E_LIST=* AS + ?EXPRESSION #1 + ?E_LIST #1 + DO CREATE _2 ?UNARIES ,, AS ,, + DO CREATE _2 ?UNARIES ?UNARY ?UNARIES AS ?UNARY #1 + ?UNARIES + #1 + DO CREATE _2 ?UNARY ,V, AS BUT + #7 + DO CREATE _2 ?UNARY ,#38, AS BUT + #0 + DO CREATE _2 ?UNARY ,#86 + #8 + #45, AS SWB + DO CREATE _2 ?UNARY ,#165, AS SWB + DO CREATE _2 ?UNARY ,#63, AS BUT + #1 + DO CREATE _2 ?UNARY ,1, ,#63, AS BUT + #1 + DO CREATE _2 ?UNARY ,2, ,#63, AS BUT + #2 + DO CREATE _2 ?UNARY ,3, ,#63, AS BUT + #3 + DO CREATE _2 ?UNARY ,4, ,#63, AS BUT + #4 + DO CREATE _2 ?UNARY ,5, ,#63, AS BUT + #5 + DO CREATE _2 ?UNARY ,#124, AS AWC + DO CREATE _2 ?UNARY ,#45, AS UDV + DO CREATE _2 ?MAYBE_BINARY ,, AS ,, + DO CREATE _2 ?MAYBE_BINARY ?BINARY ?EXPRESSION AS ?BINARY #1 + + ?EXPRESSION #1 + DO CREATE _2 ?BINARY ,#126, AS RSE + DO CREATE _2 ?BINARY ,#67 + #8 + #47, AS RIN + DO CREATE _2 ?BINARY ,#67 + #8 + #124, AS RIN + DO CREATE _2 ?BINARY ,#162, AS RIN + DO CREATE _2 ?OVERLOADABLE ?REGISTER AS ?REGISTER #1 + DO CREATE _2 ?OVERLOADABLE ?LELEMENT AS ?LELEMENT #1 + DO CREATE _2 ?EXPR_OR_DIM ?EXPRESSION AS ?EXPRESSION #1 + DO CREATE _2 ?EXPR_OR_DIM ?DIMENSION AS MUL + !DIMENSION #1 + + ?DIMENSION #1 + DO CREATE _2 ?DIMENSION ?EXPRESSION=1 ,BY, ?EXPRESSION=1 + ?MORE_DIMENSION=* AS ?EXPRESSION #1 + ?EXPRESSION #2 + + ?MORE_DIMENSION #1 + DO CREATE _2 ?MORE_DIMENSION ,, AS ,, + DO CREATE _2 ?MORE_DIMENSION ,BY, ?DIMENSION=* AS ?DIMENSION #1 + DO CREATE _2 ?LABEL ,#40, ?CONSTANT ,#41, AS ?CONSTANT #1 + DO CREATE _2 ?LABEL ,#40, ?EXPRESSION ,#41, AS ?EXPRESSION #1 + DO CREATE _2 ?LABEL ?EXPRESSION AS ?EXPRESSION #1 + DO CREATE _2 ?IT ,IT, AS ,, + DO CREATE _2 ?IT ,THEM, AS ,, + DO CREATE _2 ?THEM ,THEM, AS ,, + DO CREATE _2 ?THEM ,IT, AS ,, + DO CREATE _2 ?LEFT ,, AS ,, + DO CREATE _2 ?LEFT ?LP=1 ?MAYBE_COUNT ?LEFT=* AS ?MAYBE_COUNT + #1 + ?LP #1 + ?LEFT #1 + DO CREATE _2 ?LP ?GSYMBOL AS #0 + ?GSYMBOL #1 + DO CREATE _2 ?LP ,#44, ?E_LIST ,#44, AS #1 + MUL + !E_LIST #1 + + ?E_LIST #1 + DO CREATE _2 ?LP ,#44, ,#44, AS #1 + STR + #0 + DO CREATE _2 ?LP ,#44, ?SYMBOL ,#44, AS #1 + ?SYMBOL #1 + DO CREATE _2 ?MAYBE_COUNT ,, AS #0 + DO CREATE _2 ?MAYBE_COUNT ,#61, ?CONSTANT AS ?CONSTANT #1 + DO CREATE _2 ?MAYBE_COUNT ,#61, ?EXPRESSION AS ?EXPRESSION #1 + DO CREATE _2 ?MAYBE_COUNT ,#61, ,#42, AS #65535 + DO CREATE _2 ?RIGHT ,, AS ,, + DO CREATE _2 ?RIGHT ?RIGHT_NONEMPTY=* AS ?RIGHT_NONEMPTY #1 + DO CREATE _2 ?RIGHT_NONEMPTY ?RP=1 ?MORE_RIGHT=* AS ?RP #1 + + ?MORE_RIGHT #1 + DO CREATE _2 ?MORE_RIGHT ,, AS ,, + DO CREATE _2 ?MORE_RIGHT ,#43, ?RIGHT_NONEMPTY=* AS + ?RIGHT_NONEMPTY #1 + DO CREATE _2 ?RP ?GSYMBOL ?EXPRESSION AS #0 + ?EXPRESSION #1 + + ?GSYMBOL #1 + DO CREATE _2 ?RP ,#44, ?E_LIST ,#44, ?EXPRESSION AS #1 + + ?EXPRESSION #1 + MUL + !E_LIST #1 + ?E_LIST #1 + DO CREATE _2 ?RP ,#44, ,#44, AS #4 + #0 + DO CREATE _2 ?RP ,#44, ?SYMBOL ,#44, ?EXPRESSION AS #1 + + ?EXPRESSION #1 + ?SYMBOL #1 + DO CREATE _2 ?RP ?BYTECODE AS #4 + !BYTECODE #1 + ?BYTECODE #1 + DO CREATE _2 ?RP ,#33, ?GSYMBOL ?EXPRESSION AS #6 + ?EXPRESSION + #1 + ?GSYMBOL #1 + DO CREATE _2 ?RP ,#42, AS #15 + DO CREATE _2 ?BYTECODE ?SPECIAL_REGISTER=* AS ?SPECIAL_REGISTER + #1 + DO CREATE _2 ?BYTECODE ?EXPRESSION=1 AS ?EXPRESSION #1 + DO CREATE _2 ?BC_LIST ?BYTECODE=* ?OTHER_BC=* AS ?BYTECODE #1 + + ?OTHER_BC #1 + DO CREATE _2 ?OTHER_BC ,, AS ,, + DO CREATE _2 ?OTHER_BC ,#43, ?BC_LIST=* AS ?BC_LIST #1 + DO CREATE _2 ?REG_EXPR ,REGISTER, AS ,, + DO CREATE _2 ?REG_EXPR ,EXPRESSION, AS ,, + DO CREATE _2 ?MAYBE_LIST ,, AS ,, + DO CREATE _2 ?MAYBE_LIST ,LIST, AS ,, + DO CREATE _2 ?GSYMBOL ,#63, ?SYMBOL AS ?SYMBOL #1 + +PLEASE NOTE: BYTECODE DEFINITION (FROM THE ASSEMBLER) + +PLEASE NOTE: NAMES OF "%" REGISTERS + DO CREATE _2 ?SPECIAL_REGISTER ,#37, ?REG69=* AS ?REG69 #1 + DO CREATE _2 ?REG69 ,WT,=2 AS %WT + DO CREATE _2 ?REG69 ,AR,=2 AS %AR + DO CREATE _2 ?REG69 ,AW,=2 AS %AW + DO CREATE _2 ?REG69 ,JS,=2 AS %JS + DO CREATE _2 ?REG69 ,SS,=2 AS %SS + DO CREATE _2 ?REG69 ,PS,=2 AS %PS + DO CREATE _2 ?REG69 ,FS,=2 AS %FS + DO CREATE _2 ?REG69 ,ES,=2 AS %ES + DO CREATE _2 ?REG69 ,IS,=2 AS %IS + DO CREATE _2 ?REG69 ,DM,=2 AS %DM + DO CREATE _2 ?REG69 ,SP,=2 AS %SP + DO CREATE _2 ?REG69 ,RT,=2 AS %RT + DO CREATE _2 ?REG69 ,TH,=2 AS %TH + DO CREATE _2 ?REG69 ,RM,=2 AS %RM + DO CREATE _2 ?REG69 ,IO,=2 AS %IO + DO CREATE _2 ?REG69 ,BA,=2 AS %BA + DO CREATE _2 ?REG69 ,CF,=2 AS %CF + DO CREATE _2 ?REG69 ,CR,=2 AS %CR + DO CREATE _2 ?REG69 ,CW,=2 AS %CW + DO CREATE _2 ?REG69 ,OS,=2 AS %OS + DO CREATE _2 ?REG69 ,TM,=2 AS %TM + +PLEASE NOTE: NAMES OF "@" REGISTERS + DO CREATE _2 ?SPECIAL_REGISTER ,#64, ?REG68=* AS ?REG68 #1 + DO CREATE _2 ?REG68 ,OR,=2 AS @OR + DO CREATE _2 ?REG68 ,OWFH,=2 AS @OWFH + DO CREATE _2 ?REG68 ,ORFH,=2 AS @ORFH + DO CREATE _2 ?REG68 ,OSFH,=2 AS @OSFH + DO CREATE _2 ?REG68 ,SNFH,=2 AS @SNFH + DO CREATE _2 ?REG68 ,TRFH,=2 AS @TRFH + +PLEASE NOTE: NAMES OF "^" REGISTERS + DO CREATE _2 ?SPECIAL_REGISTER ,#94, ?REG70=* AS ?REG70 #1 + DO CREATE _2 ?REG70 ,AV,=2 AS ^AV + DO CREATE _2 ?REG70 ,EV,=2 AS ^EV + +PLEASE NOTE: "BYTECODE" INSTRUCTION NAMES + DO CREATE _2 ?BYTECODE ,ABG,=1 AS ABG + DO CREATE _2 ?BYTECODE ,ABL,=1 AS ABL + DO CREATE _2 ?BYTECODE ,AWC,=1 AS AWC + DO CREATE _2 ?BYTECODE ,BAW,=1 AS BAW + DO CREATE _2 ?BYTECODE ,BBT,=1 AS BBT + DO CREATE _2 ?BYTECODE ,BSW,=1 AS BSW + DO CREATE _2 ?BYTECODE ,BUG,=1 AS BUG + DO CREATE _2 ?BYTECODE ,BUT,=1 AS BUT + DO CREATE _2 ?BYTECODE ,BWC,=1 AS BWC + DO CREATE _2 ?BYTECODE ,CFG,=1 AS CFG + DO CREATE _2 ?BYTECODE ,CFL,=1 AS CFL + DO CREATE _2 ?BYTECODE ,CHO,=1 AS CHO + DO CREATE _2 ?BYTECODE ,CON,=1 AS CON + DO CREATE _2 ?BYTECODE ,CRE,=1 AS CRE + DO CREATE _2 ?BYTECODE ,CSE,=1 AS CSE + DO CREATE _2 ?BYTECODE ,CWB,=1 AS CWB + DO CREATE _2 ?BYTECODE ,DES,=1 AS DES + DO CREATE _2 ?BYTECODE ,DOS,=1 AS DOS + DO CREATE _2 ?BYTECODE ,DSX,=1 AS DSX + DO CREATE _2 ?BYTECODE ,EBC,=1 AS EBC + DO CREATE _2 ?BYTECODE ,ECB,=1 AS ECB + DO CREATE _2 ?BYTECODE ,ENR,=1 AS ENR + DO CREATE _2 ?BYTECODE ,ENS,=1 AS ENS + DO CREATE _2 ?BYTECODE ,FIN,=1 AS FIN + DO CREATE _2 ?BYTECODE ,FLA,=1 AS FLA + DO CREATE _2 ?BYTECODE ,FOR,=1 AS FOR + DO CREATE _2 ?BYTECODE ,FRE,=1 AS FRE + DO CREATE _2 ?BYTECODE ,FRZ,=1 AS FRZ + DO CREATE _2 ?BYTECODE ,GRA,=1 AS GRA + DO CREATE _2 ?BYTECODE ,GUP,=1 AS GUP + DO CREATE _2 ?BYTECODE ,HSN,=1 AS HSN + DO CREATE _2 ?BYTECODE ,HYB,=1 AS HYB + DO CREATE _2 ?BYTECODE ,IGN,=1 AS IGN + DO CREATE _2 ?BYTECODE ,INT,=1 AS INT + DO CREATE _2 ?BYTECODE ,LAB,=1 AS LAB + DO CREATE _2 ?BYTECODE ,LEA,=1 AS LEA + DO CREATE _2 ?BYTECODE ,MKG,=1 AS MKG + DO CREATE _2 ?BYTECODE ,MSP,=1 AS MSP + DO CREATE _2 ?BYTECODE ,MUL,=1 AS MUL + DO CREATE _2 ?BYTECODE ,NOT,=1 AS NOT + DO CREATE _2 ?BYTECODE ,NUM,=1 AS NUM + DO CREATE _2 ?BYTECODE ,NXG,=1 AS NXG + DO CREATE _2 ?BYTECODE ,NXL,=1 AS NXL + DO CREATE _2 ?BYTECODE ,NXT,=1 AS NXT + DO CREATE _2 ?BYTECODE ,OPT,=1 AS OPT + DO CREATE _2 ?BYTECODE ,OSN,=1 AS OSN + DO CREATE _2 ?BYTECODE ,OVM,=1 AS OVM + DO CREATE _2 ?BYTECODE ,OVR,=1 AS OVR + DO CREATE _2 ?BYTECODE ,OWN,=1 AS OWN + DO CREATE _2 ?BYTECODE ,QUA,=1 AS QUA + DO CREATE _2 ?BYTECODE ,REG,=1 AS REG + DO CREATE _2 ?BYTECODE ,REL,=1 AS REL + DO CREATE _2 ?BYTECODE ,REM,=1 AS REM + DO CREATE _2 ?BYTECODE ,RES,=1 AS RES + DO CREATE _2 ?BYTECODE ,RET,=1 AS RET + DO CREATE _2 ?BYTECODE ,RIN,=1 AS RIN + DO CREATE _2 ?BYTECODE ,ROM,=1 AS ROM + DO CREATE _2 ?BYTECODE ,ROR,=1 AS ROR + DO CREATE _2 ?BYTECODE ,ROU,=1 AS ROU + DO CREATE _2 ?BYTECODE ,RSE,=1 AS RSE + DO CREATE _2 ?BYTECODE ,SEL,=1 AS SEL + DO CREATE _2 ?BYTECODE ,SHF,=1 AS SHF + DO CREATE _2 ?BYTECODE ,SMU,=1 AS SMU + DO CREATE _2 ?BYTECODE ,SPL,=1 AS SPL + DO CREATE _2 ?BYTECODE ,SPO,=1 AS SPO + DO CREATE _2 ?BYTECODE ,STA,=1 AS STA + DO CREATE _2 ?BYTECODE ,STE,=1 AS STE + DO CREATE _2 ?BYTECODE ,STO,=1 AS STO + DO CREATE _2 ?BYTECODE ,STR,=1 AS STR + DO CREATE _2 ?BYTECODE ,STS,=1 AS STS + DO CREATE _2 ?BYTECODE ,STU,=1 AS STU + DO CREATE _2 ?BYTECODE ,SUB,=1 AS SUB + DO CREATE _2 ?BYTECODE ,SWA,=1 AS SWA + DO CREATE _2 ?BYTECODE ,SWB,=1 AS SWB + DO CREATE _2 ?BYTECODE ,SYS,=1 AS SYS + DO CREATE _2 ?BYTECODE ,TAI,=1 AS TAI + DO CREATE _2 ?BYTECODE ,TSP,=1 AS TSP + DO CREATE _2 ?BYTECODE ,TYP,=1 AS TYP + DO CREATE _2 ?BYTECODE ,UDV,=1 AS UDV + DO CREATE _2 ?BYTECODE ,UNE,=1 AS UNE + DO CREATE _2 ?BYTECODE ,UNS,=1 AS UNS + DO CREATE _2 ?BYTECODE ,USG,=1 AS USG + DO CREATE _2 ?BYTECODE ,WHP,=1 AS WHP + DO CREATE _2 ?BYTECODE ,WIN,=1 AS WIN + + DO GIVE UP