Skip to content

Instantly share code, notes, and snippets.

@ecliptik

ecliptik/aisle.txt

Last active Jan 20, 2022
Star
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Aisle Strings
Raw
aisle.txt
Resident data ends at 36c4, program starts at 36c4, file ends at 1dd10
Starting analysis pass at address 36c2
End of analysis pass, low address = 36c4, high address = dffc
[Start of code]
Main routine R0001, 0 locals
CALL_VS R0002 -> Gef
QUIT
Routine R0002, 0 locals
CALL_VN R0421 (#0016,#0049)
RTRUE
Routine R0003, 0 locals
RTRUE
Routine R0004, 1 local
LOADB L00,#00 -> -(SP)
PULL Gef
JE Gef,#61,#65,#69 [TRUE] L0001
JE Gef,#6f,#75,#41 [TRUE] L0001
JE Gef,#45,#49,#4f [TRUE] L0001
JE Gef,#55 [FALSE] L0002
L0001: RTRUE
L0002: RFALSE
Routine R0005, 1 local
STORE Gef,L00
JE Gef,#07 [FALSE] L0001
PRINT "north"
JUMP L0013
L0001: JE Gef,#08 [FALSE] L0002
PRINT "south"
JUMP L0013
L0002: JE Gef,#09 [FALSE] L0003
PRINT "east"
JUMP L0013
L0003: JE Gef,#0a [FALSE] L0004
PRINT "west"
JUMP L0013
L0004: JE Gef,#0b [FALSE] L0005
PRINT "northeast"
JUMP L0013
L0005: JE Gef,#0d [FALSE] L0006
PRINT "northwest"
JUMP L0013
L0006: JE Gef,#0c [FALSE] L0007
PRINT "southeast"
JUMP L0013
L0007: JE Gef,#0e [FALSE] L0008
PRINT "southwest"
JUMP L0013
L0008: JE Gef,#0f [FALSE] L0009
PRINT "up"
JUMP L0013
L0009: JE Gef,#10 [FALSE] L0010
PRINT "down"
JUMP L0013
L0010: JE Gef,#11 [FALSE] L0011
PRINT "in"
JUMP L0013
L0011: JE Gef,#12 [FALSE] L0012
PRINT "out"
JUMP L0013
L0012: CALL_VS R0116 (#09,L00) -> -(SP)
RET_POPPED
L0013: RTRUE
Routine R0006, 2 locals
JZ L00 [FALSE] L0001
PRINT "zero"
RFALSE
L0001: JL L00,#00 [FALSE] L0002
PRINT "minus "
SUB #00,L00 -> L00
L0002: JL L00,#03e8 [TRUE] L0003
DIV L00,#03e8 -> -(SP)
CALL_2N R0006 ((SP)+)
PRINT " thousand"
MOD L00,#03e8 -> L00
STORE L01,#01
L0003: JL L00,#64 [TRUE] L0005
JE L01,#01 [FALSE] L0004
PRINT ", "
L0004: DIV L00,#64 -> -(SP)
CALL_2N R0006 ((SP)+)
PRINT " hundred"
MOD L00,#64 -> L00
STORE L01,#01
L0005: JZ L00 [TRUE] RFALSE
JE L01,#01 [FALSE] L0006
PRINT " and "
L0006: STORE Gef,L00
JE Gef,#01 [FALSE] L0007
PRINT "one"
JUMP L0034
L0007: JE Gef,#02 [FALSE] L0008
PRINT "two"
JUMP L0034
L0008: JE Gef,#03 [FALSE] L0009
PRINT "three"
JUMP L0034
L0009: JE Gef,#04 [FALSE] L0010
PRINT "four"
JUMP L0034
L0010: JE Gef,#05 [FALSE] L0011
PRINT "five"
JUMP L0034
L0011: JE Gef,#06 [FALSE] L0012
PRINT "six"
JUMP L0034
L0012: JE Gef,#07 [FALSE] L0013
PRINT "seven"
JUMP L0034
L0013: JE Gef,#08 [FALSE] L0014
PRINT "eight"
JUMP L0034
L0014: JE Gef,#09 [FALSE] L0015
PRINT "nine"
JUMP L0034
L0015: JE Gef,#0a [FALSE] L0016
PRINT "ten"
JUMP L0034
L0016: JE Gef,#0b [FALSE] L0017
PRINT "eleven"
JUMP L0034
L0017: JE Gef,#0c [FALSE] L0018
PRINT "twelve"
JUMP L0034
L0018: JE Gef,#0d [FALSE] L0019
PRINT "thirteen"
JUMP L0034
L0019: JE Gef,#0e [FALSE] L0020
PRINT "fourteen"
JUMP L0034
L0020: JE Gef,#0f [FALSE] L0021
PRINT "fifteen"
JUMP L0034
L0021: JE Gef,#10 [FALSE] L0022
PRINT "sixteen"
JUMP L0034
L0022: JE Gef,#11 [FALSE] L0023
PRINT "seventeen"
JUMP L0034
L0023: JE Gef,#12 [FALSE] L0024
PRINT "eighteen"
JUMP L0034
L0024: JE Gef,#13 [FALSE] L0025
PRINT "nineteen"
JUMP L0034
L0025: JL Gef,#14 [TRUE] L0034
JG Gef,#63 [TRUE] L0034
DIV L00,#0a -> -(SP)
PULL Gef
JE Gef,#02 [FALSE] L0026
PRINT "twenty"
JUMP L0033
L0026: JE Gef,#03 [FALSE] L0027
PRINT "thirty"
JUMP L0033
L0027: JE Gef,#04 [FALSE] L0028
PRINT "forty"
JUMP L0033
L0028: JE Gef,#05 [FALSE] L0029
PRINT "fifty"
JUMP L0033
L0029: JE Gef,#06 [FALSE] L0030
PRINT "sixty"
JUMP L0033
L0030: JE Gef,#07 [FALSE] L0031
PRINT "seventy"
JUMP L0033
L0031: JE Gef,#08 [FALSE] L0032
PRINT "eighty"
JUMP L0033
L0032: JE Gef,#09 [FALSE] L0033
PRINT "ninety"
L0033: MOD L00,#0a -> -(SP)
JZ (SP)+ [TRUE] L0034
PRINT "-"
MOD L00,#0a -> -(SP)
CALL_2N R0006 ((SP)+)
L0034: RTRUE
Routine R0007, 3 locals
MOD L00,#0c -> L02
JZ L02 [FALSE] L0001
STORE L02,#0c
L0001: JL L02,#0a [FALSE] L0002
PRINT " "
L0002: PRINT_NUM L02
PRINT ":"
DIV L01,#0a -> -(SP)
PRINT_NUM (SP)+
MOD L01,#0a -> -(SP)
PRINT_NUM (SP)+
DIV L00,#0c -> -(SP)
JG (SP)+,#00 [FALSE] L0003
PRINT " pm"
JUMP L0004
L0003: PRINT " am"
L0004: RTRUE
Routine R0008, 1 local
JE L00,"l" [FALSE] L0001
PRINT "look"
RTRUE
L0001: JE L00,"z" [FALSE] L0002
PRINT "wait"
RTRUE
L0002: JE L00,"x" [FALSE] L0003
PRINT "examine"
RTRUE
L0003: JE L00,"i","inv","inventory" [FALSE] L0004
PRINT "inventory"
RTRUE
L0004: RFALSE
Routine R0009, 1 local
JE L00,G19 [FALSE] L0001
PRINT "you"
RTRUE
L0001: TEST_ATTR L00,#1e [FALSE] L0002
PRINT "those"
RTRUE
L0002: TEST_ATTR L00,#00 [FALSE] L0004
TEST_ATTR L00,#1c [FALSE] L0003
PRINT "her"
RTRUE
L0003: TEST_ATTR L00,#1d [TRUE] L0004
PRINT "him"
RTRUE
L0004: PRINT "that"
RTRUE
Routine R0010, 1 local
JE L00,G19 [FALSE] L0001
PRINT "yourself"
RTRUE
L0001: TEST_ATTR L00,#1e [FALSE] L0002
PRINT "them"
RTRUE
L0002: TEST_ATTR L00,#00 [FALSE] L0004
TEST_ATTR L00,#1c [FALSE] L0003
PRINT "her"
RTRUE
L0003: TEST_ATTR L00,#1d [TRUE] L0004
PRINT "him"
RTRUE
L0004: PRINT "it"
RTRUE
Routine R0011, 1 local
TEST_ATTR L00,#1e [TRUE] L0001
JE L00,G19 [FALSE] L0002
L0001: PRINT "are"
JUMP L0003
L0002: PRINT "is"
L0003: RTRUE
Routine R0012, 1 local
JE L00,G19 [FALSE] L0001
PRINT "You"
RTRUE
L0001: TEST_ATTR L00,#1e [FALSE] L0002
PRINT "Those"
RTRUE
L0002: TEST_ATTR L00,#00 [FALSE] L0004
TEST_ATTR L00,#1c [FALSE] L0003
PRINT "She"
RTRUE
L0003: TEST_ATTR L00,#1d [TRUE] L0004
PRINT "He"
RTRUE
L0004: PRINT "That"
RTRUE
Routine R0013, 1 local
JE L00,G19 [FALSE] L0001
PRINT "You're"
RTRUE
L0001: TEST_ATTR L00,#1e [FALSE] L0002
PRINT "They're"
RTRUE
L0002: TEST_ATTR L00,#00 [FALSE] L0004
TEST_ATTR L00,#1c [FALSE] L0003
PRINT "She's"
RTRUE
L0003: TEST_ATTR L00,#1d [TRUE] L0004
PRINT "He's"
RTRUE
L0004: PRINT "That's"
RTRUE
Routine R0014, 2 locals
JE Ge9,#1008 [FALSE] L0001
PRINT "
>"
RTRUE
L0001: JE Ge9,#1007 [FALSE] L0066
STORE Gef,L00
JE Gef,#01 [FALSE] L0002
PRINT_PADDR S043
NEW_LINE
RTRUE
L0002: JE Gef,#02 [FALSE] L0003
PRINT_RET "Nothing to do!"
L0003: JE Gef,#03 [FALSE] L0004
PRINT " You have died "
JUMP L0065
L0004: JE Gef,#04 [FALSE] L0005
PRINT " You have won "
JUMP L0065
L0005: JE Gef,#05 [FALSE] L0008
PRINT_PADDR S044
JZ #0001 [FALSE] L0006
PRINT_PADDR S045
L0006: JE G1a,#02 [FALSE] L0007
JZ #0001 [FALSE] L0007
PRINT_PADDR S046
L0007: PRINT_RET " or QUIT?"
L0008: JE Gef,#06 [FALSE] L0009
PRINT_PADDR S047
NEW_LINE
RTRUE
L0009: JE Gef,#07 [FALSE] L0010
PRINT_PADDR S048
NEW_LINE
RTRUE
L0010: JE Gef,#08 [FALSE] L0011
PRINT_PADDR S049
NEW_LINE
RTRUE
L0011: JE Gef,#09 [FALSE] L0012
PRINT_RET "
It is now pitch dark in here!"
L0012: JE Gef,#0a [FALSE] L0013
PRINT_RET "I beg your pardon?"
L0013: JE Gef,#0b [FALSE] L0014
PRINT_PADDR S050
NEW_LINE
RTRUE
L0014: JE Gef,#0c [FALSE] L0015
PRINT_PADDR S051
NEW_LINE
RTRUE
L0015: JE Gef,#0d [FALSE] L0016
PRINT_RET "[Previous turn undone.]"
L0016: JE Gef,#0e [FALSE] L0017
PRINT_RET "Sorry, that can't be corrected."
L0017: JE Gef,#0f [FALSE] L0018
PRINT_RET "Think nothing of it."
L0018: JE Gef,#10 [FALSE] L0019
PRINT_PADDR S052
NEW_LINE
RTRUE
L0019: JE Gef,#11 [FALSE] L0020
PRINT_PADDR S053
NEW_LINE
RTRUE
L0020: JE Gef,#12 [FALSE] L0021
PRINT "yourself"
JUMP L0065
L0021: JE Gef,#13 [FALSE] L0022
PRINT_RET "As good-looking as ever."
L0022: JE Gef,#14 [FALSE] L0023
PRINT_PADDR S054
NEW_LINE
RTRUE
L0023: JE Gef,#15 [FALSE] L0024
PRINT_RET "You can hardly repeat that."
L0024: JE Gef,#16 [FALSE] L0025
PRINT_RET "You can't begin with a comma."
L0025: JE Gef,#17 [FALSE] L0026
PRINT_PADDR S055
NEW_LINE
RTRUE
L0026: JE Gef,#18 [FALSE] L0027
PRINT "You can't talk to "
CALL_2N R0105 (L01)
PRINT_RET "."
L0027: JE Gef,#19 [FALSE] L0028
PRINT_PADDR S056
NEW_LINE
RTRUE
L0028: JE Gef,#1a [FALSE] L0029
PRINT "(first taking "
CALL_2N R0105 (G48)
PRINT_RET ")"
L0029: JE Gef,#1b [FALSE] L0030
PRINT_PADDR S057
NEW_LINE
RTRUE
L0030: JE Gef,#1c [FALSE] L0031
PRINT_PADDR S058
JUMP L0065
L0031: JE Gef,#1d [FALSE] L0032
PRINT_RET "I didn't understand that number."
L0032: JE Gef,#1e [FALSE] L0033
PRINT_RET "You can't see any such thing."
L0033: JE Gef,#1f [FALSE] L0034
PRINT_PADDR S059
NEW_LINE
RTRUE
L0034: JE Gef,#20 [FALSE] L0035
PRINT_RET "You aren't holding that!"
L0035: JE Gef,#21 [FALSE] L0036
PRINT_PADDR S060
NEW_LINE
RTRUE
L0036: JE Gef,#22 [FALSE] L0037
PRINT_PADDR S061
NEW_LINE
RTRUE
L0037: JE Gef,#23 [FALSE] L0038
PRINT "I'm not sure what ""
PRINT_ADDR G6d
PRINT_RET "" refers to."
L0038: JE Gef,#24 [FALSE] L0039
PRINT_PADDR S062
NEW_LINE
RTRUE
L0039: JE Gef,#25 [FALSE] L0040
PRINT_PADDR S063
NEW_LINE
RTRUE
L0040: JE Gef,#26 [FALSE] L0041
PRINT_RET "That's not a verb I recognise."
L0041: JE Gef,#27 [FALSE] L0042
PRINT_PADDR S064
NEW_LINE
RTRUE
L0042: JE Gef,#28 [FALSE] L0043
PRINT "You can't see ""
PRINT_ADDR G6d
PRINT "" ("
CALL_2N R0105 (G6e)
PRINT_RET ") at the moment."
L0043: JE Gef,#29 [FALSE] L0044
PRINT_PADDR S065
NEW_LINE
RTRUE
L0044: JE Gef,#2a [FALSE] L0049
JZ L01 [FALSE] L0045
PRINT "None"
JUMP L0046
L0045: PRINT "Only "
CALL_2N R0108 (L01)
L0046: PRINT " of those "
JE L01,#01 [FALSE] L0047
PRINT "is"
JUMP L0048
L0047: PRINT "are"
L0048: PRINT_RET " available."
L0049: JE Gef,#2b [FALSE] L0050
PRINT_RET "Nothing to do!"
L0050: JE Gef,#2c [FALSE] L0051
PRINT_RET "There are none at all available!"
L0051: JE Gef,#2d [FALSE] L0052
PRINT "Who do you mean, "
JUMP L0065
L0052: JE Gef,#2e [FALSE] L0053
PRINT "Which do you mean, "
JUMP L0065
L0053: JE Gef,#2f [FALSE] L0054
PRINT_PADDR S066
NEW_LINE
RTRUE
L0054: JE Gef,#30 [FALSE] L0056
PRINT "Whom do you want"
JE G3c,G19 [TRUE] L0055
PRINT " "
CALL_2N R0105 (G3c)
L0055: PRINT " to "
CALL_1N R0037
PRINT "?
"
JUMP L0065
L0056: JE Gef,#31 [FALSE] L0058
PRINT "What do you want"
JE G3c,G19 [TRUE] L0057
PRINT " "
CALL_2N R0105 (G3c)
L0057: PRINT " to "
CALL_1N R0037
PRINT "?
"
JUMP L0065
L0058: JE Gef,#32 [FALSE] L0062
PRINT "Your score has just gone "
JG L01,#00 [FALSE] L0059
PRINT "up"
JUMP L0060
L0059: SUB #00,L01 -> L01
PRINT "down"
L0060: PRINT " by "
CALL_2N R0108 (L01)
PRINT " point"
JG L01,#01 [FALSE] L0061
PRINT "s"
L0061: JUMP L0065
L0062: JE Gef,#33 [FALSE] L0063
PRINT_PADDR S067
NEW_LINE
RTRUE
L0063: JE Gef,#34 [FALSE] L0064
PRINT "
Type a number from 1 to "
PRINT_NUM L01
PRINT_RET ", 0 to redisplay or press ENTER."
L0064: JE Gef,#35 [FALSE] L0065
PRINT_RET "
[Please press SPACE.]"
L0065: RTRUE
L0066: JE Ge9,#1006 [FALSE] L0089
STORE Gef,L00
JE Gef,#01 [FALSE] L0067
PRINT " (providing light)"
JUMP L0088
L0067: JE Gef,#02 [FALSE] L0068
PRINT " (which "
CALL_2N R0011 (L01)
PRINT " closed)"
JUMP L0088
L0068: JE Gef,#03 [FALSE] L0069
PRINT " (closed and providing light)"
JUMP L0088
L0069: JE Gef,#04 [FALSE] L0070
PRINT " (which "
CALL_2N R0011 (L01)
PRINT " empty)"
JUMP L0088
L0070: JE Gef,#05 [FALSE] L0071
PRINT " (empty and providing light)"
JUMP L0088
L0071: JE Gef,#06 [FALSE] L0072
PRINT " (which "
CALL_2N R0011 (L01)
PRINT " closed and empty)"
JUMP L0088
L0072: JE Gef,#07 [FALSE] L0073
PRINT_PADDR S068
JUMP L0088
L0073: JE Gef,#08 [FALSE] L0074
PRINT " (providing light and being worn"
JUMP L0088
L0074: JE Gef,#09 [FALSE] L0075
PRINT " (providing light"
JUMP L0088
L0075: JE Gef,#0a [FALSE] L0076
PRINT " (being worn"
JUMP L0088
L0076: JE Gef,#0b [FALSE] L0077
PRINT " (which "
CALL_2N R0011 (L01)
PRINT " "
JUMP L0088
L0077: JE Gef,#0c [FALSE] L0078
PRINT "open"
JUMP L0088
L0078: JE Gef,#0d [FALSE] L0079
PRINT "open but empty"
JUMP L0088
L0079: JE Gef,#0e [FALSE] L0080
PRINT "closed"
JUMP L0088
L0080: JE Gef,#0f [FALSE] L0081
PRINT "closed and locked"
JUMP L0088
L0081: JE Gef,#10 [FALSE] L0082
PRINT " and empty"
JUMP L0088
L0082: JE Gef,#11 [FALSE] L0083
PRINT " (which "
CALL_2N R0011 (L01)
PRINT " empty)"
JUMP L0088
L0083: JE Gef,#12 [FALSE] L0084
PRINT " containing "
JUMP L0088
L0084: JE Gef,#13 [FALSE] L0085
PRINT " (on "
JUMP L0088
L0085: JE Gef,#14 [FALSE] L0086
PRINT ", on top of "
JUMP L0088
L0086: JE Gef,#15 [FALSE] L0087
PRINT " (in "
JUMP L0088
L0087: JE Gef,#16 [FALSE] L0088
PRINT ", inside "
L0088: RTRUE
L0089: JE Ge9,#00 [FALSE] L0094
STORE Gef,L00
JE Gef,#01 [FALSE] L0090
PRINT "At the moment, "
JUMP L0093
L0090: JE Gef,#02 [FALSE] L0091
PRINT "means "
JUMP L0093
L0091: JE Gef,#03 [FALSE] L0092
PRINT "is unset"
JUMP L0093
L0092: JE Gef,#04 [FALSE] L0093
PRINT_PADDR S069
NEW_LINE
RTRUE
L0093: RTRUE
L0094: JE Ge9,#1003 [FALSE] L0097
CALL_2N R0106 (L01)
TEST_ATTR L01,#1e [FALSE] L0095
PRINT " have"
JUMP L0096
L0095: PRINT " has"
L0096: PRINT_RET " better things to do."
L0097: JE Ge9,#01 [FALSE] L0100
STORE Gef,L00
JE Gef,#01 [FALSE] L0098
PRINT "Please answer yes or no."
JUMP L0099
L0098: JE Gef,#02 [FALSE] L0099
PRINT "Are you sure you want to quit? "
L0099: RTRUE
L0100: JE Ge9,#02 [FALSE] L0103
STORE Gef,L00
JE Gef,#01 [FALSE] L0101
PRINT_PADDR S070
JUMP L0102
L0101: JE Gef,#02 [FALSE] L0102
PRINT_RET "Failed."
L0102: RTRUE
L0103: JE Ge9,#03 [FALSE] L0106
STORE Gef,L00
JE Gef,#01 [FALSE] L0104
PRINT_RET "Restore failed."
L0104: JE Gef,#02 [FALSE] L0105
PRINT_RET "Ok."
L0105: RTRUE
L0106: JE Ge9,#04 [FALSE] L0109
STORE Gef,L00
JE Gef,#01 [FALSE] L0107
PRINT_RET "Save failed."
L0107: JE Gef,#02 [FALSE] L0108
PRINT_RET "Ok."
L0108: RTRUE
L0109: JE Ge9,#05 [FALSE] L0112
STORE Gef,L00
JE Gef,#01 [FALSE] L0110
PRINT_PADDR S071
NEW_LINE
RTRUE
L0110: JE Gef,#02 [FALSE] L0111
PRINT_PADDR S072
NEW_LINE
RTRUE
L0111: RTRUE
L0112: JE Ge9,#06 [FALSE] L0116
STORE Gef,L00
JE Gef,#01 [FALSE] L0113
PRINT_RET "Transcripting is already on."
L0113: JE Gef,#02 [FALSE] L0114
PRINT_RET "Start of a transcript of"
L0114: JE Gef,#03 [FALSE] L0115
PRINT_PADDR S073
NEW_LINE
RTRUE
L0115: RTRUE
L0116: JE Ge9,#07 [FALSE] L0120
STORE Gef,L00
JE Gef,#01 [FALSE] L0117
PRINT_RET "Transcripting is already off."
L0117: JE Gef,#02 [FALSE] L0118
PRINT_RET "
End of transcript."
L0118: JE Gef,#03 [FALSE] L0119
PRINT_PADDR S074
NEW_LINE
RTRUE
L0119: RTRUE
L0120: JE Ge9,#08 [FALSE] L0121
PRINT_RET "Score notification on."
L0121: JE Ge9,#09 [FALSE] L0122
PRINT_RET "Score notification off."
L0122: JE Ge9,#0a [FALSE] L0123
PRINT "You have visited: "
RTRUE
L0123: JE Ge9,#0b [FALSE] L0134
STORE Gef,L00
JE Gef,#01 [FALSE] L0124
PRINT_RET "Objects you have handled:
"
L0124: JE Gef,#02 [FALSE] L0125
PRINT_RET "None."
L0125: JE Gef,#03 [FALSE] L0126
PRINT " (worn)"
JUMP L0133
L0126: JE Gef,#04 [FALSE] L0127
PRINT " (held)"
JUMP L0133
L0127: JE Gef,#05 [FALSE] L0128
PRINT " (given away)"
JUMP L0133
L0128: JE Gef,#06 [FALSE] L0129
PRINT " (in "
CALL_2N R0107 (L01)
PRINT ")"
JUMP L0133
L0129: JE Gef,#07 [FALSE] L0130
PRINT " (in "
CALL_2N R0105 (L01)
PRINT ")"
JUMP L0133
L0130: JE Gef,#08 [FALSE] L0131
PRINT " (inside "
CALL_2N R0105 (L01)
PRINT ")"
JUMP L0133
L0131: JE Gef,#09 [FALSE] L0132
PRINT " (on "
CALL_2N R0105 (L01)
PRINT ")"
JUMP L0133
L0132: JE Gef,#0a [FALSE] L0133
PRINT " (lost)"
L0133: RTRUE
L0134: JE Ge9,#0c [FALSE] L0138
JZ G1a [TRUE] L0135
PRINT "In that game you scored "
JUMP L0136
L0135: PRINT "You have so far scored "
L0136: PRINT_NUM G14
PRINT " out of a possible "
PRINT_NUM #0000
PRINT ", in "
PRINT_NUM G0f
PRINT " turn"
JE G0f,#01 [TRUE] L0137
PRINT "s"
L0137: RTRUE
L0138: JE Ge9,#0d [FALSE] L0145
STORE Gef,L00
JE Gef,#01 [FALSE] L0141
JZ G1a [TRUE] L0139
PRINT "The score was "
JUMP L0140
L0139: PRINT "The score is "
L0140: PRINT_RET "made up as follows:
"
L0141: JE Gef,#02 [FALSE] L0142
PRINT_RET "finding sundry items"
L0142: JE Gef,#03 [FALSE] L0143
PRINT_RET "visiting various places"
L0143: JE Gef,#04 [FALSE] L0144
PRINT "total (out of "
PRINT_NUM #0000
PRINT_RET ")"
L0144: RTRUE
L0145: JE Ge9,#0e [FALSE] L0148
STORE Gef,L00
JE Gef,#01 [FALSE] L0146
PRINT_RET "You are carrying nothing."
L0146: JE Gef,#02 [FALSE] L0147
PRINT "You are carrying"
L0147: RTRUE
L0148: JE Ge9,#0f [FALSE] L0172
STORE Gef,L00
JE Gef,#01 [FALSE] L0149
PRINT_RET "Taken."
L0149: JE Gef,#02 [FALSE] L0150
PRINT_RET "You are always self-possessed."
L0150: JE Gef,#03 [FALSE] L0151
PRINT "I don't suppose "
CALL_2N R0105 (L01)
PRINT_RET " would care for that."
L0151: JE Gef,#04 [FALSE] L0154
PRINT "You'd have to get "
TEST_ATTR L01,#14 [FALSE] L0152
PRINT "off "
JUMP L0153
L0152: PRINT "out of "
L0153: CALL_2N R0105 (L01)
PRINT_RET " first."
L0154: JE Gef,#05 [FALSE] L0155
PRINT "You already have "
CALL_2N R0009 (L01)
PRINT_RET "."
L0155: JE Gef,#06 [FALSE] L0158
TEST_ATTR G32,#1e [FALSE] L0156
PRINT "Those seem "
JUMP L0157
L0156: PRINT "That seems "
L0157: PRINT "to belong to "
CALL_2N R0105 (L01)
PRINT_RET "."
L0158: JE Gef,#07 [FALSE] L0161
TEST_ATTR G32,#1e [FALSE] L0159
PRINT "Those seem "
JUMP L0160
L0159: PRINT "That seems "
L0160: PRINT "to be a part of "
CALL_2N R0105 (L01)
PRINT_RET "."
L0161: JE Gef,#08 [FALSE] L0162
CALL_2N R0012 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET "n't available."
L0162: JE Gef,#09 [FALSE] L0163
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET "n't open."
L0163: JE Gef,#0a [FALSE] L0166
TEST_ATTR L01,#1e [FALSE] L0164
PRINT "They're "
JUMP L0165
L0164: PRINT "That's "
L0165: PRINT_RET "hardly portable."
L0166: JE Gef,#0b [FALSE] L0169
TEST_ATTR L01,#1e [FALSE] L0167
PRINT "They're "
JUMP L0168
L0167: PRINT "That's "
L0168: PRINT_RET "fixed in place."
L0169: JE Gef,#0c [FALSE] L0170
PRINT_PADDR S075
NEW_LINE
RTRUE
L0170: JE Gef,#0d [FALSE] L0171
PRINT "(putting "
CALL_2N R0105 (L01)
PRINT " into "
CALL_2N R0105 (#0000)
PRINT_RET " to make room)"
L0171: RTRUE
L0172: JE Ge9,#10 [FALSE] L0179
STORE Gef,L00
JE Gef,#01 [FALSE] L0175
TEST_ATTR L01,#1e [FALSE] L0173
CALL_2N R0106 (L01)
PRINT " are "
JUMP L0174
L0173: CALL_2N R0106 (L01)
PRINT " is "
L0174: PRINT_RET "already here."
L0175: JE Gef,#02 [FALSE] L0176
PRINT "You haven't got "
CALL_2N R0009 (L01)
PRINT_RET "."
L0176: JE Gef,#03 [FALSE] L0177
PRINT "(first taking "
CALL_2N R0105 (L01)
PRINT_RET " off)"
L0177: JE Gef,#04 [FALSE] L0178
PRINT_RET "Dropped."
L0178: RTRUE
L0179: JE Ge9,#11 [FALSE] L0187
STORE Gef,L00
JE Gef,#01 [FALSE] L0182
TEST_ATTR L01,#1e [FALSE] L0180
PRINT "They are"
JUMP L0181
L0180: PRINT "It is"
L0181: PRINT_RET " unfortunately closed."
L0182: JE Gef,#02 [FALSE] L0185
TEST_ATTR L01,#1e [FALSE] L0183
PRINT "But they aren't"
JUMP L0184
L0183: PRINT "But it isn't"
L0184: PRINT_RET " there now."
L0185: JE Gef,#03 [FALSE] L0186
PRINT_RET "Removed."
L0186: RTRUE
L0187: JE Ge9,#12 [FALSE] L0196
STORE Gef,L00
JE Gef,#01 [FALSE] L0188
PRINT "You need to be holding "
CALL_2N R0105 (L01)
PRINT " before you can put "
CALL_2N R0010 (L01)
PRINT_RET " on top of something else."
L0188: JE Gef,#02 [FALSE] L0189
PRINT_PADDR S076
NEW_LINE
RTRUE
L0189: JE Gef,#03 [FALSE] L0190
PRINT "Putting things on "
CALL_2N R0105 (L01)
PRINT_RET " would achieve nothing."
L0190: JE Gef,#04 [FALSE] L0191
PRINT_RET "You lack the dexterity."
L0191: JE Gef,#05 [FALSE] L0192
PRINT "(first taking "
CALL_2N R0010 (L01)
PRINT_RET " off)
"
L0192: JE Gef,#06 [FALSE] L0193
PRINT "There is no more room on "
CALL_2N R0105 (L01)
PRINT_RET "."
L0193: JE Gef,#07 [FALSE] L0194
PRINT_RET "Done."
L0194: JE Gef,#08 [FALSE] L0195
PRINT "You put "
CALL_2N R0105 (L01)
PRINT " on "
CALL_2N R0105 (G33)
PRINT_RET "."
L0195: RTRUE
L0196: JE Ge9,#13 [FALSE] L0206
STORE Gef,L00
JE Gef,#01 [FALSE] L0197
PRINT "You need to be holding "
CALL_2N R0105 (L01)
PRINT " before you can put "
CALL_2N R0010 (L01)
PRINT_RET " into something else."
L0197: JE Gef,#02 [FALSE] L0198
CALL_2N R0012 (L01)
PRINT_RET " can't contain things."
L0198: JE Gef,#03 [FALSE] L0199
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " closed."
L0199: JE Gef,#04 [FALSE] L0200
PRINT "You'll need to take "
CALL_2N R0010 (L01)
PRINT_RET " off first."
L0200: JE Gef,#05 [FALSE] L0201
PRINT_PADDR S077
NEW_LINE
RTRUE
L0201: JE Gef,#06 [FALSE] L0202
PRINT "(first taking "
CALL_2N R0010 (L01)
PRINT_RET " off)
"
L0202: JE Gef,#07 [FALSE] L0203
PRINT "There is no more room in "
CALL_2N R0105 (L01)
PRINT_RET "."
L0203: JE Gef,#08 [FALSE] L0204
PRINT_RET "Done."
L0204: JE Gef,#09 [FALSE] L0205
PRINT "You put "
CALL_2N R0105 (L01)
PRINT " into "
CALL_2N R0105 (G33)
PRINT_RET "."
L0205: RTRUE
L0206: JE Ge9,#14 [FALSE] L0211
STORE Gef,L00
JE Gef,#01 [FALSE] L0207
CALL_2N R0106 (L01)
PRINT_RET " can't contain things."
L0207: JE Gef,#02 [FALSE] L0208
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " closed."
L0208: JE Gef,#03 [FALSE] L0209
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " empty already."
L0209: JE Gef,#04 [FALSE] L0210
PRINT_PADDR S078
NEW_LINE
RTRUE
L0210: RTRUE
L0211: JE Ge9,#15 [FALSE] L0217
STORE Gef,L00
JE Gef,#01 [FALSE] L0212
PRINT "You aren't holding "
CALL_2N R0105 (L01)
PRINT_RET "."
L0212: JE Gef,#02 [FALSE] L0213
PRINT "You juggle "
CALL_2N R0105 (L01)
PRINT_PADDR S079
NEW_LINE
RTRUE
L0213: JE Gef,#03 [FALSE] L0216
CALL_2N R0106 (L01)
TEST_ATTR L01,#1e [FALSE] L0214
PRINT " don't"
JUMP L0215
L0214: PRINT " doesn't"
L0215: PRINT_RET " seem interested."
L0216: RTRUE
L0217: JE Ge9,#16 [FALSE] L0220
STORE Gef,L00
JE Gef,#01 [FALSE] L0218
PRINT "You aren't holding "
CALL_2N R0105 (L01)
PRINT_RET "."
L0218: JE Gef,#02 [FALSE] L0219
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " unimpressed."
L0219: RTRUE
L0220: JE Ge9,#17 [FALSE] L0238
STORE Gef,L00
JE Gef,#01 [FALSE] L0223
PRINT "But you're already "
TEST_ATTR L01,#14 [FALSE] L0221
PRINT "on "
JUMP L0222
L0221: PRINT "in "
L0222: CALL_2N R0105 (L01)
PRINT_RET "."
L0223: JE Gef,#02 [FALSE] L0226
TEST_ATTR L01,#1e [FALSE] L0224
PRINT "They're"
JUMP L0225
L0224: PRINT "That's"
L0225: PRINT_RET " not something you can enter."
L0226: JE Gef,#03 [FALSE] L0227
PRINT "You can't get into the closed "
CALL_2N R0107 (L01)
PRINT_RET "."
L0227: JE Gef,#04 [FALSE] L0228
PRINT_PADDR S080
NEW_LINE
RTRUE
L0228: JE Gef,#05 [FALSE] L0231
PRINT "You get "
TEST_ATTR L01,#14 [FALSE] L0229
PRINT "onto "
JUMP L0230
L0229: PRINT "into "
L0230: CALL_2N R0105 (L01)
PRINT_RET "."
L0231: JE Gef,#06 [FALSE] L0234
PRINT "(getting "
TEST_ATTR L01,#14 [FALSE] L0232
PRINT "off "
JUMP L0233
L0232: PRINT "out of "
L0233: CALL_2N R0105 (L01)
PRINT_RET ")"
L0234: JE Gef,#07 [FALSE] L0237
TEST_ATTR L01,#14 [FALSE] L0235
PRINT "(getting onto "
CALL_2N R0105 (L01)
PRINT_RET ")
"
L0235: TEST_ATTR L01,#04 [FALSE] L0236
PRINT "(getting into "
CALL_2N R0105 (L01)
PRINT_RET ")
"
L0236: PRINT "(entering "
CALL_2N R0105 (L01)
PRINT_RET ")
"
L0237: RTRUE
L0238: JE Ge9,#18 [FALSE] L0239
PRINT "But you aren't on "
CALL_2N R0105 (L01)
PRINT_RET " at the moment."
L0239: JE Ge9,#19 [FALSE] L0245
STORE Gef,L00
JE Gef,#01 [FALSE] L0240
PRINT_PADDR S081
NEW_LINE
RTRUE
L0240: JE Gef,#02 [FALSE] L0241
PRINT "You can't get out of the closed "
CALL_2N R0107 (L01)
PRINT_RET "."
L0241: JE Gef,#03 [FALSE] L0244
PRINT "You get "
TEST_ATTR L01,#14 [FALSE] L0242
PRINT "off "
JUMP L0243
L0242: PRINT "out of "
L0243: CALL_2N R0105 (L01)
PRINT_RET "."
L0244: RTRUE
L0245: JE Ge9,#1a [FALSE] L0246
PRINT_PADDR S082
NEW_LINE
RTRUE
L0246: JE Ge9,#1b [FALSE] L0256
STORE Gef,L00
JE Gef,#01 [FALSE] L0249
PRINT "You'll have to get "
TEST_ATTR L01,#14 [FALSE] L0247
PRINT "off "
JUMP L0248
L0247: PRINT "out of "
L0248: CALL_2N R0105 (L01)
PRINT_RET " first."
L0249: JE Gef,#02 [FALSE] L0250
PRINT_RET "You can't go that way."
L0250: JE Gef,#03 [FALSE] L0251
PRINT "You are unable to climb "
CALL_2N R0105 (L01)
PRINT_RET "."
L0251: JE Gef,#04 [FALSE] L0252
PRINT "You are unable to descend by "
CALL_2N R0105 (L01)
PRINT_RET "."
L0252: JE Gef,#05 [FALSE] L0253
PRINT "You can't, since "
CALL_2N R0105 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " in the way."
L0253: JE Gef,#06 [FALSE] L0255
PRINT "You can't, since "
CALL_2N R0105 (L01)
TEST_ATTR L01,#1e [FALSE] L0254
PRINT_RET " lead nowhere."
L0254: PRINT_RET " leads nowhere."
L0255: RTRUE
L0256: JE Ge9,#1c [FALSE] L0257
PRINT_PADDR S083
NEW_LINE
RTRUE
L0257: JE Ge9,#1d [FALSE] L0258
PRINT_PADDR S084
NEW_LINE
RTRUE
L0258: JE Ge9,#1e [FALSE] L0259
PRINT_PADDR S085
NEW_LINE
RTRUE
L0259: JE Ge9,#1f [FALSE] L0273
STORE Gef,L00
JE Gef,#01 [FALSE] L0260
PRINT " (on "
CALL_2N R0105 (L01)
PRINT ")"
JUMP L0272
L0260: JE Gef,#02 [FALSE] L0261
PRINT " (in "
CALL_2N R0105 (L01)
PRINT ")"
JUMP L0272
L0261: JE Gef,#03 [FALSE] L0262
PRINT " (as "
PRINT_OBJ L01
PRINT ")"
JUMP L0272
L0262: JE Gef,#04 [FALSE] L0264
PRINT "
On "
CALL_2N R0105 (L01)
ADD #0008,#0010 -> -(SP)
ADD (SP)+,#0080 -> -(SP)
ADD (SP)+,#0040 -> -(SP)
ADD (SP)+,#0400 -> -(SP)
ADD (SP)+,#0800 -> -(SP)
GET_CHILD L01 -> -(SP) [FALSE] L0263
L0263: CALL_VN R0123 ((SP)+,(SP)+)
PRINT_RET "."
L0264: JE L01,G07 [TRUE] L0267
TEST_ATTR L01,#14 [FALSE] L0265
PRINT "
On "
JUMP L0266
L0265: PRINT "
In "
L0266: CALL_2N R0105 (L01)
PRINT " you"
JUMP L0268
L0267: PRINT "
You"
L0268: PRINT " can "
JE L00,#05 [FALSE] L0269
PRINT "also "
L0269: PRINT "see "
ADD #0008,#0200 -> -(SP)
ADD (SP)+,#0010 -> -(SP)
ADD (SP)+,#0080 -> -(SP)
ADD (SP)+,#0040 -> -(SP)
ADD (SP)+,#0800 -> -(SP)
GET_CHILD L01 -> -(SP) [FALSE] L0270
L0270: CALL_VN R0123 ((SP)+,(SP)+)
JE L01,G07 [TRUE] L0271
PRINT_RET "."
L0271: PRINT_RET " here."
L0272: RTRUE
L0273: JE Ge9,#20 [FALSE] L0278
STORE Gef,L00
JE Gef,#01 [FALSE] L0274
PRINT_PADDR S086
NEW_LINE
RTRUE
L0274: JE Gef,#02 [FALSE] L0275
PRINT "You see nothing special about "
CALL_2N R0105 (L01)
PRINT_RET "."
L0275: JE Gef,#03 [FALSE] L0277
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT " currently switched "
TEST_ATTR L01,#0d [FALSE] L0276
PRINT_RET "on."
L0276: PRINT_RET "off."
L0277: RTRUE
L0278: JE Ge9,#21 [FALSE] L0281
STORE Gef,L00
JE Gef,#01 [FALSE] L0279
PRINT_RET "But it's dark."
L0279: JE Gef,#02 [FALSE] L0280
PRINT_RET "You find nothing of interest."
L0280: RTRUE
L0281: JE Ge9,#22 [FALSE] L0291
STORE Gef,L00
JE Gef,#01 [FALSE] L0282
PRINT_RET "But it's dark."
L0282: JE Gef,#02 [FALSE] L0283
PRINT "There is nothing on "
CALL_2N R0105 (L01)
PRINT_RET "."
L0283: JE Gef,#03 [FALSE] L0285
PRINT "On "
CALL_2N R0105 (L01)
ADD #0040,#0008 -> -(SP)
ADD (SP)+,#0400 -> -(SP)
ADD (SP)+,#0800 -> -(SP)
GET_CHILD L01 -> -(SP) [FALSE] L0284
L0284: CALL_VN R0123 ((SP)+,(SP)+)
PRINT_RET "."
L0285: JE Gef,#04 [FALSE] L0286
PRINT_RET "You find nothing of interest."
L0286: JE Gef,#05 [FALSE] L0287
PRINT "You can't see inside, since "
CALL_2N R0105 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " closed."
L0287: JE Gef,#06 [FALSE] L0288
CALL_2N R0106 (L01)
PRINT " "
CALL_2N R0011 (L01)
PRINT_RET " empty."
L0288: JE Gef,#07 [FALSE] L0290
PRINT "In "
CALL_2N R0105 (L01)
ADD #0040,#0008 -> -(SP)
ADD (SP)+,#0400 -> -(SP)
ADD (SP)+,#0800 -> -(SP)
GET_CHILD L01 -> -(SP) [FALSE] L0289
L0289: CALL_VN R0123 ((SP)+,(SP)+)
PRINT_RET "."
L0290: RTRUE
L0291: JE Ge9,#23 [FALSE] L0300
STORE Gef,L00
JE Gef,#01 [FALSE] L0294
TEST_ATTR L01,#1e [FALSE] L0292
PRINT "They don't "
JUMP L0293
L0292: PRINT "That doesn't "
L0293: PRINT_PADDR S087
NEW_LINE
RTRUE
L0294: JE Gef,#02 [FALSE] L0295
CALL_2N R0013 (L01)
PRINT_RET " unlocked at the moment."
L0295: JE Gef,#03 [FALSE] L0298
TEST_ATTR L01,#1e [FALSE] L0296
PRINT "Those don't "
JUMP L0297
L0296: PRINT "That doesn't "
L0297: PRINT_RET "seem to fit the lock."
L0298: JE Gef,#04 [FALSE] L0299
PRINT "You unlock "
CALL_2N R0105 (L01)
PRINT_RET "."
L0299: RTRUE
L0300: JE Ge9,#24 [FALSE] L0310
STORE Gef,L00
JE Gef,#01 [FALSE] L0303
TEST_ATTR L01,#1e [FALSE] L0301
PRINT "They don't "
JUMP L0302
L0301: PRINT "That doesn't "
L0302: PRINT_PADDR S088
NEW_LINE
RTRUE
L0303: JE Gef,#02 [FALSE] L0304
CALL_2N R0013 (L01)
PRINT_RET " locked at the moment."
L0304: JE Gef,#03 [FALSE] L0305
PRINT "First you'll have to close "
CALL_2N R0105 (L01)
PRINT_RET "."
L0305: JE Gef,#04 [FALSE] L0308
TEST_ATTR L01,#1e [FALSE] L0306
PRINT "Those don't "
JUMP L0307
L0306: PRINT "That doesn't "
L0307: PRINT_RET "seem to fit the lock."
L0308: JE Gef,#05 [FALSE] L0309
PRINT "You lock "
CALL_2N R0105 (L01)
PRINT_RET "."
L0309: RTRUE
L0310: JE Ge9,#25 [FALSE] L0314
STORE Gef,L00
JE Gef,#01 [FALSE] L0311
CALL_2N R0013 (L01)
PRINT_RET " not something you can switch."
L0311: JE Gef,#02 [FALSE] L0312
CALL_2N R0013 (L01)
PRINT_RET " already on."
L0312: JE Gef,#03 [FALSE] L0313
PRINT "You switch "
CALL_2N R0105 (L01)
PRINT_RET " on."
L0313: RTRUE
L0314: JE Ge9,#26 [FALSE] L0318
STORE Gef,L00
JE Gef,#01 [FALSE] L0315
CALL_2N R0013 (L01)
PRINT_RET " not something you can switch."
L0315: JE Gef,#02 [FALSE] L0316
CALL_2N R0013 (L01)
PRINT_RET " already off."
L0316: JE Gef,#03 [FALSE] L0317
PRINT "You switch "
CALL_2N R0105 (L01)
PRINT_RET " off."
L0317: RTRUE
L0318: JE Ge9,#27 [FALSE] L0328
STORE Gef,L00
JE Gef,#01 [FALSE] L0319
CALL_2N R0013 (L01)
PRINT_RET " not something you can open."
L0319: JE Gef,#02 [FALSE] L0322
TEST_ATTR L01,#1e [FALSE] L0320
PRINT "They seem "
JUMP L0321
L0320: PRINT "It seems "
L0321: PRINT_RET "to be locked."
L0322: JE Gef,#03 [FALSE] L0323
CALL_2N R0013 (L01)
PRINT_RET " already open."
L0323: JE Gef,#04 [FALSE] L0326
PRINT "You open "
CALL_2N R0105 (L01)
PRINT ", revealing "
ADD #0008,#0040 -> -(SP)
ADD (SP)+,#0800 -> -(SP)
GET_CHILD L01 -> -(SP) [FALSE] L0324
L0324: CALL_VS R0123 ((SP)+,(SP)+) -> -(SP)
JZ (SP)+ [FALSE] L0325
PRINT_RET "nothing."
L0325: PRINT_RET "."
L0326: JE Gef,#05 [FALSE] L0327
PRINT "You open "
CALL_2N R0105 (L01)
PRINT_RET "."
L0327: RTRUE
L0328: JE Ge9,#28 [FALSE] L0332
STORE Gef,L00
JE Gef,#01 [FALSE] L0329
CALL_2N R0013 (L01)
PRINT_RET " not something you can close."
L0329: JE Gef,#02 [FALSE] L0330
CALL_2N R0013 (L01)
PRINT_RET " already closed."
L0330: JE Gef,#03 [FALSE] L0331
PRINT "You close "
CALL_2N R0105 (L01)
PRINT_RET "."
L0331: RTRUE
L0332: JE Ge9,#29 [FALSE] L0335
STORE Gef,L00
JE Gef,#01 [FALSE] L0333
PRINT "You're not wearing "
CALL_2N R0009 (L01)
PRINT_RET "."
L0333: JE Gef,#02 [FALSE] L0334
PRINT "You take off "
CALL_2N R0105 (L01)
PRINT_RET "."
L0334: RTRUE
L0335: JE Ge9,#2a [FALSE] L0340
STORE Gef,L00
JE Gef,#01 [FALSE] L0336
PRINT "You can't wear "
CALL_2N R0009 (L01)
PRINT_RET "!"
L0336: JE Gef,#02 [FALSE] L0337
PRINT "You're not holding "
CALL_2N R0009 (L01)
PRINT_RET "!"
L0337: JE Gef,#03 [FALSE] L0338
PRINT "You're already wearing "
CALL_2N R0009 (L01)
PRINT_RET "!"
L0338: JE Gef,#04 [FALSE] L0339
PRINT "You put on "
CALL_2N R0105 (L01)
PRINT_RET "."
L0339: RTRUE
L0340: JE Ge9,#2b [FALSE] L0343
STORE Gef,L00
JE Gef,#01 [FALSE] L0341
CALL_2N R0013 (L01)
PRINT_RET " plainly inedible."
L0341: JE Gef,#02 [FALSE] L0342
PRINT "You eat "
CALL_2N R0105 (L01)
PRINT_RET ". Not bad."
L0342: RTRUE
L0343: JE Ge9,#2c,#2d [FALSE] L0344
PRINT_RET "That was a rhetorical question."
L0344: JE Ge9,#2e [FALSE] L0345
PRINT_PADDR S089
NEW_LINE
RTRUE
L0345: JE Ge9,#2f [FALSE] L0346
PRINT_PADDR S090
NEW_LINE
RTRUE
L0346: JE Ge9,#30 [FALSE] L0347
PRINT_PADDR S091
NEW_LINE
RTRUE
L0347: JE Ge9,#31 [FALSE] L0348
PRINT_RET "That seems unnecessary."
L0348: JE Ge9,#32 [FALSE] L0349
PRINT_RET "Keep your mind on the game."
L0349: JE Ge9,#33 [FALSE] L0350
PRINT_RET "What a good idea."
L0350: JE Ge9,#34 [FALSE] L0351
PRINT_RET "You smell nothing unexpected."
L0351: JE Ge9,#35 [FALSE] L0352
PRINT_RET "You hear nothing unexpected."
L0352: JE Ge9,#36 [FALSE] L0353
PRINT_RET "You taste nothing unexpected."
L0353: JE Ge9,#37 [FALSE] L0357
STORE Gef,L00
JE Gef,#01 [FALSE] L0354
PRINT_RET "Keep your hands to yourself!"
L0354: JE Gef,#02 [FALSE] L0355
PRINT_RET "You feel nothing unexpected."
L0355: JE Gef,#03 [FALSE] L0356
PRINT_RET "If you think that'll help."
L0356: RTRUE
L0357: JE Ge9,#38 [FALSE] L0358
PRINT_PADDR S092
NEW_LINE
RTRUE
L0358: JE Ge9,#39 [FALSE] L0359
PRINT "Cutting "
CALL_2N R0009 (L01)
PRINT_RET " up would achieve little."
L0359: JE Ge9,#3a [FALSE] L0360
PRINT_PADDR S093
NEW_LINE
RTRUE
L0360: JE Ge9,#3b,#3c [FALSE] L0361
PRINT_PADDR S094
NEW_LINE
RTRUE
L0361: JE Ge9,#3d [FALSE] L0362
PRINT_PADDR S095
NEW_LINE
RTRUE
L0362: JE Ge9,#3e [FALSE] L0363
PRINT_PADDR S096
NEW_LINE
RTRUE
L0363: JE Ge9,#3f [FALSE] L0364
PRINT_RET "Oh, don't apologise."
L0364: JE Ge9,#40 [FALSE] L0365
PRINT_PADDR S097
NEW_LINE
RTRUE
L0365: JE Ge9,#41 [FALSE] L0366
PRINT_RET "Quite."
L0366: JE Ge9,#42 [FALSE] L0367
PRINT_PADDR S098
NEW_LINE
RTRUE
L0367: JE Ge9,#43 [FALSE] L0368
PRINT_PADDR S099
NEW_LINE
RTRUE
L0368: JE Ge9,#44 [FALSE] L0369
PRINT_PADDR S100
NEW_LINE
RTRUE
L0369: JE Ge9,#45 [FALSE] L0370
PRINT "You can't usefully blow "
CALL_2N R0009 (L01)
PRINT_RET "."
L0370: JE Ge9,#46 [FALSE] L0371
PRINT_RET "You achieve nothing by this."
L0371: JE Ge9,#47 [FALSE] L0372
PRINT "No, you can't set "
CALL_2N R0009 (L01)
PRINT_RET "."
L0372: JE Ge9,#48 [FALSE] L0373
PRINT "No, you can't set "
CALL_2N R0009 (L01)
PRINT_RET " to anything."
L0373: JE Ge9,#49 [FALSE] L0374
PRINT_RET "You wave, feeling foolish."
L0374: JE Ge9,#4a [FALSE] L0377
STORE Gef,L00
JE Gef,#01 [FALSE] L0375
PRINT "But you aren't holding "
CALL_2N R0009 (L01)
PRINT_RET "."
L0375: JE Gef,#02 [FALSE] L0376
PRINT "You look ridiculous waving "
CALL_2N R0105 (L01)
PRINT_RET "."
L0376: RTRUE
L0377: JE Ge9,#4b,#4c,#4d [FALSE] L0384
STORE Gef,L00
JE Gef,#01 [FALSE] L0380
TEST_ATTR L01,#1e [FALSE] L0378
PRINT "Those are "
JUMP L0379
L0378: PRINT "It is "
L0379: PRINT_RET "fixed in place."
L0380: JE Gef,#02 [FALSE] L0381
PRINT_RET "You are unable to."
L0381: JE Gef,#03 [FALSE] L0382
PRINT_RET "Nothing obvious happens."
L0382: JE Gef,#04 [FALSE] L0383
PRINT_PADDR S101
NEW_LINE
RTRUE
L0383: RTRUE
L0384: JE Ge9,#4e [FALSE] L0388
STORE Gef,L00
JE Gef,#01 [FALSE] L0385
PRINT_PADDR S102
NEW_LINE
RTRUE
L0385: JE Gef,#02 [FALSE] L0386
PRINT_RET "That's not a direction."
L0386: JE Gef,#03 [FALSE] L0387
PRINT_RET "Not that way you can't."
L0387: RTRUE
L0388: JE Ge9,#4f [FALSE] L0391
STORE Gef,L00
JE Gef,#01 [FALSE] L0389
PRINT_RET "Keep your hands to yourself."
L0389: JE Gef,#02 [FALSE] L0390
PRINT_RET "You achieve nothing by this."
L0390: RTRUE
L0391: JE Ge9,#50 [FALSE] L0394
STORE Gef,L00
JE Gef,#01 [FALSE] L0392
PRINT_RET "Futile."
L0392: JE Gef,#02 [FALSE] L0393
PRINT_PADDR S103
NEW_LINE
RTRUE
L0393: RTRUE
L0394: JE Ge9,#51 [FALSE] L0397
STORE Gef,L00
JE Gef,#01 [FALSE] L0395
PRINT_RET "You talk to yourself a while."
L0395: JE Gef,#02 [FALSE] L0396
PRINT_RET "This provokes no reaction."
L0396: RTRUE
L0397: JE Ge9,#52,#53 [FALSE] L0398
PRINT_RET "There is no reply."
L0398: JE Ge9,#54 [FALSE] L0399
PRINT_RET "Nothing is on sale."
L0399: JE Ge9,#55 [FALSE] L0400
PRINT_RET "Your singing is abominable."
L0400: JE Ge9,#56 [FALSE] L0401
PRINT_PADDR S104
NEW_LINE
RTRUE
L0401: JE Ge9,#57 [FALSE] L0402
PRINT_RET "Time passes."
L0402: JE Ge9,#58 [FALSE] L0403
PRINT_PADDR S105
NEW_LINE
RTRUE
L0403: JE Ge9,#59 [FALSE] L0404
PRINT_PADDR S106
CALL_2N R0105 (L01)
PRINT_RET "."
L0404: RTRUE
Routine R0015, 0 locals
CALL_VS R0224 (#1007,#11) -> -(SP)
RET_POPPED
Routine R0016, 0 locals
CALL_VS R0224 (#1007,#12) -> -(SP)
RET_POPPED
Routine R0017, 0 locals
CALL_VS R0224 (#1007,#13) -> -(SP)
RET_POPPED
Routine R0018, 1 local
JE L00,#0f [FALSE] L0001
STORE G59,#01
STORE G5a,#0f
RTRUE
L0001: LOADB L00,#00 -> -(SP)
AND (SP)+,#0f -> G59
ADD L00,#01 -> -(SP)
LOADW (SP)+,#00 -> G5a
RTRUE
Routine R0019, 2 locals
STORE L01,#00
L0001: JL L01,#20 [FALSE] L0002
STOREW #10c6,L01,#0f
STOREW #1046,L01,#01
STOREW #1086,L01,#0f
INC L01
JUMP L0001
L0002: LOADB L00,#01 -> -(SP)
LOADB L00,#00 -> -(SP)
MUL #0100,(SP)+ -> -(SP)
ADD (SP)+,(SP)+ -> G56
AND G56,#0400 -> -(SP)
JZ (SP)+ [FALSE] L0003
PUSH #00
JUMP L0004
L0003: PUSH #01
L0004: PULL G57
AND G56,#03ff -> G56
DEC L00
STORE G52,#00
STORE L01,#00
L0005: ADD L00,#03 -> L00
LOADB L00,#00 -> -(SP)
JE (SP)+,#0f [FALSE] L0006
JUMP L0008
L0006: STOREW #10c6,L01,L00
CALL_2N R0018 (L00)
JE G59,#02 [TRUE] L0007
INC G52
L0007: STOREW #1046,L01,G59
STOREW #1086,L01,G5a
INC L01
JUMP L0005
L0008: ADD L00,#01 -> -(SP)
RET_POPPED
Routine R0020, 2 locals
LOADB L00,#01 -> -(SP)
ADD #02,(SP)+ -> -(SP)
STOREB L00,(SP)+,#00
TOKENISE L00,L01
RTRUE
Routine R0021, 1 local
CALL_2N R0023 (L00)
RFALSE
Routine R0022, 8 locals
CALL_1N R0094
L0001: STORE L03,#00
L0002: JL L03,#40 [FALSE] L0003
LOADB L00,L03 -> -(SP)
STOREB #1473,L03,(SP)+
INC L03
JUMP L0002
L0003: STOREB L00,#00,#78
STOREB L01,#00,#0f
CALL_2N R0224 (#1008)
CALL_1N R0381
STORE Gef,#00
STORE Gec,L00
STOREB Gec,#01,#00
CALL_1N R0231
READ Gec,L01 -> Gef
LOADB L01,#01 -> L02
JZ L02 [FALSE] L0004
CALL_VN R0224 (#1007,#0a)
JUMP L0001
L0004: LOADW L01,#01 -> L04
JE L04,"oops","o","oops" [FALSE] L0005
JUMP L0010
L0005: JE L04,"undo","undo","undo" [FALSE] L0006
LOADB #12ff,#01 -> -(SP)
JE (SP)+,#01 [FALSE] L0006
PRINT_PADDR S107
NEW_LINE
RTRUE
L0006: SAVE_UNDO -> L03
STORE G0d,#00
STORE G0c,#02
JE L03,#ffff [FALSE] L0007
STORE G0c,#00
L0007: JZ L03 [FALSE] L0008
STORE G0c,#01
L0008: JE L03,#02 [FALSE] L0009
SET_TEXT_STYLE BOLDFACE
CALL_2N R0107 (G07)
PRINT "
"
SET_TEXT_STYLE ROMAN
CALL_VN R0224 (#1007,#0d)
STORE G0d,#01
JUMP L0001
L0009: RET L02
L0010: JZ G81 [FALSE] L0011
CALL_VN R0224 (#1007,#0e)
JUMP L0001
L0011: JE L02,#01 [FALSE] L0012
CALL_VN R0224 (#1007,#0f)
JUMP L0001
L0012: JG L02,#02 [FALSE] L0013
CALL_VN R0224 (#1007,#10)
JUMP L0001
L0013: STORE L03,#00
L0014: JG L03,#78 [TRUE] L0015
LOADB L00,L03 -> -(SP)
STOREB #1340,L03,(SP)+
INC L03
JUMP L0014
L0015: LOADB L01,#09 -> L06
LOADB L01,#08 -> L07
STORE L03,#00
L0016: JL L03,#40 [FALSE] L0017
LOADB #1473,L03 -> -(SP)
STOREB L00,L03,(SP)+
INC L03
JUMP L0016
L0017: CALL_VN R0020 (L00,L01)
MUL #04,G81 -> -(SP)
ADD (SP)+,#01 -> -(SP)
LOADB L01,(SP)+ -> L04
MUL #04,G81 -> -(SP)
LOADB L01,(SP)+ -> L05
STORE L03,#00
L0018: JL L03,L05 [FALSE] L0019
ADD L03,L04 -> -(SP)
STOREB L00,(SP)+,#20
INC L03
JUMP L0018
L0019: JL L05,L07 [FALSE] L0022
STORE L03,#78
L0020: ADD L04,L07 -> -(SP)
JL L03,(SP)+ [TRUE] L0021
SUB L03,L07 -> -(SP)
ADD (SP)+,L05 -> -(SP)
LOADB L00,(SP)+ -> -(SP)
STOREB L00,L03,(SP)+
DEC L03
JUMP L0020
L0021: SUB L07,L05 -> -(SP)
LOADB L00,#01 -> -(SP)
ADD (SP)+,(SP)+ -> -(SP)
STOREB L00,#01,(SP)+
L0022: STORE L03,#00
L0023: JL L03,L07 [FALSE] L0024
ADD L03,L06 -> -(SP)
LOADB #1340,(SP)+ -> -(SP)
ADD L03,L04 -> -(SP)
STOREB L00,(SP)+,(SP)+
INC L03
JUMP L0023
L0024: CALL_VN R0020 (L00,L01)
LOADB L01,#01 -> L02
RET L02
Routine R0023, 11 locals
JE G46,#01 [FALSE] L0003
STORE L05,#00
L0001: JL L05,#08 [FALSE] L0002
LOADW #0fa6,L05 -> -(SP)
STOREW L00,L05,(SP)+
INC L05
JUMP L0001
L0002: STORE G46,#00
RTRUE
L0003: JE G83,#01 [FALSE] L0004
STORE G83,#00
CALL_VN R0020 (#1286,#12ff)
JUMP L0005
L0004: CALL_VN R0022 (#1286,#12ff)
L0005: STORE G3b,#01
LOADB #12ff,#01 -> G7d
STORE G7c,#01
CALL_1N R0003
CALL_VN R0020 (#1286,#12ff)
CALL_1N R0410
LOADB #12ff,#01 -> G7d
STORE L07,#00
STORE G7f,#01
STORE G3c,G19
CALL_2S R0024 (G19) -> G3d
STORE G80,#00
L0006: STORE G72,#00
STORE G56,#ffff
L0007: STORE G7c,G7f
CALL_1S R0058 -> G7e
JE G7e,#ffff [FALSE] L0008
STORE G4a,#01
JUMP L0078
L0008: JE G7e,"g","again" [FALSE] L0009
STORE G7e,"again"
L0009: JE G7e,"again" [FALSE] L0014
JE G3c,G19 [TRUE] L0010
CALL_VN R0224 (#1007,#14)
JUMP L0004
L0010: LOADB #13fa,#01 -> -(SP)
JZ (SP)+ [FALSE] L0011
CALL_VN R0224 (#1007,#15)
JUMP L0004
L0011: STORE L05,#00
L0012: JL L05,#78 [FALSE] L0013
LOADB #13fa,L05 -> -(SP)
STOREB #1286,L05,(SP)+
INC L05
JUMP L0012
L0013: JUMP L0005
L0014: JE G7e,"again" [TRUE] L0016
STORE L05,#00
L0015: JL L05,#78 [FALSE] L0016
LOADB #1286,L05 -> -(SP)
STOREB #13fa,L05,(SP)+
INC L05
JUMP L0015
L0016: JZ G80 [FALSE] L0021
CALL_VS R0088 (G3c,#1c) -> L05
JL L05,#00 [FALSE] L0017
STORE G80,G7f
SUB #00,L05 -> L05
L0017: JE L05,#01 [FALSE] L0018
STOREW L00,#00,G2f
STOREW L00,#01,G32
STOREW L00,#02,G33
RTRUE
L0018: JZ L05 [TRUE] L0019
STORE G7e,L05
DEC G7c
DEC G7f
JUMP L0020
L0019: STORE G7c,G7f
CALL_1S R0057 -> G7e
L0020: JUMP L0022
L0021: STORE G80,#00
L0022: JZ G7e [TRUE] L0023
LOADB G7e,#06 -> -(SP)
AND (SP)+,#01 -> -(SP)
JZ (SP)+ [FALSE] L0037
L0023: STORE G7c,G7f
STORE G62,#00
STORE G5b,#00
CALL_VS R0030 (#06,#00,#00) -> L09
JE L09,#2710 [FALSE] L0024
JUMP L0005
L0024: JZ L09 [TRUE] L0025
STOREW L00,#00,#1b
STOREW L00,#01,#01
STOREW L00,#02,L09
JUMP L0105
L0025: JE G3c,G19 [FALSE] L0029
STORE L06,#02
L0026: JG L06,G7d [TRUE] L0028
CALL_1S R0057 -> L05
JE L05,"comma," [FALSE] L0027
JUMP L0030
L0027: INC L06
JUMP L0026
L0028: CALL_2S R0413 (G7e) -> G7e
JZ G7e [TRUE] L0029
JUMP L0037
L0029: STORE G4a,#0c
JUMP L0078
L0030: SUB G7c,#01 -> L06
JE L06,#01 [FALSE] L0031
CALL_VN R0224 (#1007,#16)
JUMP L0004
L0031: STORE G7c,#01
STORE G5d,#01
STORE G71,#01
CALL_VS R0030 (G19,G3d,#06) -> L09
STORE G71,#00
JE L09,#2710 [FALSE] L0032
JUMP L0005
L0032: JZ L09 [FALSE] L0033
CALL_VN R0224 (#1007,#17)
JUMP L0004
L0033: TEST_ATTR L09,#00 [TRUE] L0034
TEST_ATTR L09,#16 [TRUE] L0034
CALL_VN R0224 (#1007,#18,L09)
JUMP L0004
L0034: JE G7c,L06 [TRUE] L0035
CALL_VN R0224 (#1007,#19)
JUMP L0004
L0035: CALL_2N R0073 (L09)
ADD L06,#01 -> G7f
JE L09,G19 [FALSE] L0036
STORE G7c,G7f
CALL_1S R0058 -> -(SP)
JE (SP)+,"again","g","again" [FALSE] L0036
CALL_VN R0224 (#1007,#14)
JUMP L0004
L0036: STORE G3c,L09
CALL_2S R0024 (L09) -> G3d
JUMP L0007
L0037: LOADB G7e,#06 -> -(SP)
AND (SP)+,#02 -> -(SP)
DIV (SP)+,#02 -> G3e
JE G3e,#01 [FALSE] L0038
JE G3c,G19 [TRUE] L0038
STORE G4a,#0c
STORE G3e,#00
JUMP L0078
L0038: LOADB G7e,#07 -> -(SP)
SUB #ff,(SP)+ -> L05
LOADW #00,#07 -> -(SP)
LOADW (SP)+,L05 -> L01
LOADB L01,#00 -> -(SP)
SUB (SP)+,#01 -> L03
STORE G6d,#ffff
STORE G6e,#ffff
STORE G4a,#01
STORE G4b,#01
ADD L01,#01 -> L04
STORE L02,#00
L0039: JG L02,L03 [TRUE] L0078
STORE L05,#00
L0040: JL L05,#20 [FALSE] L0041
STOREW #10c6,L05,#0f
STOREW #1046,L05,#01
STOREW #1086,L05,#0f
INC L05
JUMP L0040
L0041: CALL_2S R0019 (L04) -> L04
STORE G48,#00
STORE G53,#00
STORE G4e,#00
STORE G4f,#00
STORE G41,#00
STORE G42,#00
STOREW #0f26,#00,#00
STORE G61,#00
STORE G49,#01
ADD G7f,#01 -> G7c
STORE G58,#ffff
STORE G62,#00
STORE L05,#00
STORE L0a,#00
STORE G4c,#00
L0042: LOADW #10c6,G4c -> -(SP)
JE (SP)+,#0f [TRUE] L0052
STORE G72,#00
LOADW #1046,G4c -> -(SP)
JE (SP)+,#02 [TRUE] L0043
INC L05
L0043: LOADW #1046,G4c -> -(SP)
JE (SP)+,#01 [FALSE] L0051
LOADW #1086,G4c -> -(SP)
JE (SP)+,#02 [FALSE] L0044
STORE L0a,#01
L0044: LOADW #1086,G4c -> -(SP)
JE (SP)+,#04,#05 [FALSE] L0051
JE L05,#01 [FALSE] L0051
INC G4c
LOADW #1046,G4c -> -(SP)
JE (SP)+,#02 [FALSE] L0050
L0045: LOADW #1046,G4c -> -(SP)
JE (SP)+,#02 [FALSE] L0046
INC G4c
JUMP L0045
L0046: LOADW #1046,G4c -> -(SP)
JE (SP)+,#01 [FALSE] L0050
LOADW #1086,G4c -> -(SP)
JZ (SP)+ [FALSE] L0050
L0047: JG G7c,G7d [TRUE] L0050
SUB G4c,#01 -> -(SP)
LOADW #1086,(SP)+ -> -(SP)
CALL_1S R0057 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0049
CALL_VS R0030 (G3d,G3c,#00) -> L09
JE L09,#2710 [FALSE] L0048
JUMP L0005
L0048: JL L09,#02 [TRUE] L0049
STORE G58,L09
L0049: JUMP L0047
L0050: JUMP L0052
L0051: INC G4c
JUMP L0042
L0052: STORE G6b,#00
JZ L0a [TRUE] L0053
JE G52,#01 [FALSE] L0053
JE G56,#0f [FALSE] L0053
STORE G6b,#01
L0053: STORE G48,#00
STORE G53,#00
STORE G4e,#00
STORE G4f,#00
STORE G41,#00
STORE G42,#00
STOREW #0f26,#00,#00
STORE G49,#01
ADD G7f,#01 -> G7c
STORE G4c,#01
L0054: STOREW #0fc6,G4c,#ffff
STORE G72,#00
SUB G4c,#01 -> -(SP)
LOADW #10c6,(SP)+ -> L08
LOADW #10c6,G4c -> G5d
JE L08,#0f [TRUE] L0057
STORE G71,#00
SUB G4c,#01 -> -(SP)
CALL_VS R0029 (L00,(SP)+) -> L09
STORE G71,#00
JE L09,#2710 [FALSE] L0055
JUMP L0005
L0055: JZ L09 [FALSE] L0056
JUMP L0074
L0056: JUMP L0073
L0057: JG G7c,G7d [TRUE] L0062
CALL_1S R0057 -> L09
JE L09,"then","then","then" [TRUE] L0058
JE L09,"comma," [FALSE] L0059
L0058: STORE G83,#01
SUB G7c,#01 -> G84
JUMP L0062
L0059: STORE L0a,#00
L0060: JL L0a,#20 [FALSE] L0061
LOADW #0fc6,L0a -> -(SP)
STOREW #1006,L0a,(SP)+
INC L0a
JUMP L0060
L0061: STORE G4d,G4c
STORE G49,#02
JUMP L0074
L0062: JL G4e,#01 [TRUE] L0063
LOADW L00,#02 -> -(SP)
JZ (SP)+ [FALSE] L0063
LOADW L00,#03 -> -(SP)
CALL_2S R0032 ((SP)+) -> L09
JZ L09 [TRUE] L0063
STORE G49,L09
JUMP L0074
L0063: JL G4e,#02 [TRUE] L0064
LOADW L00,#03 -> -(SP)
JZ (SP)+ [FALSE] L0064
LOADW L00,#02 -> -(SP)
CALL_2S R0032 ((SP)+) -> L09
JZ L09 [TRUE] L0064
STORE G49,L09
JUMP L0074
L0064: JE G6b,#02 [FALSE] L0065
LOADW L00,#02 -> -(SP)
JE (SP)+,G3c [FALSE] L0065
STORE G4a,#11
JUMP L0078
L0065: STORE G81,#00
JZ G53 [TRUE] L0066
PRINT "("
CALL_2N R0037 (G53)
PRINT ")
"
L0066: STOREW L00,#00,G56
STOREW L00,#01,G4e
JZ G57 [TRUE] L0067
JE G4e,#02 [FALSE] L0067
LOADW L00,#02 -> L05
LOADW L00,#03 -> -(SP)
STOREW L00,#02,(SP)+
STOREW L00,#03,L05
JE G4f,#02 [FALSE] L0067
STORE L05,G50
STORE G50,G51
STORE G51,L05
L0067: JG G4e,#00 [FALSE] L0068
LOADW L00,#02 -> -(SP)
JL (SP)+,#02 [TRUE] L0068
LOADW L00,#02 -> -(SP)
CALL_2N R0073 ((SP)+)
L0068: JZ G48 [TRUE] L0071
JE G3c,G19 [FALSE] L0071
STORE G46,#01
STORE L05,#00
L0069: JL L05,#08 [FALSE] L0070
LOADW L00,L05 -> -(SP)
STOREW #0fa6,L05,(SP)+
INC L05
JUMP L0069
L0070: STOREW L00,#00,#0f
STOREW L00,#01,#01
STOREW L00,#02,G48
CALL_VN R0224 (#1007,#1a,G48)
L0071: JE G83,#01 [FALSE] L0072
STORE G7c,G84
JUMP L0105
L0072: RTRUE
L0073: INC G4c
JUMP L0054
L0074: JG G49,G4a [FALSE] L0075
STORE G4a,G49
L0075: JE G49,#12 [TRUE] L0076
JG G49,G4b [FALSE] L0076
STORE G4b,G49
L0076: JE G6b,#02 [FALSE] L0077
JE G49,#11 [FALSE] L0077
JUMP L0078
L0077: INC L02
JUMP L0039
L0078: STORE G49,G4a
JE G3c,G19 [TRUE] L0081
JG G80,#00 [FALSE] L0079
STORE G7f,G80
JUMP L0006
L0079: STORE G7c,G7f
CALL_1S R0057 -> G41
JE G41,"comma," [FALSE] L0080
CALL_1S R0057 -> G41
INC G7f
L0080: CALL_2S R0061 (G7f) -> G42
STOREW L00,#00,#1009
STOREW L00,#01,#02
STOREW L00,#02,#01
STORE G50,G41
STOREW L00,#03,G3c
STORE G44,G7f
SUB G7d,G44 -> -(SP)
ADD (SP)+,#01 -> G45
RTRUE
L0081: CALL_2S R0227 (G49) -> -(SP)
JZ (SP)+ [TRUE] L0082
JUMP L0004
L0082: STORE G6d,G6f
STORE G6e,G70
JE G49,#01 [FALSE] L0083
CALL_VN R0224 (#1007,#1b)
STORE G81,#01
L0083: JE G49,#02 [FALSE] L0086
CALL_VN R0224 (#1007,#1c)
STORE L0a,#00
L0084: JL L0a,#20 [FALSE] L0085
LOADW #1006,L0a -> -(SP)
STOREW #0fc6,L0a,(SP)+
INC L0a
JUMP L0084
L0085: STORE G4c,G4d
CALL_2N R0037 (#00)
PRINT ".
"
L0086: JE G49,#03 [FALSE] L0087
CALL_VN R0224 (#1007,#1d)
L0087: JE G49,#04 [FALSE] L0088
CALL_VN R0224 (#1007,#1e)
STORE G81,G82
L0088: JE G49,#05 [FALSE] L0089
CALL_VN R0224 (#1007,#1f)
L0089: JE G49,#06 [FALSE] L0090
CALL_VN R0224 (#1007,#20)
STORE G81,G82
L0090: JE G49,#07 [FALSE] L0091
CALL_VN R0224 (#1007,#21)
L0091: JE G49,#08 [FALSE] L0092
CALL_VN R0224 (#1007,#22)
L0092: JE G49,#09 [FALSE] L0093
CALL_VN R0224 (#1007,#23)
L0093: JE G49,#0a [FALSE] L0094
CALL_VN R0224 (#1007,#24)
L0094: JE G49,#0b [FALSE] L0095
CALL_VN R0224 (#1007,#25)
L0095: JE G49,#0c [FALSE] L0096
CALL_VN R0224 (#1007,#26)
L0096: JE G49,#0d [FALSE] L0097
CALL_VN R0224 (#1007,#27)
L0097: JE G49,#0e [FALSE] L0099
JE G6e,#ffff [FALSE] L0098
CALL_VN R0224 (#1007,#23)
JUMP L0099
L0098: CALL_VN R0224 (#1007,#28)
L0099: JE G49,#0f [FALSE] L0100
CALL_VN R0224 (#1007,#29)
L0100: JE G49,#10 [FALSE] L0101
CALL_VN R0224 (#1007,#2a,G60)
L0101: JE G49,#11 [FALSE] L0103
JE G5f,#64 [FALSE] L0102
CALL_VN R0224 (#1007,#2b)
JUMP L0103
L0102: CALL_VN R0224 (#1007,#2c)
L0103: JE G49,#12 [FALSE] L0104
STORE G74,#03
CALL_1S G73 -> -(SP)
JE (SP)+,#ffff [FALSE] L0104
STORE G4a,G4b
JUMP L0078
L0104: JUMP L0004
L0105: JG G7c,G7d [TRUE] RTRUE
CALL_1S R0057 -> L05
JE L05,"then","then","then" [TRUE] L0106
JE L05,"comma," [FALSE] L0113
L0106: JG G7c,G7d [FALSE] L0107
STORE G83,#00
RTRUE
L0107: CALL_2S R0059 (G7f) -> L05
CALL_2S R0059 (G7c) -> L06
L0108: JL L05,L06 [FALSE] L0109
STOREB L05,#00,#20
INC L05
JUMP L0108
L0109: CALL_1S R0057 -> L05
JE L05,"again","g","again" [FALSE] L0112
SUB G7c,#02 -> -(SP)
CALL_2S R0059 ((SP)+) -> -(SP)
SUB (SP)+,#1286 -> L05
JG G7c,G7d [FALSE] L0110
STORE L06,#77
JUMP L0111
L0110: CALL_2S R0059 (G7c) -> -(SP)
SUB (SP)+,#1286 -> L06
L0111: JL L05,L06 [FALSE] L0112
STOREB #13fa,L05,#20
INC L05
JUMP L0111
L0112: CALL_VN R0020 (#1286,#12ff)
STORE G83,#01
RTRUE
L0113: STORE G4a,#02
JUMP L0078
Routine R0024, 2 locals
GET_PARENT L00 -> L01
JZ L01 [FALSE] L0001
RET L00
L0001: JE L00,G19 [FALSE] L0002
JE G07,#13 [FALSE] L0002
RET #13
L0002: GET_PARENT L01 -> -(SP)
JZ (SP)+ [TRUE] L0004
TEST_ATTR L01,#17 [TRUE] L0003
TEST_ATTR L01,#14 [TRUE] L0003
TEST_ATTR L01,#04 [FALSE] L0004
TEST_ATTR L01,#0e [FALSE] L0004
L0003: GET_PARENT L01 -> L01
JUMP L0002
L0004: RET L01
Routine R0025, 0 locals
STORE G62,#00
STORE G63,#00
STORE G64,#00
STORE G65,#00
STORE G68,#00
STORE G66,#00
STORE G67,#0fff
STORE G69,#00
RTRUE
Routine R0026, 7 locals
CALL_1N R0025
JG G7c,G7d [FALSE] L0001
RFALSE
L0001: STORE L03,#01
L0002: JZ L03 [TRUE] L0019
CALL_1S R0058 -> L01
STORE L03,#00
STORE L02,#01
JUMP L0004
L0003: ADD L02,#04 -> L02
L0004: LOADW #14e5,#00 -> -(SP)
JG L02,(SP)+ [TRUE] L0011
LOADW #14e5,L02 -> -(SP)
JE L01,(SP)+ [FALSE] L0010
STORE L03,#01
ADD L02,#02 -> -(SP)
LOADW #14e5,(SP)+ -> L05
JE L05,#0101 [TRUE] L0005
STORE G62,#01
L0005: STORE G68,#01
ADD L02,#01 -> -(SP)
LOADW #14e5,(SP)+ -> -(SP)
AND G67,(SP)+ -> G67
JE L05,#0100 [FALSE] L0008
ADD L02,#03 -> -(SP)
LOADW #14e5,(SP)+ -> L04
STORE Gef,L04
JE Gef,#00 [FALSE] L0006
OR G63,#02 -> G63
JUMP L0008
L0006: JE Gef,#01 [FALSE] L0007
OR G63,#04 -> G63
JUMP L0008
L0007: CALL_2S R0070 (L04) -> G66
JE G66,#ffff [FALSE] L0008
STORE G66,#15
L0008: JE L05,#09 [FALSE] L0009
OR G63,#10 -> G63
L0009: JE L05,#fff7 [FALSE] L0010
OR G63,#20 -> G63
L0010: JUMP L0003
L0011: JE L01,"another","other","other" [FALSE] L0012
STORE G62,#01
STORE L03,#01
OR G63,#01 -> G63
L0012: JE L01,"all","each","every" [TRUE] L0013
JE L01,"everythin","both" [FALSE] L0015
L0013: STORE G62,#01
STORE L03,#01
STORE G64,#64
JE G6b,#01 [FALSE] L0014
STORE G6b,#02
L0014: OR G63,#08 -> G63
L0015: JZ G6a [TRUE] L0017
JZ L00 [TRUE] L0017
CALL_2S R0109 (L01) -> L06
JE L06,#01 [FALSE] L0016
STORE G62,#01
STORE L03,#01
L0016: JG L06,#01 [FALSE] L0017
STORE G65,#01
STORE G62,#01
STORE L03,#01
STORE G64,L06
SUB G7c,#01 -> G69
OR G63,#08 -> G63
L0017: JE L03,#01 [FALSE] L0018
CALL_1S R0058 -> -(SP)
PULL Gef
JE Gef,"of","of","of" [TRUE] L0018
JE Gef,"of" [TRUE] L0018
DEC G7c
L0018: JUMP L0002
L0019: DEC G7c
JG G64,#00 [FALSE] L0020
JZ L00 [FALSE] L0020
RET #07
L0020: RFALSE
Routine R0027, 1 local
TEST_ATTR L00,#00 [TRUE] RTRUE
TEST_ATTR L00,#16 [FALSE] RFALSE
JE G56,#53,#52,#51 [TRUE] RTRUE
JE G56,#5a [TRUE] RTRUE
RFALSE
Routine R0028, 2 locals
LOADW #1086,L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0001
RET L00
L0001: LOADW #10c6,L01 -> -(SP)
LOADB (SP)+,#00 -> -(SP)
AND (SP)+,#20 -> -(SP)
JZ (SP)+ [FALSE] L0002
RET #ffff
L0002: LOADW #1086,L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0003
RET L00
L0003: INC L01
LOADW #10c6,L01 -> -(SP)
JE (SP)+,#0f [TRUE] L0004
LOADW #10c6,L01 -> -(SP)
LOADB (SP)+,#00 -> -(SP)
AND (SP)+,#10 -> -(SP)
JZ (SP)+ [FALSE] L0002
L0004: RET #ffff
Routine R0029, 13 locals
LOADW #10c6,L01 -> L02
CALL_2N R0018 (L02)
STORE G5b,#00
STORE G3b,#01
STORE Gef,G59
JE Gef,#01 [FALSE] L0020
STORE Gef,G5a
JE Gef,#07 [FALSE] L0004
CALL_2S R0061 (G7c) -> L03
CALL_1S R0057 -> G41
JE L03,#fc18 [FALSE] L0001
STORE L03,G41
L0001: STORE G42,L03
JZ G4f [FALSE] L0002
STORE G50,L03
JUMP L0003
L0002: STORE G51,L03
L0003: INC G4f
STORE L09,#01
JUMP L0077
L0004: JE Gef,#08 [FALSE] L0008
PUSH G7c
INC G7c
CALL_2S R0061 ((SP)+) -> L03
JE L03,#fc18 [FALSE] L0005
STORE G49,#03
RFALSE
L0005: PUSH G4f
INC G4f
JZ (SP)+ [FALSE] L0006
STORE G50,L03
JUMP L0007
L0006: STORE G51,L03
L0007: STORE L09,#01
JUMP L0077
L0008: JE Gef,#06 [FALSE] L0011
JE G56,#52,#53,#5a [TRUE] L0009
JE G56,#51 [FALSE] L0010
L0009: STORE G71,#01
L0010: JUMP L0019
L0011: JE Gef,#09 [FALSE] L0019
STORE G44,G7c
ADD L01,#01 -> -(SP)
LOADW #1046,(SP)+ -> -(SP)
JE (SP)+,#02 [TRUE] L0012
ADD L01,#01 -> -(SP)
LOADW #10c6,(SP)+ -> -(SP)
JE (SP)+,#0f [TRUE] L0012
CALL_2N R0116 (#0d)
L0012: CALL_1S R0058 -> L04
JE L04,#ffff [TRUE] L0013
ADD L01,#01 -> -(SP)
CALL_VS R0028 (L04,(SP)+) -> -(SP)
JE (SP)+,#ffff [TRUE] L0012
L0013: DEC G7c
SUB G7c,G44 -> G45
JZ G45 [FALSE] L0014
RTRUE
L0014: JE G56,#53,#52,#51 [FALSE] L0018
STORE L04,G7c
STORE G7c,G44
CALL_1S R0057 -> G43
JE G43,"the" [FALSE] L0015
JG G45,#01 [FALSE] L0015
CALL_1S R0057 -> G43
L0015: STORE G7c,L04
PUSH G4f
INC G4f
JZ (SP)+ [FALSE] L0016
STORE G50,G43
JUMP L0017
L0016: STORE G51,G43
L0017: STORE L09,#01
JUMP L0077
L0018: RTRUE
L0019: JUMP L0039
L0020: JE Gef,#02 [FALSE] L0027
LOADB L02,#00 -> -(SP)
AND (SP)+,#10 -> -(SP)
JZ (SP)+ [TRUE] L0021
RTRUE
L0021: JG G7c,G7d [FALSE] L0024
JZ G53 [FALSE] L0022
JL G4e,G52 [FALSE] L0022
STORE G53,G4c
STORE G54,L02
CALL_2S R0064 (G5a) -> -(SP)
ADD #2710,(SP)+ -> -(SP)
STOREW #0fc6,G4c,(SP)+
L0022: JZ G53 [FALSE] L0023
RFALSE
L0023: CALL_2S R0064 (G5a) -> -(SP)
ADD #2710,(SP)+ -> -(SP)
STOREW #0fc6,G4c,(SP)+
RTRUE
L0024: CALL_1S R0057 -> L04
CALL_2S R0064 (L04) -> -(SP)
ADD #2710,(SP)+ -> -(SP)
STOREW #0fc6,G4c,(SP)+
JE L04,G5a [FALSE] L0025
RTRUE
L0025: CALL_VS R0028 (L04,L01) -> -(SP)
JE (SP)+,#ffff [TRUE] L0026
RTRUE
L0026: RFALSE
L0027: JE Gef,#06 [FALSE] L0034
CALL_1S G5a -> L03
JL L03,#ff38 [FALSE] L0028
ADD L03,#0100 -> G5a
JUMP L0039
L0028: JL L03,#00 [TRUE] RFALSE
JZ L03 [FALSE] L0029
DEC G52
RTRUE
L0029: JE L03,#01 [FALSE] L0032
JZ G4f [FALSE] L0030
STORE G50,G43
JUMP L0031
L0030: STORE G51,G43
L0031: INC G4f
L0032: JE L03,#2710 [FALSE] L0033
RET L03
L0033: STORE L09,L03
JUMP L0077
L0034: JE Gef,#05 [FALSE] L0037
STORE G72,G5a
STORE G74,#01
CALL_1S G72 -> L03
JE L03,#01 [FALSE] L0035
STORE G5a,#02
JUMP L0036
L0035: STORE G5a,#00
L0036: JUMP L0039
L0037: JE Gef,#04 [FALSE] L0038
ADD #01,G5a -> G5b
STORE G5a,#00
JUMP L0039
L0038: JE Gef,#03 [FALSE] L0039
STORE G5b,G5a
STORE G5a,#00
L0039: STORE L02,G5a
STORE L0c,#00
JE L02,#02,#03,#04 [TRUE] L0040
JE L02,#05 [FALSE] L0041
L0040: STORE L0c,#01
L0041: STORE L0b,#00
STORE L08,#01
STORE G55,#00
L0042: CALL_1S R0057 -> L04
DEC G7c
STORE G6d,#ffff
STORE G6e,#ffff
CALL_2S R0070 (L04) -> L03
JZ L03 [TRUE] L0047
STORE G6d,L04
STORE G6e,L03
JE L03,#ffff [FALSE] L0047
STORE L03,#01
JUMP L0044
L0043: ADD L03,#04 -> L03
L0044: LOADW #14e5,#00 -> -(SP)
JG L03,(SP)+ [TRUE] L0046
LOADW #14e5,L03 -> -(SP)
JE L04,(SP)+ [FALSE] L0045
JUMP L0047
L0045: JUMP L0043
L0046: STORE G6f,G6d
STORE G70,G6e
STORE G49,#09
RFALSE
L0047: JE L04,"me","myself","self" [FALSE] L0048
STORE G6d,L04
STORE G6e,G19
L0048: STORE G6a,#01
STORE L0a,G7c
L0049: CALL_2S R0026 (L0c) -> L03
JZ L03 [TRUE] L0050
STORE G49,L03
RFALSE
L0050: STORE G81,G7c
JE L02,#01 [TRUE] L0065
LOADW #0f26,#00 -> L05
CALL_VS R0030 (G3d,G3c,L02) -> L03
JE L03,#2710 [FALSE] L0051
RET L03
L0051: JZ L03 [FALSE] L0053
JZ G68 [TRUE] L0052
CALL_1N R0025
STORE G7c,L0a
JUMP L0050
L0052: CALL_1S R0038 -> G49
JUMP L0080
L0053: JE L03,#01 [FALSE] L0059
JZ L0b [FALSE] L0054
STORE L0b,#01
JUMP L0058
L0054: LOADW #0f26,#00 -> L07
STOREW #0f26,#00,L05
ADD L05,#01 -> L06
L0055: JG L06,L07 [TRUE] L0058
JZ L08 [TRUE] L0056
LOADW #0f26,L06 -> -(SP)
CALL_2N R0039 ((SP)+)
JUMP L0057
L0056: LOADW #0f26,L06 -> -(SP)
CALL_2N R0040 ((SP)+)
L0057: INC L06
JUMP L0055
L0058: JUMP L0064
L0059: JZ G7a [FALSE] L0060
JZ G68 [TRUE] L0060
CALL_1N R0025
STORE G7c,L0a
JUMP L0050
L0060: JE L02,#06 [FALSE] L0061
CALL_2S R0027 (L03) -> -(SP)
JZ (SP)+ [FALSE] L0061
STORE G49,#0b
JUMP L0080
L0061: JZ L0b [FALSE] L0062
STORE L09,L03
JUMP L0064
L0062: JZ L08 [TRUE] L0063
CALL_2N R0039 (L03)
JUMP L0064
L0063: CALL_2N R0040 (L03)
L0064: JUMP L0071
L0065: CALL_VS R0030 (G3c,G3d,L02) -> L03
JE L03,#2710 [FALSE] L0066
RET L03
L0066: JZ L03 [FALSE] L0068
JZ G68 [TRUE] L0067
CALL_1N R0025
STORE G7c,L0a
JUMP L0050
L0067: CALL_1S R0038 -> G49
RET L03
L0068: GET_PARENT L03 -> L04
JE L04,G3c [TRUE] L0070
JE G46,#01 [FALSE] L0069
STORE G82,G81
STORE G49,#06
JUMP L0080
L0069: STORE G48,L03
L0070: STORE L09,L03
L0071: ADD G81,G7a -> G7c
CALL_1S R0057 -> L04
JE L04,"and","and","and" [TRUE] L0072
JE L04,"but","except","but" [TRUE] L0072
JE L04,"comma," [FALSE] L0076
L0072: JZ L0c [FALSE] L0073
STORE G49,#07
JUMP L0080
L0073: JE L04,"but","except","but" [FALSE] L0074
SUB #01,L08 -> L08
L0074: JZ L0b [FALSE] L0075
STOREW #0f26,#00,#01
STOREW #0f26,#01,L09
STORE L0b,#01
L0075: STORE G55,#01
STORE G53,#00
JUMP L0042
L0076: DEC G7c
L0077: JZ L0b [TRUE] L0078
STORE L09,#00
STORE G61,L02
JUMP L0079
L0078: JE G62,#01 [FALSE] L0079
AND G63,#08 -> -(SP)
JZ (SP)+ [TRUE] L0079
JL G64,#64 [FALSE] L0079
JG G64,#01 [FALSE] L0079
STORE G60,#01
STORE G5f,G64
STORE G49,#10
JUMP L0080
L0079: ADD G4e,#02 -> -(SP)
STOREW L00,(SP)+,L09
INC G4e
STOREW #0fc6,G4c,L09
RTRUE
L0080: JZ G6a [TRUE] L0081
JE G65,#01 [FALSE] L0081
STORE G6a,#00
STORE G7c,L0a
JUMP L0049
L0081: RFALSE
Routine R0030, 10 locals
STORE G7a,#00
STORE G78,#00
STORE G7b,G7c
STORE G77,#00
CALL_VN R0044 (L00,L01,L02)
ADD G7b,G7a -> G7c
JZ G78 [FALSE] L0001
INC G7c
RFALSE
L0001: JG G7b,G7d [TRUE] L0003
JE G78,#01 [FALSE] L0002
LOADW #1106,#00 -> L04
RET L04
L0002: JG G7c,G7d [TRUE] L0003
CALL_1S R0057 -> L04
DEC G7c
JE L04,"and","and","and" [TRUE] L0003
JE L04,"comma,","then","then" [TRUE] L0003
JE L04,"then","but","except" [TRUE] L0003
JE L04,"but" [TRUE] L0003
JE G5d,#0f [TRUE] RFALSE
L0003: STORE G79,#00
JE G78,#01 [FALSE] L0004
LOADW #1106,#00 -> L04
L0004: JG G78,#01 [FALSE] L0005
CALL_2S R0031 (L02) -> L04
JE L04,#ffff [TRUE] RFALSE
JE L04,#01 [TRUE] RTRUE
L0005: JZ L04 [TRUE] L0008
JZ G55 [TRUE] L0006
RET L04
L0006: JZ G53 [FALSE] L0007
STORE G53,G4c
L0007: STOREW #0fc6,G4c,L04
RET L04
L0008: JG G7b,G7d [FALSE] L0009
JUMP L0035
L0009: JE L02,#06 [FALSE] L0010
CALL_VN R0224 (#1007,#2d)
JUMP L0011
L0010: CALL_VN R0224 (#1007,#2e)
L0011: STORE L05,G79
STORE L09,#00
STORE L04,#01
L0012: JG L04,G79 [TRUE] L0019
L0013: LOADW #1186,L09 -> -(SP)
JE (SP)+,L04 [TRUE] L0014
SUB #00,L04 -> -(SP)
LOADW #1186,L09 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0014
INC L09
JUMP L0013
L0014: LOADW #1106,L09 -> L06
LOADW #1186,L09 -> -(SP)
JG (SP)+,#00 [FALSE] L0015
CALL_2N R0105 (L06)
JUMP L0016
L0015: CALL_2N R0104 (L06)
L0016: SUB L05,#01 -> -(SP)
JL L04,(SP)+ [FALSE] L0017
PRINT ", "
L0017: SUB L05,#01 -> -(SP)
JE L04,(SP)+ [FALSE] L0018
PRINT_PADDR S034
L0018: INC L04
JUMP L0012
L0019: PRINT "?
"
L0020: STORE L04,#02
L0021: JL L04,#78 [FALSE] L0022
STOREB #1340,L04,#20
INC L04
JUMP L0021
L0022: CALL_VS R0022 (#1340,#13b9) -> L08
LOADW #13b9,#01 -> L03
JE L03,"all","each","every" [TRUE] L0023
JE L03,"everythin","both" [FALSE] L0028
L0023: JE L02,#02,#03,#04 [TRUE] L0024
JE L02,#05 [FALSE] L0027
L0024: LOADW #0f26,#00 -> L07
STORE L04,#00
L0025: JL L04,G78 [FALSE] L0026
ADD L07,L04 -> -(SP)
JL (SP)+,#3f [FALSE] L0026
LOADW #1106,L04 -> L06
ADD L04,#01 -> -(SP)
ADD (SP)+,L07 -> -(SP)
STOREW #0f26,(SP)+,L06
INC L04
JUMP L0025
L0026: ADD L04,L07 -> -(SP)
STOREW #0f26,#00,(SP)+
RTRUE
L0027: CALL_VN R0224 (#1007,#2f)
JUMP L0020
L0028: JZ L03 [TRUE] L0029
LOADB L03,#06 -> L05
AND L05,#01 -> -(SP)
JE #00,(SP)+ [TRUE] L0029
JE L03,"long","short","normal" [TRUE] L0029
JE L03,"brief","full","verbose" [TRUE] L0029
CALL_VN R0066 (#1286,#1340)
RET #2710
L0029: CALL_2S R0059 (G7b) -> -(SP)
SUB (SP)+,#1286 -> L06
LOADB #1340,#01 -> -(SP)
ADD (SP)+,#01 -> L07
LOADB #1286,#00 -> -(SP)
ADD #1286,(SP)+ -> -(SP)
SUB (SP)+,#01 -> L05
L0030: ADD #1286,L06 -> -(SP)
ADD (SP)+,L07 -> -(SP)
JL L05,(SP)+ [TRUE] L0031
SUB L05,L07 -> -(SP)
LOADB #00,(SP)+ -> -(SP)
STOREB L05,#00,(SP)+
DEC L05
JUMP L0030
L0031: STORE L04,#00
L0032: JL L04,L07 [FALSE] L0033
ADD #02,L04 -> -(SP)
LOADB #1340,(SP)+ -> -(SP)
ADD L06,L04 -> -(SP)
STOREB #1286,(SP)+,(SP)+
INC L04
JUMP L0032
L0033: ADD L06,L07 -> -(SP)
SUB (SP)+,#01 -> -(SP)
STOREB #1286,(SP)+,#20
LOADB #1286,#01 -> -(SP)
ADD (SP)+,L07 -> -(SP)
STOREB #1286,#01,(SP)+
LOADB #1286,#00 -> -(SP)
SUB (SP)+,#01 -> -(SP)
LOADB #1286,#01 -> -(SP)
JL (SP)+,(SP)+ [TRUE] L0034
LOADB #1286,#00 -> -(SP)
STOREB #1286,#01,(SP)+
L0034: RET #2710
L0035: JE L02,#06 [FALSE] L0036
CALL_VN R0224 (#1007,#30)
JUMP L0037
L0036: CALL_VN R0224 (#1007,#31)
L0037: STORE L04,#02
L0038: JL L04,#78 [FALSE] L0039
STOREB #1340,L04,#20
INC L04
JUMP L0038
L0039: CALL_VS R0022 (#1340,#13b9) -> L08
LOADW #13b9,#01 -> L03
JZ L03 [TRUE] L0040
LOADB L03,#06 -> L05
AND L05,#01 -> -(SP)
JE #00,(SP)+ [TRUE] L0040
CALL_VN R0066 (#1286,#1340)
RET #2710
L0040: JZ G53 [TRUE] L0054
STORE L05,G53
L0041: JL L05,G4c [FALSE] L0054
LOADW #0fc6,L05 -> -(SP)
JE (SP)+,#ffff [FALSE] L0042
JUMP L0053
L0042: LOADB #1286,#01 -> -(SP)
ADD #02,(SP)+ -> L04
STORE Gef,#1286
STORE Gee,#01
LOADB Gef,Gee -> Ged
INC Ged
STOREB Gef,Gee,Ged
PUSH L04
INC L04
STOREB #1286,(SP)+,#20
JL G37,#05 [TRUE] L0043
PRINT_PADDR S108
LOADW #0fc6,L05 -> -(SP)
PRINT_NUM (SP)+
PRINT "]
"
L0043: STOREW #13b9,#01,#00
LOADW #0fc6,L05 -> -(SP)
JL (SP)+,#02 [TRUE] L0049
LOADW #0fc6,L05 -> -(SP)
JL (SP)+,#2710 [FALSE] L0049
LOADW #0fc6,L05 -> -(SP)
CALL_2N R0073 ((SP)+)
STORE L06,#01
JUMP L0045
L0044: ADD L06,#03 -> L06
L0045: LOADW #14cb,#00 -> -(SP)
JG L06,(SP)+ [TRUE] L0048
ADD L06,#02 -> -(SP)
LOADW #14cb,(SP)+ -> -(SP)
LOADW #0fc6,L05 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0047
LOADW #14cb,L06 -> -(SP)
STOREW #13b9,#01,(SP)+
JL G37,#05 [TRUE] L0046
PRINT "[Using pronoun '"
LOADW #13b9,#01 -> -(SP)
PRINT_ADDR (SP)+
PRINT "']
"
L0046: JUMP L0048
L0047: JUMP L0044
L0048: JUMP L0050
L0049: LOADW #0fc6,L05 -> -(SP)
SUB (SP)+,#2710 -> -(SP)
CALL_2S R0065 ((SP)+) -> -(SP)
STOREW #13b9,#01,(SP)+
JL G37,#05 [TRUE] L0050
PRINT "[Using preposition '"
LOADW #13b9,#01 -> -(SP)
PRINT_ADDR (SP)+
PRINT "']
"
L0050: LOADW #13b9,#01 -> -(SP)
JZ (SP)+ [TRUE] L0053
ADD #1286,L04 -> L06
OUTPUT_STREAM REDIRECT_ENABLE,L06
LOADW #13b9,#01 -> -(SP)
PRINT_ADDR (SP)+
OUTPUT_STREAM #fffd
LOADW L06,#00 -> L06
STORE L07,L04
L0051: ADD L04,L06 -> -(SP)
JL L07,(SP)+ [FALSE] L0052
ADD L07,#02 -> -(SP)
LOADB #1286,(SP)+ -> -(SP)
STOREB #1286,L07,(SP)+
INC L07
JUMP L0051
L0052: ADD L04,L06 -> L04
SUB L04,#02 -> -(SP)
STOREB #1286,#01,(SP)+
L0053: INC L05
JUMP L0041
L0054: LOADB #1286,#01 -> -(SP)
ADD #02,(SP)+ -> L04
STORE Gef,#1286
STORE Gee,#01
LOADB Gef,Gee -> Ged
INC Ged
STOREB Gef,Gee,Ged
PUSH L04
INC L04
STOREB #1286,(SP)+,#20
STORE L05,#00
JUMP L0056
L0055: INC L04
INC L05
L0056: LOADB #1340,#01 -> -(SP)
JL L05,(SP)+ [FALSE] L0058
ADD L05,#02 -> -(SP)
LOADB #1340,(SP)+ -> -(SP)
STOREB #1286,L04,(SP)+
STORE Gef,#1286
STORE Gee,#01
LOADB Gef,Gee -> Ged
INC Ged
STOREB Gef,Gee,Ged
LOADB #1286,#01 -> -(SP)
JE (SP)+,#78 [FALSE] L0057
JUMP L0058
L0057: JUMP L0055
L0058: JL L04,#78 [FALSE] L0059
STOREB #1286,L04,#20
INC L04
JUMP L0058
L0059: RET #2710
Routine R0031, 10 locals
SUB G78,#01 -> L02
STORE L04,#00
LOADW #1106,#00 -> L05
STORE L01,#00
L0001: JG L01,L02 [TRUE] L0011
LOADW #1106,L01 -> L06
STOREW #1206,L01,L04
CALL_2S R0024 (L06) -> L07
JE L00,#01 [FALSE] L0002
GET_PARENT L06 -> -(SP)
JE (SP)+,G3c [FALSE] L0002
INC L04
STORE L05,L06
L0002: JE L00,#02 [FALSE] L0003
CALL_2S R0024 (G3c) -> -(SP)
JE L07,(SP)+ [FALSE] L0003
JE L06,G3c [TRUE] L0003
TEST_ATTR L06,#03 [TRUE] L0003
TEST_ATTR L06,#11 [TRUE] L0003
INC L04
STORE L05,L06
L0003: JE L00,#03 [FALSE] L0004
GET_PARENT L06 -> -(SP)
JE (SP)+,G3c [FALSE] L0004
INC L04
STORE L05,L06
L0004: JE L00,#04,#05 [FALSE] L0009
JE G58,#ffff [FALSE] L0007
JE L00,#04 [FALSE] L0005
INC L04
STORE L05,L06
L0005: JE L00,#05 [FALSE] L0006
GET_PARENT L06 -> -(SP)
JE (SP)+,G3c [TRUE] L0006
INC L04
STORE L05,L06
L0006: JUMP L0009
L0007: JE L00,#04 [FALSE] L0008
JE L06,G58 [TRUE] L0008
INC L04
STORE L05,L06
L0008: JE L00,#05 [FALSE] L0009
JIN L06,G58 [FALSE] L0009
INC L04
STORE L05,L06
L0009: JE L00,#06 [FALSE] L0010
CALL_2S R0027 (L06) -> -(SP)
JE (SP)+,#01 [FALSE] L0010
INC L04
STORE L05,L06
L0010: LOADW #1206,L01 -> -(SP)
SUB L04,(SP)+ -> -(SP)
MUL #03e8,(SP)+ -> -(SP)
STOREW #1206,L01,(SP)+
INC L01
JUMP L0001
L0011: JE L04,#01 [FALSE] L0012
RET L05
L0012: JE L00,#06 [FALSE] L0013
JZ L04 [FALSE] L0013
LOADW #1106,#00 -> -(SP)
RET_POPPED
L0013: JZ G62 [FALSE] L0014
STORE G63,#00
L0014: CALL_1N R0033
JZ G78 [FALSE] L0015
RET #ffff
L0015: JZ G62 [FALSE] L0016
CALL_1S R0035 -> L01
JL L01,#00 [TRUE] L0016
RET L01
L0016: JE G62,#01 [FALSE] L0028
AND G63,#08 -> -(SP)
JZ (SP)+ [TRUE] L0028
JE L00,#02,#03,#04 [TRUE] L0017
JE L00,#05 [TRUE] L0017
STORE G49,#07
RET #ffff
L0017: STORE L01,#00
LOADW #0f26,#00 -> L09
CALL_1S R0034 -> L02
JUMP L0019
L0018: CALL_1S R0034 -> L02
L0019: JE L02,#ffff [TRUE] L0026
JL L01,G64 [FALSE] L0026
ADD L01,L09 -> -(SP)
JL (SP)+,#3f [FALSE] L0026
STORE L08,#00
TEST_ATTR L02,#03 [TRUE] L0020
TEST_ATTR L02,#1a [TRUE] L0020
STORE L08,#01
L0020: JE L00,#03,#04 [FALSE] L0021
GET_PARENT L02 -> -(SP)
JE (SP)+,G3c [TRUE] L0021
STORE L08,#00
L0021: CALL_VS R0232 (L02,L08) -> L03
JE L03,#01 [FALSE] L0022
STORE L08,#01
JUMP L0023
L0022: JE L03,#02 [FALSE] L0023
STORE L08,#00
L0023: JE L08,#01 [FALSE] L0024
INC L01
ADD L01,L09 -> -(SP)
STOREW #0f26,(SP)+,L02
JUMP L0025
L0024: STORE L01,L01
L0025: JUMP L0018
L0026: JL L01,G64 [FALSE] L0027
JL G64,#64 [FALSE] L0027
STORE G49,#10
STORE G5f,G64
STORE G60,L01
RET #ffff
L0027: ADD L01,L09 -> -(SP)
STOREW #0f26,#00,(SP)+
STORE G61,L00
RTRUE
L0028: STORE L01,#00
L0029: JL L01,G78 [FALSE] L0030
STOREW #1186,L01,#00
INC L01
JUMP L0029
L0030: STORE L06,#01
STORE L01,#00
L0031: JL L01,G78 [FALSE] L0036
LOADW #1186,L01 -> -(SP)
JZ (SP)+ [FALSE] L0035
PUSH L06
INC L06
STOREW #1186,L01,(SP)+
STORE L08,#00
ADD L01,#01 -> L02
L0032: JL L02,G78 [FALSE] L0034
LOADW #1186,L02 -> -(SP)
JZ (SP)+ [FALSE] L0033
LOADW #1106,L02 -> -(SP)
LOADW #1106,L01 -> -(SP)
CALL_VS R0036 ((SP)+,(SP)+) -> -(SP)
JE (SP)+,#01 [FALSE] L0033
STORE L08,#01
LOADW #1186,L01 -> -(SP)
STOREW #1186,L02,(SP)+
L0033: INC L02
JUMP L0032
L0034: JE L08,#01 [FALSE] L0035
SUB #01,L06 -> -(SP)
STOREW #1186,L01,(SP)+
L0035: INC L01
JUMP L0031
L0036: DEC L06
STORE G79,L06
JZ G62 [FALSE] L0041
JG L06,#01 [FALSE] L0041
STORE L03,#ffff
STORE L01,#00
L0037: JL L01,G78 [FALSE] L0040
LOADW #1206,L01 -> -(SP)
JG (SP)+,L03 [FALSE] L0038
LOADW #1206,L01 -> L03
LOADW #1186,L01 -> L02
MUL L02,L02 -> L02
STORE L08,#00
JUMP L0039
L0038: LOADW #1206,L01 -> -(SP)
JE (SP)+,L03 [FALSE] L0039
LOADW #1186,L01 -> -(SP)
LOADW #1186,L01 -> -(SP)
MUL (SP)+,(SP)+ -> -(SP)
JE (SP)+,L02 [TRUE] L0039
STORE L08,#01
L0039: INC L01
JUMP L0037
L0040: JZ L08 [TRUE] L0041
RFALSE
L0041: JE L06,#01 [FALSE] L0042
STORE G55,#01
L0042: CALL_1S R0034 -> -(SP)
RET_POPPED
Routine R0032, 3 locals
JE G61,#04,#05 [FALSE] L0006
STORE L01,#01
STORE L02,#00
L0001: LOADW #0f26,#00 -> -(SP)
JG L01,(SP)+ [TRUE] L0005
JE G61,#04 [FALSE] L0002
LOADW #0f26,L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0003
L0002: JE G61,#05 [FALSE] L0004
LOADW #0f26,L01 -> -(SP)
JIN (SP)+,L00 [FALSE] L0004
L0003: INC L02
LOADW #0f26,L01 -> -(SP)
STOREW #0f26,L02,(SP)+
L0004: INC L01
JUMP L0001
L0005: STOREW #0f26,#00,L02
L0006: JE G61,#02 [FALSE] L0014
JE G56,#0f [FALSE] L0014
STORE L01,#01
STORE L02,#00
L0007: LOADW #0f26,#00 -> -(SP)
JG L01,(SP)+ [TRUE] L0009
CALL_2S R0024 (G3c) -> -(SP)
LOADW #0f26,L01 -> -(SP)
CALL_2S R0024 ((SP)+) -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0008
INC L02
L0008: INC L01
JUMP L0007
L0009: JE G6b,#02 [TRUE] L0010
JG L02,#00 [FALSE] L0014
L0010: STORE L01,#01
STORE L02,#00
L0011: LOADW #0f26,#00 -> -(SP)
JG L01,(SP)+ [TRUE] L0013
CALL_2S R0024 (G3c) -> -(SP)
LOADW #0f26,L01 -> -(SP)
CALL_2S R0024 ((SP)+) -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0012
INC L02
LOADW #0f26,L01 -> -(SP)
STOREW #0f26,L02,(SP)+
L0012: INC L01
JUMP L0011
L0013: STOREW #0f26,#00,L02
L0014: LOADW #0f26,#00 -> L01
JZ L01 [FALSE] L0015
RET #11
L0015: RFALSE
Routine R0033, 8 locals
AND G63,#02 -> -(SP)
JZ (SP)+ [TRUE] L0001
ADD L05,#2d -> L05
L0001: AND G63,#04 -> -(SP)
JZ (SP)+ [TRUE] L0002
ADD L05,#2d -> L05
L0002: AND G63,#10 -> -(SP)
JZ (SP)+ [TRUE] L0003
ADD L05,#2d -> L05
L0003: AND G63,#20 -> -(SP)
JZ (SP)+ [TRUE] L0004
ADD L05,#2d -> L05
L0004: JZ G66 [TRUE] L0005
ADD L05,#2d -> L05
L0005: STORE L06,#1e
STORE L07,#14
JE G56,#0f,#11 [FALSE] L0006
STORE L06,#14
STORE L07,#1e
L0006: STORE L03,#00
L0007: JL L03,G78 [FALSE] L0020
LOADW #1106,L03 -> L02
GET_PARENT L02 -> L00
STORE L01,#00
AND G63,#02 -> -(SP)
JZ (SP)+ [TRUE] L0008
JE L00,G3c [FALSE] L0008
ADD L01,#2d -> L01
L0008: AND G63,#04 -> -(SP)
JZ (SP)+ [TRUE] L0009
JE L00,G3d [FALSE] L0009
ADD L01,#2d -> L01
L0009: AND G63,#10 -> -(SP)
JZ (SP)+ [TRUE] L0010
TEST_ATTR L02,#09 [FALSE] L0010
ADD L01,#2d -> L01
L0010: AND G63,#20 -> -(SP)
JZ (SP)+ [TRUE] L0011
TEST_ATTR L02,#09 [TRUE] L0011
ADD L01,#2d -> L01
L0011: JZ G66 [TRUE] L0012
JE L00,G66 [FALSE] L0012
ADD L01,#2d -> L01
L0012: JL L01,L05 [FALSE] L0013
STOREW #1106,L03,#ffff
JUMP L0019
L0013: STORE L01,#00
TEST_ATTR L02,#03 [TRUE] L0014
STORE L01,#32
L0014: JE L00,G3c [FALSE] L0015
ADD L01,L06 -> L01
JUMP L0017
L0015: JE L00,G3d [FALSE] L0016
ADD L01,L07 -> L01
JUMP L0017
L0016: JZ L01 [FALSE] L0017
JE L00,#06 [TRUE] L0017
ADD L01,#0a -> L01
L0017: CALL_VS R0232 (L02,#02) -> -(SP)
ADD L01,(SP)+ -> L01
MUL #02,L01 -> L01
CALL_2S R0063 (L02) -> -(SP)
LOADW #14b3,(SP)+ -> -(SP)
AND G67,(SP)+ -> -(SP)
JZ (SP)+ [TRUE] L0018
INC L01
L0018: LOADW #1206,L03 -> -(SP)
ADD (SP)+,L01 -> -(SP)
STOREW #1206,L03,(SP)+
L0019: INC L03
JUMP L0007
L0020: STORE L03,#00
L0021: JL L03,G78 [FALSE] L0027
L0022: LOADW #1106,L03 -> -(SP)
JE (SP)+,#ffff [FALSE] L0026
SUB G78,#01 -> -(SP)
JE L03,(SP)+ [FALSE] L0023
DEC G78
JUMP L0026
L0023: STORE L04,L03
L0024: JL L04,G78 [FALSE] L0025
ADD L04,#01 -> -(SP)
LOADW #1106,(SP)+ -> -(SP)
STOREW #1106,L04,(SP)+
ADD L04,#01 -> -(SP)
LOADW #1206,(SP)+ -> -(SP)
STOREW #1206,L04,(SP)+
INC L04
JUMP L0024
L0025: DEC G78
JUMP L0022
L0026: INC L03
JUMP L0021
L0027: RTRUE
Routine R0034, 4 locals
STORE L00,#00
STORE L02,#ffff
STORE L03,#00
L0001: JL L03,G78 [FALSE] L0003
LOADW #1106,L03 -> -(SP)
JL (SP)+,#00 [TRUE] L0002
LOADW #1206,L03 -> L01
JG L01,L02 [FALSE] L0002
STORE L02,L01
STORE L00,L03
L0002: INC L03
JUMP L0001
L0003: JL L02,#00 [FALSE] L0004
RET #ffff
L0004: LOADW #1106,L00 -> L03
STOREW #1106,L00,#ffff
RET L03
Routine R0035, 4 locals
STORE L00,#ffff
STORE L02,#fc18
STORE L03,#00
L0001: JL L03,G78 [FALSE] L0004
LOADW #1206,L03 -> L01
JE L01,L02 [FALSE] L0002
STORE L00,#ffff
L0002: JG L01,L02 [FALSE] L0003
STORE L02,L01
LOADW #1106,L03 -> L00
L0003: INC L03
JUMP L0001
L0004: RET L00
Routine R0036, 9 locals
JE L00,L01 [TRUE] RTRUE
JZ L00 [TRUE] RFALSE
JZ L01 [TRUE] RFALSE
GET_PARENT L00 -> -(SP)
JE (SP)+,#06 [TRUE] RFALSE
GET_PARENT L01 -> -(SP)
JE (SP)+,#06 [TRUE] RFALSE
GET_PROP L00,#30 -> -(SP)
JZ (SP)+ [FALSE] L0001
GET_PROP L01,#30 -> -(SP)
JZ (SP)+ [TRUE] L0002
L0001: GET_PROP L01,#30 -> -(SP)
GET_PROP L00,#30 -> -(SP)
JE (SP)+,(SP)+ [FALSE] RFALSE
STORE G38,#1004
STORE G39,L00
STORE G3a,L01
STORE L07,G7c
CALL_VS R0088 (L00,#30) -> L06
STORE G7c,L07
JE L06,#ffff [TRUE] RTRUE
JE L06,#fffe [TRUE] RFALSE
L0002: GET_PROP_ADDR L00,#01 -> L02
GET_PROP_ADDR L00,#01 -> Gef