Skip to content

Instantly share code, notes, and snippets.

@ecliptik

ecliptik/aisle.txt

Last active January 20, 2022 09:46
Show Gist options
  • Star 3 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ecliptik/1ce9c21f04c984c705b9 to your computer and use it in GitHub Desktop.
Save ecliptik/1ce9c21f04c984c705b9 to your computer and use it in GitHub Desktop.
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
JZ Gef [TRUE] L0003
GET_PROP_LEN Gef -> Gef
L0003: PUSH Gef
DIV (SP)+,#02 -> L04
GET_PROP_ADDR L01,#01 -> L03
GET_PROP_ADDR L01,#01 -> Gef
JZ Gef [TRUE] L0004
GET_PROP_LEN Gef -> Gef
L0004: PUSH Gef
DIV (SP)+,#02 -> L05
STORE L06,#00
L0005: JL L06,L04 [FALSE] L0009
STORE L08,#00
STORE L07,#00
L0006: JL L07,L05 [FALSE] L0008
LOADW L03,L07 -> -(SP)
LOADW L02,L06 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0007
STORE L08,#01
L0007: INC L07
JUMP L0006
L0008: JZ L08 [TRUE] RFALSE
INC L06
JUMP L0005
L0009: STORE L07,#00
L0010: JL L07,L05 [FALSE] L0014
STORE L08,#00
STORE L06,#00
L0011: JL L06,L04 [FALSE] L0013
LOADW L03,L07 -> -(SP)
LOADW L02,L06 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0012
STORE L08,#01
L0012: INC L06
JUMP L0011
L0013: JZ L08 [TRUE] RFALSE
INC L07
JUMP L0010
L0014: RTRUE
Routine R0037, 4 locals
JZ L00 [FALSE] L0002
STORE L01,G7e
CALL_2S R0008 (L01) -> -(SP)
JZ (SP)+ [FALSE] L0001
CALL_2S R0414 (L01) -> -(SP)
JZ (SP)+ [FALSE] L0001
PRINT_ADDR L01
L0001: INC L00
STORE L03,#01
L0002: STORE L02,L00
L0003: JL L02,G4c [FALSE] L0011
LOADW #0fc6,L02 -> L01
JE L01,#ffff [FALSE] L0004
JUMP L0010
L0004: JZ L03 [TRUE] L0005
PRINT_CHAR ' '
L0005: JZ L01 [FALSE] L0006
PRINT_PADDR S032
JUMP L0009
L0006: JE L01,#01 [FALSE] L0007
PRINT_PADDR S033
JUMP L0009
L0007: JL L01,#2710 [TRUE] L0008
SUB L01,#2710 -> -(SP)
CALL_2S R0065 ((SP)+) -> -(SP)
PRINT_ADDR (SP)+
JUMP L0009
L0008: CALL_2N R0105 (L01)
L0009: STORE L03,#01
L0010: INC L02
JUMP L0003
L0011: RTRUE
Routine R0038, 3 locals
STORE G82,G81
JZ G72 [TRUE] L0001
STORE G73,G72
RET #12
L0001: DEC G7c
CALL_1S R0057 -> L01
STORE L02,#04
JE L01,G6d [FALSE] L0002
STORE G6f,G6d
STORE G70,G6e
STORE L02,#0e
L0002: STORE L00,G3c
L0003: GET_PARENT L00 -> -(SP)
JZ (SP)+ [TRUE] L0004
GET_PARENT L00 -> L00
JUMP L0003
L0004: TEST_ATTR L00,#18 [FALSE] L0005
SUB G7c,#01 -> -(SP)
CALL_VS R0053 (L00,(SP)+) -> -(SP)
JE (SP)+,#01 [FALSE] L0005
STORE L02,#0d
L0005: JG G49,L02 [FALSE] L0006
RET G49
L0006: RET L02
Routine R0039, 3 locals
LOADW #0f26,#00 -> L01
JE L01,#3f [FALSE] L0001
STORE G40,#01
RTRUE
L0001: STORE L02,#01
L0002: JG L02,L01 [TRUE] L0003
LOADW #0f26,L02 -> -(SP)
JE L00,(SP)+ [TRUE] RTRUE
INC L02
JUMP L0002
L0003: INC L01
STOREW #0f26,L01,L00
STOREW #0f26,#00,L01
RTRUE
Routine R0040, 5 locals
LOADW #0f26,#00 -> L01
STORE L04,#00
STORE L02,#01
L0001: JG L02,L01 [TRUE] L0005
LOADW #0f26,L02 -> -(SP)
JE L00,(SP)+ [FALSE] L0004
STORE L03,L02
L0002: JG L03,L01 [TRUE] L0003
ADD L03,#01 -> -(SP)
LOADW #0f26,(SP)+ -> -(SP)
STOREW #0f26,L03,(SP)+
INC L03
JUMP L0002
L0003: DEC L01
PUSH L01
STOREW #0f26,#00,(SP)+
RET L04
L0004: INC L02
JUMP L0001
L0005: STORE L04,#09
RET L04
Routine R0041, 4 locals
L0001: LOADW #0f26,#00 -> L01
STORE L02,#01
L0002: JG L02,L01 [TRUE] L0004
LOADW #0f26,L02 -> L03
TEST_ATTR L03,L00 [TRUE] L0003
CALL_2N R0040 (L03)
JUMP L0001
L0003: INC L02
JUMP L0002
L0004: RTRUE
Routine R0042, 1 local
JG G5b,#00 [FALSE] L0001
JL G5b,#31 [FALSE] L0001
SUB G5b,#01 -> -(SP)
TEST_ATTR L00,(SP)+ [TRUE] RTRUE
RFALSE
L0001: STORE G32,L00
CALL_1S G5b -> -(SP)
RET_POPPED
Routine R0043, 5 locals
MUL L00,#02 -> -(SP)
SUB (SP)+,#01 -> L03
MUL L02,#02 -> -(SP)
SUB (SP)+,#01 -> L04
PUSH L04
INC L04
LOADW L01,(SP)+ -> -(SP)
PUSH L03
INC L03
STOREW #12ff,(SP)+,(SP)+
LOADW L01,L04 -> -(SP)
STOREW #12ff,L03,(SP)+
RTRUE
Routine R0044, 4 locals
STORE L03,#00
JZ G72 [TRUE] L0001
STORE G74,#02
CALL_1S G72 -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0001: JE G3c,L00,L01 [FALSE] L0002
CALL_2S R0412 (G3c) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0002: JE L02,#05 [FALSE] L0004
JE G58,#ffff [TRUE] L0004
CALL_2S R0045 (G58) -> -(SP)
JE (SP)+,#01 [FALSE] L0003
CALL_VN R0048 (G58,#00,L02)
L0003: JUMP L0009
L0004: JZ L00 [TRUE] L0006
TEST_ATTR L00,#14 [TRUE] L0005
TEST_ATTR L00,#04 [FALSE] L0006
L0005: CALL_VN R0049 (L00,L00,L02)
L0006: CALL_VN R0048 (L00,L01,L02)
JZ L01 [TRUE] L0008
TEST_ATTR L01,#14 [TRUE] L0007
TEST_ATTR L01,#04 [FALSE] L0008
L0007: CALL_VN R0049 (L01,L01,L02)
L0008: CALL_VN R0048 (L01,#00,L02)
L0009: JE #13,L00,L01 [FALSE] L0011
CALL_VN R0049 (G3c,G3c,L02)
GET_PARENT G3c -> -(SP)
PULL Gef
TEST_ATTR Gef,#14 [TRUE] L0010
TEST_ATTR Gef,#04 [FALSE] L0011
L0010: GET_PARENT G3c -> -(SP)
GET_PARENT G3c -> -(SP)
CALL_VN R0049 ((SP)+,(SP)+,L02)
L0011: RTRUE
Routine R0045, 1 local
TEST_ATTR L00,#14 [TRUE] RTRUE
TEST_ATTR L00,#17 [TRUE] RTRUE
TEST_ATTR L00,#04 [FALSE] L0001
TEST_ATTR L00,#0e [TRUE] RTRUE
L0001: RFALSE
Routine R0046, 1 local
JE G71,#00,#01 [TRUE] L0001
CALL_2N R0047 (L00)
RTRUE
L0001: STORE G7c,G7b
CALL_2N R0052 (L00)
STORE G77,#01
RTRUE
Routine R0047, 3 locals
STORE L01,G71
STORE L02,G39
STORE Gef,G71
JE Gef,#03 [FALSE] L0003
GET_PROP L00,#1a -> -(SP)
JE (SP)+,#00,#ffff [FALSE] L0001
RTRUE
L0001: JZ G39 [FALSE] L0002
CALL_VS R0088 (L00,#1a) -> G39
L0002: JUMP L0011
L0003: JE Gef,#04 [FALSE] L0006
GET_PROP L00,#1b -> -(SP)
JE (SP)+,#00,#ffff [FALSE] L0004
RTRUE
L0004: JZ G39 [FALSE] L0005
CALL_VS R0088 (L00,#1b) -> G39
L0005: JUMP L0011
L0006: JE Gef,#02 [FALSE] L0008
GET_PROP_ADDR L00,#2c -> -(SP)
JZ (SP)+ [FALSE] L0007
RTRUE
L0007: CALL_VN R0086 (L00,#2c)
JUMP L0011
L0008: JE Gef,#06 [FALSE] L0010
JE L00,G39 [FALSE] L0009
STORE G3a,#01
L0009: JUMP L0011
L0010: JE Gef,#05 [FALSE] L0011
CALL_2N G39 (L00)
STORE G39,L02
L0011: STORE G71,L01
RTRUE
Routine R0048, 5 locals
JZ L00 [TRUE] RTRUE
JZ G62 [FALSE] L0001
JE L00,G3d [FALSE] L0001
JZ G71 [FALSE] L0001
JE L02,#06 [TRUE] L0001
CALL_2N R0048 (#06)
L0001: GET_CHILD L00 -> L03 [FALSE] L0002
L0002: JZ L03 [TRUE] L0004
GET_SIBLING L03 -> L04 [FALSE] L0003
L0003: CALL_VN R0049 (L03,L01,L02)
STORE L03,L04
JUMP L0002
L0004: RTRUE
Routine R0049, 6 locals
JE L02,#04 [FALSE] L0001
JE L00,G58 [FALSE] L0001
JUMP L0006
L0001: JE G71,#00,#01 [TRUE] L0002
CALL_2N R0047 (L00)
JUMP L0006
L0002: JG G7b,G7d [TRUE] L0004
STORE G7c,G7b
CALL_1S R0056 -> L03
JE L03,#01 [FALSE] L0003
JE G19,L00 [FALSE] L0003
CALL_VN R0051 (L00,#01)
L0003: JL L03,#02 [TRUE] L0004
JL L03,#80 [FALSE] L0004
LOADW #14cb,L03 -> -(SP)
JE (SP)+,L00 [FALSE] L0004
CALL_VN R0051 (L00,#01)
L0004: STORE G7c,G7b
CALL_2S R0052 (L00) -> -(SP)
JG (SP)+,#00 [FALSE] L0006
JG G69,#00 [FALSE] L0006
JE G7b,G69 [TRUE] L0006
STORE G7c,G69
CALL_2S R0052 (L00) -> -(SP)
JG (SP)+,#00 [FALSE] L0005
STORE G7b,G69
CALL_1N R0025
L0005: STORE G7c,G7b
L0006: GET_CHILD L00 -> -(SP) [FALSE] L0007
L0007: JZ (SP)+ [TRUE] L0008
JE L00,L01 [TRUE] L0008
CALL_2S R0045 (L00) -> -(SP)
JE (SP)+,#01 [FALSE] L0008
CALL_VN R0048 (L00,L01,L02)
L0008: GET_PROP_ADDR L00,#18 -> L04
JZ L04 [TRUE] L0012
LOADW L04,#00 -> -(SP)
CALL_VS R0111 ((SP)+,G0a) -> -(SP)
JG (SP)+,#00 [FALSE] L0009
ADD #02,L02 -> G75
CALL_VN R0088 (L00,#18)
STORE G75,#00
JUMP L0012
L0009: GET_PROP_ADDR L00,#18 -> Gef
JZ Gef [TRUE] L0010
GET_PROP_LEN Gef -> Gef
L0010: STORE L05,Gef
STORE L03,#00
L0011: MUL #02,L03 -> -(SP)
JL (SP)+,L05 [FALSE] L0012
LOADW L04,L03 -> -(SP)
CALL_VN R0049 ((SP)+,#00,L02)
INC L03
JUMP L0011
L0012: RTRUE
Routine R0050, 1 local
JL G75,#02 [TRUE] L0001
SUB G75,#02 -> -(SP)
CALL_VN R0049 (L00,#00,(SP)+)
L0001: JE G75,#01 [FALSE] L0002
CALL_2S R0100 (L00) -> -(SP)
JE (SP)+,#01 [FALSE] L0002
STORE G76,#01
L0002: RTRUE
Routine R0051, 3 locals
JZ G5b [TRUE] L0001
CALL_2S R0042 (L00) -> -(SP)
JZ (SP)+ [FALSE] L0001
RTRUE
L0001: JL L01,G7a [TRUE] RTRUE
JG L01,G7a [FALSE] L0002
STORE G7a,L01
STORE G78,#00
JUMP L0004
L0002: MUL #02,G78 -> -(SP)
JL (SP)+,#80 [FALSE] RTRUE
STORE L02,#00
L0003: JL L02,G78 [FALSE] L0004
LOADW #1106,L02 -> -(SP)
JE (SP)+,L00 [TRUE] RTRUE
INC L02
JUMP L0003
L0004: PUSH G78
INC G78
STOREW #1106,(SP)+,L00
RTRUE
Routine R0052, 5 locals
STORE G6c,#00
JG G7c,G7d [FALSE] L0002
JZ G62 [TRUE] L0001
STORE G6c,#70
L0001: CALL_VN R0051 (L00,#00)
RTRUE
L0002: GET_PROP L00,#30 -> -(SP)
JZ (SP)+ [TRUE] L0009
STORE G38,#ffff
STORE L04,G7c
CALL_VS R0088 (L00,#30) -> L02
JG L02,#00 [FALSE] L0008
ADD L04,L02 -> G7c
L0003: JE G38,#1005 [FALSE] L0004
OR G6c,#04 -> G6c
L0004: AND G6c,#04 -> -(SP)
JZ (SP)+ [TRUE] L0007
JZ G6a [FALSE] L0005
STORE L02,#00
JUMP L0007
L0005: JZ G62 [FALSE] L0006
STORE G62,#01
STORE G63,#00
STORE G64,#00
L0006: OR G63,#08 -> G63
JZ G64 [FALSE] L0007
STORE G64,#64
L0007: CALL_VN R0051 (L00,L02)
RET L02
L0008: JZ L02 [FALSE] L0009
JUMP L0014
L0009: STORE G38,#ffff
CALL_1S R0056 -> L03
JE L03,#01 [FALSE] L0010
JE G19,L00 [FALSE] L0010
STORE L02,#01
JUMP L0003
L0010: JL L03,#02 [TRUE] L0011
JL L03,#80 [FALSE] L0011
LOADW #14cb,L03 -> -(SP)
JE (SP)+,L00 [FALSE] L0011
STORE L02,#01
JUMP L0003
L0011: DEC G7c
STORE L04,G7c
CALL_2S R0417 (L00) -> L01
JL L01,#00 [FALSE] L0012
INC G7c
L0012: JG L01,#00 [FALSE] L0013
STORE L02,L01
JUMP L0003
L0013: JZ L01 [TRUE] L0014
SUB G7c,#01 -> -(SP)
CALL_VS R0053 (L00,(SP)+) -> -(SP)
JZ (SP)+ [FALSE] L0016
L0014: JZ G62 [TRUE] L0015
STORE L02,#00
STORE G38,#ffff
JUMP L0003
L0015: RFALSE
L0016: JL L01,#00 [FALSE] L0019
STORE L01,#01
LOADB L03,#06 -> -(SP)
AND (SP)+,#74 -> G6c
CALL_1S R0057 -> L03
L0017: SUB G7c,#01 -> -(SP)
CALL_VS R0053 (L00,(SP)+) -> -(SP)
JZ (SP)+ [TRUE] L0019
INC L01
JZ L03 [TRUE] L0018
LOADB L03,#06 -> -(SP)
AND (SP)+,#74 -> -(SP)
OR G6c,(SP)+ -> G6c
L0018: CALL_1S R0057 -> L03
JUMP L0017
L0019: STORE L02,L01
JUMP L0003
Routine R0053, 6 locals
JZ L00 [TRUE] RFALSE
STORE L03,G7c
STORE G7c,L01
CALL_1S R0058 -> L02
STORE G7c,L03
JL G3b,#0100 [TRUE] L0002
CALL_VS G3b (L00,L02) -> L03
JL L03,#00 [TRUE] L0001
RET L03
L0001: SUB #00,L03 -> L05
JUMP L0003
L0002: STORE L05,G3b
L0003: CALL_VS R0422 (L00,L05) -> L03
CALL_VS R0423 (L00,L05) -> -(SP)
DIV (SP)+,#02 -> -(SP)
SUB (SP)+,#01 -> L04
STORE L05,#00
L0004: JG L05,L04 [TRUE] L0005
LOADW L03,L05 -> -(SP)
JE L02,(SP)+ [TRUE] RTRUE
INC L05
JUMP L0004
L0005: RFALSE
Routine R0054, 6 locals
CALL_VS R0422 (L01,L02) -> L03
CALL_VS R0423 (L01,L02) -> -(SP)
DIV (SP)+,#02 -> -(SP)
SUB (SP)+,#01 -> L04
STORE L05,#00
L0001: JG L05,L04 [TRUE] L0002
LOADW L03,L05 -> -(SP)
JE L00,(SP)+ [TRUE] RTRUE
INC L05
JUMP L0001
L0002: RFALSE
Routine R0055, 3 locals
STORE L02,#00
L0001: JL L02,L01 [FALSE] L0002
LOADB L00,L02 -> -(SP)
ADD #02,L02 -> -(SP)
STOREB #1340,(SP)+,(SP)+
INC L02
JUMP L0001
L0002: STOREB #1340,#01,L01
CALL_VN R0020 (#1340,#13b9)
LOADW #13b9,#01 -> -(SP)
RET_POPPED
Routine R0056, 3 locals
CALL_1S R0057 -> L00
JZ L00 [TRUE] RFALSE
JE L00,"me","myself","self" [FALSE] L0001
RTRUE
L0001: LOADW #14cb,#00 -> L02
STORE L01,#01
JUMP L0003
L0002: ADD L01,#03 -> L01
L0003: JG L01,L02 [TRUE] L0005
LOADW #14cb,L01 -> -(SP)
JE L00,(SP)+ [FALSE] L0004
ADD L01,#02 -> -(SP)
RET_POPPED
L0004: JUMP L0002
L0005: LOADB L00,#06 -> -(SP)
AND (SP)+,#80 -> -(SP)
JZ (SP)+ [TRUE] RFALSE
RET L00
Routine R0057, 3 locals
LOADB #12ff,#01 -> -(SP)
JG G7c,(SP)+ [FALSE] L0001
INC G7c
RFALSE
L0001: MUL G7c,#02 -> -(SP)
SUB (SP)+,#01 -> L00
INC G7c
LOADW #12ff,L00 -> L01
JZ L01 [FALSE] L0003
MUL G7c,#04 -> -(SP)
SUB (SP)+,#03 -> L02
LOADB #12ff,L02 -> -(SP)
LOADB #1286,(SP)+ -> L00
JE L00,#2c [FALSE] L0002
STORE L01,"comma,"
L0002: JE L00,#2e [FALSE] L0003
STORE L01,"then"
L0003: RET L01
Routine R0058, 0 locals
LOADB #12ff,#01 -> -(SP)
JG G7c,(SP)+ [FALSE] L0001
INC G7c
RET #ffff
L0001: CALL_1S R0057 -> -(SP)
RET_POPPED
Routine R0059, 1 local
MUL L00,#04 -> -(SP)
ADD (SP)+,#01 -> -(SP)
LOADB #12ff,(SP)+ -> -(SP)
ADD #1286,(SP)+ -> -(SP)
RET_POPPED
Routine R0060, 1 local
MUL L00,#04 -> -(SP)
LOADB #12ff,(SP)+ -> -(SP)
RET_POPPED
Routine R0061, 10 locals
STORE L01,G7c
STORE G7c,L00
CALL_1S R0057 -> L02
STORE G7c,L01
CALL_2S R0109 (L02) -> L02
JL L02,#01 [TRUE] L0001
RET L02
L0001: MUL L00,#04 -> -(SP)
ADD (SP)+,#01 -> L01
LOADB #12ff,L01 -> L02
ADD L02,#1286 -> L04
SUB L01,#01 -> -(SP)
LOADB #12ff,(SP)+ -> L05
CALL_VS R0415 (L04,L05) -> L07
JZ L07 [TRUE] L0002
RET L07
L0002: JL L05,#04 [TRUE] L0003
STORE L06,#03e8
L0003: JE L05,#03 [FALSE] L0004
STORE L06,#64
L0004: JE L05,#02 [FALSE] L0005
STORE L06,#0a
L0005: JE L05,#01 [FALSE] L0006
STORE L06,#01
L0006: STORE L07,#00
STORE L03,#00
SUB L05,#01 -> L05
STORE L03,#00
L0007: JG L03,L05 [TRUE] L0019
LOADB L04,L03 -> L09
JE L09,#30 [FALSE] L0008
STORE L08,#00
JUMP L0018
L0008: JE L09,#31 [FALSE] L0009
STORE L08,#01
JUMP L0018
L0009: JE L09,#32 [FALSE] L0010
STORE L08,#02
JUMP L0018
L0010: JE L09,#33 [FALSE] L0011
STORE L08,#03
JUMP L0018
L0011: JE L09,#34 [FALSE] L0012
STORE L08,#04
JUMP L0018
L0012: JE L09,#35 [FALSE] L0013
STORE L08,#05
JUMP L0018
L0013: JE L09,#36 [FALSE] L0014
STORE L08,#06
JUMP L0018
L0014: JE L09,#37 [FALSE] L0015
STORE L08,#07
JUMP L0018
L0015: JE L09,#38 [FALSE] L0016
STORE L08,#08
JUMP L0018
L0016: JE L09,#39 [FALSE] L0017
STORE L08,#09
JUMP L0018
L0017: RET #fc18
L0018: MUL L06,L08 -> -(SP)
ADD L07,(SP)+ -> L07
DIV L06,#0a -> L06
INC L03
JUMP L0007
L0019: JG L05,#03 [FALSE] L0020
STORE L07,#2710
L0020: RET L07
Routine R0062, 1 local
TEST_ATTR L00,#1c [FALSE] RTRUE
RFALSE
Routine R0063, 3 locals
TEST_ATTR L00,#00 [TRUE] L0001
STORE L01,#06
L0001: TEST_ATTR L00,#1b [FALSE] L0002
STORE L02,#1b
L0002: TEST_ATTR L00,#1c [FALSE] L0003
STORE L02,#1c
L0003: TEST_ATTR L00,#1d [FALSE] L0004
STORE L02,#1d
L0004: JZ L02 [FALSE] L0006
JZ L01 [FALSE] L0005
STORE L02,#1b
JUMP L0006
L0005: STORE L02,#1d
L0006: JE L02,#1c [FALSE] L0007
ADD L01,#01 -> L01
L0007: JE L02,#1d [FALSE] L0008
ADD L01,#02 -> L01
L0008: TEST_ATTR L00,#1e [FALSE] L0009
ADD L01,#03 -> L01
L0009: RET L01
Routine R0064, 1 local
LOADW #00,#04 -> -(SP)
ADD (SP)+,#07 -> -(SP)
SUB L00,(SP)+ -> -(SP)
DIV (SP)+,#09 -> -(SP)
RET_POPPED
Routine R0065, 1 local
MUL #09,L00 -> -(SP)
LOADW #00,#04 -> -(SP)
ADD (SP)+,#07 -> -(SP)
ADD (SP)+,(SP)+ -> -(SP)
RET_POPPED
Routine R0066, 4 locals
LOADB L00,#00 -> L03
STORE L02,#01
L0001: JG L02,L03 [TRUE] L0002
LOADB L01,L02 -> -(SP)
STOREB L00,L02,(SP)+
INC L02
JUMP L0001
L0002: RTRUE
Routine R0067, 3 locals
LOADB #1286,#01 -> L02
LOADB #1286,#00 -> -(SP)
JG L02,(SP)+ [FALSE] L0001
LOADB #1286,#00 -> L02
L0001: ADD L02,#02 -> L02
L0002: JG L02,L00 [FALSE] L0003
SUB L02,#01 -> -(SP)
LOADB #1286,(SP)+ -> -(SP)
STOREB #1286,L02,(SP)+
DEC L02
JUMP L0002
L0003: STOREB #1286,L00,L01
LOADB #1286,#00 -> -(SP)
LOADB #1286,#01 -> -(SP)
JL (SP)+,(SP)+ [FALSE] L0004
STORE Gef,#1286
STORE Gee,#01
LOADB Gef,Gee -> Ged
INC Ged
STOREB Gef,Gee,Ged
L0004: RTRUE
Routine R0068, 4 locals
Action routine for:
"nouns"
CALL_VN R0224 (#00,#01)
LOADW #14cb,#00 -> -(SP)
DIV (SP)+,#03 -> L02
JE G19,#14 [TRUE] L0001
INC L02
L0001: JZ L02 [FALSE] L0002
CALL_VS R0224 (#00,#04) -> -(SP)
RET_POPPED
L0002: STORE L00,#01
STORE L03,#00
JUMP L0004
L0003: ADD L00,#03 -> L00
L0004: LOADW #14cb,#00 -> -(SP)
JG L00,(SP)+ [TRUE] L0009
PRINT """
LOADW #14cb,L00 -> -(SP)
PRINT_ADDR (SP)+
PRINT "" "
ADD L00,#02 -> -(SP)
LOADW #14cb,(SP)+ -> L01
JE L01,#ffff [FALSE] L0005
CALL_VN R0224 (#00,#03)
JUMP L0006
L0005: CALL_VN R0224 (#00,#02)
CALL_2N R0105 (L01)
L0006: INC L03
SUB L02,#01 -> -(SP)
JL L03,(SP)+ [FALSE] L0007
PRINT ", "
L0007: SUB L02,#01 -> -(SP)
JE L03,(SP)+ [FALSE] L0008
PRINT_PADDR S040
L0008: JUMP L0003
L0009: JE G19,#14 [TRUE] L0010
PRINT """
PRINT_ADDR "me"
PRINT "" "
CALL_VN R0224 (#00,#02)
STORE L02,G19
STORE G19,#14
CALL_2N R0105 (L02)
STORE G19,L02
L0010: PRINT_RET "."
Routine R0069, 3 locals
STORE L02,#01
JUMP L0002
L0001: ADD L02,#03 -> L02
L0002: LOADW #14cb,#00 -> -(SP)
JG L02,(SP)+ [TRUE] L0004
LOADW #14cb,L02 -> -(SP)
JE (SP)+,L00 [FALSE] L0003
ADD L02,#02 -> -(SP)
STOREW #14cb,(SP)+,L01
RTRUE
L0003: JUMP L0001
L0004: CALL_2N R0116 (#0e)
RTRUE
Routine R0070, 2 locals
STORE L01,#01
JUMP L0002
L0001: ADD L01,#03 -> L01
L0002: LOADW #14cb,#00 -> -(SP)
JG L01,(SP)+ [TRUE] L0004
LOADW #14cb,L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0003
ADD L01,#02 -> -(SP)
LOADW #14cb,(SP)+ -> -(SP)
RET_POPPED
L0003: JUMP L0001
L0004: RFALSE
Routine R0071, 1 local
CALL_2N R0073 (L00)
RTRUE
Routine R0072, 0 locals
JE G86,G89 [TRUE] L0001
CALL_VN R0069 ("it",G86)
L0001: JE G87,G8a [TRUE] L0002
CALL_VN R0069 ("him",G87)
L0002: JE G88,G8b [TRUE] L0003
CALL_VN R0069 ("her",G88)
L0003: STORE G89,G86
STORE G8a,G87
STORE G8b,G88
RTRUE
Routine R0073, 3 locals
JE L00,G19 [FALSE] L0001
RTRUE
L0001: CALL_1N R0072
CALL_2S R0063 (L00) -> -(SP)
LOADW #14b3,(SP)+ -> L02
STORE L01,#01
JUMP L0003
L0002: ADD L01,#03 -> L01
L0003: LOADW #14cb,#00 -> -(SP)
JG L01,(SP)+ [TRUE] L0005
ADD L01,#01 -> -(SP)
LOADW #14cb,(SP)+ -> -(SP)
AND L02,(SP)+ -> -(SP)
JZ (SP)+ [TRUE] L0004
ADD L01,#02 -> -(SP)
STOREW #14cb,(SP)+,L00
L0004: JUMP L0002
L0005: CALL_2S R0070 ("it") -> G86
STORE G89,G86
CALL_2S R0070 ("him") -> G87
STORE G8a,G87
CALL_2S R0070 ("her") -> G88
STORE G8b,G88
RTRUE
Routine R0074, 4 locals
LOADW #32,#00 -> G0b
LOADW #00,#08 -> -(SP)
AND (SP)+,#01 -> G0e
CALL_VN R0089 (#26,S028)
STOREB #1286,#00,#78
STOREB #1340,#00,#78
STOREB #13fa,#00,#78
STOREB #12ff,#00,#40
STOREB #13b9,#00,#40
STORE G1c,#13
STORE G19,#14
STORE G3c,G19
SUB #0140,#ff -> G0a
PUT_PROP "(self object)",#2d,#0064
NEW_LINE
CALL_1S R0399 -> L01
STORE G15,G14
INSERT_OBJ G19,G07
L0001: GET_PARENT G07 -> -(SP)
JZ (SP)+ [TRUE] L0002
GET_PARENT G07 -> G07
JUMP L0001
L0002: GET_CHILD G19 -> -(SP) [FALSE] L0003
L0003: PULL L00
JZ L00 [TRUE] L0005
L0004: SET_ATTR L00,#0c
CLEAR_ATTR L00,#03
GET_SIBLING L00 -> L00 [TRUE] L0004
L0005: JE L01,#02 [TRUE] L0006
CALL_1N R0114
L0006: CALL_1N R0129
GET_PARENT G19 -> -(SP)
CALL_2S R0098 ((SP)+) -> G1b
JZ G1b [FALSE] L0007
STORE G1c,G07
STORE G07,#13
L0007: CALL_2N R0078 (#1f)
STORE L00,#01
L0008: JG L00,#64 [TRUE] L0009
RANDOM L00 -> L01
INC L00
JUMP L0008
L0009: STORE G89,G86
STORE G8a,G87
STORE G8b,G88
L0010: JZ G1a [FALSE] L0045
CALL_1N R0072
CALL_2S R0070 ("it") -> G89
CALL_2S R0070 ("him") -> G8a
CALL_2S R0070 ("her") -> G8b
L0011: JE G14,G15 [TRUE] L0013
JE G16,#01 [FALSE] L0012
CALL_1N R0096
L0012: STORE G15,G14
L0013: STOREW #0f06,#00,#00
STOREW #0f06,#01,#00
STOREW #0f06,#02,#00
STOREW #0f06,#03,#00
STORE G3e,#00
CALL_VN R0421 (#15,#48,#0f06)
LOADW #0f06,#00 -> G2f
JE G2f,#5b,#5c [FALSE] L0015
LOADW #0f06,#02 -> L00
LOADW #0f06,#03 -> -(SP)
STOREW #0f06,#02,(SP)+
STOREW #0f06,#03,L00
JE G2f,#5b [FALSE] L0014
STORE G2f,#15
JUMP L0015
L0014: STORE G2f,#16
L0015: JE G2f,#51 [FALSE] L0016
LOADW #0f06,#02 -> -(SP)
JE (SP)+,G19 [FALSE] L0016
JE G3c,G19 [TRUE] L0016
STOREW #0f06,#02,G3c
STORE G3c,G19
STORE G2f,#53
L0016: JE G2f,#5a [FALSE] L0017
LOADW #0f06,#02 -> -(SP)
JE (SP)+,G19 [TRUE] L0017
JE G3c,G19 [FALSE] L0017
LOADW #0f06,#02 -> G3c
LOADW #0f06,#03 -> -(SP)
STOREW #0f06,#02,(SP)+
STOREW #0f06,#03,G19
STORE G2f,#15
L0017: JE G2f,#53,#51,#52 [FALSE] L0018
STORE G41,G50
L0018: STORE G3f,#00
STORE G47,G46
STORE G46,#00
L0019: STORE G30,#00
STORE G31,#00
LOADW #0f06,#01 -> L00
JL L00,#01 [TRUE] L0020
LOADW #0f06,#02 -> G30
L0020: JL L00,#02 [TRUE] L0021
LOADW #0f06,#03 -> G31
L0021: JE G30,#01 [FALSE] L0022
STORE G32,G50
JUMP L0023
L0022: STORE G32,G30
L0023: JE G31,#01 [FALSE] L0026
JE G30,#01 [FALSE] L0024
STORE G33,G51
JUMP L0025
L0024: STORE G33,G50
L0025: JUMP L0027
L0026: STORE G33,G31
L0027: JE G3c,G19 [TRUE] L0030
CALL_VS R0088 (G19,#1d) -> L01
JZ L01 [FALSE] L0029
CALL_VS R0088 (G3c,#1d) -> L01
JZ L01 [FALSE] L0029
JE G2f,#1009 [FALSE] L0028
STOREW #0f06,#03,G3c
STORE G3c,G19
STORE G2f,#52
JUMP L0019
L0028: CALL_VS R0084 (G3c,#1003) -> -(SP)
JZ (SP)+ [FALSE] L0029
CALL_VN R0224 (#1003,#01,G3c)
L0029: JUMP L0041
L0030: JZ L00 [TRUE] L0032
JE L00,#01 [FALSE] L0031
JZ G30 [FALSE] L0032
L0031: JE L00,#02 [FALSE] L0033
JZ G30 [TRUE] L0033
JZ G31 [TRUE] L0033
L0032: CALL_VN2 R0421 (Geb,#004b,G2f,G32,G33,#00)
JUMP L0041
L0033: STORE G3f,#01
LOADW #0f26,#00 -> L01
JZ L01 [FALSE] L0034
CALL_VN R0224 (#1007,#02)
JUMP L0013
L0034: JZ G40 [TRUE] L0035
STORE G40,#00
CALL_VN R0224 (#1007,#01)
L0035: STORE L00,G07
STORE L02,#01
L0036: JG L02,L01 [TRUE] L0041
JZ G1a [TRUE] L0037
JUMP L0041
L0037: JE G07,L00 [TRUE] L0038
CALL_VN R0224 (#1007,#33)
JUMP L0041
L0038: LOADW #0f26,L02 -> L03
CALL_2N R0073 (L03)
CALL_2N R0107 (L03)
PRINT ": "
JZ G30 [FALSE] L0039
STORE G30,L03
CALL_VN2 R0421 (Geb,#004b,G2f,L03,G33,#00)
STORE G30,#00
JUMP L0040
L0039: STORE G31,L03
CALL_VN2 R0421 (Geb,#004b,G2f,G32,L03,#00)
STORE G31,#00
L0040: INC L02
JUMP L0036
L0041: JE G46,#01 [FALSE] L0042
CALL_1N R0079
JUMP L0010
L0042: JZ G3e [TRUE] L0043
JUMP L0010
L0043: JZ G1a [FALSE] L0044
CALL_VN R0421 (Geb,#004a)
L0044: JUMP L0010
L0045: JE G1a,#02 [TRUE] L0046
CALL_1N R0380
L0046: JZ G1a [FALSE] L0047
JUMP L0011
L0047: PRINT "
"
SET_TEXT_STYLE BOLDFACE
PRINT "***"
JE G1a,#01 [FALSE] L0048
CALL_VN R0224 (#1007,#03)
L0048: JE G1a,#02 [FALSE] L0049
CALL_VN R0224 (#1007,#04)
L0049: JG G1a,#02 [FALSE] L0050
PRINT " "
CALL_1N R0404
PRINT " "
L0050: PRINT "***"
SET_TEXT_STYLE ROMAN
PRINT "
"
CALL_1N R0313
CALL_1N R0094
CALL_1N R0077
RFALSE
Routine R0075, 2 locals
INC G0f
JE G10,#ffff [TRUE] L0003
JL G11,#00 [TRUE] L0001
ADD G10,G11 -> G10
JUMP L0002
L0001: DEC G12
JZ G12 [FALSE] L0002
INC G10
SUB #00,G11 -> G12
L0002: MOD G10,#05a0 -> G10
L0003: STORE L00,#00
L0004: JL L00,G13 [FALSE] L0009
JZ G1a [TRUE] L0005
RTRUE
L0005: LOADW #0ec6,L00 -> L01
JZ L01 [TRUE] L0008
AND L01,#8000 -> -(SP)
JZ (SP)+ [TRUE] L0006
AND L01,#7fff -> -(SP)
CALL_VN R0088 ((SP)+,#2b)
JUMP L0008
L0006: GET_PROP L01,#28 -> -(SP)
JZ (SP)+ [FALSE] L0007
CALL_2N R0091 (L01)
CALL_VN R0088 (L01,#2a)
JUMP L0008
L0007: GET_PROP L01,#28 -> -(SP)
SUB (SP)+,#01 -> -(SP)
PUT_PROP L01,#28,(SP)+
L0008: INC L00
JUMP L0004
L0009: JZ G1a [TRUE] L0010
RTRUE
L0010: STORE G71,#02
STORE G7e,#00
CALL_2N R0047 (G07)
CALL_2S R0024 (G19) -> -(SP)
CALL_VN R0044 ((SP)+,G19,#00)
STORE G71,#00
JZ G1a [TRUE] L0011
RTRUE
L0011: CALL_1N R0402
JZ G1a [TRUE] L0012
RTRUE
L0012: CALL_1N R0097
JZ G1a [TRUE] L0013
RTRUE
L0013: CALL_1N R0079
RFALSE
Routine R0076, 8 locals
STORE L04,G2f
STORE L05,G32
STORE L06,G33
STORE G2f,L00
STORE G32,L01
STORE G33,L02
STORE L03,#00
JZ G3e [FALSE] L0001
CALL_1S R0082 -> -(SP)
JZ (SP)+ [FALSE] L0002
L0001: JL G2f,#1000 [FALSE] L0002
LOADW #237f,G2f -> -(SP)
CALL_1N (SP)+
STORE L07,#00
JUMP L0003
L0002: STORE L07,#01
L0003: STORE G2f,L04
STORE G32,L05
STORE G33,L06
RFALSE
Routine R0077, 1 local
L0001: CALL_VN R0224 (#1007,#05)
L0002: PRINT "> "
STORE Gef,#00
STORE Gec,#1286
STOREB Gec,#01,#00
CALL_1N R0231
READ Gec,#12ff -> Gef
LOADW #12ff,#01 -> L00
JE L00,"q","quit" [FALSE] L0003
QUIT
L0003: JE L00,"restart" [FALSE] L0004
RESTART
L0004: JE L00,"restore" [FALSE] L0005
CALL_1N R0315
JUMP L0001
L0005: JE L00,"fullscore","full" [FALSE] L0006
JZ #0001 [FALSE] L0006
NEW_LINE
CALL_1N R0144
JUMP L0001
L0006: JE G1a,#02 [FALSE] L0007
JE L00,"amusing" [FALSE] L0007
JZ #0001 [FALSE] L0007
NEW_LINE
CALL_1N R0403
JUMP L0001
L0007: JE L00,"undo","undo","undo" [FALSE] L0012
JZ G0c [FALSE] L0008
CALL_VN R0224 (#1007,#06)
JUMP L0001
L0008: JE G0c,#01 [FALSE] L0009
JUMP L0010
L0009: RESTORE_UNDO -> L00
JZ L00 [FALSE] L0011
L0010: CALL_VN R0224 (#1007,#07)
L0011: JUMP L0001
L0012: CALL_VN R0224 (#1007,#08)
JUMP L0002
Routine R0078, 5 locals
STORE L03,G30
STORE L04,G31
STORE G30,L01
STORE G31,L02
CALL_VN2 R0421 (#16,#4b,L00,L01,L02,#01)
STORE G30,L03
STORE G31,L04
RTRUE
Routine R0079, 1 local
STORE L00,#01
L0001: JIN L00,G19 [FALSE] L0002
TEST_ATTR L00,#0c [TRUE] L0002
SET_ATTR L00,#0c
TEST_ATTR L00,#12 [FALSE] L0002
ADD G14,#0004 -> G14
ADD G18,#0004 -> G18
L0002: INC L00
JG L00,#0041 [TRUE] L0003
JUMP L0001
L0003: RTRUE
Routine R0080, 7 locals
STORE L05,G39
STORE L06,G3a
STORE G39,L00
STORE G3a,#00
STORE L02,G3c
STORE L03,G3d
STORE L04,G71
STORE G71,#06
JZ L01 [FALSE] L0001
STORE G3c,G19
JUMP L0002
L0001: STORE G3c,L01
L0002: CALL_2S R0024 (G3c) -> G3d
CALL_VN R0044 (G3d,G3c,#00)
STORE G71,L04
STORE G3c,L02
STORE G3d,L03
STORE G39,L05
STORE L05,G3a
STORE G3a,L06
RET L05
Routine R0081, 6 locals
STORE L02,G39
STORE L03,G71
STORE L04,G3c
STORE L05,G3d
STORE G39,L00
JZ L01 [FALSE] L0001
STORE G3c,G19
JUMP L0002
L0001: STORE G3c,L01
L0002: CALL_2S R0024 (G3c) -> G3d
STORE G71,#05
CALL_VN R0044 (G3d,G3c,#00)
STORE G39,L02
STORE G71,L03
STORE G3c,L04
STORE G3d,L05
RTRUE
Routine R0082, 0 locals
CALL_1S R0408 -> -(SP)
JZ (SP)+ [FALSE] RTRUE
CALL_VS R0088 (G19,#1d) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
JZ G07 [TRUE] L0001
CALL_VS R0088 (G07,#04) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0001: STORE G71,#03
STORE G39,#00
CALL_2S R0024 (G19) -> -(SP)
CALL_VN R0044 ((SP)+,G19,#00)
STORE G71,#00
JZ G39 [FALSE] RTRUE
JG G30,#01 [FALSE] L0002
CALL_VS R0088 (G30,#04) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0002: RFALSE
Routine R0083, 0 locals
STORE G71,#04
STORE G39,#00
CALL_2S R0024 (G19) -> -(SP)
CALL_VN R0044 ((SP)+,G19,#00)
STORE G71,#00
JZ G39 [FALSE] RTRUE
JZ G07 [TRUE] L0001
CALL_VS R0088 (G07,#05) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0001: JG G30,#01 [FALSE] L0002
CALL_VS R0088 (G30,#05) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0002: CALL_1S R0409 -> -(SP)
RET_POPPED
Routine R0084, 2 locals
STORE G35,L01
CALL_VS R0088 (L00,#06) -> -(SP)
RET_POPPED
Routine R0085, 1 local
CALL_VS R0430 (L00) -> -(SP)
PULL Gef
JE Gef,#00 [FALSE] L0001
RFALSE
L0001: JE Gef,#02,#01 [FALSE] L0002
RTRUE
L0002: JE Gef,#03 [FALSE] L0003
RET #02
L0003: JE Gef,#04 [FALSE] L0004
RET #03
L0004: RTRUE
Routine R0086, 3 locals
CALL_VS R0423 (L00,L01) -> -(SP)
JG (SP)+,#02 [FALSE] L0001
CALL_VS R0088 (L00,L01) -> -(SP)
RET_POPPED
L0001: CALL_VS R0420 (L00,L01) -> -(SP)
JE (SP)+,#ffff [TRUE] RFALSE
CALL_VS R0420 (L00,L01) -> -(SP)
CALL_VS R0430 ((SP)+) -> -(SP)
PULL Gef
JE Gef,#01,#02,#00 [FALSE] L0002
CALL_VS R0116 (#02,L00,L01) -> -(SP)
RET_POPPED
L0002: JE Gef,#04 [FALSE] L0004
CALL_VS R0420 (L00,L01) -> -(SP)
PRINT_PADDR (SP)+
JZ L02 [FALSE] L0003
NEW_LINE
L0003: RTRUE
L0004: JE Gef,#03 [FALSE] L0005
CALL_VS R0088 (L00,L01) -> -(SP)
RET_POPPED
L0005: RTRUE
Routine R0087, 2 locals
CALL_VS R0420 (L00,L01) -> -(SP)
JL (SP)+,#0100 [FALSE] L0001
CALL_VS R0420 (L00,L01) -> -(SP)
RET_POPPED
L0001: CALL_VS R0088 (L00,L01) -> -(SP)
RET_POPPED
Routine R0088, 2 locals
JE L00,#13 [FALSE] L0001
JE L01,#1e,#2e,#23 [TRUE] L0001
STORE L00,G1c
L0001: CALL_VS R0422 (L00,L01) -> -(SP)
JZ (SP)+ [TRUE] RFALSE
CALL_VS R0421 (L00,L01) -> -(SP)
RET_POPPED
Routine R0089, 4 locals
LOADW #00,#05 -> L02
SUB L00,#01 -> L03
STOREW L02,L03,L01
RTRUE
Routine R0090, 3 locals
STORE L02,#00
L0001: JL L02,G13 [FALSE] L0002
LOADW #0ec6,L02 -> -(SP)
JE (SP)+,L00 [TRUE] RFALSE
INC L02
JUMP L0001
L0002: STORE L02,#00
L0003: JL L02,G13 [FALSE] L0005
LOADW #0ec6,L02 -> -(SP)
JZ (SP)+ [FALSE] L0004
JUMP L0006
L0004: INC L02
JUMP L0003
L0005: STORE L02,G13
INC G13
JL L02,#20 [TRUE] L0006
CALL_2N R0116 (#04)
L0006: GET_PROP_ADDR L00,#28 -> -(SP)
JZ (SP)+ [FALSE] L0007
CALL_VN R0116 (#05,L00)
L0007: STOREW #0ec6,L02,L00
PUT_PROP L00,#28,L01
RTRUE
Routine R0091, 2 locals
STORE L01,#00
L0001: JL L01,G13 [FALSE] L0003
LOADW #0ec6,L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0002
JUMP L0004
L0002: INC L01
JUMP L0001
L0003: RFALSE
L0004: GET_PROP_ADDR L00,#28 -> -(SP)
JZ (SP)+ [FALSE] L0005
CALL_VN R0116 (#05,L00)
L0005: STOREW #0ec6,L01,#00
PUT_PROP L00,#28,#00
RTRUE
Routine R0092, 2 locals
STORE L01,#00
L0001: JL L01,G13 [FALSE] L0002
ADD #8000,L00 -> -(SP)
LOADW #0ec6,L01 -> -(SP)
JE (SP)+,(SP)+ [TRUE] RFALSE
INC L01
JUMP L0001
L0002: STORE L01,#00
L0003: JL L01,G13 [FALSE] L0005
LOADW #0ec6,L01 -> -(SP)
JZ (SP)+ [FALSE] L0004
JUMP L0006
L0004: INC L01
JUMP L0003
L0005: STORE L01,G13
INC G13
JL L01,#20 [TRUE] L0006
CALL_2N R0116 (#04)
L0006: ADD #8000,L00 -> -(SP)
STOREW #0ec6,L01,(SP)+
RTRUE
Routine R0093, 2 locals
STORE L01,#00
L0001: JL L01,G13 [FALSE] L0003
ADD #8000,L00 -> -(SP)
LOADW #0ec6,L01 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0002
JUMP L0004
L0002: INC L01
JUMP L0001
L0003: RFALSE
L0004: STOREW #0ec6,L01,#00
RTRUE
Routine R0094, 0 locals
JE G10,#ffff [FALSE] L0001
STORE G08,G14
STORE G09,G0f
JUMP L0002
L0001: DIV G10,#3c -> G08
MOD G10,#3c -> G09
L0002: RTRUE
Routine R0095, 2 locals
STORE G10,L00
STORE G11,L01
STORE G12,#00
JL L01,#00 [FALSE] L0001
SUB #00,L01 -> G12
L0001: RTRUE
Routine R0096, 0 locals
PRINT "
["
SUB G14,G15 -> -(SP)
CALL_VN R0224 (#1007,#32,(SP)+)
PRINT ".]
"
RTRUE
Routine R0097, 2 locals
STORE L01,G1b
GET_PARENT G19 -> -(SP)
CALL_2S R0098 ((SP)+) -> G1b
JZ L01 [FALSE] L0001
JE G1b,#01 [FALSE] L0001
STORE G07,G1c
JZ L00 [FALSE] L0001
CALL_2N R0078 (#1f)
L0001: JE L01,#01 [FALSE] L0002
JZ G1b [FALSE] L0002
STORE G1c,G07
STORE G07,#13
JZ L00 [FALSE] L0002
CALL_1N R0172
CALL_VS R0224 (#1007,#09) -> -(SP)
RET_POPPED
L0002: JZ L01 [FALSE] L0003
JZ G1b [FALSE] L0003
STORE G07,#13
L0003: RTRUE
Routine R0098, 2 locals
JZ L00 [TRUE] RFALSE
TEST_ATTR L00,#09 [TRUE] RTRUE
GET_CHILD L00 -> -(SP) [FALSE] L0001
L0001: PULL L01
JZ L01 [TRUE] L0003
L0002: CALL_2S R0100 (L01) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
GET_SIBLING L01 -> L01 [TRUE] L0002
L0003: TEST_ATTR L00,#04 [FALSE] L0006
TEST_ATTR L00,#0e [TRUE] L0004
TEST_ATTR L00,#17 [FALSE] L0005
L0004: GET_PARENT L00 -> -(SP)
CALL_2S R0098 ((SP)+) -> -(SP)
RET_POPPED
L0005: JUMP L0008
L0006: TEST_ATTR L00,#07 [TRUE] L0007
TEST_ATTR L00,#17 [TRUE] L0007
TEST_ATTR L00,#14 [FALSE] L0008
L0007: GET_PARENT L00 -> -(SP)
CALL_2S R0098 ((SP)+) -> -(SP)
RET_POPPED
L0008: RFALSE
Routine R0099, 1 local
JE L00,G19 [TRUE] RFALSE
TEST_ATTR L00,#17 [TRUE] RFALSE
TEST_ATTR L00,#14 [TRUE] RFALSE
TEST_ATTR L00,#04 [FALSE] L0003
TEST_ATTR L00,#0e [FALSE] L0001
PUSH #00
JUMP L0002
L0001: PUSH #01
L0002: RET_POPPED
L0003: TEST_ATTR L00,#07 [FALSE] L0004
PUSH #00
JUMP L0005
L0004: PUSH #01
L0005: RET_POPPED
Routine R0100, 3 locals
JZ L00 [TRUE] RFALSE
TEST_ATTR L00,#09 [TRUE] RTRUE
TEST_ATTR L00,#07 [TRUE] L0001
CALL_2S R0045 (L00) -> -(SP)
JE (SP)+,#01 [FALSE] L0004
L0001: CALL_2S R0099 (L00) -> -(SP)
JZ (SP)+ [FALSE] L0004
GET_CHILD L00 -> -(SP) [FALSE] L0002
L0002: PULL L01
JZ L01 [TRUE] L0004
L0003: CALL_2S R0100 (L01) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
GET_SIBLING L01 -> L01 [TRUE] L0003
L0004: GET_PROP_ADDR L00,#18 -> L02
GET_PARENT L00 -> -(SP)
JZ (SP)+ [TRUE] L0008
JZ L02 [TRUE] L0008
LOADW L02,#00 -> -(SP)
JG (SP)+,G0a [FALSE] L0005
STORE G76,#00
STORE G75,#01
CALL_VN R0088 (L00,#18)
STORE G75,#00
JE G76,#01 [TRUE] RTRUE
JUMP L0008
L0005: STORE L01,#00
L0006: GET_PROP_ADDR L00,#18 -> Gef
JZ Gef [TRUE] L0007
GET_PROP_LEN Gef -> Gef
L0007: PUSH Gef
MUL #02,L01 -> -(SP)
JL (SP)+,(SP)+ [FALSE] L0008
LOADW L02,L01 -> -(SP)
CALL_2S R0100 ((SP)+) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
INC L01
JUMP L0006
L0008: RFALSE
Routine R0101, 3 locals
JE G3c,G19 [FALSE] L0001
STORE G3c,L00
L0001: CLEAR_ATTR G19,#17
CLEAR_ATTR G19,#03
STORE L02,L00
L0002: GET_PARENT L02 -> -(SP)
JZ (SP)+ [TRUE] L0004
TEST_ATTR L02,#00 [FALSE] L0003
SET_ATTR L02,#17
L0003: GET_PARENT L02 -> L02
JUMP L0002
L0004: JE G19,#14 [FALSE] L0005
PUT_PROP G19,#2e,S029
L0005: STORE G19,L00
JE G19,#14 [FALSE] L0006
PUT_PROP G19,#2e,#ffff
L0006: SET_ATTR G19,#17
SET_ATTR G19,#03
SET_ATTR G19,#00
SET_ATTR G19,#10
STORE L02,G19
L0007: GET_PARENT L02 -> -(SP)
JZ (SP)+ [TRUE] L0008
GET_PARENT L02 -> L02
JUMP L0007
L0008: STORE G07,L02
STORE G1c,G07
CALL_1N R0129
GET_PARENT G19 -> -(SP)
CALL_2S R0098 ((SP)+) -> G1b
JZ G1b [FALSE] L0009
STORE G07,#13
L0009: STORE G1f,L01
RTRUE
Routine R0102, 6 locals
CALL_VS R0424 (L00,#31) -> -(SP)
JZ (SP)+ [TRUE] L0002
MUL G85,#01 -> -(SP)
ADD L01,(SP)+ -> -(SP)
GET_PROP_ADDR L00,#31 -> -(SP)
LOADW (SP)+,(SP)+ -> -(SP)
PRINT_PADDR (SP)+
PRINT " "
JZ L02 [TRUE] L0001
RTRUE
L0001: CALL_2N R0103 (L00)
RTRUE
L0002: CALL_2S R0063 (L00) -> L03
JZ L02 [TRUE] L0004
JL L03,#03 [TRUE] L0003
JL L03,#06 [TRUE] L0004
JL L03,#09 [FALSE] L0004
L0003: ADD L03,#03 -> L03
L0004: LOADW #15d1,L03 -> L03
MUL L03,#01 -> -(SP)
ADD G85,(SP)+ -> -(SP)
MUL #0c,(SP)+ -> -(SP)
ADD #15b9,(SP)+ -> L04
ADD L01,#03 -> -(SP)
LOADW L04,(SP)+ -> -(SP)
LOADW L04,L01 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0005
STORE L05,#01
L0005: JZ G0b [TRUE] L0008
JZ L05 [TRUE] L0008
STOREW #15e9,#00,#a0
OUTPUT_STREAM REDIRECT_ENABLE,#15e9
JZ L02 [TRUE] L0006
CALL_2N R0108 (L02)
JUMP L0007
L0006: CALL_2N R0103 (L00)
L0007: OUTPUT_STREAM #fffd
ADD #15e9,#02 -> -(SP)
CALL_2S R0004 ((SP)+) -> -(SP)
MUL #03,(SP)+ -> -(SP)
ADD L01,(SP)+ -> L01
L0008: LOADW L04,L01 -> -(SP)
PRINT_PADDR (SP)+
JZ L02 [TRUE] L0009
RTRUE
L0009: CALL_2N R0103 (L00)
RTRUE
Routine R0103, 1 local
JZ L00 [FALSE] L0001
PRINT_PADDR S035
RTRUE
L0001: CALL_VS R0430 (L00) -> -(SP)
PULL Gef
JE Gef,#03 [FALSE] L0002
PRINT "<routine "
PRINT_NUM L00
PRINT ">"
RTRUE
L0002: JE Gef,#04 [FALSE] L0003
PRINT "<string ""
PRINT_PADDR L00
PRINT "">"
RTRUE
L0003: JE Gef,#00 [FALSE] L0004
PRINT "<illegal object number "
PRINT_NUM L00
PRINT ">"
RTRUE
L0004: JE L00,G19 [FALSE] L0005
PRINT_PADDR S030
RTRUE
L0005: JZ G62 [TRUE] L0006
GET_PROP_ADDR L00,#2f -> -(SP)
JZ (SP)+ [TRUE] L0006
CALL_VS R0086 (L00,#2f,#01) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0006: GET_PROP_ADDR L00,#2e -> -(SP)
JZ (SP)+ [TRUE] L0007
CALL_VS R0086 (L00,#2e,#01) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0007: PRINT_OBJ L00
RTRUE
Routine R0104, 2 locals
STORE L01,G62
STORE G62,#01
TEST_ATTR L00,#10 [FALSE] L0001
STORE G62,#ffff
CALL_2N R0103 (L00)
RTRUE
L0001: CALL_VS R0424 (L00,#25) -> -(SP)
JZ (SP)+ [TRUE] L0002
CALL_VN R0086 (L00,#25,#01)
PRINT " "
CALL_2N R0103 (L00)
STORE G62,L01
RTRUE
L0002: CALL_VN R0102 (L00,#02)
STORE G62,L01
RTRUE
Routine R0105, 2 locals
STORE L01,G62
STORE G62,#00
TEST_ATTR L00,#10 [FALSE] L0001
STORE G62,#ffff
CALL_2N R0103 (L00)
STORE G62,L01
RTRUE
L0001: CALL_VN R0102 (L00,#01)
STORE G62,L01
RTRUE
Routine R0106, 2 locals
STORE L01,G62
STORE G62,#00
TEST_ATTR L00,#10 [FALSE] L0001
STORE G62,#ffff
CALL_2N R0103 (L00)
STORE G62,L01
RTRUE
L0001: CALL_VN R0102 (L00,#00)
STORE G62,L01
RTRUE
Routine R0107, 2 locals
STORE L01,G62
STORE G62,#ffff
CALL_2N R0103 (L00)
STORE G62,L01
RTRUE
Routine R0108, 1 local
CALL_2N R0006 (L00)
RTRUE
Routine R0109, 3 locals
LOADW #1567,#00 -> L02
STORE L01,#01
JUMP L0002
L0001: ADD L01,#02 -> L01
L0002: JG L01,L02 [TRUE] L0004
LOADW #1567,L01 -> -(SP)
JE L00,(SP)+ [FALSE] L0003
ADD L01,#01 -> -(SP)
LOADW #1567,(SP)+ -> -(SP)
RET_POPPED
L0003: JUMP L0001
L0004: RFALSE
Routine R0110, 1 local
LOADW L00,#00 -> -(SP)
JZ (SP)+ [FALSE] L0001
CALL_2S R0116 (#08) -> -(SP)
RET_POPPED
L0001: LOADW L00,#00 -> -(SP)
RANDOM (SP)+ -> -(SP)
LOADW L00,(SP)+ -> -(SP)
RET_POPPED
Routine R0111, 4 locals
JE L00,L01 [FALSE] L0001
RFALSE
L0001: JL L00,#00 [FALSE] L0002
JL L01,#00 [TRUE] L0002
RTRUE
L0002: JL L00,#00 [TRUE] L0003
JL L01,#00 [FALSE] L0003
RET #ffff
L0003: AND L00,#7fff -> L02
AND L01,#7fff -> L03
JG L02,L03 [FALSE] L0004
RTRUE
L0004: RET #ffff
Routine R0112, 1 local
TEST_ATTR L00,#00 [TRUE] L0001
PRINT "that"
JUMP L0003
L0001: TEST_ATTR L00,#1c [FALSE] L0002
PRINT "her"
JUMP L0003
L0002: PRINT "yourself."
L0003: RTRUE
Routine R0113, 0 locals
JE Ge9,#22 [FALSE] L0001
PRINT_PADDR S109
NEW_LINE
RTRUE
L0001: JE Ge9,#14 [FALSE] L0004
JE G2d,#01 [FALSE] L0003
TEST_ATTR G32,#00 [TRUE] L0002
PRINT "You can't empty "
CALL_2N R0112 (G32)
PRINT_RET "."
L0002: PRINT_RET "You can't empty her."
L0003: RFALSE
L0004: JE Ge9,#1003 [FALSE] L0005
PRINT_PADDR S110
NEW_LINE
RTRUE
L0005: JE Ge9,#3e [FALSE] L0006
PRINT "You can't fill "
CALL_2N R0112 (G32)
PRINT_RET "."
L0006: JE Ge9,#0f [FALSE] L0008
JE G2d,#02 [FALSE] L0007
PRINT_RET "That isn't possible."
L0007: RFALSE
L0008: JE Ge9,#4a,#49 [FALSE] L0009
PRINT_PADDR S111
CALL_2N R0105 (G32)
PRINT_RET "."
L0009: JE Ge9,#30 [FALSE] L0010
PRINT_RET "You are already fully awake."
L0010: JE Ge9,#2c [FALSE] L0011
PRINT_RET "Yes? I don't understand."
L0011: JE Ge9,#2d [FALSE] L0012
PRINT_RET "No? I don't understand."
L0012: JE Ge9,#45 [FALSE] L0013
PRINT_PADDR S112
NEW_LINE
RTRUE
L0013: JE Ge9,#1003 [FALSE] L0014
PRINT "You can't ask "
CALL_2N R0105 (G3c)
PRINT_RET " to do that."
L0014: JE Ge9,#21 [FALSE] L0016
JE G2d,#02 [FALSE] L0015
PRINT_PADDR S113
CALL_2N R0105 (G32)
PRINT_RET "."
L0015: RFALSE
L0016: JE Ge9,#52,#53 [FALSE] L0018
JIN G33,"head" [FALSE] L0017
PRINT_PADDR S114
NEW_LINE
RTRUE
L0017: PRINT_PADDR S115
NEW_LINE
RTRUE
L0018: JE Ge9,#51 [FALSE] L0020
JIN G33,"head" [FALSE] L0019
PRINT_PADDR S116
NEW_LINE
RTRUE
L0019: PRINT_PADDR S117
NEW_LINE
RTRUE
L0020: JE Ge9,#32 [FALSE] L0021
PRINT "I don't think you want to kiss "
CALL_2N R0105 (G32)
PRINT_RET "."
L0021: JE Ge9,#15 [FALSE] L0023
JE G2d,#03 [FALSE] L0022
PRINT "I don't think "
CALL_2N R0105 (G33)
PRINT_RET " would be interested."
L0022: RFALSE
L0023: JE Ge9,#54 [FALSE] L0024
PRINT "You don't want to buy "
CALL_2N R0112 (G32)
PRINT_RET "."
L0024: JE Ge9,#3d [FALSE] L0025
PRINT_PADDR S118
CALL_2N R0112 (G32)
PRINT_RET "."
L0025: JE Ge9,#2b [FALSE] L0027
JE G2d,#01 [FALSE] L0026
PRINT_PADDR S119
CALL_2N R0112 (G32)
PRINT_RET "."
L0026: RFALSE
L0027: JE Ge9,#20 [FALSE] L0029
JE G2d,#02 [FALSE] L0028
PRINT "There is nothing special about "
CALL_2N R0105 (G32)
PRINT_RET "."
L0028: RFALSE
L0029: JE Ge9,#42 [FALSE] L0030
PRINT_PADDR S120
NEW_LINE
RTRUE
L0030: JE Ge9,#1007 [FALSE] L0034
JE G2d,#0a [FALSE] L0031
PRINT "Say "
CALL_2N R0230 (S121)
PRINT_RET ", dammit."
L0031: JE G2d,#21,#2c [FALSE] L0032
PRINT_PADDR S122
NEW_LINE
RTRUE
L0032: JE G2d,#1a [FALSE] L0033
PRINT_RET "There's no way you can do that."
L0033: RFALSE
L0034: JE Ge9,#43 [FALSE] L0035
PRINT_RET "You can't swim here."
L0035: JE Ge9,#3f [FALSE] L0036
PRINT_PADDR S123
NEW_LINE
RTRUE
L0036: RFALSE
Routine R0114, 1 local
JZ #3840 [TRUE] L0001
SET_TEXT_STYLE BOLDFACE
PRINT_PADDR S001
SET_TEXT_STYLE ROMAN
L0001: JZ #3842 [TRUE] L0002
PRINT_PADDR S002
L0002: PRINT "Release "
LOADW #00,#01 -> -(SP)
AND (SP)+,#03ff -> -(SP)
PRINT_NUM (SP)+
PRINT " / Serial number "
STORE L00,#12
L0003: JL L00,#18 [FALSE] L0004
LOADB #00,L00 -> -(SP)
PRINT_CHAR (SP)+
INC L00
JUMP L0003
L0004: PRINT " / Inform v"
LOADB #00,#3c -> Gef
PRINT_CHAR Gef
LOADB #00,#3d -> Gef
PRINT_CHAR Gef
LOADB #00,#3e -> Gef
PRINT_CHAR Gef
LOADB #00,#3f -> Gef
PRINT_CHAR Gef
PRINT " Library "
PRINT_PADDR S004
PRINT " "
NEW_LINE
RTRUE
Routine R0115, 0 locals
Action routine for:
"version"
CALL_1N R0114
JG G0b,#00 [FALSE] L0001
PRINT "Standard interpreter "
DIV G0b,#0100 -> -(SP)
PRINT_NUM (SP)+
PRINT "."
MOD G0b,#0100 -> -(SP)
PRINT_NUM (SP)+
PRINT " ("
LOADB #00,#1e -> -(SP)
PRINT_NUM (SP)+
LOADB #00,#1f -> -(SP)
PRINT_CHAR (SP)+
PRINT ") / "
JUMP L0002
L0001: PRINT "Interpreter "
LOADB #00,#1e -> -(SP)
PRINT_NUM (SP)+
PRINT " Version "
LOADB #00,#1f -> -(SP)
PRINT_CHAR (SP)+
PRINT " / "
L0002: PRINT "Library serial number "
PRINT_PADDR S003
PRINT "
"
RTRUE
Routine R0116, 3 locals
PRINT "** Library error "
PRINT_NUM L00
PRINT " ("
PRINT_NUM L01
PRINT ","
PRINT_NUM L02
PRINT_RET ") **"
Routine R0117, 2 locals
L0001: GET_SIBLING L00 -> L00 [FALSE] L0002
L0002: JZ L00 [FALSE] L0003
RFALSE
L0003: JZ G22 [TRUE] L0004
GET_PROP L00,#19 -> -(SP)
JE (SP)+,G22 [TRUE] L0004
JUMP L0001
L0004: AND G21,#0200 -> -(SP)
JZ (SP)+ [TRUE] L0005
JZ L01 [FALSE] L0005
TEST_ATTR L00,#19 [TRUE] L0005
JUMP L0001
L0005: AND G21,#0800 -> -(SP)
JZ (SP)+ [TRUE] L0007
TEST_ATTR L00,#03 [TRUE] L0006
TEST_ATTR L00,#11 [FALSE] L0007
L0006: JUMP L0001
L0007: RET L00
orphan code fragment:
RTRUE
Routine R0118, 1 local
AND G21,#20 -> -(SP)
JZ (SP)+ [FALSE] RTRUE
AND G21,#10 -> -(SP)
JZ (SP)+ [TRUE] RFALSE
TEST_ATTR L00,#17 [TRUE] RTRUE
TEST_ATTR L00,#14 [TRUE] RTRUE
TEST_ATTR L00,#04 [FALSE] L0001
TEST_ATTR L00,#0e [TRUE] RTRUE
L0001: RFALSE
Routine R0119, 2 locals
GET_CHILD L00 -> -(SP) [FALSE] L0001
L0001: JZ (SP)+ [TRUE] L0002
CALL_2S R0118 (L00) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
L0002: GET_CHILD L01 -> -(SP) [FALSE] L0003
L0003: JZ (SP)+ [TRUE] L0004
CALL_2S R0118 (L01) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
L0004: AND G21,#84 -> -(SP)
JZ (SP)+ [TRUE] L0008
TEST_ATTR L00,#1a [TRUE] L0005
TEST_ATTR L01,#1a [TRUE] RFALSE
L0005: TEST_ATTR L01,#1a [TRUE] L0006
TEST_ATTR L00,#1a [TRUE] RFALSE
L0006: TEST_ATTR L00,#09 [TRUE] L0007
TEST_ATTR L01,#09 [TRUE] RFALSE
L0007: TEST_ATTR L01,#09 [TRUE] L0008
TEST_ATTR L00,#09 [TRUE] RFALSE
L0008: CALL_VS R0036 (L00,L01) -> -(SP)
RET_POPPED
Routine R0120, 2 locals
L0001: GET_CHILD L00 -> -(SP) [FALSE] L0002
L0002: JZ (SP)+ [TRUE] L0008
GET_CHILD L00 -> -(SP) [FALSE] L0003
L0003: GET_PROP (SP)+,#19 -> -(SP)
JE (SP)+,L01 [TRUE] L0005
GET_CHILD L00 -> -(SP) [FALSE] L0004
L0004: INSERT_OBJ (SP)+,"outside"
JUMP L0007
L0005: GET_CHILD L00 -> -(SP) [FALSE] L0006
L0006: INSERT_OBJ (SP)+,"inside"
L0007: JUMP L0001
L0008: GET_CHILD "inside" -> -(SP) [FALSE] L0009
L0009: JZ (SP)+ [TRUE] L0011
GET_CHILD "inside" -> -(SP) [FALSE] L0010
L0010: INSERT_OBJ (SP)+,L00
JUMP L0008
L0011: GET_CHILD "outside" -> -(SP) [FALSE] L0012
L0012: JZ (SP)+ [TRUE] L0014
GET_CHILD "outside" -> -(SP) [FALSE] L0013
L0013: INSERT_OBJ (SP)+,L00
JUMP L0011
L0014: RTRUE
Routine R0121, 4 locals
L0001: STORE L01,L00
JUMP L0003
L0002: GET_SIBLING L01 -> L01 [FALSE] L0003
L0003: JZ L01 [TRUE] L0013
GET_PROP L01,#19 -> L02
JZ L02 [TRUE] L0012
GET_SIBLING L01 -> L01 [FALSE] L0004
L0004: JZ L01 [TRUE] L0006
GET_PROP L01,#19 -> -(SP)
JE (SP)+,L02 [FALSE] L0006
GET_SIBLING L01 -> L01 [FALSE] L0005
L0005: JUMP L0004
L0006: JZ L01 [TRUE] RFALSE
GET_SIBLING L01 -> L03 [FALSE] L0007
L0007: JUMP L0009
L0008: GET_SIBLING L03 -> L03 [FALSE] L0009
L0009: JZ L03 [TRUE] L0012
GET_PROP L03,#19 -> -(SP)
JE (SP)+,L02 [FALSE] L0011
GET_PARENT L00 -> -(SP)
CALL_VN R0120 ((SP)+,L02)
GET_PARENT L00 -> -(SP)
GET_CHILD (SP)+ -> L00 [FALSE] L0010
L0010: JUMP L0001
L0011: JUMP L0008
L0012: JUMP L0002
L0013: RTRUE
Routine R0122, 1 local
JZ L00 [FALSE] L0001
RTRUE
L0001: STORE Gef,L00
JL Gef,#01 [TRUE] L0003
L0002: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0002
L0003: RTRUE
Routine R0123, 3 locals
GET_PARENT L00 -> -(SP)
GET_CHILD (SP)+ -> -(SP) [FALSE] L0001
L0001: JE L00,(SP)+ [FALSE] L0002
CALL_2N R0121 (L00)
GET_PARENT L00 -> -(SP)
GET_CHILD (SP)+ -> L00 [FALSE] L0002
L0002: STORE G21,L01
STORE G25,#00
CALL_VN R0124 (L00,L02)
RTRUE
Routine R0124, 15 locals
JG L01,#00 [FALSE] L0002
GET_PARENT L00 -> -(SP)
GET_CHILD (SP)+ -> -(SP) [FALSE] L0001
L0001: JE L00,(SP)+ [FALSE] L0002
CALL_2N R0121 (L00)
GET_PARENT L00 -> -(SP)
GET_CHILD (SP)+ -> L00 [FALSE] L0002
L0002: JZ L00 [TRUE] RFALSE
AND G21,#0200 -> -(SP)
JZ (SP)+ [TRUE] L0004
JZ L01 [FALSE] L0004
TEST_ATTR L00,#19 [TRUE] L0004
GET_SIBLING L00 -> L00 [FALSE] L0003
L0003: JUMP L0002
L0004: AND G21,#0800 -> -(SP)
JZ (SP)+ [TRUE] L0007
TEST_ATTR L00,#03 [TRUE] L0005
TEST_ATTR L00,#11 [FALSE] L0007
L0005: GET_SIBLING L00 -> L00 [FALSE] L0006
L0006: JUMP L0002
L0007: JUMP L0008
L0008: ADD #1186,L02 -> L03
ADD #1106,L02 -> L04
STORE L05,L00
STORE L06,#00
JUMP L0010
L0009: CALL_VS R0117 (L05,L01) -> L05
INC L06
L0010: JZ L05 [TRUE] L0012
ADD L06,L02 -> -(SP)
JL (SP)+,#80 [FALSE] L0012
STOREB L03,L06,#00
GET_PROP L05,#17 -> -(SP)
JZ (SP)+ [TRUE] L0011
INC L07
L0011: JUMP L0009
L0012: AND G21,#0400 -> -(SP)
JZ (SP)+ [TRUE] L0017
JE L06,#01 [FALSE] L0013
TEST_ATTR L00,#1e [TRUE] L0013
PRINT_PADDR S036
JUMP L0014
L0013: PRINT_PADDR S037
L0014: AND G21,#01 -> -(SP)
JZ (SP)+ [TRUE] L0015
PRINT ":
"
JUMP L0016
L0015: PRINT_CHAR ' '
L0016: SUB G21,#0400 -> G21
L0017: ADD L02,L06 -> -(SP)
ADD (SP)+,#01 -> L02
JL L07,#02 [FALSE] L0018
JUMP L0070
L0018: STORE L0b,#01
STORE L05,L00
STORE L07,#00
JUMP L0020
L0019: CALL_VS R0117 (L05,L01) -> L05
INC L07
L0020: JL L07,L06 [FALSE] L0026
LOADB L03,L07 -> -(SP)
JZ (SP)+ [FALSE] L0025
STOREB L03,L07,L0b
STOREB L04,L0b,#01
CALL_VS R0117 (L05,L01) -> L09
ADD L07,#01 -> L0a
JUMP L0022
L0021: CALL_VS R0117 (L09,L01) -> L09
INC L0a
L0022: JZ L09 [TRUE] L0024
JL L0a,L06 [FALSE] L0024
LOADB L03,L0a -> -(SP)
JZ (SP)+ [FALSE] L0023
GET_PROP L05,#17 -> -(SP)
JZ (SP)+ [TRUE] L0023
GET_PROP L09,#17 -> -(SP)
JZ (SP)+ [TRUE] L0023
CALL_VS R0119 (L05,L09) -> -(SP)
JE (SP)+,#01 [FALSE] L0023
LOADB L04,L0b -> -(SP)
ADD (SP)+,#01 -> -(SP)
STOREB L04,L0b,(SP)+
STOREB L03,L0a,L0b
L0023: JUMP L0021
L0024: INC L0b
L0025: JUMP L0019
L0026: DEC L0b
STORE L05,#01
STORE L06,L00
STORE L07,#00
JUMP L0028
L0027: INC L05
INC L0d
L0028: JG L05,L0b [TRUE] L0034
L0029: LOADB L03,L07 -> -(SP)
JE (SP)+,L05 [TRUE] L0030
SUB #00,L05 -> -(SP)
LOADB L03,L07 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0030
INC L07
CALL_VS R0117 (L06,L01) -> L06
JUMP L0029
L0030: LOADB L04,L05 -> L0a
JZ L06 [FALSE] L0031
STORE L0e,#00
JUMP L0033
L0031: GET_PROP L06,#19 -> -(SP)
JE (SP)+,#00,G22 [TRUE] L0032
GET_PROP L06,#19 -> -(SP)
CALL_2S R0085 ((SP)+) -> -(SP)
JE (SP)+,#02,#03 [FALSE] L0032
GET_PROP L06,#19 -> -(SP)
JE (SP)+,L0e [FALSE] L0032
DEC L0d
L0032: GET_PROP L06,#19 -> L0e
L0033: JUMP L0027
L0034: DEC L0d
STORE L05,#01
STORE L06,L00
STORE L07,#00
STORE L0e,#00
JUMP L0036
L0035: INC L05
DEC L0d
L0036: JL L0d,#00 [TRUE] L0069
L0037: LOADB L03,L07 -> -(SP)
JE (SP)+,L05 [TRUE] L0038
SUB #00,L05 -> -(SP)
LOADB L03,L07 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0038
INC L07
CALL_VS R0117 (L06,L01) -> L06
JUMP L0037
L0038: GET_PROP L06,#19 -> -(SP)
JE (SP)+,#00,G22 [TRUE] L0058
GET_PROP L06,#19 -> -(SP)
JE (SP)+,L0e [FALSE] L0039
INC L0d
JUMP L0068
L0039: CALL_VS R0117 (L06,L01) -> L08
JZ L08 [TRUE] L0040
GET_PROP L06,#19 -> -(SP)
GET_PROP L08,#19 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0041
L0040: JUMP L0058
L0041: GET_PROP L06,#19 -> -(SP)
CALL_2S R0085 ((SP)+) -> L08
JE L08,#02,#03 [FALSE] L0058
STORE L0c,L06
STORE G24,#01
STORE L09,L07
STORE L0a,L05
L0042: JL L0a,L0b [FALSE] L0046
GET_PROP L06,#19 -> -(SP)
GET_PROP L0c,#19 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0046
INC L0a
L0043: LOADB L03,L09 -> -(SP)
JE (SP)+,L0a [TRUE] L0044
SUB #00,L0a -> -(SP)
LOADB L03,L09 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0044
INC L09
CALL_VS R0117 (L0c,L01) -> L0c
JUMP L0043
L0044: GET_PROP L06,#19 -> -(SP)
GET_PROP L0c,#19 -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0045
INC G24
L0045: JUMP L0042
L0046: JE G24,#01 [FALSE] L0047
JUMP L0058
L0047: AND G21,#02 -> -(SP)
JZ (SP)+ [TRUE] L0048
ADD L01,G25 -> -(SP)
MUL #02,(SP)+ -> -(SP)
CALL_2N R0122 ((SP)+)
L0048: JE L08,#03 [FALSE] L0052
STORE L0c,#00
STORE L09,#00
L0049: JL L09,G24 [FALSE] L0050
ADD L09,L05 -> -(SP)
LOADB L04,(SP)+ -> -(SP)
ADD L0c,(SP)+ -> L0c
INC L09
JUMP L0049
L0050: CALL_2N R0108 (L0c)
PRINT " "
GET_PROP L06,#19 -> -(SP)
PRINT_PADDR (SP)+
AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0051
PRINT " ("
L0051: AND G21,#02 -> -(SP)
JZ (SP)+ [TRUE] L0052
PRINT ":
"
L0052: STORE L0c,G21
JE L08,#03 [TRUE] L0053
STORE G26,#01
STORE G39,L06
ADD L01,G25 -> G3a
CALL_VS R0088 (L06,#19) -> -(SP)
JE (SP)+,#01 [FALSE] L0053
JUMP L0056
L0053: PUSH G22
PUSH G23
PUSH G24
GET_PROP L06,#19 -> G22
STORE G23,L06
INC G25
CALL_VN R0124 (L06,L01,L02)
DEC G25
PULL G24
PULL G23
PULL G22
JE L08,#03 [FALSE] L0055
AND L0c,#08 -> -(SP)
JZ (SP)+ [TRUE] L0054
PRINT ")"
L0054: JUMP L0056
L0055: STORE G26,#02
STORE G39,L06
ADD L01,G25 -> G3a
CALL_VN R0088 (L06,#19)
L0056: AND L0c,#01 -> -(SP)
JZ (SP)+ [TRUE] L0057
AND G21,#01 -> -(SP)
JZ (SP)+ [FALSE] L0057
NEW_LINE
L0057: STORE G21,L0c
GET_PROP L06,#19 -> L0e
JUMP L0066
L0058: SUB #00,L0d -> -(SP)
CALL_VS R0125 (L06,L01,(SP)+) -> -(SP)
JE (SP)+,#01 [FALSE] L0059
JUMP L0068
L0059: LOADB L04,L05 -> -(SP)
JE (SP)+,#01 [FALSE] L0063
AND G21,#1000 -> -(SP)
JZ (SP)+ [TRUE] L0060
CALL_2N R0107 (L06)
JUMP L0062
L0060: AND G21,#0100 -> -(SP)
JZ (SP)+ [TRUE] L0061
CALL_2N R0105 (L06)
JUMP L0062
L0061: CALL_2N R0104 (L06)
L0062: JUMP L0065
L0063: AND G21,#0100 -> -(SP)
JZ (SP)+ [TRUE] L0064
LOADB L04,L05 -> -(SP)
CALL_VN R0102 (L06,#01,(SP)+)
L0064: LOADB L04,L05 -> -(SP)
CALL_2N R0108 ((SP)+)
PRINT " "
CALL_VN R0086 (L06,#17,#01)
L0065: CALL_VN R0126 (L06,L01,L02)
L0066: AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0068
JE L0d,#01 [FALSE] L0067
PRINT_PADDR S040
L0067: JG L0d,#01 [FALSE] L0068
PRINT ", "
L0068: JUMP L0035
L0069: RTRUE
L0070: STORE L0b,L06
STORE L05,#01
STORE L06,L00
JUMP L0072
L0071: CALL_VS R0117 (L06,L01) -> L06
INC L05
INC L0d
L0072: JG L05,L0b [TRUE] L0074
GET_PROP L06,#19 -> -(SP)
JE (SP)+,#00,G22 [TRUE] L0073
GET_PROP L06,#19 -> -(SP)
CALL_2S R0085 ((SP)+) -> -(SP)
JE (SP)+,#02,#03 [FALSE] L0073
GET_PROP L06,#19 -> -(SP)
JE (SP)+,L0e [FALSE] L0073
DEC L0d
L0073: GET_PROP L06,#19 -> L0e
JUMP L0071
L0074: STORE L05,#01
STORE L06,L00
STORE L0e,#00
JUMP L0076
L0075: CALL_VS R0117 (L06,L01) -> L06
INC L05
L0076: JG L05,L0d [TRUE] L0098
GET_PROP L06,#19 -> -(SP)
JE (SP)+,#00,G22 [TRUE] L0090
GET_PROP L06,#19 -> -(SP)
JE (SP)+,L0e [FALSE] L0077
DEC L05
JUMP L0097
L0077: CALL_VS R0117 (L06,L01) -> L07
JZ L07 [TRUE] L0078
GET_PROP L06,#19 -> -(SP)
GET_PROP L07,#19 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0079
L0078: JUMP L0090
L0079: GET_PROP L06,#19 -> -(SP)
CALL_2S R0085 ((SP)+) -> L07
JE L07,#02,#03 [FALSE] L0090
AND G21,#02 -> -(SP)
JZ (SP)+ [TRUE] L0080
ADD L01,G25 -> -(SP)
MUL #02,(SP)+ -> -(SP)
CALL_2N R0122 ((SP)+)
L0080: JE L07,#03 [FALSE] L0084
STORE L0c,L06
STORE L09,#00
L0081: CALL_VS R0117 (L0c,L01) -> L0c
INC L09
JZ L0c [TRUE] L0082
GET_PROP L06,#19 -> -(SP)
GET_PROP L0c,#19 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0081
L0082: CALL_2N R0108 (L09)
PRINT " "
GET_PROP L06,#19 -> -(SP)
PRINT_PADDR (SP)+
AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0083
PRINT " ("
L0083: AND G21,#02 -> -(SP)
JZ (SP)+ [TRUE] L0084
PRINT ":
"
L0084: STORE L0c,G21
JE L07,#03 [TRUE] L0085
STORE G26,#01
STORE G39,L06
ADD L01,G25 -> G3a
CALL_VS R0088 (L06,#19) -> -(SP)
JE (SP)+,#01 [FALSE] L0085
JUMP L0088
L0085: PUSH G22
PUSH G23
PUSH G24
GET_PROP L06,#19 -> G22
STORE G23,L06
INC G25
CALL_VN R0124 (L06,L01,L02)
DEC G25
PULL G24
PULL G23
PULL G22
JE L07,#03 [FALSE] L0087
AND L0c,#08 -> -(SP)
JZ (SP)+ [TRUE] L0086
PRINT ")"
L0086: JUMP L0088
L0087: STORE G26,#02
STORE G39,L06
ADD L01,G25 -> G3a
CALL_VN R0088 (L06,#19)
L0088: AND L0c,#01 -> -(SP)
JZ (SP)+ [TRUE] L0089
AND G21,#01 -> -(SP)
JZ (SP)+ [FALSE] L0089
NEW_LINE
L0089: STORE G21,L0c
GET_PROP L06,#19 -> L0e
JUMP L0095
L0090: SUB L05,L0d -> -(SP)
CALL_VS R0125 (L06,L01,(SP)+) -> -(SP)
JE (SP)+,#01 [FALSE] L0091
JUMP L0097
L0091: AND G21,#1000 -> -(SP)
JZ (SP)+ [TRUE] L0092
CALL_2N R0107 (L06)
JUMP L0094
L0092: AND G21,#0100 -> -(SP)
JZ (SP)+ [TRUE] L0093
CALL_2N R0105 (L06)
JUMP L0094
L0093: CALL_2N R0104 (L06)
L0094: CALL_VN R0126 (L06,L01,L02)
L0095: AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0097
SUB L0d,#01 -> -(SP)
JE L05,(SP)+ [FALSE] L0096
PRINT_PADDR S040
L0096: SUB L0d,#01 -> -(SP)
JL L05,(SP)+ [FALSE] L0097
PRINT ", "
L0097: JUMP L0075
L0098: RTRUE
Routine R0125, 4 locals
AND G21,#02 -> -(SP)
JZ (SP)+ [TRUE] L0001
ADD L01,G25 -> -(SP)
MUL #02,(SP)+ -> -(SP)
CALL_2N R0122 ((SP)+)
L0001: AND G21,#04 -> -(SP)
JZ (SP)+ [TRUE] L0004
GET_PROP L00,#16 -> -(SP)
JZ (SP)+ [TRUE] L0004
STORE G26,#01
CALL_VS R0086 (L00,#16,#01) -> L03
JE L03,#01 [FALSE] L0004
AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0003
JE L02,#ffff [FALSE] L0002
PRINT_PADDR S040
L0002: JL L02,#ffff [FALSE] L0003
PRINT ", "
L0003: AND G21,#01 -> -(SP)
JZ (SP)+ [TRUE] L0004
NEW_LINE
L0004: RET L03
Routine R0126, 8 locals
AND G21,#80 -> -(SP)
JZ (SP)+ [TRUE] L0012
STORE L07,#00
TEST_ATTR L00,#09 [FALSE] L0001
TEST_ATTR G07,#09 [TRUE] L0001
ADD L07,#01 -> L07
L0001: TEST_ATTR L00,#04 [FALSE] L0002
TEST_ATTR L00,#0e [TRUE] L0002
ADD L07,#02 -> L07
L0002: TEST_ATTR L00,#04 [FALSE] L0005
TEST_ATTR L00,#0e [TRUE] L0003
TEST_ATTR L00,#17 [FALSE] L0005
L0003: GET_CHILD L00 -> -(SP) [FALSE] L0004
L0004: JZ (SP)+ [FALSE] L0005
ADD L07,#04 -> L07
L0005: JE L07,#01 [FALSE] L0006
CALL_VN R0224 (#1006,#01,L00)
L0006: JE L07,#02 [FALSE] L0007
CALL_VN R0224 (#1006,#02,L00)
L0007: JE L07,#03 [FALSE] L0008
CALL_VN R0224 (#1006,#03,L00)
L0008: JE L07,#04 [FALSE] L0009
CALL_VN R0224 (#1006,#04,L00)
L0009: JE L07,#05 [FALSE] L0010
CALL_VN R0224 (#1006,#05,L00)
L0010: JE L07,#06 [FALSE] L0011
CALL_VN R0224 (#1006,#06,L00)
L0011: JE L07,#07 [FALSE] L0012
CALL_VN R0224 (#1006,#07,L00)
L0012: AND G21,#04 -> -(SP)
JZ (SP)+ [TRUE] L0030
GET_PROP L00,#16 -> -(SP)
JZ (SP)+ [TRUE] L0014
STORE G26,#02
CALL_VS R0088 (L00,#16) -> -(SP)
JZ (SP)+ [TRUE] L0014
AND G21,#01 -> -(SP)
JZ (SP)+ [TRUE] L0013
NEW_LINE
L0013: RTRUE
L0014: TEST_ATTR L00,#09 [FALSE] L0015
TEST_ATTR L00,#1a [FALSE] L0015
CALL_VN R0224 (#1006,#08)
STORE L04,#01
JUMP L0017
L0015: TEST_ATTR L00,#09 [FALSE] L0016
CALL_VN R0224 (#1006,#09,L00)
STORE L04,#01
L0016: TEST_ATTR L00,#1a [FALSE] L0017
CALL_VN R0224 (#1006,#0a,L00)
STORE L04,#01
L0017: TEST_ATTR L00,#04 [FALSE] L0029
TEST_ATTR L00,#0f [FALSE] L0026
JE L04,#01 [FALSE] L0018
PRINT_PADDR S040
JUMP L0019
L0018: CALL_VN R0224 (#1006,#0b,L00)
L0019: TEST_ATTR L00,#0e [FALSE] L0023
GET_CHILD L00 -> -(SP) [FALSE] L0020
L0020: JZ (SP)+ [FALSE] L0021
CALL_VN R0224 (#1006,#0d,L00)
JUMP L0022
L0021: CALL_VN R0224 (#1006,#0c,L00)
L0022: JUMP L0025
L0023: TEST_ATTR L00,#0a [FALSE] L0024
TEST_ATTR L00,#0b [FALSE] L0024
CALL_VN R0224 (#1006,#0f,L00)
JUMP L0025
L0024: CALL_VN R0224 (#1006,#0e,L00)
L0025: STORE L04,#01
JUMP L0029
L0026: GET_CHILD L00 -> -(SP) [FALSE] L0027
L0027: JZ (SP)+ [FALSE] L0029
TEST_ATTR L00,#17 [FALSE] L0029
JE L04,#01 [FALSE] L0028
CALL_VN R0224 (#1006,#10,L00)
JUMP L0029
L0028: CALL_VN R0224 (#1006,#11,L00)
L0029: JE L04,#01 [FALSE] L0030
PRINT ")"
L0030: AND G21,#0800 -> -(SP)
JZ (SP)+ [FALSE] L0034
STORE Gef,#00
GET_CHILD L00 -> -(SP) [FALSE] L0032
L0031: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0031
L0032: PULL Gee
STORE L05,Gef
GET_CHILD L00 -> L04 [FALSE] L0033
L0033: JUMP L0038
L0034: STORE L05,#00
GET_CHILD L00 -> -(SP) [FALSE] L0035
L0035: PULL L06
JZ L06 [TRUE] L0038
L0036: TEST_ATTR L06,#03 [TRUE] L0037
TEST_ATTR L06,#11 [TRUE] L0037
INC L05
STORE L04,L06
L0037: GET_SIBLING L06 -> L06 [TRUE] L0036
L0038: AND G21,#20 -> -(SP)
JZ (SP)+ [TRUE] L0040
JG L05,#00 [FALSE] L0040
AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0039
CALL_VN R0224 (#1006,#12,L00)
L0039: STORE L03,#01
L0040: AND G21,#10 -> -(SP)
JZ (SP)+ [TRUE] L0051
JG L05,#00 [FALSE] L0051
TEST_ATTR L00,#14 [FALSE] L0045
AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0044
AND G21,#40 -> -(SP)
JZ (SP)+ [TRUE] L0041
CALL_VN R0224 (#1006,#13,L00)
JUMP L0042
L0041: CALL_VN R0224 (#1006,#14,L00)
L0042: TEST_ATTR L00,#00 [FALSE] L0043
PRINT_PADDR S041
JUMP L0044
L0043: PRINT_PADDR S042
L0044: STORE L03,#01
L0045: TEST_ATTR L00,#04 [FALSE] L0051
TEST_ATTR L00,#0e [TRUE] L0046
TEST_ATTR L00,#17 [FALSE] L0051
L0046: AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0050
AND G21,#40 -> -(SP)
JZ (SP)+ [TRUE] L0047
CALL_VN R0224 (#1006,#15,L00)
JUMP L0048
L0047: CALL_VN R0224 (#1006,#16,L00)
L0048: TEST_ATTR L00,#00 [FALSE] L0049
PRINT_PADDR S041
JUMP L0050
L0049: PRINT_PADDR S042
L0050: STORE L03,#01
L0051: JE L03,#01 [FALSE] L0054
AND G21,#08 -> -(SP)
JZ (SP)+ [TRUE] L0054
JG L05,#01 [TRUE] L0052
TEST_ATTR L04,#1e [FALSE] L0053
L0052: PRINT_PADDR S039
JUMP L0054
L0053: PRINT_PADDR S038
L0054: AND G21,#01 -> -(SP)
JZ (SP)+ [TRUE] L0055
NEW_LINE
L0055: JE L03,#01 [FALSE] L0057
GET_CHILD L00 -> L00 [FALSE] L0056
L0056: PUSH G22
PUSH G23
PUSH G24
STORE G22,#00
STORE G23,#00
STORE G24,#00
ADD L01,#01 -> -(SP)
CALL_VN R0124 (L00,(SP)+,L02)
PULL G24
PULL G23
PULL G22
AND G21,#40 -> -(SP)
JZ (SP)+ [TRUE] L0057
PRINT ")"
L0057: RTRUE
Routine R0127, 7 locals
INC G29
L0001: STORE G2a,#00
CALL_1S L01 -> L03
STORE L04,G2c
PRINT "--- "
PRINT_PADDR L04
PRINT " ---
"
CALL_VS R0425 (L00,#03) -> -(SP)
JZ (SP)+ [TRUE] L0002
CALL_VN R0421 (L00,#45)
JUMP L0003
L0002: PRINT_PADDR L00
L0003: CALL_VN R0224 (#1007,#34,L03)
PRINT "> "
STORE Gec,#1286
STOREB Gec,#01,#00
CALL_1N R0231
READ Gec,#12ff -> Gef
LOADW #12ff,#01 -> L05
JE L05,"q","quit" [TRUE] L0004
LOADB #12ff,#01 -> -(SP)
JZ (SP)+ [FALSE] L0006
L0004: DEC G29
JG G29,#00 [TRUE] RFALSE
JZ G1a [FALSE] L0005
CALL_2N R0078 (#1f)
RTRUE
L0005: RFALSE
L0006: CALL_2S R0061 (#01) -> L05
JZ L05 [FALSE] L0007
JUMP L0001
L0007: JL L05,#01 [TRUE] L0008
JG L05,L03 [FALSE] L0009
L0008: JUMP L0003
L0009: STORE G2a,L05
CALL_1S L02 -> L06
JE L06,#02 [FALSE] L0010
JUMP L0001
L0010: JE L06,#03 [TRUE] RFALSE
JUMP L0003
Routine R0128, 11 locals
JZ G28 [FALSE] L0001
CALL_VS R0127 (L00,L01,L02) -> -(SP)
RET_POPPED
L0001: INC G29
STORE G2a,#00
CALL_1S L01 -> L03
STORE L04,G2c
STORE L05,G2b
STORE L06,#07
L0002: STORE L09,#00
ERASE_WINDOW #ffff
ADD L03,#07 -> L07
SPLIT_WINDOW L07
LOADB #00,#21 -> L07
JZ L07 [FALSE] L0003
STORE L07,#50
L0003: SET_WINDOW #01
SET_CURSOR #01,#01
SET_TEXT_STYLE REVERSE
STORE Gef,L07
JL Gef,#01 [TRUE] L0005
L0004: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0004
L0005: DIV L07,#02 -> -(SP)
SUB (SP)+,L05 -> L08
SET_CURSOR #01,L08
PRINT_PADDR L04
SET_CURSOR #02,#01
STORE Gef,L07
JL Gef,#01 [TRUE] L0007
L0006: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0006
L0007: SET_CURSOR #02,#02
PRINT_PADDR S020
SUB L07,#0c -> L08
SET_CURSOR #02,L08
PRINT_PADDR S021
SET_CURSOR #03,#01
STORE Gef,L07
JL Gef,#01 [TRUE] L0009
L0008: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0008
L0009: SET_CURSOR #03,#02
PRINT_PADDR S024
SUB L07,#11 -> L08
SET_CURSOR #03,L08
JE G29,#01 [FALSE] L0010
PRINT_PADDR S022
JUMP L0011
L0010: PRINT_PADDR S023
L0011: SET_TEXT_STYLE ROMAN
SET_CURSOR #05,#02
LOADW #00,#08 -> Gef
OR #02,Gef -> Gef
STOREW #00,#08,Gef
CALL_VS R0425 (L00,#04) -> -(SP)
JZ (SP)+ [TRUE] L0012
PRINT_PADDR L00
JUMP L0013
L0012: CALL_VN R0421 (L00,#45)
L0013: JE L06,L09 [TRUE] L0015
JG L09,#00 [FALSE] L0014
SET_CURSOR L09,#04
PRINT " "
L0014: SET_CURSOR L06,#04
PRINT ">"
L0015: STORE L09,L06
READ_CHAR #01 -> L0a
JE L0a,#4e,#6e,#82 [FALSE] L0017
INC L06
ADD #07,L03 -> -(SP)
JE L06,(SP)+ [FALSE] L0016
STORE L06,#07
L0016: JUMP L0013
L0017: JE L0a,#50,#70,#81 [FALSE] L0019
DEC L06
JE L06,#06 [FALSE] L0018
ADD #06,L03 -> L06
L0018: JUMP L0013
L0019: JE L0a,#51,#71,#1b [TRUE] L0020
JE L0a,#83 [FALSE] L0021
L0020: JUMP L0028
L0021: JE L0a,#0a,#0d,#84 [FALSE] L0027
SET_WINDOW #00
LOADW #00,#08 -> Gef
AND #fffd,Gef -> Gef
STOREW #00,#08,Gef
NEW_LINE
NEW_LINE
NEW_LINE
SUB L06,#06 -> G2a
CALL_VN R0421 (L01,#45)
ERASE_WINDOW #ffff
SPLIT_WINDOW #01
LOADB #00,#21 -> L07
JZ L07 [FALSE] L0022
STORE L07,#50
L0022: SET_WINDOW #01
SET_CURSOR #01,#01
SET_TEXT_STYLE REVERSE
STORE Gef,L07
JL Gef,#01 [TRUE] L0024
L0023: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0023
L0024: DIV L07,#02 -> -(SP)
SUB (SP)+,G2b -> L08
SET_CURSOR #01,L08
PRINT_PADDR G2c
SET_TEXT_STYLE ROMAN
SET_WINDOW #00
NEW_LINE
CALL_VS R0421 (L02,#45) -> L07
JE L07,#02 [FALSE] L0025
JUMP L0002
L0025: JE L07,#03 [FALSE] L0026
JUMP L0028
L0026: CALL_VN R0224 (#1007,#35)
READ_CHAR #01 -> L0a
JUMP L0002
L0027: JUMP L0013
L0028: DEC G29
JG G29,#00 [TRUE] RFALSE
LOADW #00,#08 -> Gef
AND #fffd,Gef -> Gef
STOREW #00,#08,Gef
SET_CURSOR #01,#01
ERASE_WINDOW #ffff
SET_WINDOW #00
NEW_LINE
NEW_LINE
NEW_LINE
JZ G1a [FALSE] L0029
CALL_2N R0078 (#1f)
RTRUE
L0029: RTRUE
Routine R0129, 6 locals
STORE L00,#01
L0001: GET_PROP_ADDR L00,#27 -> L04
JZ L04 [TRUE] L0011
TEST_ATTR L00,#01 [TRUE] L0011
LOADW L04,#00 -> -(SP)
CALL_2S R0085 ((SP)+) -> -(SP)
JE (SP)+,#02 [FALSE] L0004
CALL_VS R0421 (L00,#27) -> -(SP)
JZ (SP)+ [TRUE] L0002
INSERT_OBJ L00,G07
JUMP L0003
L0002: REMOVE_OBJ L00
L0003: JUMP L0011
L0004: GET_PROP_ADDR L00,#27 -> Gef
JZ Gef [TRUE] L0005
GET_PROP_LEN Gef -> Gef
L0005: STORE L01,Gef
STORE L02,#00
L0006: DIV L01,#02 -> -(SP)
JL L02,(SP)+ [FALSE] L0010
LOADW L04,L02 -> L03
JE L03,G07 [TRUE] L0007
JIN L03,G07 [FALSE] L0009
L0007: JIN L00,G07 [TRUE] L0008
INSERT_OBJ L00,G07
L0008: STORE L05,#01
L0009: INC L02
JUMP L0006
L0010: JZ L05 [FALSE] L0011
GET_PARENT L00 -> -(SP)
JZ (SP)+ [TRUE] L0011
REMOVE_OBJ L00
L0011: INC L00
JG L00,#0041 [TRUE] L0012
JUMP L0001
L0012: RTRUE
Routine R0130, 2 locals
INSERT_OBJ G19,L00
L0001: GET_PARENT L00 -> -(SP)
JZ (SP)+ [TRUE] L0002
GET_PARENT L00 -> L00
JUMP L0001
L0002: STORE G07,L00
STORE G1c,G07
CALL_1N R0129
CALL_2N R0097 (#01)
JZ L01 [FALSE] L0003
CALL_2N R0078 (#1f)
L0003: JE L01,#01 [FALSE] L0004
CALL_1N R0172
CALL_1N R0173
L0004: JE L01,#02 [FALSE] L0005
CALL_2N R0175 (#01)
L0005: RTRUE
Routine R0131, 1 local
CALL_VN R0078 (#1b,L00)
CALL_2N R0078 (#1f)
RTRUE
Routine R0132, 1 local
L0001: STORE Gec,#1286
STOREB Gec,#01,#00
CALL_1N R0231
READ Gec,#12ff -> Gef
LOADW #12ff,#01 -> L00
JE L00,"y","yes","yes" [TRUE] RTRUE
JE L00,"n","no","no" [TRUE] RFALSE
CALL_VN R0224 (#01,#01)
PRINT "> "
JUMP L0001
orphan code fragment:
RTRUE
Routine R0133, 0 locals
Action routine for:
"die"
CALL_VN R0224 (#01,#02)
CALL_1S R0132 -> -(SP)
JZ (SP)+ [TRUE] L0001
QUIT
L0001: RTRUE
Routine R0134, 0 locals
Action routine for:
"restart"
CALL_VN R0224 (#02,#01)
CALL_1S R0132 -> -(SP)
JZ (SP)+ [TRUE] L0001
RESTART
CALL_VN R0224 (#02,#02)
L0001: RTRUE
Routine R0135, 0 locals
Action routine for:
"verify"
VERIFY [TRUE] L0001
JUMP L0002
L0001: CALL_VS R0224 (#05,#01) -> -(SP)
RET_POPPED
L0002: CALL_VN R0224 (#05,#02)
RTRUE
Routine R0136, 0 locals
Action routine for:
"script"
"script on"
LOADW #00,#08 -> -(SP)
AND (SP)+,#01 -> G0e
JZ G0e [TRUE] L0001
CALL_VS R0224 (#06,#01) -> -(SP)
RET_POPPED
L0001: OUTPUT_STREAM SCRIPTING_ENABLE
LOADW #00,#08 -> -(SP)
AND (SP)+,#01 -> -(SP)
JZ (SP)+ [FALSE] L0002
CALL_VS R0224 (#06,#03) -> -(SP)
RET_POPPED
L0002: CALL_VN R0224 (#06,#02)
CALL_1N R0115
STORE G0e,#01
RTRUE
Routine R0137, 0 locals
Action routine for:
"script off"
"noscript"
LOADW #00,#08 -> -(SP)
AND (SP)+,#01 -> G0e
JZ G0e [FALSE] L0001
CALL_VS R0224 (#07,#01) -> -(SP)
RET_POPPED
L0001: CALL_VN R0224 (#07,#02)
OUTPUT_STREAM #fffe
LOADW #00,#08 -> -(SP)
AND (SP)+,#01 -> -(SP)
JZ (SP)+ [TRUE] L0002
CALL_VS R0224 (#07,#03) -> -(SP)
RET_POPPED
L0002: STORE G0e,#00
RTRUE
Routine R0138, 0 locals
Action routine for:
"notify on"
STORE G16,#01
CALL_2N R0224 (#08)
RTRUE
Routine R0139, 0 locals
Action routine for:
"notify off"
STORE G16,#00
CALL_2N R0224 (#09)
RTRUE
Routine R0140, 3 locals
CALL_2N R0224 (#0a)
STORE L00,#01
L0001: TEST_ATTR L00,#18 [FALSE] L0002
INC L01
L0002: INC L00
JG L00,#0041 [TRUE] L0003
JUMP L0001
L0003: STORE L00,#01
L0004: TEST_ATTR L00,#18 [FALSE] L0007
CALL_2N R0107 (L00)
INC L02
JE L02,L01 [FALSE] L0005
PRINT_RET "."
L0005: SUB L01,#01 -> -(SP)
JE L02,(SP)+ [FALSE] L0006
PRINT_PADDR S040
JUMP L0007
L0006: PRINT ", "
L0007: INC L00
JG L00,#0041 [TRUE] L0008
JUMP L0004
L0008: RTRUE
Routine R0141, 3 locals
CALL_VN R0224 (#0b,#01)
STORE L00,#01
L0001: TEST_ATTR L00,#0c [FALSE] L0011
STORE L02,#01
CALL_2N R0105 (L00)
GET_PARENT L00 -> L01
JZ L01 [TRUE] L0009
JE L01,G19 [FALSE] L0004
TEST_ATTR L00,#1a [FALSE] L0002
CALL_VN R0224 (#0b,#03)
JUMP L0003
L0002: CALL_VN R0224 (#0b,#04)
L0003: JUMP L0010
L0004: TEST_ATTR L01,#00 [FALSE] L0005
CALL_VN R0224 (#0b,#05)
JUMP L0010
L0005: TEST_ATTR L01,#18 [FALSE] L0006
CALL_VN R0224 (#0b,#06,L01)
JUMP L0010
L0006: TEST_ATTR L01,#04 [FALSE] L0007
CALL_VN R0224 (#0b,#08,L01)
JUMP L0010
L0007: TEST_ATTR L01,#14 [FALSE] L0008
CALL_VN R0224 (#0b,#09,L01)
JUMP L0010
L0008: TEST_ATTR L01,#07 [FALSE] L0009
CALL_VN R0224 (#0b,#07,L01)
JUMP L0010
L0009: CALL_VN R0224 (#0b,#0a)
L0010: NEW_LINE
L0011: INC L00
JG L00,#0041 [TRUE] L0012
JUMP L0001
L0012: JZ L02 [FALSE] L0013
CALL_VN R0224 (#0b,#02)
L0013: RTRUE
Routine R0142, 1 local
LOADB #172f,L00 -> -(SP)
JZ (SP)+ [FALSE] L0001
STOREB #172f,L00,#01
LOADB #172b,L00 -> -(SP)
ADD G14,(SP)+ -> G14
L0001: RTRUE
Routine R0143, 2 locals
PRINT " "
STORE L01,L00
JL L01,#00 [FALSE] L0001
SUB #00,L00 -> L01
MUL L01,#0a -> L01
L0001: JL L01,#0a [FALSE] L0002
PRINT " "
JUMP L0004
L0002: JL L01,#64 [FALSE] L0003
PRINT " "
JUMP L0004
L0003: JL L01,#03e8 [FALSE] L0004
PRINT " "
L0004: PRINT_NUM L00
PRINT " "
RTRUE
Routine R0144, 1 local
Action routine for:
"full"
"full score"
CALL_1N R0313
JZ G14 [TRUE] RFALSE
JZ #01 [FALSE] RFALSE
NEW_LINE
CALL_VN R0224 (#0d,#01)
STORE L00,#00
L0001: JL L00,#01 [FALSE] L0003
LOADB #172f,L00 -> -(SP)
JE (SP)+,#01 [FALSE] L0002
LOADB #172b,L00 -> -(SP)
CALL_2N R0143 ((SP)+)
CALL_2N R0411 (L00)
L0002: INC L00
JUMP L0001
L0003: JZ G18 [TRUE] L0004
CALL_2N R0143 (G18)
CALL_VN R0224 (#0d,#02)
L0004: JZ G17 [TRUE] L0005
CALL_2N R0143 (G17)
CALL_VN R0224 (#0d,#03)
L0005: NEW_LINE
CALL_2N R0143 (G14)
CALL_VN R0224 (#0d,#04)
RTRUE
Routine R0145, 4 locals
STORE L02,L00
L0001: JZ L02 [TRUE] L0005
STORE L03,L01
L0002: JZ L03 [TRUE] L0004
JE L03,L02 [FALSE] L0003
RET L02
L0003: GET_PARENT L03 -> L03
JUMP L0002
L0004: GET_PARENT L02 -> L02
JUMP L0001
L0005: RFALSE
Routine R0146, 2 locals
L0001: JZ L01 [TRUE] L0002
JE L00,L01 [TRUE] RTRUE
GET_PARENT L01 -> L01
JUMP L0001
L0002: RFALSE
Routine R0147, 6 locals
STORE L01,L00
L0001: GET_PARENT L01 -> -(SP)
JZ (SP)+ [TRUE] L0002
GET_PARENT L01 -> L01
JUMP L0001
L0002: STORE L02,#01
L0003: GET_PROP_ADDR L02,#18 -> -(SP)
JZ (SP)+ [TRUE] L0008
GET_PROP_ADDR L02,#18 -> L04
GET_PROP_ADDR L02,#18 -> Gef
JZ Gef [TRUE] L0004
GET_PROP_LEN Gef -> Gef
L0004: PUSH Gef
DIV (SP)+,#02 -> L03
LOADW L04,#00 -> -(SP)
CALL_VS R0425 ((SP)+,#03) -> -(SP)
JZ (SP)+ [TRUE] L0005
JUMP L0008
L0005: STORE L05,#00
L0006: JL L05,L03 [FALSE] L0008
LOADW L04,L05 -> -(SP)
JE (SP)+,L01 [FALSE] L0007
RET L02
L0007: INC L05
JUMP L0006
L0008: INC L02
JG L02,#0041 [TRUE] L0009
JUMP L0003
L0009: RFALSE
Routine R0148, 5 locals
CALL_2S R0147 (L00) -> L04
JZ L04 [TRUE] L0001
CALL_2S R0148 (L04) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: CALL_VS R0145 (G19,L00) -> L03
JE G19,L03 [TRUE] L0004
GET_PARENT G19 -> L04
L0002: JE L04,L03 [TRUE] L0004
TEST_ATTR L04,#04 [FALSE] L0003
TEST_ATTR L04,#0e [TRUE] L0003
JZ L01 [FALSE] RTRUE
CALL_VS R0224 (#0f,#09,L04) -> -(SP)
RET_POPPED
L0003: GET_PARENT L04 -> L04
JUMP L0002
L0004: JE L00,L03 [TRUE] L0010
GET_PARENT L00 -> L04
L0005: JE L04,L03 [TRUE] L0010
JZ L02 [TRUE] L0008
TEST_ATTR L04,#04 [TRUE] L0008
TEST_ATTR L04,#14 [TRUE] L0008
TEST_ATTR L04,#00 [FALSE] L0006
JZ L01 [FALSE] RTRUE
CALL_VS R0224 (#0f,#06,L04) -> -(SP)
RET_POPPED
L0006: TEST_ATTR L04,#17 [FALSE] L0007
JZ L01 [FALSE] RTRUE
CALL_VS R0224 (#0f,#07,L04) -> -(SP)
RET_POPPED
L0007: JZ L01 [FALSE] RTRUE
CALL_VS R0224 (#0f,#08,L00) -> -(SP)
RET_POPPED
L0008: TEST_ATTR L04,#04 [FALSE] L0009
TEST_ATTR L04,#0e [TRUE] L0009
JZ L01 [FALSE] RTRUE
CALL_VS R0224 (#0f,#09,L04) -> -(SP)
RET_POPPED
L0009: GET_PARENT L04 -> L04
JUMP L0005
L0010: RFALSE
Routine R0149, 6 locals
JE L00,G19 [FALSE] L0001
CALL_VS R0224 (#0f,#02) -> -(SP)
RET_POPPED
L0001: TEST_ATTR L00,#00 [FALSE] L0002
CALL_VS R0224 (#0f,#03,L00) -> -(SP)
RET_POPPED
L0002: CALL_VS R0145 (G19,L00) -> L01
JZ L01 [FALSE] L0003
CALL_2S R0147 (L00) -> L03
JZ L03 [TRUE] L0003
CALL_VS R0145 (G19,L03) -> L01
L0003: JZ L01 [FALSE] L0004
CALL_VS R0224 (#0f,#08,L00) -> -(SP)
RET_POPPED
L0004: JE L01,L00 [FALSE] L0005
CALL_VS R0224 (#0f,#04,L00) -> -(SP)
RET_POPPED
L0005: JIN L00,G19 [FALSE] L0006
CALL_VS R0224 (#0f,#05,L00) -> -(SP)
RET_POPPED
L0006: CALL_VS R0148 (L00,#00,#01) -> -(SP)
JZ (SP)+ [TRUE] L0007
RTRUE
L0007: GET_PARENT L00 -> L03
JE L03,L01 [TRUE] L0010
TEST_ATTR L03,#04 [TRUE] L0008
TEST_ATTR L03,#14 [FALSE] L0010
L0008: STORE L02,L03
STORE L05,G2f
STORE G2f,#1000
CALL_VS R0088 (L03,#04) -> -(SP)
JZ (SP)+ [TRUE] L0009
STORE G2f,L05
RTRUE
L0009: STORE G2f,L05
L0010: TEST_ATTR L00,#11 [FALSE] L0011
CALL_VS R0224 (#0f,#0a,L00) -> -(SP)
RET_POPPED
L0011: TEST_ATTR L00,#13 [FALSE] L0012
CALL_VS R0224 (#0f,#0b,L00) -> -(SP)
RET_POPPED
L0012: STORE L05,#00
GET_CHILD G19 -> -(SP) [FALSE] L0013
L0013: PULL L04
JZ L04 [TRUE] L0016
L0014: TEST_ATTR L04,#1a [TRUE] L0015
INC L05
L0015: GET_SIBLING L04 -> L04 [TRUE] L0014
L0016: CALL_VS R0087 (G19,#2d) -> -(SP)
JL L05,(SP)+ [TRUE] L0025
JZ #00 [TRUE] L0024
GET_PARENT #00 -> -(SP)
JE (SP)+,G19 [TRUE] L0017
CALL_VS R0224 (#0f,#0c) -> -(SP)
RET_POPPED
L0017: STORE L04,#00
GET_CHILD G19 -> -(SP) [FALSE] L0018
L0018: PULL L05
JZ L05 [TRUE] L0021
L0019: JZ L05 [TRUE] L0020
TEST_ATTR L05,#1a [TRUE] L0020
TEST_ATTR L05,#09 [TRUE] L0020
STORE L04,L05
L0020: GET_SIBLING L05 -> L05 [TRUE] L0019
L0021: JZ L04 [TRUE] L0022
CALL_VN R0224 (#0f,#0d,L04)
STORE G34,#01
CALL_VN R0078 (#13,L04,#00)
STORE G34,#00
JIN L04,#00 [FALSE] RTRUE
JUMP L0023
L0022: CALL_VS R0224 (#0f,#0c) -> -(SP)
RET_POPPED
L0023: JUMP L0025
L0024: CALL_VS R0224 (#0f,#0c) -> -(SP)
RET_POPPED
L0025: INSERT_OBJ L00,G19
JZ L02 [TRUE] L0027
STORE L05,G2f
STORE G2f,#1000
CALL_VS R0088 (L02,#05) -> -(SP)
JZ (SP)+ [TRUE] L0026
STORE G2f,L05
RTRUE
L0026: STORE G2f,L05
L0027: RFALSE
Routine R0150, 0 locals
Action routine for:
"carry multi"
"no-verb multi"
"pick up multi"
"pick multi up"
"remove multi"
"peel noun"
"peel off noun"
"no-verb multi"
"take noun"
"take multi"
"get noun"
"get noun"
JZ G47 [TRUE] L0001
JIN G32,G19 [TRUE] L0002
L0001: CALL_2S R0149 (G32) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
L0002: CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
STORE G46,G47
JE G46,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#0f,#01)
RTRUE
Routine R0151, 1 local
Action routine for:
"carry multiinside from noun"
"carry multiinside off noun"
"no-verb multiinside from noun"
"remove multiinside from noun"
"no-verb multiinside from noun"
"no-verb multiinside off noun"
"take multiinside from noun"
"take multiinside off noun"
"get noun from noun"
GET_PARENT G32 -> L00
TEST_ATTR L00,#04 [FALSE] L0001
TEST_ATTR L00,#0e [TRUE] L0001
CALL_VS R0224 (#11,#01,G32) -> -(SP)
RET_POPPED
L0001: JE L00,G33 [TRUE] L0002
CALL_VS R0224 (#11,#02,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR L00,#00 [FALSE] L0003
CALL_VS R0224 (#0f,#06,L00) -> -(SP)
RET_POPPED
L0003: CALL_2S R0149 (G32) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
STORE G2f,#0f
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
STORE G2f,#11
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VS R0224 (#11,#03,G32) -> -(SP)
RET_POPPED
Routine R0152, 0 locals
Action routine for:
"put down held"
"put held down"
"discard held"
JE G32,G19 [FALSE] L0001
CALL_VS R0224 (#12,#04) -> -(SP)
RET_POPPED
L0001: GET_PARENT G19 -> -(SP)
JIN G32,(SP)+ [FALSE] L0002
CALL_VS R0224 (#10,#01,G32) -> -(SP)
RET_POPPED
L0002: JIN G32,G19 [TRUE] L0003
CALL_VS R0224 (#10,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#1a [FALSE] L0004
CALL_VN R0224 (#10,#03,G32)
CALL_VN R0078 (#29,G32)
TEST_ATTR G32,#1a [FALSE] L0004
JIN G32,G19 [TRUE] RTRUE
L0004: GET_PARENT G19 -> -(SP)
INSERT_OBJ G32,(SP)+
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VS R0224 (#10,#04,G32) -> -(SP)
RET_POPPED
Routine R0153, 1 local
Action routine for:
"put noun on / onto noun"
"discard noun on / onto noun"
STORE G36,#12
JE G33,#10 [TRUE] L0001
JIN G19,G33 [FALSE] L0002
L0001: CALL_VN R0078 (#10,G32)
RTRUE
L0002: GET_PARENT G32 -> -(SP)
JE (SP)+,G19 [TRUE] L0003
CALL_VS R0224 (#12,#01,G32) -> -(SP)
RET_POPPED
L0003: CALL_VS R0145 (G32,G33) -> L00
JE L00,G32 [FALSE] L0004
CALL_VS R0224 (#12,#02,G32) -> -(SP)
RET_POPPED
L0004: CALL_2S R0148 (G33) -> -(SP)
JZ (SP)+ [TRUE] L0005
RTRUE
L0005: JE G33,L00 [TRUE] L0007
STORE G2f,#1001
CALL_VS R0088 (G33,#04) -> -(SP)
JZ (SP)+ [TRUE] L0006
STORE G2f,#12
RTRUE
L0006: STORE G2f,#12
L0007: TEST_ATTR G33,#14 [TRUE] L0008
CALL_VS R0224 (#12,#03,G33) -> -(SP)
RET_POPPED
L0008: JE L00,G19 [FALSE] L0009
CALL_VS R0224 (#12,#04) -> -(SP)
RET_POPPED
L0009: TEST_ATTR G32,#1a [FALSE] L0010
CALL_VN R0224 (#12,#05,G32)
CALL_VN R0078 (#29,G32)
TEST_ATTR G32,#1a [FALSE] L0010
RTRUE
L0010: CALL_VS R0087 (G33,#2d) -> -(SP)
STORE Gef,#00
GET_CHILD G33 -> -(SP) [FALSE] L0012
L0011: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0011
L0012: PULL Gee
PUSH Gef
JL (SP)+,(SP)+ [TRUE] L0013
CALL_VS R0224 (#12,#06,G33) -> -(SP)
RET_POPPED
L0013: INSERT_OBJ G32,G33
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [FALSE] L0014
RTRUE
L0014: JE G33,L00 [TRUE] L0016
STORE G2f,#1001
CALL_VS R0088 (G33,#05) -> -(SP)
JZ (SP)+ [TRUE] L0015
STORE G2f,#12
RTRUE
L0015: STORE G2f,#12
L0016: JE G34,#01 [FALSE] L0017
RTRUE
L0017: JE G3f,#01 [FALSE] L0018
CALL_VS R0224 (#12,#07) -> -(SP)
RET_POPPED
L0018: CALL_VN R0224 (#12,#08,G32)
RTRUE
Routine R0154, 1 local
Action routine for:
"put noun in / inside / into noun"
"insert multiexcept in / into noun"
"discard noun in / into / down noun"
STORE G36,#13
JE G33,#10 [TRUE] L0001
JIN G19,G33 [FALSE] L0002
L0001: CALL_VN R0078 (#10,G32)
RTRUE
L0002: GET_PARENT G32 -> -(SP)
JE (SP)+,G19 [TRUE] L0003
CALL_VS R0224 (#13,#01,G32) -> -(SP)
RET_POPPED
L0003: CALL_VS R0145 (G32,G33) -> L00
JE L00,G32 [FALSE] L0004
CALL_VS R0224 (#13,#05,G32) -> -(SP)
RET_POPPED
L0004: CALL_2S R0148 (G33) -> -(SP)
JZ (SP)+ [TRUE] L0005
RTRUE
L0005: JE G33,L00 [TRUE] L0007
STORE G2f,#1001
CALL_VS R0088 (G33,#04) -> -(SP)
JZ (SP)+ [TRUE] L0006
STORE G2f,#13
RTRUE
L0006: STORE G2f,#13
TEST_ATTR G33,#04 [FALSE] L0007
TEST_ATTR G33,#0e [TRUE] L0007
CALL_VS R0224 (#13,#03,G33) -> -(SP)
RET_POPPED
L0007: TEST_ATTR G33,#04 [TRUE] L0008
CALL_VS R0224 (#13,#02,G33) -> -(SP)
RET_POPPED
L0008: TEST_ATTR G32,#1a [FALSE] L0009
CALL_VN R0224 (#13,#06,G32)
CALL_VN R0078 (#29,G32)
TEST_ATTR G32,#1a [FALSE] L0009
RTRUE
L0009: CALL_VS R0087 (G33,#2d) -> -(SP)
STORE Gef,#00
GET_CHILD G33 -> -(SP) [FALSE] L0011
L0010: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0010
L0011: PULL Gee
PUSH Gef
JL (SP)+,(SP)+ [TRUE] L0012
CALL_VS R0224 (#13,#07,G33) -> -(SP)
RET_POPPED
L0012: INSERT_OBJ G32,G33
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G33,L00 [TRUE] L0014
STORE G2f,#1001
CALL_VS R0088 (G33,#05) -> -(SP)
JZ (SP)+ [TRUE] L0013
STORE G2f,#13
RTRUE
L0013: STORE G2f,#13
L0014: JE G34,#01 [TRUE] RTRUE
JE G3f,#01 [FALSE] L0015
CALL_VS R0224 (#13,#08,G32) -> -(SP)
RET_POPPED
L0015: CALL_VN R0224 (#13,#09,G32)
RTRUE
Routine R0155, 0 locals
Action routine for:
"transfer noun to noun"
"clear noun to noun"
JIN G32,G19 [TRUE] L0001
CALL_2S R0149 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G33,#14 [FALSE] L0002
CALL_VN R0078 (#12,G32,G33)
RTRUE
L0002: JE G33,#10 [FALSE] L0003
CALL_VN R0078 (#10,G32)
RTRUE
L0003: CALL_VN R0078 (#13,G32,G33)
RTRUE
Routine R0156, 0 locals
Action routine for:
"empty noun"
"empty out noun"
"empty noun out"
STORE G33,#10
CALL_1N R0157
RTRUE
Routine R0157, 4 locals
Action routine for:
"empty noun to / into / on / onto noun"
JE G32,G33 [FALSE] L0001
CALL_VS R0224 (#14,#04) -> -(SP)
RET_POPPED
L0001: CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0002
RTRUE
L0002: TEST_ATTR G32,#04 [TRUE] L0003
CALL_VS R0224 (#14,#01,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#0e [TRUE] L0004
CALL_VS R0224 (#14,#02,G32) -> -(SP)
RET_POPPED
L0004: JE G33,#10 [TRUE] L0006
TEST_ATTR G33,#14 [TRUE] L0006
TEST_ATTR G33,#04 [TRUE] L0005
CALL_VS R0224 (#14,#01,G33) -> -(SP)
RET_POPPED
L0005: TEST_ATTR G33,#0e [TRUE] L0006
CALL_VS R0224 (#14,#02,G33) -> -(SP)
RET_POPPED
L0006: GET_CHILD G32 -> L00 [FALSE] L0007
L0007: STORE Gef,#00
GET_CHILD G32 -> -(SP) [FALSE] L0009
L0008: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0008
L0009: PULL Gee
STORE L02,Gef
JZ L00 [FALSE] L0010
CALL_VS R0224 (#14,#03,G32) -> -(SP)
RET_POPPED
L0010: JZ L00 [TRUE] L0020
GET_SIBLING L00 -> L01 [FALSE] L0011
L0011: STORE L03,#00
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0012
STORE L03,#01
L0012: TEST_ATTR G32,#04 [TRUE] L0013
STORE L03,#01
L0013: TEST_ATTR G32,#0e [TRUE] L0014
STORE L03,#01
L0014: JE G33,#10 [TRUE] L0016
TEST_ATTR G33,#14 [TRUE] L0016
TEST_ATTR G33,#04 [TRUE] L0015
STORE L03,#01
L0015: TEST_ATTR G33,#0e [TRUE] L0016
STORE L03,#01
L0016: PUSH L02
DEC L02
JZ (SP)+ [FALSE] L0017
STORE L03,#01
L0017: JZ L03 [TRUE] L0018
JUMP L0020
L0018: JZ G34 [FALSE] L0019
CALL_2N R0107 (L00)
PRINT ": "
L0019: CALL_VN R0078 (#5d,L00,G33)
STORE L00,L01
JUMP L0010
L0020: RTRUE
Routine R0158, 0 locals
Action routine for:
CALL_VN R0078 (#15,G33,G32)
RTRUE
Routine R0159, 0 locals
Action routine for:
CALL_VN R0078 (#16,G33,G32)
RTRUE
Routine R0160, 3 locals
Action routine for:
"no-verb in / into / on / onto noun"
"stand on noun"
"go noun"
"go into / in / inside / through noun"
"go into noun"
"no-verb into / in / inside / through noun"
"cross noun"
"lie on top of noun"
"lie on / in / inside noun"
"climb on ATTRIBUTE(20)"
"climb into / inside noun"
"climb ATTRIBUTE(20)"
"get inside / in / into noun"
"get on / onto noun"
"sit on top of noun"
"sit on / in / inside noun"
TEST_ATTR G32,#05 [TRUE] L0001
JIN G32,"compass" [FALSE] L0002
L0001: CALL_VN R0078 (#1b,G32)
RTRUE
L0002: JIN G19,G32 [FALSE] L0003
CALL_VS R0224 (#17,#01,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#07 [TRUE] L0004
CALL_VS R0224 (#17,#02,G32) -> -(SP)
RET_POPPED
L0004: TEST_ATTR G32,#04 [FALSE] L0005
TEST_ATTR G32,#0e [TRUE] L0005
CALL_VS R0224 (#17,#03,G32) -> -(SP)
RET_POPPED
L0005: GET_PARENT G32 -> -(SP)
GET_PARENT G19 -> -(SP)
JE (SP)+,(SP)+ [TRUE] L0015
CALL_VS R0145 (G19,G32) -> L00
JE L00,G19,#00 [FALSE] L0006
CALL_VS R0224 (#17,#04,G32) -> -(SP)
RET_POPPED
L0006: JIN G19,L00 [TRUE] L0010
GET_PARENT G19 -> L01
STORE L02,G34
GET_PARENT L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0007
JE G32,L00 [TRUE] L0008
L0007: CALL_VN R0224 (#17,#06,L01)
STORE G34,#01
L0008: CALL_2N R0078 (#19)
STORE G34,L02
JIN G19,L01 [FALSE] L0009
RTRUE
L0009: JUMP L0006
L0010: JIN G19,G32 [FALSE] L0011
RTRUE
L0011: JIN G32,L00 [TRUE] L0015
GET_PARENT G32 -> L01
L0012: GET_PARENT L01 -> -(SP)
JE (SP)+,L00 [TRUE] L0013
GET_PARENT L01 -> L01
JUMP L0012
L0013: CALL_VN R0224 (#17,#07,L01)
STORE L02,G34
STORE G34,#01
CALL_VN R0078 (#17,L01)
STORE G34,L02
JIN G19,L01 [TRUE] L0014
RTRUE
L0014: CALL_VN R0078 (#17,G32)
RTRUE
L0015: INSERT_OBJ G19,G32
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#17,#05,G32)
CALL_2N R0168 (G32)
RTRUE
Routine R0161, 0 locals
Action routine for:
"no-verb off noun"
"get off noun"
GET_PARENT G19 -> -(SP)
JE (SP)+,G32 [FALSE] L0001
CALL_2N R0078 (#19)
RTRUE
L0001: CALL_VN R0224 (#18,#01,G32)
RTRUE
Routine R0162, 1 local
Action routine for:
"no-verb out / off / up"
"stand"
"stand up"
"no-verb noun"
"exit"
"get out"
"get out of noun"
"check out"
"leave"
"leave noun"
"checkout"
GET_PARENT G19 -> L00
JE L00,G07 [TRUE] L0001
JE G07,#13 [FALSE] L0004
JE L00,G1c [FALSE] L0004
L0001: GET_PROP G07,#12 -> -(SP)
JZ (SP)+ [FALSE] L0002
JE G07,#13 [FALSE] L0003
GET_PROP G1c,#12 -> -(SP)
JZ (SP)+ [TRUE] L0003
L0002: CALL_VN R0078 (#1b,#11)
RTRUE
L0003: CALL_VS R0224 (#19,#01) -> -(SP)
RET_POPPED
L0004: TEST_ATTR L00,#04 [FALSE] L0005
TEST_ATTR L00,#0e [TRUE] L0005
CALL_VS R0224 (#19,#02,L00) -> -(SP)
RET_POPPED
L0005: GET_PARENT L00 -> -(SP)
INSERT_OBJ G19,(SP)+
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#19,#03,L00)
CALL_2N R0175 (#01)
RTRUE
Routine R0163, 0 locals
Action routine for:
"go"
"no-verb"
CALL_2N R0224 (#1a)
RTRUE
Routine R0164, 0 locals
Action routine for:
"cross"
"in"
CALL_VN R0078 (#1b,#12)
RTRUE
Routine R0165, 7 locals
Action routine for:
"go noun = [parse $35de]"
"no-verb noun = [parse $35de]"
JZ G33 [TRUE] L0001
JIN G33,"compass" [TRUE] L0001
CALL_2S R0148 (G33) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: STORE L06,G07
STORE L04,#00
GET_PARENT G19 -> L00
JE G07,#13 [TRUE] L0002
JE L00,G07 [FALSE] L0003
L0002: JE G07,#13 [FALSE] L0008
JE L00,G1c [TRUE] L0008
L0003: STORE L01,G07
JE G07,#13 [FALSE] L0004
STORE G07,G1c
L0004: CALL_VS R0088 (L00,#04) -> L02
JE L02,#03 [TRUE] L0005
STORE G07,L01
L0005: JE L02,#01 [FALSE] L0006
STORE L04,L00
GET_PARENT L00 -> L00
JUMP L0008
L0006: JZ L02 [FALSE] L0007
CALL_VN R0224 (#1b,#01,L00)
L0007: RTRUE
L0008: GET_PROP G32,#15 -> L05
CALL_2S R0085 (L05) -> -(SP)
JE (SP)+,#02 [FALSE] L0009
CALL_VS R0088 (G32,#15) -> L05
L0009: CALL_VS R0420 (L00,L05) -> L01
CALL_2S R0085 (L01) -> L02
JE L02,#03 [FALSE] L0010
PRINT_PADDR L01
NEW_LINE
RFALSE
L0010: JE L02,#02 [FALSE] L0011
CALL_VS R0088 (L00,L05) -> L01
JE L01,#01 [TRUE] RTRUE
L0011: JZ L02 [TRUE] L0012
JZ L01 [FALSE] L0014
L0012: GET_PROP L00,#26 -> -(SP)
JZ (SP)+ [TRUE] L0013
CALL_VN R0086 (L00,#26)
L0013: RFALSE
L0014: TEST_ATTR L01,#05 [FALSE] L0020
TEST_ATTR L01,#03 [FALSE] L0015
CALL_VS R0224 (#1b,#02) -> -(SP)
RET_POPPED
L0015: TEST_ATTR L01,#0e [TRUE] L0018
JE G32,#0f [FALSE] L0016
CALL_VS R0224 (#1b,#03,L01) -> -(SP)
RET_POPPED
L0016: JE G32,#10 [FALSE] L0017
CALL_VS R0224 (#1b,#04,L01) -> -(SP)
RET_POPPED
L0017: CALL_VS R0224 (#1b,#05,L01) -> -(SP)
RET_POPPED
L0018: CALL_VS R0088 (L01,#13) -> L02
JZ L02 [FALSE] L0019
CALL_VS R0224 (#1b,#06,L01) -> -(SP)
RET_POPPED
L0019: JE L02,#01 [TRUE] RTRUE
STORE L01,L02
L0020: JZ L04 [FALSE] L0021
INSERT_OBJ G19,L01
JUMP L0022
L0021: INSERT_OBJ L04,L01
L0022: STORE G07,L01
CALL_1N R0129
CALL_2S R0098 (L01) -> L03
JZ L03 [TRUE] L0023
STORE G07,L01
STORE G1b,#01
JUMP L0025
L0023: JE L06,#13 [FALSE] L0024
CALL_1N R0405
JZ G1a [FALSE] RTRUE
L0024: STORE G1c,L01
STORE G07,#13
STORE G1b,#00
L0025: CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_2N R0175 (#01)
RTRUE
Routine R0166, 3 locals
GET_PARENT G19 -> -(SP)
JE L00,(SP)+ [TRUE] RFALSE
GET_CHILD L00 -> -(SP) [FALSE] L0001
L0001: PULL L01
JZ L01 [TRUE] L0004
L0002: TEST_ATTR L01,#03 [TRUE] L0003
TEST_ATTR L01,#11 [TRUE] L0003
STORE L02,#01
L0003: GET_SIBLING L01 -> L01 [TRUE] L0002
L0004: JZ L02 [TRUE] RFALSE
CALL_VN R0224 (#1f,#04,L00)
RTRUE
Routine R0167, 2 locals
GET_PARENT G19 -> L01
L0001: JZ L01 [TRUE] L0003
JE L01,G1d [TRUE] L0003
JE L01,L00 [TRUE] RFALSE
GET_PARENT L01 -> L01
JZ L01 [TRUE] L0002
TEST_ATTR L01,#14 [FALSE] RTRUE
L0002: JUMP L0001
L0003: RTRUE
Routine R0168, 9 locals
GET_CHILD L00 -> -(SP) [FALSE] L0001
L0001: PULL L03
JZ L03 [TRUE] L0003
L0002: CLEAR_ATTR L03,#19
GET_SIBLING L03 -> L03 [TRUE] L0002
L0003: STORE L04,#00
GET_CHILD L00 -> -(SP) [FALSE] L0004
L0004: PULL L03
JZ L03 [TRUE] L0019
L0005: TEST_ATTR L03,#03 [TRUE] L0018
CALL_2S R0167 (L03) -> -(SP)
JZ (SP)+ [TRUE] L0018
CALL_2N R0073 (L03)
TEST_ATTR L03,#11 [TRUE] L0016
SET_ATTR L03,#19
INC L04
STORE L05,#1e
STORE L07,#00
TEST_ATTR L03,#05 [TRUE] L0006
TEST_ATTR L03,#04 [FALSE] L0007
L0006: TEST_ATTR L03,#0e [FALSE] L0007
CALL_VS R0424 (L03,#1f) -> -(SP)
JZ (SP)+ [TRUE] L0007
STORE L05,#1f
STORE L07,#01
JUMP L0011
L0007: TEST_ATTR L03,#05 [TRUE] L0008
TEST_ATTR L03,#04 [FALSE] L0009
L0008: TEST_ATTR L03,#0e [TRUE] L0009
CALL_VS R0424 (L03,#20) -> -(SP)
JZ (SP)+ [TRUE] L0009
STORE L05,#20
STORE L07,#01
JUMP L0011
L0009: TEST_ATTR L03,#15 [FALSE] L0010
TEST_ATTR L03,#0d [FALSE] L0010
CALL_VS R0424 (L03,#21) -> -(SP)
JZ (SP)+ [TRUE] L0010
STORE L05,#21
STORE L07,#01
JUMP L0011
L0010: TEST_ATTR L03,#15 [FALSE] L0011
TEST_ATTR L03,#0d [TRUE] L0011
CALL_VS R0424 (L03,#22) -> -(SP)
JZ (SP)+ [TRUE] L0011
STORE L05,#22
STORE L07,#01
L0011: TEST_ATTR L03,#0c [FALSE] L0012
GET_PROP L03,#24 -> -(SP)
JE (SP)+,#ffff [FALSE] L0012
JE L07,#01 [FALSE] L0015
L0012: GET_PROP L03,#24 -> -(SP)
JE (SP)+,#ffff [TRUE] L0013
CALL_VS R0088 (L03,#24) -> -(SP)
JZ (SP)+ [TRUE] L0013
STORE L08,#01
CLEAR_ATTR L03,#19
DEC L04
JUMP L0015
L0013: CALL_VS R0420 (L03,L05) -> L06
JZ L06 [TRUE] L0015
NEW_LINE
CALL_VN R0086 (L03,L05)
STORE L08,#01
CLEAR_ATTR L03,#19
DEC L04
TEST_ATTR L03,#14 [FALSE] L0015
GET_CHILD L03 -> -(SP) [FALSE] L0014
L0014: JZ (SP)+ [TRUE] L0015
CALL_2N R0166 (L03)
L0015: JUMP L0018
L0016: TEST_ATTR L03,#14 [FALSE] L0018
GET_CHILD L03 -> -(SP) [FALSE] L0017
L0017: JZ (SP)+ [TRUE] L0018
CALL_2N R0166 (L03)
L0018: GET_SIBLING L03 -> L03 [TRUE] L0005
L0019: JZ L04 [FALSE] L0020
RFALSE
L0020: JZ L01 [TRUE] L0023
NEW_LINE
JE L08,#01 [FALSE] L0021
STORE L01,L02
L0021: PRINT_PADDR L01
PRINT " "
GET_CHILD L00 -> -(SP) [FALSE] L0022
L0022: CALL_VN R0123 ((SP)+,#0ad8)
RET L04
L0023: JE L08,#01 [FALSE] L0024
CALL_VN R0224 (#1f,#05,L00)
JUMP L0025
L0024: CALL_VN R0224 (#1f,#06,L00)
L0025: RTRUE
Routine R0169, 0 locals
Action routine for:
STORE G1e,#01
PRINT_PADDR S001
CALL_2N R0224 (#1c)
RTRUE
Routine R0170, 0 locals
Action routine for:
STORE G1e,#02
PRINT_PADDR S001
CALL_2N R0224 (#1d)
RTRUE
Routine R0171, 0 locals
Action routine for:
STORE G1e,#03
PRINT_PADDR S001
CALL_2N R0224 (#1e)
RTRUE
Routine R0172, 1 local
JE G07,#13 [FALSE] L0001
STORE G20,#13
RTRUE
L0001: JE G07,G20 [TRUE] L0003
GET_PROP G07,#1e -> -(SP)
JZ (SP)+ [TRUE] L0002
CALL_VN R0086 (G07,#1e)
L0002: STORE L00,G07
CALL_1N R0406
STORE G20,L00
L0003: RTRUE
Routine R0173, 0 locals
TEST_ATTR G07,#18 [TRUE] L0001
SET_ATTR G07,#18
TEST_ATTR G07,#12 [FALSE] L0001
ADD G14,#05 -> G14
ADD G17,#05 -> G17
L0001: RTRUE
Routine R0174, 1 local
STORE L00,#01
GET_PARENT G19 -> G1d
L0001: GET_PARENT G1d -> -(SP)
JZ (SP)+ [TRUE] L0003
TEST_ATTR G1d,#04 [FALSE] L0002
TEST_ATTR G1d,#0e [TRUE] L0002
TEST_ATTR G1d,#17 [FALSE] L0003
L0002: GET_PARENT G1d -> G1d
INC L00
JUMP L0001
L0003: RET L00
Routine R0175, 5 locals
Action routine for:
GET_PARENT G19 -> -(SP)
JZ (SP)+ [FALSE] L0001
CALL_2S R0116 (#0a) -> -(SP)
RET_POPPED
L0001: JE G07,#13 [FALSE] L0002
STORE G1d,#13
CALL_1N R0172
JUMP L0003
L0002: CALL_1S R0174 -> L01
JE G1d,G07 [FALSE] L0003
CALL_1N R0172
JE G1d,G07 [TRUE] L0003
JUMP L0001
L0003: JL G1e,#03 [FALSE] L0007
JE G1d,G07 [FALSE] L0007
JE L00,#01 [FALSE] L0004
JE G1e,#02 [TRUE] L0004
TEST_ATTR G07,#18 [TRUE] L0007
L0004: GET_PROP G07,#24 -> -(SP)
JE (SP)+,#ffff [TRUE] L0005
CALL_VN R0088 (G07,#24)
JUMP L0007
L0005: GET_PROP G07,#23 -> -(SP)
JZ (SP)+ [FALSE] L0006
CALL_VN R0116 (#0b,G07)
JUMP L0007
L0006: CALL_VN R0086 (G07,#23)
L0007: JZ L01 [FALSE] L0008
CALL_2N R0168 (#13)
JUMP L0016
L0008: STORE L02,G19
STORE L03,L01
JUMP L0010
L0009: DEC L03
GET_PARENT L02 -> L02
L0010: JG L03,#00 [FALSE] L0011
SET_ATTR L02,#19
JUMP L0009
L0011: STORE L03,L01
L0012: JG L03,#00 [FALSE] L0016
STORE L02,G19
STORE L04,#00
L0013: JL L04,L03 [FALSE] L0014
GET_PARENT L02 -> L02
INC L04
JUMP L0013
L0014: GET_PROP L02,#32 -> -(SP)
JZ (SP)+ [TRUE] L0015
NEW_LINE
CALL_VN R0086 (L02,#32)
L0015: CALL_2N R0168 (L02)
DEC L03
JUMP L0012
L0016: CALL_1N R0407
CALL_1N R0173
STORE G2f,#1f
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
RTRUE
Routine R0176, 1 local
Action routine for:
"l at noun"
"describe noun"
"read noun"
"check noun"
JE G07,#13 [FALSE] L0001
CALL_VS R0224 (#20,#01) -> -(SP)
RET_POPPED
L0001: GET_PROP G32,#23 -> L00
JZ L00 [FALSE] L0004
TEST_ATTR G32,#04 [FALSE] L0002
CALL_VN R0078 (#22,G32)
RTRUE
L0002: TEST_ATTR G32,#15 [FALSE] L0003
CALL_VN R0224 (#20,#03,G32)
RFALSE
L0003: CALL_VS R0224 (#20,#02,G32) -> -(SP)
RET_POPPED
L0004: CALL_VN R0086 (G32,#23)
TEST_ATTR G32,#15 [FALSE] L0005
CALL_VN R0224 (#20,#03,G32)
L0005: CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
RTRUE
Routine R0177, 0 locals
Action routine for:
"l under noun"
JE G07,#13 [FALSE] L0001
CALL_VS R0224 (#21,#01) -> -(SP)
RET_POPPED
L0001: CALL_VN R0224 (#21,#02)
RTRUE
Routine R0178, 2 locals
Action routine for:
"l inside / in / into / through noun"
"search noun"
JE G07,#13 [FALSE] L0001
CALL_VS R0224 (#22,#01,G32) -> -(SP)
RET_POPPED
L0001: CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0002
RTRUE
L0002: GET_CHILD G32 -> -(SP) [FALSE] L0003
L0003: PULL L00
JZ L00 [TRUE] L0006
L0004: TEST_ATTR L00,#03 [TRUE] L0005
TEST_ATTR L00,#11 [TRUE] L0005
STORE L01,#01
L0005: GET_SIBLING L00 -> L00 [TRUE] L0004
L0006: TEST_ATTR G32,#14 [FALSE] L0008
JZ L01 [FALSE] L0007
CALL_VS R0224 (#22,#02,G32) -> -(SP)
RET_POPPED
L0007: CALL_VS R0224 (#22,#03,G32) -> -(SP)
RET_POPPED
L0008: TEST_ATTR G32,#04 [TRUE] L0009
CALL_VS R0224 (#22,#04,G32) -> -(SP)
RET_POPPED
L0009: TEST_ATTR G32,#17 [TRUE] L0010
TEST_ATTR G32,#0e [TRUE] L0010
CALL_VS R0224 (#22,#05,G32) -> -(SP)
RET_POPPED
L0010: CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
STORE Gef,#00
GET_CHILD G32 -> -(SP) [FALSE] L0012
L0011: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0011
L0012: PULL Gee
STORE L00,Gef
JZ L01 [FALSE] L0013
CALL_VS R0224 (#22,#06,G32) -> -(SP)
RET_POPPED
L0013: CALL_VN R0224 (#22,#07,G32)
RTRUE
Routine R0179, 0 locals
Action routine for:
"open noun with held"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#0a [TRUE] L0002
CALL_VS R0224 (#23,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#0b [TRUE] L0003
CALL_VS R0224 (#23,#02,G32) -> -(SP)
RET_POPPED
L0003: GET_PROP G32,#14 -> -(SP)
JE (SP)+,G33 [TRUE] L0004
CALL_VS R0224 (#23,#03,G33) -> -(SP)
RET_POPPED
L0004: CLEAR_ATTR G32,#0b
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#23,#04,G32)
RTRUE
Routine R0180, 0 locals
Action routine for:
"lock noun with held"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#0a [TRUE] L0002
CALL_VS R0224 (#24,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#0b [FALSE] L0003
CALL_VS R0224 (#24,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#0e [FALSE] L0004
CALL_VS R0224 (#24,#03,G32) -> -(SP)
RET_POPPED
L0004: GET_PROP G32,#14 -> -(SP)
JE (SP)+,G33 [TRUE] L0005
CALL_VS R0224 (#24,#04,G33) -> -(SP)
RET_POPPED
L0005: SET_ATTR G32,#0b
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#24,#05,G32)
RTRUE
Routine R0181, 0 locals
Action routine for:
"flip noun on"
"flip on noun"
"switch noun"
"switch noun on"
"switch on noun"
"screw noun on"
"screw on noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#15 [TRUE] L0002
CALL_VS R0224 (#25,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#0d [FALSE] L0003
CALL_VS R0224 (#25,#02,G32) -> -(SP)
RET_POPPED
L0003: SET_ATTR G32,#0d
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#25,#03,G32)
RTRUE
Routine R0182, 0 locals
Action routine for:
"close off noun"
"flip noun off"
"flip off noun"
"switch noun off"
"switch off noun"
"screw noun off"
"screw off noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#15 [TRUE] L0002
CALL_VS R0224 (#26,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#0d [TRUE] L0003
CALL_VS R0224 (#26,#02,G32) -> -(SP)
RET_POPPED
L0003: CLEAR_ATTR G32,#0d
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#26,#03,G32)
RTRUE
Routine R0183, 0 locals
Action routine for:
"open noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#0f [TRUE] L0002
CALL_VS R0224 (#27,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#0b [FALSE] L0003
CALL_VS R0224 (#27,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#0e [FALSE] L0004
CALL_VS R0224 (#27,#03,G32) -> -(SP)
RET_POPPED
L0004: SET_ATTR G32,#0e
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
TEST_ATTR G32,#04 [FALSE] L0006
TEST_ATTR G32,#17 [TRUE] L0006
GET_CHILD G32 -> -(SP) [FALSE] L0005
L0005: JZ (SP)+ [TRUE] L0006
CALL_VS R0146 (G32,G19) -> -(SP)
JZ (SP)+ [FALSE] L0006
CALL_VS R0224 (#27,#04,G32) -> -(SP)
RET_POPPED
L0006: CALL_VN R0224 (#27,#05,G32)
RTRUE
Routine R0184, 0 locals
Action routine for:
"close noun"
"close up noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#0f [TRUE] L0002
CALL_VS R0224 (#28,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#0e [TRUE] L0003
CALL_VS R0224 (#28,#02,G32) -> -(SP)
RET_POPPED
L0003: CLEAR_ATTR G32,#0e
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#28,#03,G32)
RTRUE
Routine R0185, 0 locals
Action routine for:
"carry off ATTRIBUTE(26)"
"remove ATTRIBUTE(26)"
"disrobe ATTRIBUTE(26)"
"no-verb off ATTRIBUTE(26)"
"no-verb noun off"
"take off ATTRIBUTE(26)"
"undress noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#1a [TRUE] L0002
CALL_VS R0224 (#29,#01,G32) -> -(SP)
RET_POPPED
L0002: CLEAR_ATTR G32,#1a
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#29,#02,G32)
RTRUE
Routine R0186, 0 locals
Action routine for:
"put on held"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#02 [TRUE] L0002
CALL_VS R0224 (#2a,#01,G32) -> -(SP)
RET_POPPED
L0002: GET_PARENT G32 -> -(SP)
JE (SP)+,G19 [TRUE] L0003
CALL_VS R0224 (#2a,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#1a [FALSE] L0004
CALL_VS R0224 (#2a,#03,G32) -> -(SP)
RET_POPPED
L0004: SET_ATTR G32,#1a
CALL_1S R0083 -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
JE G34,#01 [TRUE] RTRUE
CALL_VN R0224 (#2a,#04,G32)
RTRUE
Routine R0187, 0 locals
Action routine for:
"y"
CALL_2N R0224 (#2c)
RTRUE
Routine R0188, 0 locals
Action routine for:
"no"
CALL_2N R0224 (#2d)
RTRUE
Routine R0189, 0 locals
Action routine for:
CALL_VN R0224 (#2e,#01,G32)
RTRUE
Routine R0190, 0 locals
Action routine for:
"awake"
"awake up"
CALL_VN R0224 (#30,#01,G32)
RTRUE
Routine R0191, 0 locals
Action routine for:
"awake creature"
"awake creature up"
"awake up creature"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: CALL_VS R0084 (G32,#31) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
CALL_VN R0224 (#31,#01,G32)
RTRUE
Routine R0192, 0 locals
Action routine for:
CALL_VN R0224 (#33,#01,G32)
RTRUE
Routine R0193, 0 locals
Action routine for:
CALL_VN R0224 (#36,#01,G32)
RTRUE
Routine R0194, 0 locals
Action routine for:
"dig noun"
"dig noun with held"
CALL_VN R0224 (#38,#01,G32)
RTRUE
Routine R0195, 0 locals
Action routine for:
"chop noun"
CALL_VN R0224 (#39,#01,G32)
RTRUE
Routine R0196, 0 locals
Action routine for:
"attach noun"
"attach noun to noun"
CALL_VN R0224 (#3c,#01,G32)
RTRUE
Routine R0197, 0 locals
Action routine for:
"drink noun"
CALL_VN R0224 (#3d,#01,G32)
RTRUE
Routine R0198, 0 locals
Action routine for:
"fill noun"
CALL_VN R0224 (#3e,#01,G32)
RTRUE
Routine R0199, 0 locals
Action routine for:
"sorry"
CALL_VN R0224 (#3f,#01,G32)
RTRUE
Routine R0200, 0 locals
Action routine for:
CALL_VN R0224 (#40,#01,G32)
RTRUE
Routine R0201, 0 locals
Action routine for:
"bother"
"bother topic"
CALL_VN R0224 (#41,#01,G32)
RTRUE
Routine R0202, 0 locals
Action routine for:
"dive"
CALL_VN R0224 (#43,#01,G32)
RTRUE
Routine R0203, 0 locals
Action routine for:
"swing noun"
"swing on noun"
CALL_VN R0224 (#44,#01,G32)
RTRUE
Routine R0204, 0 locals
Action routine for:
"blow topic"
CALL_VN R0224 (#45,#01,G32)
RTRUE
Routine R0205, 0 locals
Action routine for:
CALL_VN R0224 (#46,#01,G32)
RTRUE
Routine R0206, 0 locals
Action routine for:
"adjust noun"
CALL_VN R0224 (#47,#01,G32)
RTRUE
Routine R0207, 0 locals
Action routine for:
"adjust noun to special"
CALL_VN R0224 (#48,#01,G32)
RTRUE
Routine R0208, 0 locals
Action routine for:
CALL_VN R0224 (#49,#01,G32)
RTRUE
Routine R0209, 0 locals
Action routine for:
"buy noun"
CALL_VN R0224 (#54,#01,G32)
RTRUE
Routine R0210, 0 locals
Action routine for:
"climb on noun"
"climb noun"
"climb up / over noun"
"jump on ATTRIBUTE(20)"
CALL_VN R0224 (#56,#01,G32)
RTRUE
Routine R0211, 0 locals
Action routine for:
"read about topic in noun"
"read topic in noun"
CALL_VN R0224 (#59,#01,G32)
RTRUE
Routine R0212, 0 locals
Action routine for:
"drag noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#13 [FALSE] L0002
CALL_VS R0224 (#4b,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#11 [FALSE] L0003
CALL_VS R0224 (#4b,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#00 [FALSE] L0004
CALL_VS R0224 (#4b,#04,G32) -> -(SP)
RET_POPPED
L0004: CALL_VN R0224 (#4b,#03,G32)
RTRUE
Routine R0213, 0 locals
Action routine for:
"clear noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#13 [FALSE] L0002
CALL_VS R0224 (#4c,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#11 [FALSE] L0003
CALL_VS R0224 (#4c,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#00 [FALSE] L0004
CALL_VS R0224 (#4b,#04,G32) -> -(SP)
RET_POPPED
L0004: CALL_VN R0224 (#4c,#03,G32)
RTRUE
Routine R0214, 0 locals
Action routine for:
"flip noun"
"screw noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#13 [FALSE] L0002
CALL_VS R0224 (#4d,#01,G32) -> -(SP)
RET_POPPED
L0002: TEST_ATTR G32,#11 [FALSE] L0003
CALL_VS R0224 (#4d,#02,G32) -> -(SP)
RET_POPPED
L0003: TEST_ATTR G32,#00 [FALSE] L0004
CALL_VS R0224 (#4b,#04,G32) -> -(SP)
RET_POPPED
L0004: CALL_VN R0224 (#4d,#03,G32)
RTRUE
Routine R0215, 0 locals
Action routine for:
"clear noun noun"
CALL_VN R0224 (#4e,#01,G32)
RTRUE
Routine R0216, 1 local
GET_PARENT G33 -> -(SP)
JE (SP)+,#06 [TRUE] L0001
CALL_VS R0224 (#4e,#02,G32) -> -(SP)
RET_POPPED
L0001: JE G33,#0f,#10 [FALSE] L0002
CALL_VS R0224 (#4e,#03,G32) -> -(SP)
RET_POPPED
L0002: CALL_1N R0083
STORE L00,G32
INSERT_OBJ L00,G19
CALL_VN R0078 (#1b,G33)
JE G07,#13 [FALSE] L0003
INSERT_OBJ L00,G1c
JUMP L0004
L0003: INSERT_OBJ L00,G07
L0004: RTRUE
Routine R0217, 0 locals
Action routine for:
"squash noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#00 [FALSE] L0002
CALL_VS R0224 (#4f,#01,G32) -> -(SP)
RET_POPPED
L0002: CALL_VN R0224 (#4f,#02,G32)
RTRUE
Routine R0218, 0 locals
Action routine for:
"attack noun"
"break noun"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: TEST_ATTR G32,#00 [FALSE] L0002
CALL_VS R0084 (G32,#42) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
L0002: CALL_VN R0224 (#42,#01,G32)
RTRUE
Routine R0219, 0 locals
Action routine for:
"score with creature"
"embrace creature"
"fuck creature"
"screw ATTRIBUTE(0)"
"make love to / with creature"
"bonk creature"
CALL_2S R0148 (G32) -> -(SP)
JZ (SP)+ [TRUE] L0001
RTRUE
L0001: CALL_VS R0084 (G32,#32) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
JE G32,G19 [FALSE] L0002
CALL_VS R0224 (#37,#03,G32) -> -(SP)
RET_POPPED
L0002: CALL_VN R0224 (#32,#01,G32)
RTRUE
Routine R0220, 0 locals
Action routine for:
"answer scope = [parse $2d01] to creature"
JZ G33 [TRUE] L0001
CALL_VS R0084 (G33,#52) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
L0001: CALL_VN R0224 (#52,#01,G32)
RTRUE
Routine R0221, 0 locals
Action routine for:
"tell creature about scope = [parse $2d01]"
"tell creature scope = [parse $2d01]"
"tell scope = [parse $2d01] creature"
"tell scope = [parse $2d01] to creature" REVERSE
JE G32,G19 [FALSE] L0001
CALL_VS R0224 (#51,#01,G32) -> -(SP)
RET_POPPED
L0001: CALL_VS R0084 (G32,#51) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
CALL_VN R0224 (#51,#02,G32)
RTRUE
Routine R0222, 0 locals
Action routine for:
"ask creature about scope = [parse $2d01]"
"ask creature scope = [parse $2d01]"
"speak to / with creature about scope = [parse $2d01]"
CALL_VS R0084 (G32,#53) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
CALL_VN R0224 (#53,#01,G32)
RTRUE
Routine R0223, 0 locals
Action routine for:
"ask creature for scope = [parse $2d01]"
JE G32,G19 [FALSE] L0001
CALL_2N R0078 (#0e)
RTRUE
L0001: CALL_VN R0224 (#1003,#01,G32)
RTRUE
Routine R0224, 4 locals
STORE L03,Ge9
STORE Ge9,L00
JZ L01 [FALSE] L0001
STORE L01,#01
L0001: CALL_VN R0225 (L01,L02)
STORE Ge9,L03
RTRUE
Routine R0225, 3 locals
STORE L02,G2f
STORE G2d,L00
STORE G2e,L01
STORE G2f,Ge9
CALL_VS R0088 (#17,#04) -> -(SP)
JZ (SP)+ [TRUE] L0001
STORE G2f,L02
RFALSE
L0001: STORE G2f,L02
CALL_VN R0014 (L00,L01)
RTRUE
Routine R0226, 0 locals
STORE Gef,G03
JE Gef,"spaghetti" [FALSE] L0001
PRINT "spaghetti"
JUMP L0019
L0001: JE Gef,"penne" [FALSE] L0002
PRINT "penne"
JUMP L0019
L0002: JE Gef,"macaroni" [FALSE] L0003
PRINT "macaroni"
JUMP L0019
L0003: JE Gef,"capellini" [FALSE] L0004
PRINT "capellini"
JUMP L0019
L0004: JE Gef,"manicotti" [FALSE] L0005
PRINT "manicotti"
JUMP L0019
L0005: JE Gef,"farfalle" [FALSE] L0006
PRINT "farfalle"
JUMP L0019
L0006: JE Gef,"noodles" [FALSE] L0007
PRINT "noodles"
JUMP L0019
L0007: JE Gef,"conchigli" [FALSE] L0008
PRINT "conchiglie"
JUMP L0019
L0008: JE Gef,"ditalini" [FALSE] L0009
PRINT "ditalini"
JUMP L0019
L0009: JE Gef,"fettuccin" [FALSE] L0010
PRINT "fettuccine"
JUMP L0019
L0010: JE Gef,"orzo" [FALSE] L0011
PRINT "orzo"
JUMP L0019
L0011: JE Gef,"vermicell" [FALSE] L0012
PRINT "vermicelli"
JUMP L0019
L0012: JE Gef,"fuisilli" [FALSE] L0013
PRINT "fuisilli"
JUMP L0019
L0013: JE Gef,"mostaccio" [FALSE] L0014
PRINT "mostaccioli"
JUMP L0019
L0014: JE Gef,"ruote" [FALSE] L0015
PRINT "ruote"
JUMP L0019
L0015: JE Gef,"radiatore" [FALSE] L0016
PRINT "radiatore"
JUMP L0019
L0016: JE Gef,"ziti" [FALSE] L0017
PRINT "ziti"
JUMP L0019
L0017: JE Gef,"linguine" [FALSE] L0018
PRINT "linguine"
JUMP L0019
L0018: JE Gef,"rigatoni" [FALSE] L0019
PRINT "rigatoni"
L0019: RTRUE
Routine R0227, 1 local
JE L00,#0b [FALSE] L0003
JE G56,#53,#5a,#51 [TRUE] L0001
JE G56,#5e,#5f [FALSE] L0002
L0001: PRINT_PADDR S124
NEW_LINE
RTRUE
L0002: RFALSE
L0003: RFALSE
Routine R0228, 1 local
L0001: READ_CHAR #01,#00,#00 -> L00
JE L00,#20,#0a,#0d [FALSE] L0001
ERASE_WINDOW #ffff
CALL_2N R0399 (#01)
RTRUE
Routine R0229, 1 local
SET_TEXT_STYLE BOLDFACE
PRINT_PADDR L00
SET_TEXT_STYLE ROMAN
RTRUE
Routine R0230, 1 local
SET_TEXT_STYLE EMPHASIS
PRINT_PADDR L00
SET_TEXT_STYLE ROMAN
RTRUE
Routine R0231, 0 locals
RFALSE
Routine R0232, 2 locals
JL L01,#02 [FALSE] L0001
RET #02
L0001: JE G56,#60,#61 [FALSE] L0002
TEST_ATTR L00,#00 [TRUE] L0002
RFALSE
L0002: JE L00,#0026 [FALSE] L0003
RTRUE
L0003: JE L00,#0028 [FALSE] L0004
RTRUE
L0004: JE L00,#0030 [FALSE] L0005
RTRUE
L0005: JE G56,#62 [FALSE] L0006
JE L00,#0025 [FALSE] L0006
RTRUE
L0006: RET #02
Routine R0233, 1 local
Parsing routine for:
"think about / of / on scope = [parse $2cf1]"
"think scope = [parse $2cf1]"
"recall scope = [parse $2cf1]"
STORE Gef,G74
JE Gef,#01 [FALSE] L0001
RFALSE
L0001: JE Gef,#02 [FALSE] L0005
GET_CHILD "head" -> -(SP) [FALSE] L0002
L0002: PULL L00
JZ L00 [TRUE] L0004
L0003: CALL_2N R0046 (L00)
GET_SIBLING L00 -> L00 [TRUE] L0003
L0004: RFALSE
L0005: JE Gef,#03 [FALSE] L0006
PRINT "You can't remember "
CALL_2N R0112 (G32)
PRINT_RET "."
L0006: RTRUE
Routine R0234, 1 local
Parsing routine for:
"answer scope = [parse $2d01] to creature"
"tell creature about scope = [parse $2d01]"
"tell creature scope = [parse $2d01]"
"tell scope = [parse $2d01] creature"
"tell scope = [parse $2d01] to creature" REVERSE
"ask creature about scope = [parse $2d01]"
"ask creature for scope = [parse $2d01]"
"ask creature out for / on scope = [parse $2d01]"
"ask creature scope = [parse $2d01]"
"speak to / with creature about scope = [parse $2d01]"
"invite creature scope = [parse $2d01]"
"invite creature on / for / to scope = [parse $2d01]"
"come out / away with noun to / on / for scope = [parse $2d01]"
"come with noun to / for / on scope = [parse $2d01]"
"come to / on / for scope = [parse $2d01]"
"come on / for / to scope = [parse $2d01] with noun" REVERSE
"come scope = [parse $2d01]"
"come scope = [parse $2d01] with noun" REVERSE
"chat with / to creature about scope = [parse $2d01]"
"follow noun scope = [parse $2d01]"
"follow noun to scope = [parse $2d01]"
JE G3c,G19 [FALSE] L0002
JE G56,#15 [FALSE] L0002
JE G74,#03 [FALSE] L0001
PRINT_PADDR S125
NEW_LINE
RTRUE
L0001: RFALSE
L0002: STORE Gef,G74
JE Gef,#01 [FALSE] L0003
RFALSE
L0003: JE Gef,#02 [FALSE] L0007
GET_CHILD "head" -> -(SP) [FALSE] L0004
L0004: PULL L00
JZ L00 [TRUE] L0006
L0005: CALL_2N R0046 (L00)
GET_SIBLING L00 -> L00 [TRUE] L0005
L0006: RFALSE
L0007: JE Gef,#03 [FALSE] L0008
PRINT_PADDR S126
NEW_LINE
RTRUE
L0008: RTRUE
Routine R0235, 0 locals
Action routine for:
"steal noun"
PRINT_PADDR S127
NEW_LINE
RTRUE
Routine R0236, 0 locals
Action routine for:
"spit at noun"
JE G32,#0025 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S128
NEW_LINE
RTRUE
L0001: PRINT_PADDR S129
CALL_2N R0105 (G32)
PRINT_RET "."
Routine R0237, 0 locals
Action routine for:
"dance with noun"
JE G32,#0025 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S130
NEW_LINE
RTRUE
L0001: PRINT_RET "You can't dance with that."
Routine R0238, 0 locals
Action routine for:
"hide"
"hide in noun"
JZ G32 [FALSE] L0001
PRINT_PADDR S131
NEW_LINE
RTRUE
L0001: JE G32,#002e,#0028 [FALSE] L0002
PRINT_RET "You can't even fit in there."
L0002: JE G32,#0034 [FALSE] L0003
PRINT_PADDR S132
NEW_LINE
RTRUE
L0003: PRINT_RET "You can't hide in that."
Routine R0239, 0 locals
Action routine for:
"flip over noun"
"flip noun over"
"screw over noun"
"screw noun over"
"tip over noun"
"tip noun over"
"tip noun"
JE G32,#002e,#0028 [FALSE] L0001
CALL_VN R0078 (#63,G32)
RTRUE
L0001: PRINT_RET "You can't really turn that over."
Routine R0240, 0 locals
Action routine for:
"introduce"
"introduce noun"
JZ G32 [FALSE] L0001
PRINT_PADDR S133
NEW_LINE
RTRUE
L0001: JE G32,G19 [FALSE] L0002
PRINT "(to the brunette)
"
CALL_VN R0078 (#60,G19,#0025)
RTRUE
L0002: JE G32,#0025 [FALSE] L0003
PRINT "(to yourself)
"
CALL_VN R0078 (#60,G19,#0025)
RTRUE
L0003: PRINT_PADDR S134
CALL_2N R0105 (G32)
PRINT_RET " to."
Routine R0241, 1 local
Action routine for:
"introduce noun to noun"
JE G32,#0025 [FALSE] L0001
STORE L00,G32
STORE G32,G33
STORE G33,L00
L0001: JE G32,#001f [TRUE] L0002
JE G33,#001f [FALSE] L0003
L0002: PRINT_RET "She's not here right now."
L0003: TEST_ATTR G32,#00 [TRUE] L0004
PRINT_PADDR S135
CALL_2N R0105 (G32)
PRINT_RET "."
L0004: JE G32,#0025 [FALSE] L0005
JE G33,#0025 [FALSE] L0005
PRINT_PADDR S136
NEW_LINE
RTRUE
L0005: JE G33,#0025 [TRUE] L0006
PRINT "You don't need introducing to "
CALL_2N R0105 (G33)
PRINT_RET "."
L0006: STORE G2f,#64
CALL_VN R0421 (#0025,#1d)
RTRUE
Routine R0242, 0 locals
Action routine for:
"embrace noun"
PRINT_PADDR S137
NEW_LINE
RTRUE
Routine R0243, 0 locals
Action routine for:
"whistle"
"whistle at / to noun"
"wolf whistle"
"wolf whistle at / to noun"
JZ G32 [TRUE] L0002
TEST_ATTR G32,#00 [TRUE] L0001
PRINT_RET "You wouldn't whistle at that."
L0001: JE G32,G19 [FALSE] L0002
PRINT_PADDR S138
NEW_LINE
RTRUE
L0002: RTRUE
Routine R0244, 0 locals
Action routine for:
"swear"
"swear at ATTRIBUTE(0)"
JZ G32 [FALSE] L0001
CALL_2N R0078 (#65)
RTRUE
L0001: JE G32,G19 [TRUE] L0002
STORE G2f,#65
CALL_VN R0421 (#0025,#1d)
L0002: CALL_2N R0078 (#65)
RTRUE
Routine R0245, 0 locals
Action routine for:
"wave"
"wave at / to noun"
JZ G32 [FALSE] L0001
PRINT "(at the brunette)
"
CALL_VN R0078 (#4a,#0025)
RTRUE
L0001: RTRUE
Routine R0246, 0 locals
Action routine for:
"feed noun to creature"
"feed creature noun" REVERSE
JE G33,G19 [FALSE] L0001
CALL_VS R0224 (#15,#02,G32) -> -(SP)
RET_POPPED
L0001: CALL_VS R0084 (G33,#15) -> -(SP)
JZ (SP)+ [FALSE] RFALSE
CALL_VN R0224 (#15,#03,G33)
RTRUE
Routine R0247, 0 locals
Action routine for:
"nap"
STORE G1a,#03
PRINT_PADDR S139
NEW_LINE
RTRUE
Routine R0248, 0 locals
Action routine for:
"what is noun"
CALL_2N R0078 (#66)
RTRUE
Routine R0249, 0 locals
Action routine for:
"dream topic"
STORE G1a,#03
PRINT_PADDR S140
CALL_2N R0230 (S141)
PRINT_PADDR S142
NEW_LINE
RTRUE
Routine R0250, 0 locals
Action routine for:
"marry creature"
"propose to creature"
STORE G1a,#03
PRINT_PADDR S143
NEW_LINE
RTRUE
Routine R0251, 0 locals
Action routine for:
"invite creature"
PRINT "(invite "
CALL_2N R0107 (G32)
PRINT " out)
"
CALL_VN R0078 (#67,G32)
RTRUE
Routine R0252, 0 locals
Action routine for:
"halt"
"halt noun"
PRINT_RET "It's not going anywhere."
Routine R0253, 0 locals
Action routine for:
"answer for noun"
"call noun"
JE G32,#0025 [FALSE] L0001
PRINT_RET "But she's just over there."
L0001: PRINT_RET "You can't call for that."
Routine R0254, 0 locals
Action routine for:
"grin"
"grin at noun"
JE G32,#0025 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S144
NEW_LINE
RTRUE
L0001: JZ G32 [TRUE] L0002
PRINT "(smile)
"
L0002: STORE G1a,#03
PRINT_PADDR S145
CALL_2N R0230 (S146)
PRINT_PADDR S147
NEW_LINE
RTRUE
Routine R0255, 0 locals
Action routine for:
"crack up"
"break up"
"dribble"
STORE G1a,#03
PRINT_PADDR S148
CALL_2N R0229 (S149)
PRINT "Gnocc"
CALL_2N R0229 (S150)
PRINT "Gato!Clare--"
CALL_2N R0230 (S151)
PRINT "--Iw"
CALL_2N R0230 (S152)
PRINT "always
gnocchiyou
g"
CALL_2N R0230 (S153)
PRINT_PADDR S154
CALL_2N R0230 (S155)
PRINT "eyoUNOw? DiningwIThtHEwORm"
CALL_2N R0229 (S156)
PRINT_PADDR S157
CALL_2N R0230 (S158)
PRINT_PADDR S159
NEW_LINE
RTRUE
Routine R0256, 0 locals
Action routine for:
"panic"
STORE G1a,#03
PRINT_PADDR S160
CALL_2N R0229 (S161)
PRINT " a spy sent by the hospital,
"
CALL_2N R0229 (S162)
PRINT_PADDR S163
CALL_2N R0229 (S164)
PRINT_PADDR S165
CALL_2N R0230 (S166)
PRINT ".
The car park is full of "
CALL_2N R0230 (S167)
PRINT_PADDR S168
NEW_LINE
RTRUE
Routine R0257, 0 locals
Action routine for:
"undress"
CALL_VN R0078 (#29,#001e)
RTRUE
Routine R0258, 0 locals
Action routine for:
"ask out creature"
"ask creature out"
"ask creature out for / on scope = [parse $2d01]"
"invite creature out"
"invite creature scope = [parse $2d01]"
"invite creature on / for / to scope = [parse $2d01]"
STORE Gef,G33
JE Gef,#0036 [FALSE] L0001
STORE G2f,#68
STORE G32,G19
STORE G33,#0036
CALL_VN R0421 (#0025,#1d)
RTRUE
L0001: JE Gef,#00,#0040 [FALSE] L0002
STORE G1a,#03
PRINT_PADDR S169
CALL_2N R0230 (S170)
PRINT_PADDR S171
CALL_2N R0230 (S172)
PRINT_PADDR S173
NEW_LINE
RTRUE
L0002: JE Gef,#0020 [FALSE] L0003
STORE G2f,#68
STORE G32,G19
STORE G33,#0020
CALL_VN R0421 (#0025,#1d)
RTRUE
L0003: PRINT_RET "You can't invite her there."
orphan code fragment:
RTRUE
Routine R0259, 0 locals
Action routine for:
"win"
PRINT "Sorry, you can't "
CALL_2N R0230 (S174)
PRINT_RET " this story."
Routine R0260, 0 locals
Action routine for:
"carry inventory"
"i"
"no-verb inventory"
"take inventory"
STORE G1a,#03
PRINT_PADDR S175
CALL_2N R0230 (S176)
PRINT_PADDR S177
CALL_2N R0230 (S178)
PRINT_PADDR S179
NEW_LINE
RTRUE
Routine R0261, 0 locals
Action routine for:
"follow noun scope = [parse $2d01]"
"follow noun to scope = [parse $2d01]"
JE G33,#0020 [FALSE] L0001
JE G32,#0025 [FALSE] L0001
CALL_VN R0078 (#69,#0025)
RTRUE
L0001: PRINT_RET "I don't understand."
Routine R0262, 0 locals
Action routine for:
"come out / away with noun"
"come out / away with noun to / on / for scope = [parse $2d01]"
"come out on / for noun with noun"
"come with noun"
"come with noun to / for / on scope = [parse $2d01]"
"come on / for / to scope = [parse $2d01] with noun" REVERSE
"come scope = [parse $2d01] with noun" REVERSE
PRINT_RET "I don't understand."
Routine R0263, 0 locals
Action routine for:
"come out on / for noun"
"come to / on / for scope = [parse $2d01]"
"come scope = [parse $2d01]"
PRINT_RET "I don't understand."
Routine R0264, 0 locals
Action routine for:
"feel noun"
CALL_2N R0078 (#6a)
RTRUE
Routine R0265, 0 locals
Action routine for:
"forget topic"
STORE G1a,#03
CALL_2N R0230 (S180)
PRINT_PADDR S181
NEW_LINE
RTRUE
Routine R0266, 0 locals
Action routine for:
"find noun"
PRINT_RET "That's right here."
Routine R0267, 0 locals
Action routine for:
"find topic"
PRINT_RET "You won't be able to find that."
Routine R0268, 0 locals
Action routine for:
"fall"
"fall down"
CALL_VN R0078 (#1b,#10)
RTRUE
Routine R0269, 0 locals
Action routine for:
"discard held at / against / on / onto noun"
"attack noun with noun"
"throw noun at noun" REVERSE
"break noun with noun"
JE G33,#002e [FALSE] L0001
CALL_VN R0078 (#6b,G32,G33)
RTRUE
L0001: PRINT_RET "Futile."
Routine R0270, 0 locals
Action routine for:
"clear noun into / to / towards / at noun" REVERSE
JE G33,#002e [FALSE] L0001
PRINT_PADDR S182
NEW_LINE
RTRUE
L0001: PRINT_RET "You don't want to push that."
Routine R0271, 0 locals
Action routine for:
"jump over noun"
CALL_2N R0078 (#6a)
RTRUE
Routine R0272, 0 locals
Action routine for:
"jump"
STORE G1a,#03
PRINT_PADDR S183
NEW_LINE
RTRUE
Routine R0273, 0 locals
Action routine for:
"don topic"
"l up topic"
"consult topic"
"unlock topic"
"taste topic"
"clean topic"
"burn topic"
"hold topic"
PRINT_PADDR S184
NEW_LINE
RTRUE
Routine R0274, 0 locals
Action routine for:
"pay"
"pay up"
"pay for noun"
CALL_VN R0078 (#6c,#002d)
RTRUE
Routine R0275, 0 locals
Action routine for:
"fly"
CALL_VN R0078 (#1b,#0f)
RTRUE
Routine R0276, 0 locals
Action routine for:
"think"
PRINT_PADDR S185
NEW_LINE
RTRUE
Routine R0277, 0 locals
Action routine for:
"recall"
PRINT_PADDR S186
NEW_LINE
RTRUE
Routine R0278, 0 locals
Action routine for:
"objects"
PRINT_PADDR S187
NEW_LINE
RTRUE
Routine R0279, 0 locals
Action routine for:
"places"
PRINT_PADDR S188
NEW_LINE
RTRUE
Routine R0280, 0 locals
Action routine for:
"masturbat topic"
CALL_VN R0078 (#37,G19)
RTRUE
Routine R0281, 0 locals
Action routine for:
"when topic"
PRINT_PADDR S189
NEW_LINE
RTRUE
Routine R0282, 0 locals
Action routine for:
"frown"
STORE G1a,#03
PRINT_PADDR S190
NEW_LINE
RTRUE
Routine R0283, 0 locals
Action routine for:
"sigh"
STORE G1a,#03
PRINT_PADDR S191
NEW_LINE
RTRUE
Routine R0284, 0 locals
Action routine for:
"hop"
"skip"
"dance"
STORE G1a,#03
PRINT_PADDR S192
NEW_LINE
RTRUE
Routine R0285, 0 locals
Action routine for:
"chuckle"
"chuckle at noun"
JZ G32 [TRUE] L0001
PRINT "(laugh)
"
L0001: STORE G1a,#03
PRINT_PADDR S193
NEW_LINE
RTRUE
Routine R0286, 0 locals
Action routine for:
"go after noun"
"pursue noun"
PRINT_RET "You can't really stalk that."
Routine R0287, 0 locals
Action routine for:
"follow noun"
PRINT_PADDR S194
NEW_LINE
RTRUE
Routine R0288, 0 locals
Action routine for:
"go to noun"
"go up to noun"
"approach noun"
PRINT_RET "You're already near."
Routine R0289, 0 locals
Action routine for:
"jump on noun"
JE G32,#002b,#002c [FALSE] L0001
CALL_VN R0078 (#42,G32)
RTRUE
L0001: JE G32,#002e,#0028 [FALSE] L0002
CALL_VN R0078 (#6d,G32)
RTRUE
L0002: PRINT_PADDR S195
CALL_2N R0112 (G32)
PRINT_RET "."
Routine R0290, 0 locals
Action routine for:
"drive noun"
"drive on / in noun"
JE G32,#0025 [FALSE] L0001
CALL_VN R0078 (#32,#0025)
RTRUE
L0001: PRINT "I can't see how you would ride "
CALL_2N R0112 (G32)
PRINT_RET "."
Routine R0291, 0 locals
Action routine for:
"sit"
"sit down"
CALL_VN R0078 (#17,#10)
RTRUE
Routine R0292, 0 locals
Action routine for:
"answer"
"speak"
"chat"
"mutter"
STORE G1a,#03
PRINT_PADDR S196
NEW_LINE
RTRUE
Routine R0293, 0 locals
Action routine for:
"sing"
STORE G1a,#03
PRINT_PADDR S197
NEW_LINE
RTRUE
Routine R0294, 0 locals
Action routine for:
"short"
"long"
"brief"
PRINT_RET "You cannot."
Routine R0295, 0 locals
PRINT_PADDR S198
CALL_2N R0105 (G32)
PRINT_RET "."
Routine R0296, 0 locals
Action routine for:
"arse"
"arse topic"
"fuck"
"fuck topic"
"fuck"
"fuck topic"
STORE G1a,#03
PRINT_PADDR S199
CALL_2N R0230 (S200)
PRINT_PADDR S201
NEW_LINE
RTRUE
Routine R0297, 0 locals
Action routine for:
"cry"
STORE G1a,#03
PRINT_PADDR S202
NEW_LINE
RTRUE
Routine R0298, 0 locals
Action routine for:
"pray"
STORE G1a,#03
PRINT_PADDR S203
NEW_LINE
RTRUE
Routine R0299, 0 locals
Action routine for:
"speak to / with creature"
"chat with / to creature"
STORE G2f,#64
CALL_VN R0421 (G32,#1d)
RTRUE
Routine R0300, 0 locals
Action routine for:
"chat with / to creature about scope = [parse $2d01]"
STORE G2f,#53
CALL_VS R0084 (G32,#53) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
STORE G2f,#51
CALL_VS R0084 (G32,#51) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
PRINT_PADDR S204
NEW_LINE
RTRUE
Routine R0301, 0 locals
Action routine for:
"scream"
STORE G1a,#03
PRINT_PADDR S205
NEW_LINE
RTRUE
Routine R0302, 0 locals
Action routine for:
"shout at noun"
"scream at noun"
STORE G1a,#03
PRINT_PADDR S206
CALL_2N R0105 (G32)
PRINT_PADDR S207
NEW_LINE
RTRUE
Routine R0303, 0 locals
Action routine for:
"shout"
STORE G1a,#03
PRINT_PADDR S208
NEW_LINE
RTRUE
Routine R0304, 0 locals
Action routine for:
"help noun"
PRINT_RET "You can't help that."
Routine R0305, 0 locals
Action routine for:
"throw noun"
"throw noun around / about"
PRINT_PADDR S209
NEW_LINE
RTRUE
Routine R0306, 0 locals
Action routine for:
"eat noun"
"swallow noun"
PRINT_PADDR S210
NEW_LINE
RTRUE
Routine R0307, 0 locals
Action routine for:
"hear"
"hear noun"
"hear to noun"
PRINT_PADDR S211
NEW_LINE
RTRUE
Routine R0308, 0 locals
Action routine for:
"smell"
"smell noun"
PRINT_PADDR S212
NEW_LINE
RTRUE
Routine R0309, 0 locals
Action routine for:
"l"
RTRUE
Routine R0310, 0 locals
Action routine for:
"wait"
STORE G1a,#03
PRINT_PADDR S213
CALL_2N R0230 (S214)
PRINT_PADDR S215
CALL_2N R0229 (S216)
PRINT_PADDR S217
NEW_LINE
RTRUE
Routine R0311, 0 locals
Action routine for:
"display noun to noun" REVERSE
"display noun noun"
TEST_ATTR G32,#00 [FALSE] L0001
CALL_VN R0078 (#16,G33,G32)
RTRUE
L0001: PRINT "I don't think "
CALL_2N R0105 (G32)
PRINT_RET " will be very responsive."
Routine R0312, 1 local
Action routine for:
"get off / up"
"off"
GET_PARENT G19 -> -(SP)
TEST_ATTR (SP)+,#14 [TRUE] L0001
PRINT "You're not "
CALL_2N R0230 (S218)
PRINT_RET "anything."
L0001: GET_PARENT G19 -> L00
CALL_VN R0078 (#18,L00)
RTRUE
Routine R0313, 0 locals
Action routine for:
"score"
PRINT_RET "You cannot score."
Routine R0314, 0 locals
Action routine for:
"save"
PRINT_RET "You cannot save."
Routine R0315, 0 locals
Action routine for:
"restore"
PRINT_RET "You cannot restore."
Routine R0316, 0 locals
Action routine for:
"undo topic"
RTRUE
Routine R0317, 0 locals
Action routine for:
"i wide"
STORE G27,#081c
CALL_2N R0078 (#0e)
RTRUE
Routine R0318, 0 locals
Action routine for:
"i tall"
STORE G27,#0817
CALL_2N R0078 (#0e)
RTRUE
Routine R0319, 0 locals
Action routine for:
"xyzzy"
PRINT_PADDR S219
CALL_2N R0230 (S220)
PRINT_PADDR S221
NEW_LINE
RTRUE
Routine R0320, 1 local
Action routine for:
"hello"
GET_CHILD G07 -> -(SP) [FALSE] L0001
L0001: PULL L00
JZ L00 [TRUE] L0004
L0002: TEST_ATTR L00,#00 [FALSE] L0003
JE L00,G19 [TRUE] L0003
JE L00,#001f [TRUE] L0003
CALL_VN R0421 (L00,#1d)
RTRUE
L0003: GET_SIBLING L00 -> L00 [TRUE] L0002
L0004: PRINT_RET "There is no-one here to greet."
Routine R0321, 0 locals
Action routine for:
"author topic"
JZ G04 [FALSE] L0001
CALL_2N R0078 (#6e)
RTRUE
L0001: PRINT_PADDR S222
CALL_2N R0230 (S223)
PRINT_PADDR S224
NEW_LINE
RTRUE
Routine R0322, 0 locals
Action routine for:
"help"
"help topic"
"about"
JZ G04 [FALSE] L0001
STORE G04,#01
PRINT_PADDR S225
NEW_LINE
RTRUE
L0001: PRINT_PADDR S226
CALL_2N R0229 (S227)
PRINT_PADDR S228
CALL_2N R0229 (S229)
PRINT_PADDR S230
CALL_2N R0229 (S231)
PRINT_PADDR S232
NEW_LINE
RTRUE
Routine R0323, 2 locals
Action routine for:
"credits"
JZ G04 [FALSE] L0001
CALL_2N R0078 (#6e)
RTRUE
L0001: LOADW #00,#08 -> Gef
OR #02,Gef -> Gef
STOREW #00,#08,Gef
LOADB #00,#21 -> L00
JZ L00 [FALSE] L0002
STORE L00,#50
L0002: SUB L00,#3a -> -(SP)
DIV (SP)+,#02 -> L01
STORE Gef,L01
JL Gef,#01 [TRUE] L0004
L0003: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0003
L0004: SET_TEXT_STYLE REVERSE
PRINT_PADDR S233
SET_TEXT_STYLE ROMAN
NEW_LINE
STORE Gef,L01
JL Gef,#01 [TRUE] L0006
L0005: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0005
L0006: SET_TEXT_STYLE REVERSE
PRINT_PADDR S234
SET_TEXT_STYLE ROMAN
NEW_LINE
STORE Gef,L01
JL Gef,#01 [TRUE] L0008
L0007: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0007
L0008: SET_TEXT_STYLE REVERSE
PRINT_PADDR S235
SET_TEXT_STYLE ROMAN
NEW_LINE
STORE Gef,L01
JL Gef,#01 [TRUE] L0010
L0009: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0009
L0010: SET_TEXT_STYLE REVERSE
PRINT_PADDR S236
SET_TEXT_STYLE ROMAN
NEW_LINE
STORE Gef,L01
JL Gef,#01 [TRUE] L0012
L0011: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0011
L0012: SET_TEXT_STYLE REVERSE
PRINT_PADDR S237
SET_TEXT_STYLE ROMAN
LOADW #00,#08 -> Gef
AND #fffd,Gef -> Gef
STOREW #00,#08,Gef
PRINT "
Thanks to "
CALL_2N R0229 (S238)
PRINT_PADDR S239
CALL_2N R0229 (S240)
PRINT ", "
CALL_2N R0229 (S241)
PRINT ", "
CALL_2N R0229 (S242)
PRINT ", "
CALL_2N R0229 (S243)
PRINT ", "
CALL_2N R0229 (S244)
PRINT ", "
CALL_2N R0229 (S245)
PRINT ", "
CALL_2N R0229 (S246)
PRINT ", "
CALL_2N R0229 (S247)
PRINT ", "
CALL_2N R0229 (S248)
PRINT " and "
CALL_2N R0229 (S249)
PRINT_PADDR S250
CALL_2N R0229 (S251)
PRINT_PADDR S252
CALL_2N R0230 (S253)
PRINT_PADDR S254
NEW_LINE
RTRUE
Routine R0324, 0 locals
Action routine for:
"think about / of / on scope = [parse $2cf1]"
"think scope = [parse $2cf1]"
"recall scope = [parse $2cf1]"
PRINT_PADDR S255
NEW_LINE
RTRUE
Routine R0325, 0 locals
JE Ge9,#53,#51,#52 [FALSE] L0001
CALL_2N R0078 (#6f)
RTRUE
L0001: RFALSE
Routine R0326, 0 locals
JE Ge9,#70 [FALSE] L0001
PRINT_RET "You cannot marry yourself."
L0001: JE Ge9,#34 [FALSE] L0002
STORE G1a,#03
PRINT_PADDR S256
CALL_2N R0230 (S257)
PRINT_PADDR S258
NEW_LINE
RTRUE
L0002: JE Ge9,#71 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S259
CALL_2N R0229 (S260)
PRINT_PADDR S261
NEW_LINE
RTRUE
L0003: JE Ge9,#72 [FALSE] L0004
PRINT_RET "You're not going anywhere."
L0004: JE Ge9,#32,#37 [FALSE] L0005
PRINT_PADDR S262
CALL_2N R0230 (S263)
PRINT_RET ". But now is not the time."
L0005: JE Ge9,#5e [FALSE] L0006
CALL_2N R0078 (#6f)
RTRUE
L0006: JE Ge9,#35 [FALSE] L0007
STORE G1a,#03
PRINT """
CALL_2N R0230 (S264)
PRINT ".""
PRINT_PADDR S265
CALL_2N R0230 (S266)
PRINT_PADDR S267
CALL_2N R0229 (S268)
PRINT_PADDR S269
NEW_LINE
RTRUE
L0007: JE Ge9,#20,#22 [FALSE] L0008
STORE G1a,#03
PRINT_PADDR S270
NEW_LINE
RTRUE
L0008: JE Ge9,#42 [FALSE] L0009
STORE G1a,#03
PRINT_PADDR S271
CALL_2N R0230 (S272)
PRINT_PADDR S273
NEW_LINE
RTRUE
L0009: JE Ge9,#73 [FALSE] L0010
PRINT_RET "You're not doing anything. Yet."
L0010: JE Ge9,#67 [FALSE] L0011
PRINT_PADDR S274
NEW_LINE
RTRUE
L0011: JE Ge9,#60,#61 [FALSE] L0012
RFALSE
L0012: JE Ge9,#74 [FALSE] L0013
RFALSE
L0013: JE G2f,#53,#51,#52 [TRUE] RFALSE
CALL_2N R0230 (S275)
PRINT_RET "? That doesn't make sense."
Routine R0327, 0 locals
STORE G1a,#03
PRINT_PADDR S277
NEW_LINE
RTRUE
Routine R0328, 0 locals
STORE G1a,#03
PRINT_PADDR S278
NEW_LINE
RTRUE
Routine R0329, 0 locals
CALL_VN R0078 (#6c,#002d)
RTRUE
Routine R0330, 0 locals
CALL_VN R0078 (#17,#10)
RTRUE
Routine R0331, 0 locals
JE Ge9,#35 [FALSE] L0001
JZ G32 [FALSE] RFALSE
STORE G1a,#03
PRINT_PADDR S282
CALL_2N R0229 (S283)
PRINT_PADDR S284
NEW_LINE
RTRUE
L0001: JE Ge9,#34 [FALSE] L0002
JZ G32 [FALSE] RFALSE
STORE G1a,#03
PRINT_PADDR S285
NEW_LINE
RTRUE
L0002: RFALSE
Routine R0332, 0 locals
JE G32,Geb [TRUE] L0001
JE G33,Geb [FALSE] L0002
L0001: PRINT_RET "She's not a girl. She's a woman."
L0002: RFALSE
Routine R0333, 0 locals
JE G56,#1b,#17 [TRUE] L0001
RFALSE
L0001: CALL_1S R0057 -> -(SP)
JE (SP)+,"out" [FALSE] L0002
RTRUE
L0002: RFALSE
Routine R0334, 0 locals
JE Ge9,#1b,#17 [FALSE] L0001
CALL_2N R0078 (#19)
RTRUE
L0001: PRINT_RET "You can't see any such thing."
Routine R0335, 0 locals
JE G32,Geb [TRUE] L0001
JE G33,Geb [FALSE] L0002
L0001: PRINT_PADDR S286
NEW_LINE
RTRUE
L0002: RFALSE
Routine R0336, 0 locals
JE Ge9,#20 [FALSE] L0001
CALL_VN R0078 (#20,G19)
RTRUE
L0001: JE Ge9,#0f,#2a [FALSE] L0002
PRINT_PADDR S287
NEW_LINE
RTRUE
L0002: JE Ge9,#29,#11 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S288
CALL_2N R0230 (S289)
PRINT_PADDR S290
NEW_LINE
RTRUE
L0003: RFALSE
Routine R0337, 1 local
CALL_1S R0057 -> L00
JE G56,#62 [FALSE] L0001
JE L00,"her" [FALSE] L0001
RTRUE
L0001: JE L00,"clare","girlfrien","lover" [FALSE] L0002
RTRUE
L0002: RFALSE
Routine R0338, 0 locals
JE Ge9,#75 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S291
CALL_2N R0230 (S292)
PRINT_RET " than you were then."
L0001: JE Ge9,#76,#6c [FALSE] L0002
STORE G1a,#03
PRINT_PADDR S293
NEW_LINE
RTRUE
L0002: JE Ge9,#62 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S294
CALL_2N R0230 (S295)
PRINT_PADDR S296
NEW_LINE
RTRUE
L0003: PRINT_RET "You can't see Clare."
Routine R0339, 0 locals
JE Ge9,#17,#6c [FALSE] L0001
CALL_2N R0078 (#19)
RTRUE
L0001: JE Ge9,#72 [FALSE] L0003
STORE G7c,#02
CALL_VS R0030 (G07,G19) -> -(SP)
JE (SP)+,#0025 [FALSE] L0002
CALL_VN R0078 (#69,#0025)
RTRUE
L0002: PRINT_PADDR S297
NEW_LINE
RTRUE
L0003: PRINT_PADDR S298
NEW_LINE
RTRUE
Routine R0340, 0 locals
CALL_1S R0057 -> -(SP)
JE (SP)+,"next" [FALSE] L0001
CALL_1S R0057 -> -(SP)
JE (SP)+,"aisle" [FALSE] L0001
RET #02
L0001: RFALSE
Routine R0341, 0 locals
JE Ge9,#6c [FALSE] L0001
CALL_VN R0078 (#1b,#07)
RTRUE
L0001: RFALSE
Routine R0342, 0 locals
JE Ge9,#62 [FALSE] L0001
RFALSE
L0001: JE Ge9,#6c [FALSE] L0002
PRINT_PADDR S299
NEW_LINE
RTRUE
L0002: PRINT_RET "There is no wine in this aisle."
Routine R0343, 0 locals
JE Geb,G33 [FALSE] L0001
PRINT_RET "Sorry, 'it' isn't defined yet."
L0001: RFALSE
Routine R0344, 0 locals
PRINT_RET "Sorry, 'it' isn't defined yet."
Routine R0345, 1 local
CALL_1S R0057 -> L00
JE L00,"aisle" [FALSE] L0002
CALL_1S R0057 -> L00
JE L00,"markers","marker" [FALSE] L0001
RET #02
L0001: RFALSE
L0002: JE L00,"markers","marker","sign" [TRUE] L0003
JE L00,"signs" [FALSE] L0004
L0003: RTRUE
L0004: RFALSE
Routine R0346, 0 locals
JE Ge9,#20 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S300
NEW_LINE
RTRUE
L0001: JE Ge9,#42 [FALSE] L0002
PRINT_PADDR S301
NEW_LINE
RTRUE
L0002: JE Ge9,#50 [FALSE] L0004
JE G33,#0029,#002b,#002c [FALSE] L0003
PRINT_PADDR S302
NEW_LINE
RTRUE
L0003: RFALSE
L0004: JE Ge9,#6b [FALSE] L0005
PRINT_RET "There's no way that could work."
L0005: RFALSE
Routine R0347, 0 locals
JL G32,#3a [FALSE] L0003
JE G2f,#0f [FALSE] L0001
JZ G48 [TRUE] L0001
RTRUE
L0001: GET_PARENT G32 -> -(SP)
JE (SP)+,#06 [FALSE] L0002
JE G32,#0f [TRUE] L0002
JE G32,#10 [TRUE] L0002
JE G2f,#1b,#17 [TRUE] RFALSE
PRINT_RET "You can't see any such thing."
L0002: JE G32,#0f,Geb [FALSE] L0003
JE G2f,#20,#50,#0f [TRUE] L0003
JE G2f,#6b,#1b [TRUE] L0003
PRINT_RET "You can't reach."
L0003: RFALSE
Routine R0348, 0 locals
JE Ge9,#77 [FALSE] L0001
JZ G32 [FALSE] L0001
CALL_VN R0078 (#77,Geb)
RTRUE
L0001: RFALSE
Routine R0349, 0 locals
JE G3c,Geb [FALSE] L0001
CALL_2N R0050 (#002e)
L0001: RFALSE
Routine R0350, 0 locals
JE Ge9,#78 [FALSE] L0003
JE G2f,#78 [TRUE] L0001
PUSH #00
JUMP L0002
L0001: PUSH #01
L0002: CALL_VN R0421 (Geb,#1d)
RTRUE
L0003: JE Ge9,#77 [FALSE] L0004
STORE G1a,#03
PRINT_PADDR S304
CALL_2N R0230 (S305)
PRINT_PADDR S306
CALL_2N R0229 (S307)
PRINT ". But then "
CALL_2N R0230 (S308)
PRINT_RET " was a very special bitch."
L0004: JE Ge9,#4a [FALSE] L0005
STORE G1a,#03
PRINT_PADDR S309
CALL_2N R0230 (S310)
PRINT_PADDR S311
CALL_2N R0230 (S312)
PRINT_PADDR S313
NEW_LINE
RTRUE
L0005: JE Ge9,#73 [FALSE] L0006
PRINT_PADDR S314
NEW_LINE
RTRUE
L0006: JE Ge9,#35 [FALSE] L0007
PRINT_PADDR S315
NEW_LINE
RTRUE
L0007: JE Ge9,#79 [FALSE] L0008
STORE G1a,#03
PRINT_PADDR S316
CALL_2N R0230 (S317)
NEW_LINE
RTRUE
L0008: JE Ge9,#0f,#7a [FALSE] L0009
JZ G48 [FALSE] RTRUE
CALL_VN R0078 (#32,Geb)
RTRUE
L0009: JE Ge9,#72 [FALSE] L0010
STORE G1a,#03
PRINT_PADDR S318
NEW_LINE
RTRUE
L0010: JE Ge9,#69 [FALSE] L0011
STORE G1a,#03
PRINT_PADDR S319
NEW_LINE
RTRUE
L0011: JE Ge9,#50 [FALSE] L0014
JE G33,#002c,#002b [FALSE] L0012
STORE G1a,#03
PRINT "You pick up a packet of "
CALL_2N R0105 (G33)
PRINT_PADDR S320
NEW_LINE
RTRUE
L0012: JE G33,#0029 [FALSE] L0013
STORE G1a,#03
PRINT_PADDR S321
NEW_LINE
RTRUE
L0013: RFALSE
L0014: JE Ge9,#6b [FALSE] L0016
JE G33,#002e [FALSE] L0015
STORE G1a,#03
PRINT_PADDR S322
CALL_2N R0230 (S323)
PRINT_PADDR S324
NEW_LINE
RTRUE
L0015: RFALSE
L0016: JE Ge9,#62 [FALSE] L0017
CALL_VN R0078 (#62,#1f)
RTRUE
L0017: JE Ge9,#22,#20 [FALSE] L0018
STORE G1a,#03
PRINT_PADDR S325
NEW_LINE
RTRUE
L0018: JE Ge9,#7b [FALSE] L0019
STORE G1a,#03
PRINT_PADDR S326
NEW_LINE
RTRUE
L0019: JE Ge9,#71 [FALSE] L0020
STORE G1a,#03
PRINT_PADDR S327
CALL_2N R0229 (S328)
PRINT_PADDR S329
CALL_2N R0230 (S330)
PRINT_PADDR S331
NEW_LINE
RTRUE
L0020: JE Ge9,#34 [FALSE] L0021
STORE G1a,#03
PRINT_PADDR S332
NEW_LINE
RTRUE
L0021: JE Ge9,#2b [FALSE] L0022
PRINT_RET "You can't eat her."
L0022: JE Ge9,#3d [FALSE] L0023
PRINT_RET "You can't drink her."
L0023: JE Ge9,#54 [FALSE] L0024
PRINT_RET "She's not for sale."
L0024: JE Ge9,#4c [FALSE] L0025
CALL_VN R0078 (#42,Geb)
RTRUE
L0025: JE Ge9,#16 [FALSE] L0027
JE G33,#002c [FALSE] L0026
STORE G1a,#03
PRINT_PADDR S333
CALL_2N R0230 (S334)
PRINT_RET "."
L0026: PRINT_PADDR S335
NEW_LINE
RTRUE
L0027: JE Ge9,#4b [FALSE] L0028
CALL_VN R0078 (#32,Geb)
RTRUE
L0028: RFALSE
Routine R0351, 1 local
JE Ge9,#15 [FALSE] L0005
JE G32,#002c [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S336
CALL_2N R0230 (S337)
PRINT ". "
CALL_2N R0229 (S338)
PRINT_PADDR S339
CALL_2N R0229 (S340)
PRINT_PADDR S341
CALL_2N R0230 (S342)
PRINT_RET ". It tastes really nice."
L0001: JE G32,#0026 [FALSE] L0002
CALL_VN R0078 (#53,#25,#0026)
RTRUE
L0002: JE G32,#002e [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S343
CALL_2N R0229 (S344)
PRINT_PADDR S345
NEW_LINE
RTRUE
L0003: JE G32,#002b,#0029 [FALSE] L0004
CALL_VN R0078 (#3e,#0028)
RTRUE
L0004: RFALSE
L0005: JE Ge9,#52 [FALSE] L0011
JE G32,"hi","hello" [FALSE] L0006
STORE G2f,#64
CALL_VN R0421 (Geb,#1d)
RTRUE
L0006: JG G32,G02 [FALSE] L0007
STORE G32,#0041
L0007: CALL_VS R0080 (G19,G32) -> -(SP)
JZ (SP)+ [FALSE] L0009
JIN G32,"head" [TRUE] L0009
STORE G7c,#03
CALL_VS R0030 (G07,G3c,#00) -> L00
JE L00,#00,#2710 [FALSE] L0008
STORE G7c,#03
CALL_VS R0030 (#0035,G3c,#00) -> L00
JE L00,#00,#2710 [FALSE] L0008
PRINT_PADDR S346
NEW_LINE
RTRUE
L0008: STORE G33,L00
JUMP L0010
L0009: STORE G33,G32
L0010: STORE G2f,#51
CALL_VS R0084 (Geb,G2f) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
STORE G2f,#53
CALL_VS R0084 (Geb,G2f) -> -(SP)
JE (SP)+,#01 [TRUE] RTRUE
PRINT_PADDR S347
NEW_LINE
RTRUE
L0011: JE Ge9,#42 [FALSE] L0012
STORE G1a,#03
PRINT_PADDR S348
NEW_LINE
RTRUE
L0012: JE Ge9,#32 [FALSE] L0013
STORE G1a,#03
PRINT_PADDR S349
NEW_LINE
RTRUE
L0013: JE Ge9,#53 [FALSE] L0026
STORE Gef,G33
JE Gef,#003d [FALSE] L0014
STORE G1a,#03
PRINT_PADDR S350
NEW_LINE
RTRUE
L0014: JE Gef,#002b,#002a [FALSE] L0015
STORE G1a,#03
PRINT_PADDR S351
CALL_2N R0226 (#01)
PRINT ". I love it. You "
CALL_2N R0230 (S352)
PRINT_PADDR S353
CALL_2N R0226 (#01)
PRINT_PADDR S354
CALL_2N R0230 (S355)
PRINT_PADDR S356
NEW_LINE
RTRUE
L0015: JE Gef,#0028,#0030 [FALSE] L0016
STORE G1a,#03
PRINT_PADDR S357
CALL_2N R0230 (S358)
PRINT_PADDR S359
CALL_2N R0230 (S360)
PRINT_PADDR S361
CALL_2N R0230 (S362)
PRINT_PADDR S363
NEW_LINE
RTRUE
L0016: JE Gef,#0036 [FALSE] L0017
STORE G1a,#03
PRINT_PADDR S364
NEW_LINE
RTRUE
L0017: JE Gef,#1f [FALSE] L0018
STORE G1a,#03
PRINT_PADDR S365
CALL_2N R0230 (S366)
PRINT_RET " story."
L0018: JE Gef,#25 [FALSE] L0019
STORE G1a,#03
PRINT_PADDR S367
PRINT_PADDR S368
CALL_2N R0230 (S369)
PRINT_PADDR S370
NEW_LINE
RTRUE
L0019: JE Gef,#0026 [FALSE] L0020
STORE G1a,#03
PRINT_PADDR S371
CALL_2N R0230 (S372)
NEW_LINE
RTRUE
L0020: JE Gef,#0040 [FALSE] L0021
PRINT "(ask her out on a date)
"
CALL_VN R0078 (#67,Geb,#0040)
RTRUE
L0021: JE Gef,#0029 [FALSE] L0022
CALL_VN R0078 (#7b,Geb)
RTRUE
L0022: JE Gef,#002c [FALSE] L0023
STORE G1a,#03
PRINT_PADDR S373
NEW_LINE
RTRUE
L0023: JE Gef,#19 [FALSE] L0024
STORE G1a,#03
PRINT_PADDR S374
NEW_LINE
RTRUE
L0024: CALL_VS R0080 (G19,G33) -> -(SP)
JE (SP)+,#01 [FALSE] L0025
STORE G1a,#03
PRINT_PADDR S375
CALL_2N R0105 (G33)
PRINT_PADDR S376
NEW_LINE
RTRUE
L0025: RFALSE
L0026: JE Ge9,#51 [FALSE] L0041
STORE Gef,G33
JE Gef,#002c [FALSE] L0027
CALL_VN R0078 (#16,#25,#002c)
RTRUE
L0027: JE Gef,#19 [FALSE] L0028
STORE G1a,#03
PRINT_PADDR S377
NEW_LINE
RTRUE
L0028: JE Gef,#0026 [FALSE] L0029
CALL_VN R0078 (#53,#25,#0026)
RTRUE
L0029: JE Gef,#003e [FALSE] L0030
STORE G1a,#03
PRINT_PADDR S378
NEW_LINE
RTRUE
L0030: JE Gef,#003f [FALSE] L0031
CALL_VN R0078 (#51,Geb,#0036)
RTRUE
L0031: JE Gef,#003c [FALSE] L0032
STORE G1a,#03
PRINT_PADDR S379
CALL_2N R0230 (S380)
PRINT " do "
CALL_2N R0230 (S381)
PRINT_PADDR S382
NEW_LINE
RTRUE
L0032: JE Gef,#003a [FALSE] L0033
STORE G1a,#03
PRINT_PADDR S383
NEW_LINE
RTRUE
L0033: JE Gef,#0029 [FALSE] L0034
CALL_VN R0078 (#7b,Geb)
RTRUE
L0034: JE Gef,#003d [FALSE] L0035
STORE G1a,#03
PRINT_PADDR S384
NEW_LINE
RTRUE
L0035: JE Gef,#0039,#0038 [FALSE] L0036
STORE G1a,#03
PRINT_PADDR S385
NEW_LINE
RTRUE
L0036: JE Gef,#0036 [FALSE] L0037
STORE G1a,#03
PRINT_PADDR S386
NEW_LINE
RTRUE
L0037: JE Gef,#1f [FALSE] L0038
STORE G1a,#03
PRINT_PADDR S387
NEW_LINE
RTRUE
L0038: JE Gef,#0037 [FALSE] L0039
STORE G1a,#03
PRINT_PADDR S388
NEW_LINE
RTRUE
L0039: JE Gef,#003b [FALSE] L0040
STORE G1a,#03
PRINT_PADDR S389
NEW_LINE
RTRUE
L0040: CALL_VS R0080 (G19,G33) -> -(SP)
JE (SP)+,#01 [FALSE] L0041
STORE G1a,#03
PRINT_PADDR S390
CALL_2N R0105 (G33)
PRINT_PADDR S391
NEW_LINE
RTRUE
L0041: RFALSE
Routine R0352, 0 locals
JE Ge9,#32 [FALSE] L0002
JE G32,G19 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S392
NEW_LINE
RTRUE
L0001: RFALSE
L0002: JE Ge9,#0f [FALSE] L0006
JE G32,#002e [FALSE] L0003
CALL_VN R0078 (#15,#002e,#25)
RTRUE
L0003: JE G32,#0029 [FALSE] L0004
PRINT "(give me sauces)
"
STORE G2f,#15
STORE G33,G19
STORE G32,#0029
CALL_VN R0421 (Geb,#1d)
RTRUE
L0004: JE G32,#002c [FALSE] L0005
CALL_VN R0078 (#15,#002c,Geb)
RTRUE
L0005: RFALSE
L0006: JE Ge9,#3f [FALSE] L0007
CALL_2N R0078 (#3f)
RTRUE
L0007: JE Ge9,#57,#73 [FALSE] L0008
STORE G1a,#03
PRINT_PADDR S393
CALL_2N R0229 (S394)
PRINT_PADDR S395
CALL_2N R0229 (S396)
PRINT_PADDR S397
CALL_2N R0229 (S398)
PRINT_PADDR S399
NEW_LINE
RTRUE
L0008: JE Ge9,#7c [FALSE] L0010
JE G32,#0026 [FALSE] L0009
CALL_VN R0078 (#53,#25,#0026)
RTRUE
L0009: RFALSE
L0010: JE Ge9,#70 [FALSE] L0012
JE G32,G19 [FALSE] L0011
CALL_VN R0078 (#70,Geb)
RTRUE
L0011: RFALSE
L0012: JE Ge9,#15 [FALSE] L0016
JE G32,#0026 [FALSE] L0013
CALL_VN R0078 (#53,#25,#0026)
RTRUE
L0013: JE G32,#0040 [FALSE] L0014
JE G33,G19 [FALSE] L0014
CALL_VN R0078 (#67,Geb,#0040)
RTRUE
L0014: JE G32,#0029 [FALSE] L0015
JE G33,G19 [FALSE] L0015
STORE G1a,#03
PRINT_PADDR S400
NEW_LINE
RTRUE
L0015: RFALSE
L0016: JE Ge9,#68,#7d [FALSE] L0020
JE G32,G19 [FALSE] L0019
JE G33,#0040 [FALSE] L0017
CALL_VN R0078 (#67,Geb,#0040)
RTRUE
L0017: JE G33,#20,#00 [FALSE] L0018
STORE G1a,#03
PRINT_PADDR S401
NEW_LINE
RTRUE
L0018: JE G33,#0036 [FALSE] L0019
STORE G1a,#03
PRINT_PADDR S402
CALL_2N R0230 (S403)
PRINT "? "
CALL_2N R0229 (S404)
PRINT_PADDR S405
NEW_LINE
RTRUE
L0019: RFALSE
L0020: JE Ge9,#7e [FALSE] L0021
STORE G2f,#68
STORE G33,G32
STORE G32,G19
CALL_VN R0421 (Geb,#1d)
RTRUE
L0021: JE Ge9,#72 [FALSE] L0023
JE G32,G19 [FALSE] L0022
STORE G2f,#68
STORE G32,G19
STORE G33,#20
CALL_VN R0421 (Geb,#1d)
RTRUE
L0022: RFALSE
L0023: JE Ge9,#65 [FALSE] L0024
CALL_VN R0078 (#71,Geb)
RTRUE
L0024: JE Ge9,#64 [FALSE] L0025
STORE G1a,#03
PRINT_PADDR S406
CALL_2N R0229 (S407)
PRINT_PADDR S408
CALL_2N R0229 (S409)
PRINT_PADDR S410
CALL_2N R0229 (S411)
PRINT_PADDR S412
CALL_2N R0230 (S413)
PRINT_RET ". You push the trolley on."
L0025: JE Ge9,#7b [FALSE] L0027
JE G32,G19 [FALSE] L0026
CALL_VN R0078 (#51,Geb,#0036)
RTRUE
L0026: RFALSE
L0027: JE Ge9,#6e [FALSE] L0028
CALL_VN R0078 (#51,Geb,#0036)
RTRUE
L0028: JE Ge9,#35 [FALSE] L0030
JE G32,G19 [FALSE] L0029
STORE G1a,#03
PRINT_PADDR S414
NEW_LINE
RTRUE
L0029: RFALSE
L0030: JE Ge9,#20 [FALSE] L0033
JE G32,G19 [FALSE] L0031
STORE G1a,#03
PRINT_PADDR S415
CALL_2N R0229 (S416)
PRINT_PADDR S417
CALL_2N R0229 (S418)
PRINT_PADDR S419
CALL_2N R0230 (S420)
PRINT_PADDR S421
CALL_2N R0230 (S422)
PRINT_PADDR S423
NEW_LINE
RTRUE
L0031: JE G32,#002e [FALSE] L0032
CALL_VN R0078 (#15,#002e,#25)
RTRUE
L0032: RFALSE
L0033: JE Ge9,#19 [FALSE] L0034
CALL_VN R0078 (#71,Geb)
RTRUE
L0034: JE Ge9,#1b,#17 [FALSE] L0036
JE G32,#11,#1c [FALSE] L0035
CALL_VN R0078 (#71,Geb)
RTRUE
L0035: RFALSE
L0036: JE Ge9,#7f [FALSE] L0038
JE G32,G19 [FALSE] L0037
CALL_VN R0078 (#7f,Geb)
RTRUE
L0037: RFALSE
L0038: JE Ge9,#29,#78 [FALSE] L0039
STORE G1a,#03
PRINT_PADDR S424
CALL_2N R0230 (S425)
PRINT_PADDR S426
CALL_2N R0230 (S427)
PRINT_PADDR S428
CALL_2N R0230 (S429)
PRINT_PADDR S430
CALL_2N R0229 (S431)
PRINT_PADDR S432
CALL_2N R0229 (S433)
PRINT_PADDR S434
CALL_2N R0229 (S435)
PRINT_RET ". Sexy bitch!"
L0039: RFALSE
Routine R0353, 2 locals
CALL_1S R0057 -> L00
JE L00,"your" [FALSE] L0001
INC L01
CALL_1S R0057 -> L00
L0001: JE L00,"name" [FALSE] L0002
INC L01
RET L01
L0002: RFALSE
Routine R0354, 0 locals
JE G2f,#15 [TRUE] L0001
JE G33,#25 [TRUE] L0001
PRINT_RET "You can't see any such thing."
L0001: RFALSE
Routine R0355, 2 locals
CALL_1S R0057 -> L00
JE L00,"brunette","woman's","lady's" [TRUE] L0001
JE L00,"other" [FALSE] L0002
L0001: INC L01
CALL_1S R0057 -> L00
L0002: JE L00,"hair","locks" [FALSE] L0003
INC L01
RET L01
L0003: RFALSE
Routine R0356, 0 locals
JE Ge9,#20 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S436
NEW_LINE
RTRUE
L0001: JE Ge9,#42 [FALSE] L0002
PRINT_PADDR S437
NEW_LINE
RTRUE
L0002: JE Ge9,#4c,#4b,#0f [FALSE] L0003
PRINT_PADDR S438
NEW_LINE
RTRUE
L0003: RFALSE
Routine R0357, 2 locals
JE G3c,#25 [FALSE] L0001
JE G56,#0f,#20 [FALSE] L0001
RFALSE
L0001: CALL_1S R0057 -> L00
JE L00,"brunette","woman's","lady's" [TRUE] L0002
JE L00,"other" [FALSE] L0003
L0002: INC L01
CALL_1S R0057 -> L00
L0003: JE L00,"shopping" [FALSE] L0004
INC L01
CALL_1S R0057 -> L00
L0004: JE L00,"trolley","cart" [FALSE] L0005
INC L01
RET L01
L0005: RFALSE
Routine R0358, 0 locals
JE Ge9,#6b [FALSE] L0001
JE G33,Geb [FALSE] L0001
CALL_VN R0078 (#4c,Geb)
RTRUE
L0001: RFALSE
Routine R0359, 0 locals
JE Ge9,#63,#0f,#4b [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S439
NEW_LINE
RTRUE
L0001: JE Ge9,#3e [FALSE] L0002
STORE G1a,#03
PRINT "You grab some bags of "
CALL_2N R0107 (#002b)
PRINT_PADDR S440
NEW_LINE
RTRUE
L0002: JE Ge9,#22,#20 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S441
NEW_LINE
RTRUE
L0003: JE Ge9,#17,#6d [FALSE] L0004
STORE G1a,#03
PRINT_PADDR S442
NEW_LINE
RTRUE
L0004: JE Ge9,#4c,#42 [FALSE] L0005
STORE G1a,#03
PRINT_PADDR S443
NEW_LINE
RTRUE
L0005: JE Ge9,#6b [FALSE] L0006
JE G33,#002e [FALSE] L0006
STORE G1a,#03
PRINT_PADDR S444
CALL_2N R0229 (S445)
PRINT_PADDR S446
CALL_2N R0229 (S447)
PRINT_PADDR S448
CALL_2N R0230 (S449)
PRINT_RET " down."
L0006: RFALSE
Routine R0360, 0 locals
JE Ge9,#20 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S450
NEW_LINE
RTRUE
L0001: JE Ge9,#0f,#54,#11 [FALSE] L0002
STORE G1a,#03
PRINT_PADDR S451
NEW_LINE
RTRUE
L0002: JE Ge9,#80,#42,#4b [TRUE] L0003
JE Ge9,#4c [FALSE] L0004
L0003: STORE G1a,#03
PRINT_PADDR S452
NEW_LINE
RTRUE
L0004: RFALSE
Routine R0361, 0 locals
CALL_1N R0226
RTRUE
Routine R0362, 1 local
CALL_1S R0057 -> L00
JE L00,"spaghetti","penne","macaroni" [TRUE] L0001
JE L00,"capellini","manicotti","farfalle" [TRUE] L0001
JE L00,"noodles","conchigli","ditalini" [TRUE] L0001
JE L00,"fettuccin","orzo","vermicell" [TRUE] L0001
JE L00,"fuisilli","mostaccio","ruote" [TRUE] L0001
JE L00,"radiatore","ziti","linguine" [TRUE] L0001
JE L00,"rigatoni" [FALSE] L0002
L0001: STORE G03,L00
RTRUE
L0002: RFALSE
Routine R0363, 0 locals
JE G33,Geb [FALSE] L0001
STORE G33,#002b
L0001: RFALSE
Routine R0364, 0 locals
CALL_VN R0421 (#002b,#04)
STORE G32,#002b
RTRUE
Routine R0365, 0 locals
CALL_1N R0226
RTRUE
Routine R0366, 0 locals
JE Ge9,#6b [FALSE] L0002
JE G33,#002e [FALSE] L0001
CALL_VN R0078 (#6b,#0034,#002e)
RTRUE
L0001: RFALSE
L0002: JE Ge9,#20 [FALSE] L0003
STORE G1a,#03
PRINT "You glance at the "
CALL_2N R0226 (#01)
PRINT_PADDR S453
CALL_2N R0226 (#01)
PRINT_PADDR S454
NEW_LINE
RTRUE
L0003: JE Ge9,#0f,#54,#11 [FALSE] L0004
STORE G1a,#03
PRINT_PADDR S455
CALL_2N R0226 (#01)
PRINT_PADDR S456
NEW_LINE
RTRUE
L0004: JE Ge9,#2b [FALSE] L0005
STORE G1a,#03
PRINT_PADDR S457
CALL_2N R0230 (S458)
PRINT_PADDR S459
NEW_LINE
RTRUE
L0005: JE Ge9,#80 [FALSE] L0006
STORE G1a,#03
PRINT_PADDR S460
CALL_2N R0226 (#01)
PRINT ", boring "
CALL_2N R0226 (#01)
PRINT_PADDR S461
NEW_LINE
RTRUE
L0006: JE Ge9,#42 [FALSE] L0007
STORE G1a,#03
PRINT "Maybe if you had ordered "
CALL_2N R0226 (#01)
PRINT_PADDR S462
CALL_2N R0226 (#01)
PRINT_PADDR S463
CALL_2N R0226 (#01)
PRINT_PADDR S464
SET_TEXT_STYLE EMPHASIS
PRINT "The "
CALL_2N R0226 (#01)
PRINT "'s fault"
SET_TEXT_STYLE ROMAN
PRINT_PADDR S465
CALL_2N R0229 (S466)
PRINT_PADDR S467
NEW_LINE
RTRUE
L0007: RFALSE
Routine R0367, 0 locals
JE Ge9,#7c [FALSE] L0001
CALL_2N R0230 (S468)
PRINT " Gnocchi (or rather "
CALL_2N R0230 (S469)
PRINT_PADDR S470
NEW_LINE
RTRUE
L0001: JE Ge9,#13 [FALSE] L0004
JE G33,#28 [FALSE] L0002
CALL_VN R0078 (#15,#2c,#25)
RTRUE
L0002: JE G33,#002e [FALSE] L0003
CALL_VN R0078 (#0f,Geb)
RTRUE
L0003: RFALSE
L0004: JE Ge9,#6b [FALSE] L0006
JE G33,#002e [FALSE] L0005
CALL_VN R0078 (#6b,#0034,#002e)
RTRUE
L0005: RFALSE
L0006: JE Ge9,#62 [FALSE] L0007
STORE G1a,#03
PRINT_PADDR S471
NEW_LINE
RTRUE
L0007: JE Ge9,#34 [FALSE] L0008
STORE G1a,#03
PRINT_PADDR S472
NEW_LINE
RTRUE
L0008: JE Ge9,#80 [FALSE] L0009
STORE G1a,#03
PRINT_PADDR S473
NEW_LINE
RTRUE
L0009: JE Ge9,#20 [FALSE] L0010
STORE G1a,#03
PRINT_PADDR S474
NEW_LINE
RTRUE
L0010: JE Ge9,#2b,#27 [FALSE] L0011
STORE G1a,#03
PRINT_PADDR S475
NEW_LINE
RTRUE
L0011: JE Ge9,#0f,#54,#11 [FALSE] L0012
STORE G1a,#03
PRINT_PADDR S476
NEW_LINE
RTRUE
L0012: JE Ge9,#42 [FALSE] L0013
STORE G1a,#03
PRINT_PADDR S477
NEW_LINE
RTRUE
L0013: RFALSE
Routine R0368, 0 locals
JE Ge9,#6c,#17 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S478
NEW_LINE
RTRUE
L0001: JE Ge9,#35 [FALSE] L0002
CALL_2N R0078 (#35)
RTRUE
L0002: JE Ge9,#20 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S479
CALL_2N R0229 (S480)
PRINT_PADDR S481
NEW_LINE
RTRUE
L0003: RFALSE
Routine R0369, 2 locals
CALL_1S R0057 -> L00
JE L00,"shopping" [FALSE] L0001
INC L01
CALL_1S R0057 -> L00
L0001: JE L00,"trolley","cart" [FALSE] L0002
INC L01
RET L01
L0002: RFALSE
Routine R0370, 0 locals
JE Ge9,#4b,#4d [FALSE] L0001
CALL_VN R0078 (#1b,#08)
RTRUE
L0001: JE Ge9,#0f [FALSE] L0002
PRINT_PADDR S482
NEW_LINE
RTRUE
L0002: JE Ge9,#12,#10,#13 [FALSE] L0003
PRINT_RET "You're not carrying the trolley."
L0003: JE Ge9,#6d [FALSE] L0004
STORE G1a,#03
PRINT_PADDR S483
NEW_LINE
RTRUE
L0004: JE Ge9,#3e [FALSE] L0005
STORE G1a,#03
PRINT_PADDR S484
CALL_2N R0230 (S485)
PRINT_PADDR S486
NEW_LINE
RTRUE
L0005: JE Ge9,#4c [FALSE] L0006
STORE G1a,#03
PRINT_PADDR S487
NEW_LINE
RTRUE
L0006: JE Ge9,#22,#20 [FALSE] L0007
STORE G1a,#03
PRINT_PADDR S488
CALL_2N R0230 (S489)
PRINT_PADDR S490
CALL_2N R0230 (S491)
PRINT_PADDR S492
NEW_LINE
RTRUE
L0007: JE Ge9,#17 [FALSE] L0008
STORE G1a,#03
PRINT_PADDR S493
CALL_2N R0230 (S494)
PRINT_PADDR S495
NEW_LINE
RTRUE
L0008: JE Ge9,#63 [FALSE] L0009
STORE G1a,#03
PRINT_PADDR S496
CALL_2N R0229 (S497)
PRINT_PADDR S498
NEW_LINE
RTRUE
L0009: JE Ge9,#42 [FALSE] L0010
STORE G1a,#03
PRINT_PADDR S499
CALL_2N R0229 (S500)
PRINT_PADDR S501
NEW_LINE
RTRUE
L0010: RFALSE
Routine R0371, 3 locals
CALL_1S R0057 -> L00
STORE L02,L00
JE L00,"food","contents","shopping" [FALSE] L0002
INC L01
CALL_1S R0057 -> L00
JE L00,"in","of" [FALSE] L0002
INC L01
CALL_1S R0057 -> L00
JE L00,"my" [FALSE] L0001
CALL_1S R0057 -> L00
INC L01
L0001: JE L00,"trolley","cart" [FALSE] L0002
INC L01
L0002: JG L01,#01 [TRUE] L0003
JE L02,"food" [TRUE] L0004
L0003: RET L01
L0004: RFALSE
Routine R0372, 0 locals
JE Ge9,#20 [FALSE] L0001
CALL_VN R0078 (#22,#2e)
RTRUE
L0001: JE Ge9,#0f [FALSE] L0002
PRINT "(empty trolley)
"
CALL_VN R0078 (#63,#2e)
RTRUE
L0002: RFALSE
Routine R0373, 3 locals
CALL_1S R0057 -> L00
STORE L02,L00
JE L00,"food","contents","shopping" [FALSE] L0001
INC L01
CALL_1S R0057 -> L00
JE L00,"in","of" [FALSE] L0001
INC L01
CALL_1S R0057 -> L00
JE L00,"her" [FALSE] L0001
CALL_1S R0057 -> L00
INC L01
JE L00,"trolley","cart" [FALSE] L0001
INC L01
L0001: JG L01,#01 [TRUE] L0002
JE L02,"food" [TRUE] L0003
L0002: RET L01
L0003: RFALSE
Routine R0374, 0 locals
JE Ge9,#20 [FALSE] L0001
CALL_VN R0078 (#22,#28)
RTRUE
L0001: JE Ge9,#0f [FALSE] L0002
PRINT "(empty her trolley)
"
CALL_VN R0078 (#63,#28)
RTRUE
L0002: RFALSE
Routine R0375, 0 locals
PRINT_PADDR S502
NEW_LINE
RTRUE
Routine R0376, 0 locals
JE Ge9,#75 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S503
NEW_LINE
RTRUE
L0001: PRINT_PADDR S504
NEW_LINE
RTRUE
Routine R0377, 0 locals
JE Ge9,#19 [FALSE] L0001
CALL_2N R0078 (#19)
RTRUE
L0001: JE Ge9,#20 [FALSE] L0002
CALL_VN R0078 (#20,#0034)
RTRUE
L0002: JE Ge9,#17 [FALSE] L0003
PRINT_RET "You're already in the shop."
L0003: JE Ge9,#22 [FALSE] L0004
PRINT "(for Clare)
"
CALL_VN R0078 (#76,#1f)
RTRUE
L0004: JE Ge9,#42 [FALSE] L0005
PRINT_PADDR S505
NEW_LINE
RTRUE
L0005: RFALSE
Routine R0378, 0 locals
JE Ge9,#6b [FALSE] L0002
JE G33,#2e [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S506
NEW_LINE
RTRUE
L0001: RFALSE
L0002: JE Ge9,#56,#17 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S507
CALL_2N R0230 (S508)
PRINT_PADDR S509
CALL_2N R0230 (S510)
PRINT_RET " that is mad. Fuckers."
L0003: JE Ge9,#20,#22 [FALSE] L0004
STORE G1a,#03
PRINT_PADDR S511
NEW_LINE
RTRUE
L0004: JE Ge9,#4c,#4b,#42 [TRUE] L0005
JE Ge9,#63 [FALSE] L0006
L0005: STORE G1a,#03
PRINT_PADDR S512
CALL_2N R0230 (S513)
PRINT_PADDR S514
CALL_2N R0230 (S515)
PRINT_PADDR S516
NEW_LINE
RTRUE
L0006: RFALSE
Routine R0379, 0 locals
JE Ge9,#17 [FALSE] L0002
JE G32,#10 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S517
CALL_2N R0230 (S518)
PRINT_PADDR S519
NEW_LINE
RTRUE
L0001: RFALSE
L0002: JE Ge9,#81 [FALSE] L0003
STORE G1a,#03
PRINT_PADDR S520
NEW_LINE
RTRUE
L0003: RFALSE
Routine R0380, 4 locals
JZ G32 [TRUE] L0001
JE G32,G88 [TRUE] L0001
JE G32,G19 [TRUE] L0001
STORE G01,G32
L0001: LOADW #00,#08 -> Gef
OR #02,Gef -> Gef
STOREW #00,#08,Gef
LOADB #00,#21 -> L00
JZ L00 [FALSE] L0002
STORE L00,#50
L0002: SUB L00,#0a -> -(SP)
DIV (SP)+,#02 -> L01
NEW_LINE
STORE Gef,L01
JL Gef,#01 [TRUE] L0004
L0003: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0003
L0004: PRINT "----------"
NEW_LINE
JZ G00 [FALSE] L0007
SUB L00,#46 -> -(SP)
DIV (SP)+,#02 -> L01
PRINT "
"
STORE Gef,L01
JL Gef,#01 [TRUE] L0006
L0005: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0005
L0006: CALL_2N R0230 (S521)
PRINT ". The end of "
CALL_2N R0230 (S522)
PRINT_PADDR S523
PRINT "
"
INC G00
JUMP L0027
L0007: JE G00,#01 [FALSE] L0010
SUB L00,G02 -> -(SP)
DIV (SP)+,#02 -> L01
PRINT "
"
STORE Gef,L01
JL Gef,#01 [TRUE] L0009
L0008: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0008
L0009: CALL_2N R0230 (S524)
PRINT ". But then, there are others..."
PRINT "
"
INC G00
JUMP L0027
L0010: JE G00,#02 [FALSE] L0013
NEW_LINE
SUB L00,#21 -> -(SP)
DIV (SP)+,#02 -> L01
STORE Gef,L01
JL Gef,#01 [TRUE] L0012
L0011: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0011
L0012: CALL_2N R0230 (S525)
PRINT ". But then..."
PRINT "
"
INC G00
JUMP L0027
L0013: PRINT "
"
L0014: STORE L01,#00
RANDOM #04 -> -(SP)
PULL Gef
JE Gef,#01 [FALSE] L0015
ADD L01,#12 -> L01
STORE L02,S526
JUMP L0018
L0015: JE Gef,#02 [FALSE] L0016
ADD L01,#12 -> L01
STORE L02,S527
JUMP L0018
L0016: JE Gef,#03 [FALSE] L0017
ADD L01,#13 -> L01
STORE L02,S528
JUMP L0018
L0017: JE Gef,#04 [FALSE] L0018
ADD L01,#10 -> L01
STORE L02,S529
L0018: RANDOM #05 -> -(SP)
PULL Gef
JE Gef,#01 [FALSE] L0019
ADD L01,#0d -> L01
STORE L03,S530
JUMP L0023
L0019: JE Gef,#02 [FALSE] L0020
ADD L01,#15 -> L01
STORE L03,S531
JUMP L0023
L0020: JE Gef,#03 [FALSE] L0021
ADD L01,#19 -> L01
STORE L03,S532
JUMP L0023
L0021: JE Gef,#04 [FALSE] L0022
ADD L01,#0f -> L01
STORE L03,S533
JUMP L0023
L0022: JE Gef,#05 [FALSE] L0023
ADD L01,#0d -> L01
STORE L03,S534
L0023: JE G06,L03 [FALSE] L0024
JE G05,L02 [FALSE] L0024
JUMP L0014
L0024: SUB L00,L01 -> -(SP)
DIV (SP)+,#02 -> -(SP)
PULL Gef
JL Gef,#01 [TRUE] L0026
L0025: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0025
L0026: CALL_2N R0230 (L02)
PRINT_PADDR L03
PRINT "
"
STORE G05,L02
STORE G06,L03
L0027: LOADW #00,#08 -> Gef
AND #fffd,Gef -> Gef
STOREW #00,#08,Gef
CALL_1N R0228
STORE G1a,#00
CALL_2N R0078 (#1f)
RTRUE
Routine R0381, 0 locals
JE G86,G01 [TRUE] L0001
CALL_VN R0069 ("it",G01)
L0001: RTRUE
Routine R0382, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S535
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0383, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S536
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0384, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S537
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0385, 1 local
CALL_1S R0057 -> L00
JE L00,"red","bloody","blood" [FALSE] L0002
CALL_1S R0057 -> L00
JE L00,"smile" [FALSE] L0001
RET #02
L0001: JE L00,"soaked" [FALSE] L0002
CALL_1S R0057 -> L00
JE L00,"smile" [FALSE] L0002
RET #03
L0002: JE L00,"smile" [FALSE] L0003
RTRUE
L0003: JE L00,"clare's","lover's","girlfrien" [FALSE] L0004
CALL_1S R0057 -> L00
JE L00,"murder" [FALSE] L0004
RET #02
L0004: JE L00,"murdering","butcherin","killing" [FALSE] L0006
CALL_1S R0057 -> L00
JE L00,"clare","lover","girlfrien" [TRUE] L0005
JE L00,"woman" [FALSE] L0006
L0005: RET #02
L0006: JE L00,"murder","killing" [FALSE] L0009
CALL_1S R0057 -> L00
JE L00,"of" [FALSE] L0008
CALL_1S R0057 -> L00
JE L00,"clare","lover","girlfrien" [TRUE] L0007
JE L00,"woman" [FALSE] L0008
L0007: RET #03
L0008: RTRUE
L0009: RFALSE
Routine R0386, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT "The one thing you didn't "
CALL_2N R0230 (S538)
PRINT_PADDR S539
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0387, 1 local
CALL_1S R0057 -> L00
STORE Gef,L00
JE Gef,"death" [FALSE] L0002
CALL_1S R0057 -> -(SP)
JE (SP)+,"of" [FALSE] L0001
CALL_1S R0057 -> -(SP)
JE (SP)+,"clare","girlfrien","lover" [FALSE] L0001
RET #03
L0001: RTRUE
L0002: JE Gef,"illness","disease","dying" [FALSE] L0003
RTRUE
L0003: JE Gef,"clare's","girlfrien","lover's" [FALSE] L0005
CALL_1S R0057 -> L00
JE L00,"illness","disease","dying" [TRUE] L0004
JE L00,"death" [FALSE] L0005
L0004: RET #02
L0005: RFALSE
Routine R0388, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S540
CALL_2N R0230 (S541)
PRINT_PADDR S542
CALL_2N R0230 (S543)
PRINT_PADDR S544
CALL_2N R0230 (S545)
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0389, 1 local
CALL_1S R0057 -> L00
STORE Gef,L00
JE Gef,"accident","crash" [FALSE] L0001
RTRUE
L0001: JE Gef,"clare's","girlfrien","lover's" [FALSE] L0003
CALL_1S R0057 -> L00
JE L00,"accident" [FALSE] L0002
RET #02
L0002: JUMP L0004
L0003: JE Gef,"scooter" [FALSE] L0004
RTRUE
L0004: RFALSE
Routine R0390, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S546
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0391, 1 local
CALL_1S R0057 -> L00
JE L00,"note","letter" [FALSE] L0001
RTRUE
L0001: JE L00,"dear" [FALSE] L0004
CALL_1S R0057 -> -(SP)
JE (SP)+,"john" [FALSE] L0003
CALL_1S R0057 -> -(SP)
JE (SP)+,"letter" [FALSE] L0002
RET #03
L0002: RET #02
L0003: RTRUE
L0004: JE L00,"clare's","lover's","girlfrien" [FALSE] L0007
CALL_1S R0057 -> L00
JE L00,"leaving","dumping" [FALSE] L0007
CALL_1S R0057 -> L00
JE L00,"me" [FALSE] L0005
RET #03
L0005: JE L00,"of" [FALSE] L0006
CALL_1S R0057 -> -(SP)
JE (SP)+,"me" [FALSE] L0006
RET #04
L0006: RET #02
L0007: JE L00,"clare","lover","girlfrien" [TRUE] L0008
JE L00,"woman" [FALSE] L0011
L0008: CALL_1S R0057 -> L00
JE L00,"leaving","dumping" [FALSE] L0010
CALL_1S R0057 -> L00
JE L00,"me" [FALSE] L0009
RET #03
L0009: RET #02
L0010: JE L00,"finishing" [FALSE] L0011
CALL_1S R0057 -> -(SP)
JE (SP)+,"with" [FALSE] L0011
CALL_1S R0057 -> -(SP)
JE (SP)+,"me" [FALSE] L0011
RET #04
L0011: JE L00,"break","breaking" [FALSE] L0015
CALL_1S R0057 -> L00
JE L00,"up" [FALSE] L0015
CALL_1S R0057 -> L00
JE L00,"with" [FALSE] L0014
CALL_1S R0057 -> L00
JE L00,"clare","girlfrien","woman" [TRUE] L0012
JE L00,"lover" [FALSE] L0013
L0012: RET #04
L0013: RET #02
L0014: RET #02
L0015: RFALSE
Routine R0392, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S547
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0393, 2 locals
CALL_1S R0057 -> L00
JE L00,"your" [FALSE] L0001
INC L01
CALL_1S R0057 -> L00
L0001: JE L00,"day" [FALSE] L0003
CALL_1S R0057 -> -(SP)
JE (SP)+,"at" [FALSE] L0002
CALL_1S R0057 -> -(SP)
JE (SP)+,"work" [FALSE] L0002
ADD #03,L01 -> -(SP)
RET_POPPED
L0002: ADD #01,L01 -> -(SP)
RET_POPPED
L0003: JE L00,"day's" [FALSE] L0004
CALL_1S R0057 -> -(SP)
JE (SP)+,"work" [FALSE] L0004
ADD #02,L01 -> -(SP)
RET_POPPED
L0004: JE L00,"work","job","office" [TRUE] L0005
JE L00,"thursday","today" [FALSE] L0006
L0005: ADD #01,L01 -> -(SP)
RET_POPPED
L0006: RFALSE
Routine R0394, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S548
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0395, 2 locals
CALL_1S R0057 -> L00
JE L00,"clare's","lover's","girlfrien" [TRUE] L0001
JE L00,"woman's" [FALSE] L0002
L0001: INC L01
CALL_1S R0057 -> L00
L0002: JE L00,"suicide" [FALSE] L0003
INC L01
RET L01
L0003: JE L00,"clare","lover","girlfrien" [TRUE] L0004
JE L00,"woman" [FALSE] L0006
L0004: CALL_1S R0057 -> L00
JE L00,"killing" [FALSE] L0005
CALL_1S R0057 -> -(SP)
JE (SP)+,"herself" [FALSE] L0005
RET #03
L0005: JE L00,"committin" [FALSE] L0006
CALL_1S R0057 -> -(SP)
JE (SP)+,"suicide" [FALSE] L0006
RET #03
L0006: RFALSE
Routine R0396, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S549
CALL_2N R0229 (S550)
PRINT_PADDR S551
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0397, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S552
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0398, 0 locals
JE Ge9,#62 [FALSE] L0001
STORE G1a,#03
PRINT_PADDR S553
NEW_LINE
RTRUE
L0001: RFALSE
Routine R0399, 1 local
JZ L00 [FALSE] L0001
CALL_VS R0418 (#47,#1731) -> Gef
CALL_1N R0228
RET #02
L0001: STORE G88,#25
STORE G86,#23
INSERT_OBJ "your trolley","you"
CALL_VN R0101 (#19,#01)
STORE G27,#0817
STORE G07,#1a
PRINT_PADDR S565
CALL_2N R0230 (S566)
PRINT_PADDR S567
CALL_2N R0229 (S568)
SET_TEXT_STYLE BOLDFACE
SET_TEXT_STYLE EMPHASIS
PRINT "Rome"
SET_TEXT_STYLE ROMAN
PRINT ".
"
RET #02
Routine R0400, 0 locals
Parsing routine for:
"go noun = [parse $35de]"
"no-verb noun = [parse $35de]"
JIN G32,"compass" [TRUE] RTRUE
RFALSE
Routine R0401, 1 local
STORE G44,G7c
L0001: CALL_1S R0058 -> L00
JE L00,#ffff [TRUE] L0002
JE L00,"to" [FALSE] L0001
JE G56,#52 [FALSE] L0001
L0002: DEC G7c
SUB G7c,G44 -> G45
JZ G45 [FALSE] L0003
RET #ffff
L0003: JE G56,#53,#52,#51 [FALSE] L0005
STORE L00,G7c
STORE G7c,G44
CALL_1S R0057 -> G43
JE G43,"the" [FALSE] L0004
JG G45,#01 [FALSE] L0004
CALL_1S R0057 -> G43
L0004: STORE G7c,L00
RTRUE
L0005: RFALSE
Routine R0402, 0 locals
RFALSE
Routine R0403, 0 locals
RFALSE
Routine R0404, 0 locals
RFALSE
Routine R0405, 0 locals
RFALSE
Routine R0406, 0 locals
RFALSE
Routine R0407, 0 locals
RFALSE
Routine R0408, 0 locals
RFALSE
Routine R0409, 0 locals
RFALSE
Routine R0410, 0 locals
RFALSE
Routine R0411, 1 local
RFALSE
Routine R0412, 1 local
RFALSE
Routine R0413, 1 local
RFALSE
Routine R0414, 1 local
RFALSE
Routine R0415, 2 locals
RFALSE
Routine R0416, 0 locals
PRINT_RET "."
Routine R0417, 1 local
STORE L00,L00
RET #ffff
Routine R0418, 8 locals
LOADW L01,#00 -> L02
ADD L02,#06 -> -(SP)
SPLIT_WINDOW (SP)+
SET_WINDOW #01
LOADB #00,#21 -> L03
JZ L03 [FALSE] L0001
STORE L03,#50
L0001: SUB L03,L00 -> -(SP)
DIV (SP)+,#02 -> L04
SET_TEXT_STYLE REVERSE
SUB L04,#02 -> L03
STORE L05,#05
STORE L06,#01
SET_CURSOR #04,L03
ADD L00,#04 -> -(SP)
PULL Gef
JL Gef,#01 [TRUE] L0003
L0002: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0002
L0003: SET_CURSOR L05,L03
ADD L00,#04 -> -(SP)
PULL Gef
JL Gef,#01 [TRUE] L0005
L0004: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0004
L0005: SET_CURSOR L05,L04
LOADW L01,L06 -> L07
JZ L07 [TRUE] L0006
PRINT_PADDR L07
L0006: INC L05
INC L06
JG L06,L02 [FALSE] L0003
SET_CURSOR L05,L03
ADD L00,#04 -> -(SP)
PULL Gef
JL Gef,#01 [TRUE] L0008
L0007: PRINT_CHAR ' '
DEC Gef
JZ Gef [FALSE] L0007
L0008: BUFFER_MODE #01
SET_TEXT_STYLE ROMAN
SET_WINDOW #00
SPLIT_WINDOW #01
OUTPUT_STREAM #ffff
PRINT "[ "
STORE L06,#01
L0009: LOADW L01,L06 -> L03
JZ L03 [TRUE] L0010
PRINT_PADDR L03
L0010: INC L06
JG L06,L02 [FALSE] L0011
PRINT "]
"
JUMP L0012
L0011: PRINT "
"
JZ #00 [TRUE] L0009
L0012: OUTPUT_STREAM OUTPUT_ENABLE
RTRUE
Routine R0419, 5 locals
AND L00,#c000 -> -(SP)
JZ (SP)+ [TRUE] L0004
AND L00,#ff -> -(SP)
LOADW #0a7c,(SP)+ -> L03
CALL_2N R0107 (L03)
PRINT "::"
AND L00,#8000 -> -(SP)
JZ (SP)+ [FALSE] L0001
AND L00,#3f00 -> -(SP)
DIV (SP)+,#0100 -> L00
JUMP L0004
L0001: AND L00,#7f00 -> -(SP)
DIV (SP)+,#0100 -> L00
GET_PROP L03,#03 -> L04
L0002: LOADW L04,#00 -> -(SP)
JZ (SP)+ [TRUE] L0003
JG L00,#00 [FALSE] L0003
LOADB L04,#02 -> -(SP)
ADD L04,(SP)+ -> -(SP)
ADD (SP)+,#03 -> L04
DEC L00
JUMP L0002
L0003: LOADW L04,#00 -> -(SP)
AND (SP)+,#7fff -> L00
L0004: STORE L01,#0a8a
LOADW L01,#00 -> L02
JG L00,#00 [FALSE] L0005
JL L00,L02 [FALSE] L0005
LOADW L01,L00 -> -(SP)
JZ (SP)+ [FALSE] L0006
L0005: PRINT "<number "
PRINT_NUM L00
PRINT ">"
JUMP L0007
L0006: LOADW L01,L00 -> -(SP)
PRINT_PADDR (SP)+
L0007: RTRUE
Routine R0420, 3 locals
CALL_VS R0422 (L00,L01) -> L02
JZ L02 [FALSE] L0002
JL L01,#01 [TRUE] L0001
JL L01,#40 [FALSE] L0001
GET_PROP L00,L01 -> -(SP)
RET_POPPED
L0001: CALL_VN R0427 (S569,L00,L01)
RTRUE
L0002: LOADW L02,#00 -> -(SP)
RET_POPPED
Routine R0421, 15 locals
JL L00,#01 [TRUE] L0001
SUB #0140,#ff -> -(SP)
JG L00,(SP)+ [FALSE] L0007
L0001: CALL_2S R0428 (L00) -> -(SP)
PULL Gef
JE Gef,#02 [FALSE] L0003
JE L01,#45 [FALSE] L0002
STORE L0b,Gea
STORE Gea,Geb
STORE Geb,L00
STORE Ge9,G2f
CALL_VS2 L00 (L02,L03,L04,L05,L06,L07) -> L08
STORE Geb,Gea
STORE Gea,L0b
RET L08
L0002: JUMP L0014
L0003: JE Gef,#03 [FALSE] L0006
JE L01,#46 [FALSE] L0004
PRINT_PADDR L00
RTRUE
L0004: JE L01,#47 [FALSE] L0005
OUTPUT_STREAM REDIRECT_ENABLE,L02
PRINT_PADDR L00
OUTPUT_STREAM #fffd
LOADW L02,#00 -> -(SP)
RET_POPPED
L0005: JUMP L0014
L0006: JUMP L0014
L0007: CHECK_ARG_COUNT #03 [FALSE] L0008
INC L09
CHECK_ARG_COUNT #04 [FALSE] L0008
INC L09
CHECK_ARG_COUNT #05 [FALSE] L0008
INC L09
CHECK_ARG_COUNT #06 [FALSE] L0008
INC L09
CHECK_ARG_COUNT #07 [FALSE] L0008
INC L09
CHECK_ARG_COUNT #08 [FALSE] L0008
INC L09
L0008: JL L01,#00 [TRUE] L0012
JL L01,#40 [FALSE] L0012
GET_PROP_ADDR L00,L01 -> L08
JZ L08 [FALSE] L0009
STORE L0d,#02
JUMP L0011
L0009: GET_PROP_ADDR L00,L01 -> Gef
JZ Gef [TRUE] L0010
GET_PROP_LEN Gef -> Gef
L0010: STORE L0d,Gef
L0011: JUMP L0016
L0012: JL L01,#40 [TRUE] L0013
JL L01,#45 [FALSE] L0013
JIN L00,"Class" [FALSE] L0013
CALL_VS2 R0432 (L00,L01,L02,L03) -> -(SP)
RET_POPPED
L0013: CALL_VS R0422 (L00,L01) -> L08
JZ L08 [FALSE] L0015
L0014: CALL_VN R0427 (S570,L00,L01)
RTRUE
L0015: SUB L08,#01 -> -(SP)
LOADB #00,(SP)+ -> L0d
L0016: MUL #02,L0e -> -(SP)
JL (SP)+,L0d [FALSE] L0030
LOADW L08,L0e -> -(SP)
JE (SP)+,#ffff [TRUE] RFALSE
LOADW L08,L0e -> -(SP)
CALL_2S R0428 ((SP)+) -> -(SP)
PULL Gef
JE Gef,#02 [FALSE] L0027
STORE L0b,Gea
STORE Gea,Geb
STORE Geb,L00
STORE L0c,Ge9
JE L01,#06 [FALSE] L0017
STORE Ge9,G35
JUMP L0018
L0017: STORE Ge9,G2f
L0018: STORE Gef,L09
JE Gef,#00 [FALSE] L0019
LOADW L08,L0e -> -(SP)
CALL_1S (SP)+ -> L0a
JUMP L0025
L0019: JE Gef,#01 [FALSE] L0020
LOADW L08,L0e -> -(SP)
CALL_2S (SP)+ (L02) -> L0a
JUMP L0025
L0020: JE Gef,#02 [FALSE] L0021
LOADW L08,L0e -> -(SP)
CALL_VS (SP)+ (L02,L03) -> L0a
JUMP L0025
L0021: JE Gef,#03 [FALSE] L0022
LOADW L08,L0e -> -(SP)
CALL_VS (SP)+ (L02,L03,L04) -> L0a
JUMP L0025
L0022: JE Gef,#04 [FALSE] L0023
LOADW L08,L0e -> -(SP)
CALL_VS2 (SP)+ (L02,L03,L04,L05) -> L0a
JUMP L0025
L0023: JE Gef,#05 [FALSE] L0024
LOADW L08,L0e -> -(SP)
CALL_VS2 (SP)+ (L02,L03,L04,L05,L06) -> L0a
JUMP L0025
L0024: JE Gef,#06 [FALSE] L0025
LOADW L08,L0e -> -(SP)
CALL_VS2 (SP)+ (L02,L03,L04,L05,L06,L07) -> L0a
L0025: STORE Geb,Gea
STORE Gea,L0b
STORE Ge9,L0c
JZ L0a [TRUE] L0026
RET L0a
L0026: JUMP L0029
L0027: JE Gef,#03 [FALSE] L0028
LOADW L08,L0e -> -(SP)
PRINT_PADDR (SP)+
NEW_LINE
RTRUE
L0028: LOADW L08,L0e -> -(SP)
RET_POPPED
L0029: INC L0e
JUMP L0016
L0030: RFALSE
Routine R0422, 5 locals
JL L01,#40 [FALSE] L0001
JG L01,#00 [FALSE] L0001
GET_PROP_ADDR L00,L01 -> -(SP)
RET_POPPED
L0001: AND L01,#8000 -> -(SP)
JZ (SP)+ [TRUE] L0004
AND L01,#ff -> -(SP)
LOADW #0a7c,(SP)+ -> L04
GET_PROP_ADDR L04,#03 -> -(SP)
JZ (SP)+ [TRUE] RFALSE
CALL_VS R0425 (L00,L04) -> -(SP)
JZ (SP)+ [TRUE] RFALSE
AND L01,#7f00 -> -(SP)
DIV (SP)+,#0100 -> L01
GET_PROP L04,#03 -> L02
L0002: JG L01,#00 [FALSE] L0003
DEC L01
LOADB L02,#02 -> -(SP)
ADD L02,(SP)+ -> -(SP)
ADD (SP)+,#03 -> L02
JUMP L0002
L0003: ADD L02,#03 -> -(SP)
RET_POPPED
L0004: AND L01,#4000 -> -(SP)
JZ (SP)+ [TRUE] L0006
AND L01,#ff -> -(SP)
LOADW #0a7c,(SP)+ -> L04
AND L01,#3f00 -> -(SP)
DIV (SP)+,#0100 -> L01
CALL_VS R0425 (L00,L04) -> -(SP)
JZ (SP)+ [TRUE] RFALSE
LOADW #00,#05 -> L02
JE L04,#02 [FALSE] L0005
MUL #02,L01 -> -(SP)
ADD L02,(SP)+ -> -(SP)
SUB (SP)+,#02 -> -(SP)
RET_POPPED
L0005: MUL L04,#0e -> -(SP)
ADD L02,#7c -> -(SP)
ADD (SP)+,(SP)+ -> -(SP)
DIV (SP)+,#02 -> -(SP)
LOADW #00,(SP)+ -> L02
LOADB #00,L02 -> -(SP)
MUL #02,(SP)+ -> -(SP)
ADD L02,(SP)+ -> -(SP)
ADD (SP)+,#01 -> -(SP)
CALL_VS R0431 ((SP)+,#ffff) -> -(SP)
ADD (SP)+,#06 -> L02
CALL_VS R0431 (L02,L01) -> -(SP)
RET_POPPED
L0006: GET_PROP_ADDR L00,#03 -> -(SP)
JZ (SP)+ [TRUE] RFALSE
JIN L00,"Class" [FALSE] L0007
JL L01,#40 [TRUE] RFALSE
JL L01,#48 [FALSE] RFALSE
L0007: JE Geb,L00 [FALSE] L0008
OR L01,#8000 -> L03
L0008: GET_PROP L00,#03 -> L02
L0009: LOADW L02,#00 -> -(SP)
JZ (SP)+ [TRUE] L0011
LOADW L02,#00 -> -(SP)
JE (SP)+,L01,L03 [FALSE] L0010
ADD L02,#03 -> -(SP)
RET_POPPED
L0010: LOADB L02,#02 -> -(SP)
ADD L02,(SP)+ -> -(SP)
ADD (SP)+,#03 -> L02
JUMP L0009
L0011: RFALSE
Routine R0423, 3 locals
JL L01,#40 [FALSE] L0002
JG L01,#00 [FALSE] L0002
GET_PROP_ADDR L00,L01 -> Gef
JZ Gef [TRUE] L0001
GET_PROP_LEN Gef -> Gef
L0001: PUSH Gef
RET_POPPED
L0002: CALL_VS R0422 (L00,L01) -> L02
JZ L02 [TRUE] RFALSE
SUB L02,#01 -> -(SP)
LOADB (SP)+,#00 -> -(SP)
RET_POPPED
Routine R0424, 2 locals
JL L00,#01 [TRUE] L0001
SUB #0140,#ff -> -(SP)
JG L00,(SP)+ [FALSE] L0004
L0001: JE L01,#46,#47,#45 [FALSE] RFALSE
CALL_2S R0428 (L00) -> -(SP)
PULL Gef
JE Gef,#02 [FALSE] L0002
JE L01,#45 [TRUE] RTRUE
JUMP L0003
L0002: JE Gef,#03 [FALSE] L0003
JE L01,#46,#47 [TRUE] RTRUE
L0003: RFALSE
L0004: JL L01,#40 [FALSE] L0005
GET_PROP_ADDR L00,L01 -> -(SP)
JZ (SP)+ [FALSE] RTRUE
RFALSE
L0005: CALL_VS R0422 (L00,L01) -> -(SP)
JZ (SP)+ [FALSE] RTRUE
JL L01,#48 [FALSE] L0006
JIN L00,"Class" [TRUE] RTRUE
L0006: RFALSE
Routine R0425, 5 locals
JL L00,#01 [TRUE] L0001
SUB #0140,#ff -> -(SP)
JG L00,(SP)+ [FALSE] L0002
L0001: JE L01,#03,#04 [FALSE] RFALSE
SUB L01,#01 -> -(SP)
CALL_2S R0428 (L00) -> -(SP)
JE (SP)+,(SP)+ [TRUE] RTRUE
RFALSE
L0002: STORE Gef,L01
JE Gef,#01 [FALSE] L0003
JG L00,#04 [FALSE] RTRUE
JIN L00,"Class" [TRUE] RTRUE
RFALSE
L0003: JE Gef,#02 [FALSE] L0004
JG L00,#04 [FALSE] RFALSE
JIN L00,"Class" [TRUE] RFALSE
RTRUE
L0004: JE Gef,#03,#04 [FALSE] L0005
RFALSE
L0005: JIN L01,"Class" [TRUE] L0006
CALL_VN R0427 (S571,L01,#ffff)
RFALSE
L0006: GET_PROP_ADDR L00,#02 -> L03
JZ L03 [TRUE] RFALSE
GET_PROP_ADDR L00,#02 -> Gef
JZ Gef [TRUE] L0007
GET_PROP_LEN Gef -> Gef
L0007: STORE L04,Gef
STORE L02,#00
L0008: DIV L04,#02 -> -(SP)
JL L02,(SP)+ [FALSE] L0009
LOADW L03,L02 -> -(SP)
JE (SP)+,L01 [TRUE] RTRUE
INC L02
JUMP L0008
L0009: RFALSE
Routine R0426, 9 locals
STORE L04,#00
L0001: JL L04,#30 [FALSE] L0004
TEST_ATTR L01,L04 [FALSE] L0002
SET_ATTR L00,L04
JUMP L0003
L0002: CLEAR_ATTR L00,L04
L0003: INC L04
JUMP L0001
L0004: STORE L04,#01
L0005: JL L04,#40 [FALSE] L0010
GET_PROP_ADDR L00,L04 -> L02
GET_PROP_ADDR L01,L04 -> L03
GET_PROP_ADDR L00,L04 -> Gef
JZ Gef [TRUE] L0006
GET_PROP_LEN Gef -> Gef
L0006: STORE L07,Gef
JZ L02 [TRUE] L0009
JZ L03 [TRUE] L0009
GET_PROP_ADDR L01,L04 -> Gef
JZ Gef [TRUE] L0007
GET_PROP_LEN Gef -> Gef
L0007: PUSH Gef
JE L07,(SP)+ [FALSE] L0009
STORE L05,#00
L0008: JL L05,L07 [FALSE] L0009
LOADB L03,L05 -> -(SP)
STOREB L02,L05,(SP)+
INC L05
JUMP L0008
L0009: INC L04
JUMP L0005
L0010: GET_PROP_ADDR L00,#03 -> -(SP)
JZ (SP)+ [TRUE] L0011
GET_PROP_ADDR L01,#03 -> -(SP)
JZ (SP)+ [FALSE] L0012
L0011: RTRUE
L0012: GET_PROP L01,#03 -> L04
JUMP L0014
L0013: ADD L04,L07 -> -(SP)
ADD (SP)+,#03 -> L04
L0014: LOADW L04,#00 -> -(SP)
JZ (SP)+ [TRUE] L0020
LOADW L04,#00 -> L08
LOADB L04,#02 -> L07
GET_PROP L00,#03 -> L05
JUMP L0016
L0015: LOADB L05,#02 -> -(SP)
ADD L05,(SP)+ -> -(SP)
ADD (SP)+,#03 -> L05
L0016: LOADW L05,#00 -> -(SP)
JZ (SP)+ [TRUE] L0019
LOADW L05,#00 -> -(SP)
AND (SP)+,#7fff -> -(SP)
AND L08,#7fff -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0018
LOADB L05,#02 -> -(SP)
JE L07,(SP)+ [FALSE] L0018
STORE L06,#03
L0017: ADD L07,#03 -> -(SP)
JL L06,(SP)+ [FALSE] L0018
LOADB L04,L06 -> -(SP)
STOREB L05,L06,(SP)+
INC L06
JUMP L0017
L0018: JUMP L0015
L0019: JUMP L0013
L0020: RTRUE
Routine R0427, 5 locals
PRINT "
** Run-time error: "
JIN L01,"Class" [FALSE] L0001
PRINT "Class "
L0001: PRINT_OBJ L01
PRINT " (object number "
PRINT_NUM L01
PRINT ") "
JL L02,#00 [FALSE] L0002
PRINT "is not of class "
SUB #00,L02 -> -(SP)
CALL_2N R0107 ((SP)+)
JUMP L0004
L0002: PRINT " has no property "
CALL_2N R0419 (L02)
STORE L04,#0a8a
LOADW L04,#00 -> L03
JL L02,#00 [TRUE] L0003
JL L02,L03 [TRUE] L0004
L0003: PRINT " (and nor has any other object)"
L0004: PRINT " to "
PRINT_PADDR L00
PRINT " **
"
RTRUE
Routine R0428, 1 local
JZ L00 [TRUE] RFALSE
JL L00,#01 [TRUE] L0001
SUB #0140,#ff -> -(SP)
JG L00,(SP)+ [FALSE] RTRUE
L0001: CALL_VS R0429 (L00,S001) -> -(SP)
JL (SP)+,#00 [TRUE] L0002
RET #03
L0002: CALL_VS R0429 (L00,#0db1) -> -(SP)
JL (SP)+,#00 [TRUE] L0003
RET #02
L0003: RFALSE
Routine R0429, 4 locals
JE L00,L01 [FALSE] L0001
RFALSE
L0001: JL L00,#00 [FALSE] L0002
JL L01,#00 [TRUE] L0002
RTRUE
L0002: JL L00,#00 [TRUE] L0003
JL L01,#00 [FALSE] L0003
RET #ffff
L0003: AND L00,#7fff -> L02
AND L01,#7fff -> L03
JG L02,L03 [FALSE] L0004
RTRUE
L0004: RET #ffff
Routine R0430, 1 local
CALL_2S R0428 (L00) -> -(SP)
PULL Gef
JE Gef,#02 [FALSE] L0001
RET #03
L0001: JE Gef,#03 [FALSE] L0002
RET #04
L0002: JE Gef,#01 [FALSE] L0005
JIN L00,"Class" [TRUE] L0003
JG L00,#04 [TRUE] L0004
L0003: RTRUE
L0004: RET #02
L0005: RFALSE
Routine R0431, 4 locals
L0001: LOADB #00,L00 -> L02
JZ L02 [TRUE] L0006
AND L02,#80 -> -(SP)
JZ (SP)+ [TRUE] L0002
INC L00
LOADB #00,L00 -> -(SP)
AND (SP)+,#3f -> L03
JUMP L0004
L0002: AND L02,#40 -> -(SP)
JZ (SP)+ [TRUE] L0003
STORE L03,#02
JUMP L0004
L0003: STORE L03,#01
L0004: INC L00
AND L02,#3f -> -(SP)
JE (SP)+,L01 [FALSE] L0005
RET L00
L0005: ADD L00,L03 -> L00
JUMP L0001
L0006: JL L01,#00 [FALSE] L0007
ADD L00,#01 -> -(SP)
RET_POPPED
L0007: RFALSE
Routine R0432, 5 locals
STORE Gef,L01
JE Gef,#40 [FALSE] L0005
STORE Gef,#00
GET_CHILD L00 -> -(SP) [FALSE] L0002
L0001: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0001
L0002: PULL Gee
PUSH Gef
JG (SP)+,#01 [FALSE] RFALSE
GET_CHILD L00 -> L04 [FALSE] L0003
L0003: REMOVE_OBJ L04
CALL_VS R0424 (L04,#40) -> -(SP)
JZ (SP)+ [TRUE] L0004
CALL_VN R0421 (L04,#40)
L0004: RET L04
L0005: JE Gef,#41 [FALSE] L0009
CALL_VS R0425 (L02,L00) -> -(SP)
JZ (SP)+ [FALSE] L0006
SUB #00,L00 -> -(SP)
CALL_VN R0427 (S572,L02,(SP)+)
RFALSE
L0006: GET_CHILD L00 -> -(SP) [FALSE] L0007
L0007: CALL_VN R0426 (L02,(SP)+)
CALL_VS R0424 (L02,#40) -> -(SP)
JZ (SP)+ [TRUE] L0008
CALL_VN R0421 (L02,#40)
L0008: RFALSE
L0009: JE Gef,#42 [FALSE] L0013
CALL_VS R0425 (L02,L00) -> -(SP)
JZ (SP)+ [FALSE] L0010
SUB #00,L00 -> -(SP)
CALL_VN R0427 (S573,L02,(SP)+)
RFALSE
L0010: CALL_VS R0424 (L02,#42) -> -(SP)
JZ (SP)+ [TRUE] L0011
CALL_VN R0421 (L02,#42)
L0011: GET_CHILD L00 -> -(SP) [FALSE] L0012
L0012: CALL_VN R0426 (L02,(SP)+)
INSERT_OBJ L02,L00
RFALSE
L0013: JE Gef,#43 [FALSE] L0016
STORE Gef,#00
GET_CHILD L00 -> -(SP) [FALSE] L0015
L0014: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0014
L0015: PULL Gee
PUSH Gef
SUB (SP)+,#01 -> -(SP)
RET_POPPED
L0016: JE Gef,#44 [FALSE] L0019
CALL_VS R0425 (L02,L00) -> -(SP)
JZ (SP)+ [FALSE] L0017
SUB #00,L00 -> -(SP)
CALL_VN R0427 (S574,L02,(SP)+)
RFALSE
L0017: CALL_VS R0425 (L03,L00) -> -(SP)
JZ (SP)+ [FALSE] L0018
SUB #00,L00 -> -(SP)
CALL_VN R0427 (S575,L03,(SP)+)
RFALSE
L0018: CALL_VN R0426 (L02,L03)
RFALSE
L0019: RTRUE
[End of code]
[Start of text]
S001: "AISLE"
S002: "
An instant in the life of a man, by Sam Barlow.
Revision 3 / "
S003: "981213"
S004: "6/8"
S005: "a"
S006: "---"
S007: "the"
S008: "The "
S009: "the "
S010: "a "
S011: "The "
S012: "the "
S013: "an "
S014: "The "
S015: "the "
S016: "some "
S017: "The "
S018: "the "
S019: "some "
S020: "N = next subject"
S021: "P = previous"
S022: " Q = resume game"
S023: "Q = previous menu"
S024: "RETURN = read subject"
S025: "Score: "
S026: "Moves: "
S027: "Time: "
S028: "You can't go that way."
S029: "your former self"
S030: "yourself"
S031: "Darkness"
S032: "those things"
S033: "that"
S034: " or "
S035: "nothing"
S036: " is"
S037: " are"
S038: "is "
S039: "are "
S040: " and "
S041: "whom "
S042: "which "
S043: "(considering the first sixteen objects only)
"
S044: "
Would you like to RESTART, RESTORE a saved game"
S045: ", give the FULL score for that game"
S046: ", see some suggestions for AMUSING things to do"
S047: "[Your interpreter does not provide "undo". Sorry!]"
S048: ""Undo" failed. [Not all interpreters provide it.]"
S049: "Please give one of the answers above."
S050: "[You can't "undo" what hasn't been done!]"
S051: "[Can't "undo" twice in succession. Sorry!]"
S052: ""Oops" can only correct a single word."
S053: "It is pitch dark, and you can't see a thing."
S054: "To repeat a command like "frog, jump", just say "again", not "frog,
again"."
S055: "You seem to want to talk to someone, but I can't see whom."
S056: "To talk to someone, try "someone, hello" or some such."
S057: "I didn't understand that sentence."
S058: "I only understood you as far as wanting to "
S059: "You seem to have said too little!"
S060: "You can't use multiple objects with that verb."
S061: "You can only use multiple objects once on a line."
S062: "You excepted something not included anyway!"
S063: "You can only do that to something animate."
S064: "That's not something you need to refer to in the course of this game."
S065: "I didn't understand the way that finished."
S066: "Sorry, you can only have one item here. Which exactly?"
S067: "(Since something dramatic has happened, your list of commands has been
cut short.)"
S068: " (closed, empty and providing light)"
S069: "no pronouns are known to the game."
S070: "Are you sure you want to restart? "
S071: "The game file has verified as intact."
S072: "The game file did not verify as intact, and may be corrupt."
S073: "Attempt to begin transcript failed."
S074: "Attempt to end transcript failed."
S075: "You're carrying too many things already."
S076: "You can't put something on top of itself."
S077: "You can't put something inside itself."
S078: "That would scarcely empty anything."
S079: " for a while, but don't achieve much."
S080: "You can only get into something freestanding."
S081: "But you aren't in anything at the moment."
S082: "You'll have to say which compass direction to go in."
S083: " is now in its normal "brief" printing mode, which gives long
descriptions of places never before visited and short descriptions otherwise."
S084: " is now in its "verbose" mode, which always gives long descriptions of
locations (even if you've been there before)."
S085: " is now in its "superbrief" mode, which always gives short descriptions
of locations (even if you haven't been there before)."
S086: "Darkness, noun. An absence of light to see by."
S087: "seem to be something you can unlock."
S088: "seem to be something you can lock."
S089: "This dangerous act would achieve little."
S090: "Nothing practical results from your prayer."
S091: "The dreadful truth is, this is not a dream."
S092: "Digging would achieve nothing here."
S093: "You jump on the spot, fruitlessly."
S094: "You would achieve nothing by this."
S095: "There's nothing suitable to drink here."
S096: "But there's no water here to carry."
S097: "Real adventurers do not use such language."
S098: "Violence isn't the answer to this one."
S099: "There's not enough water to swim in."
S100: "There's nothing sensible to swing here."
S101: "That would be less than courteous."
S102: "Is that the best you can think of?"
S103: "You lack the nerve when it comes to the crucial moment."
S104: "I don't think much is to be achieved by that."
S105: "You aren't feeling especially drowsy."
S106: "You discover nothing of interest in "
S107: "You cannot undo what has already been done."
S108: "[Gluing in inference with pattern code "
S109: "There won't be much to find there."
S110: "You don't want to ask her to do that."
S111: "I don't see the point of waving at "
S112: "I don't see the point in blowing things."
S113: "I don't think there will be anything special under "
S114: "There is nothing you want to ask about that."
S115: "There is nothing you could really ask about that."
S116: "There is nothing you want to say about that."
S117: "There is nothing you could really say about that."
S118: "I can't see why you would try to drink "
S119: "I can't see why you would want to eat "
S120: "There seems little point in attacking that."
S121: "something"
S122: "You can't use 'all' in this game. Refer to individual items."
S123: "Sorry, that verb is not implemented."
S124: "It's unlikely you'll get an answer."
S125: "You can't see anything like that."
S126: "I'm not sure what you are talking about."
S127: "No. You don't want to steal anything."
S128: "You push the trolley off and glide toward the brunette. As you pass you
narrow your gaze and spit at her. "Whore!" (under your breath). She looks down
at her dress then looks up at you, "I don't understand." You snarl, "'Course
you don't understand, whore." You push off again. Lord protect you from the
whores and the adulterers!"
S129: "You don't see any reason to spit at "
S130: "The Muzak informing your movements you waltz on over to the brunette,
your hips rocking to the soulful sounds... As you approach you allow your legs
to pick out a jaunty rhythm from the music and strut. "Fancy a dance?" sounds
like a reasonable question as it leaves your lips. But from the look on her
face you'd have thought you asked for something a lot more, well, naughty. She
furrows her brow, "I'm sorry?" You wiggle your hips, "Come on--a dance? Shake
your bones--"
Whoops. That doesn't mean to dance does it? I think you just alluded to the
naughtiness you didn't intend... perhaps that was your intention all along...
and she saw through you. Damn. Why do women always get that five minutes head
start on you? You grab her hand and with a goodbye kiss to her knuckles you
depart, "Ciao!""
S131: "Sometimes you like to hide. But there's nowhere to hide here."
S132: "You couldn't hide in the shelves."
S133: "You'll have to be more specific; who is being introduced to who?"
S134: "You'll have to say who you want to introduce "
S135: "I'm not sure you could introduce "
S136: "You can't introduce her to herself."
S137: "You certainly don't want to kiss that."
S138: "You have no desire to whistle at yourself."
S139: "You pick up a bag of gnocchi and turn it over. The doughy balls weigh
heavily in your hands and tiredness seeps up your spine, casting a blanket over
your brain. Your eyelids sink and your head lolls. It's time for sleep.
In the grey dusk twilight between sleep and consciousness images float across
your eyes; gnocchi, women, a woman, statues, a slow motion crash of flesh on
scooter. Your head jumps with a start. The veil is lifted. You're hunched over
your trolley in the supermarket aisle, your cheek hot where it has been resting
on your arm.
You really need to get some sleep but it's so hard to sleep with the dreams
(the doctor said it would help to call them 'dreams' not 'nightmares')."
S140: "Day dreaming. It's like that thing about the butterfly--you know, the
man dreams about being a butterfly, but is he a man dreaming of being a
butterfly or a butterfly dreaming about being a man dreaming about a butterfly?
You spend some much time dreaming, more than not in fact. So, as I'm sure you
realise, the fact that you are dreaming now is not strange. And what are you
dreaming?
"
S141: "You're in a supermarket and the girl turns round and it's Clare and you
show her some gnocchi and then you eat it and live happily ever after."
S142: "
Pretty shit, yeah? But no-one said your dreams had to be works of art."
S143: "You're tired of playing around with girls, getting tired of casual sex.
Maybe time to settle down?
You were going to settle down all that time ago (four years now?) with Clare.
Even had the ring. So the key this time is to be careful who you choose--and
anyway, last time you were too young. Now you have experience on your side.
You've always thought that there is no point putting in unnecessary effort, and
right in front of you is a beautiful woman--mature, sophisticated and
intelligent. Leaving the gnocchi you walk over and drop to a knee. "Will you
marry me?"
She looks down, laughing, "What?". You repeat yourself, "Marry me."
Now she looks confused, "Get away!" Again you repeat "Marry me."
She looks less amused now, "Piss off."
You're not stubborn and you know when you're beat. So you stand up and walk
back towards your trolley. You spend about twenty minutes finishing the
shopping and wheel up to the checkout. The woman at the checkout beeps all the
goods through. She looks up with a smile and asks whether you have a store
card. In response you drop to a knee (your face almost disappearing behind the
sill of the counter) "Will you marry me?""
S144: "You look in the direction of the brunette (consciously open your eyes
wider) and smile. She's looking the other way and doesn't see, but that's not
the point. It's just a way of getting it out of your system. Now you can go
home and truthfully say, "Clare I love only you. I fancy no other woman." After
you get the shopping done..."
S145: "The gnocchi pulls out all those happy holiday Rome memories. It almost
feels sunny. So you smile.
Clare is at your shoulder with a pack of biscuits and some chocolate, "Why the
big smile?" She sees the brunette at the end of aisle, ""
S146: "Oh"
S147: " I see..." and slaps your wrist playfully. You roll your eyes, "I was
remembering Rome actually." She rolls her eyes, "Really, you're such an old
romantic...""
S148: "Foam gurgles on the edges of your lips as you cease to monitor their
output,
"Gnocchi"
S149: "Oh!Oh!"
S150: "hide"
S151: "je t'aime"
S152: "ill"
S153: "no"
S154: "cchignocchi
gnocchi
gnocchignocchiWhe"
S155: "rear"
S156: "sin"
S157: "aNEARthy...paradiseOH! Claregnochignochignoggign"
S158: "ok"
S159: "kkkkkkkkkkeeeee!
gnocchigibber
gnocchish. G'night!"
You bow out without a fight--the right thing to do; just like she would have
wanted--if only--right? But the train doesn't stop in time. Always comes back
to the potato. He smiles, "Gnog Gnog Gnoch pot pot.""
S160: "The gnocchi sits smugly on the shelves. The brunette is either:
"
S161: "(a)"
S162: "(b)"
S163: " a friend of Clare's, intent on revenge,
or,
"
S164: "(c)"
S165: " your mother, in disguise.
You slowly start to back away, keeping your eyes on her. As you clear the end
of the aisle, she turns, reaching into her jacket. You dive across the end of
the aisle, scrambling to your feet and running towards the exits. You get to
the doors, wait. After what seems like an age the automatic sensors concede and
the doors slide open. You emerge into the car park. "
S166: "Shit"
S167: "cars"
S168: "--they must have known you were here. You can't escape now.
You fall to your knees, a trolley-parker approaching--why are they being so
blatant? They're normally so clever. They must know they have won.
Sweating in your skull, your brain decides that the best way to calm you down
is to deny you consciousness. The world fades, blurry and greasy, the parker
speaks--threatening code-speak--"Sir, are you OK?""
S169: "In a few years time, at your engagement party, she will describe your
actions today as "mad, impulsive and so "
S170: "you"
S171: "". However that's not necessarily accurate. "
S172: "You"
S173: " haven't been impulsive for a long time--not since the breakup with
Clare and the Rome business.
Well, it's about time you started being yourself again. And the perfect way to
start? You walk up to the brunette, "Do you fancy going for a drink after
this?""
S174: "win"
S175: "Taking everything from your pockets you crouch down and line up your
possessions on the floor:
Wallet: coins, bank card, store card, bookclub card, "
S176: "photo"
S177: "--
Each object, representing something else, is like a word. The
inventory-sentence ends and begins with that photo. An attempt to possess Clare
in her image, to hold her and to contain her. You rearrange the coins in a
circle around the photo, a makeshift frame. "
S178: "A photo of Clare"
S179: ". If only you could lose those first few words: Clare. Then you could
hold Clare, possess Clare. She would be yours...
With a furtive glance you scoop up your things and return them to your pockets.
The photo burns a hole in your pocket, through your heart and to the centre of
your universe."
S180: "Forget it"
S181: ". Easy to say. Not as easy to do. Like cleaning shit from your shoes
it's a nasty business but, eventually, it's gone. Like a weight off your
shoulders, a clean slate, etc. You feel much better. Can't even remember what
it was that was bothering you. Shopping--now that you do remember.
The squeak of the rubber wheels as you push off and continue shopping, that's
all you remember."
S182: "I don't see why you'd want to push the trolley towards that."
S183: "Staring at the gnocchi you feel a memory slowly, awkwardly, awfully rise
to the surface.
--The scooter driver looks surprised. You grab for Clare and jump to the
side--bounce across the road, scrape your head--
Scuffed and light headed you open your eyes... your hands are empty--Clare is a
few metres away, lying awkwardly. Splattered with a thin red liquid, reflecting
the scooter's bright red paintwork.
The scooter skids--you jump. You are in the supermarket. Your hands are empty,
sweaty."
S184: "Sorry, that verb is not implemented."
S185: "You'll have to say what you want to think about."
S186: "You'll have to say what you want to remember."
S187: "That verb isn't implemented here."
S188: "That verb isn't implemented here."
S189: "No questions please, only actions. Actions, in turn, will give you
answers."
S190: "Your brow becomes furrowed, sporting a frown. You don't like it when you
are forced to think about Rome, and more specifically Clare. She seems to be
getting along with it--she's been with her new boyfriend for ages now (you
can't stand him) and she seems fine talking to you. But you would much rather
just, well, not keep in touch. It just keeps the wounds open...
The frown follows you around for the rest of the shop (you feel sorry for the
checkout girl--she gets a particularly severe look, no fault of her own) and
spend the rest of the evening in a really dissatisfied mood."
S191: "You exhale breath as you sigh... Rome was so long ago. Everything has
changed now. But you've come to terms with it--change is what life is about and
you're both still friends. You even half-like her new boyfriend. And you still
have the memories--a god awful cliche I know, but you've even come to half-like
cliches.
You continue with your shopping, a feeling of cheerful complacency following
you around the store."
S192: "Dance? You put a spring into your step and hop to the slow swing of the
Muzak. You're in a surprisingly jovial mood... But you do stop yourself before
you make a scene... Thinking back it was probably her, Clare, who made you care
less what people think--I mean what is wrong with a little dance if you feel
like it? That's one of the things you'll remember her for."
S193: "You allow yourself a laugh--memories of holiday float up and tickle your
cheeks. The two guitarists singing in pigeon-English by your table as you
finished off your gnocchi. Clare thought they were quite good. But, for you,
they were too close to embarrassing. And the bric-a-brac sellers with their
lighters (naked statues--you push the nipple to light up) and brass colloseums.
Not like in the films, really--but then real romance often isn't, right? I
mean, there was the evening when you ate on the street where they filmed the
Dolce Vita. You spent the meal being distracted by a beggar who was doing a
mime-swim across the pavement. Real romance makes you laugh."
S194: "I don't think it's going anywhere, so you can't really follow it."
S195: "I can't see why you would jump on "
S196: "You speak. Funny how talking to yourself seems like the right thing to
do when you are in public.
But when you get home you know that it won't be enough. You'll want
company--companionship. A companion. But you can't buy those in the shops.
You buy what you can and take it home."
S197: "Sing a sad song... You start off singing softly to yourself; what must
appear to be but a mumble to the other shoppers. But then you slowly get louder
and louder until everyone in the shop is glancing nervously at you. It seems
the more you sing the more uncomfortable everyone gets. You stop, chuckle. Then
continue with your shopping; the aisles seem more empty somehow."
S198: "There is no point showing things to "
S199: "You look at the gnocchi. Off white; hint of yellow. Dusted with flour.
You resent the way it has forced you to "
S200: "nearly"
S201: " remember. But not quite. "Fuck--shit--fuck-", you can stop yourself
remembering if you want to, "fuck--shit--fuck--shit".
Red in the face you push past the gnocchi, swinging the trolley round the
corner of the aisle, "Fucking shit.""
S202: "Years of loneliness condense into the innocent, floury white buds of
gnocchi. Your knees weaken and you drop to the floor, salty tears running in
streams down your face and dripping off your chin.
When the tears abate, you get to your feet. You've come to realise that there
will always be tears."
S203: "You've prayed before--to no avail. But again you drop to one knee and
close your eyes.
"Please God. Please God. Please God. Please.."
You stop--you know there is no point. You have sinned. You have been sinned
against. It is too late. Best just go home and await judgement. Which you do."
S204: "I can't see why you would want to talk about that."
S205: "An awful image; a fragmented collage of a beautiful restaurant,
outdoors, the Pantheon and a dreadful blood soaked smile. No not a smile; a
plea. You expel the memory in one painful scream.
Shoppers walk by uneasily, eyes locked away from you as you walk out into the
night... you hope the night will be more kind."
S206: "The gnocchi balloons in your mind, opening up memories of Rome;
scooters, wine, bread, water, plazas, stone, buildings, heat. There are some
other things too. But you block them out with a harsh scream as you hurl
expletive after expletive at "
S207: ".
When you are quite finished, you slowly walk out of the supermarket to your
car, the other shoppers keeping their distance. You drive home, feeling
better."
S208: "An awful image; a fragmented collage of a beautiful restaurant,
outdoors, the Pantheon and a dreadful blood soaked smile. No not a smile; a
plea. You expel the memory in one painful shout.
Shoppers walk by uneasily, eyes locked away from you as you walk out into the
night... you hope the night will be more kind."
S209: "I can't see the point in chucking that about."
S210: "I can't see why you would want to eat that."
S211: "I can't see why you would want to listen to that."
S212: "I can't see why you would want to smell that."
S213: "You pause, the gnocchi still in your view. Rome. Rome. "When in Rome..."
Clare.
You slowly let an image form in your mind; the metro, busy--packed with
Italians and "
S214: "heat"
S215: ". Sweaty, close heat. And her hand in yours--hot, sweaty and easy to
hold. The train slows,
"
S216: ""Termini. Termini.""
S217: "
Termini station; the end of the line. The train slowly pulls into the station.
You slowly begin to push your trolley to the next aisle."
S218: "on "
S219: "Maybe years ago when things were more about "
S220: "fun"
S221: " and were less real. You've come too far to go back."
S222: "My competition game, "The City", has its Save and Restore verbs
disabled. Many people disliked this feature. A response to this, "
S223: "Aisle"
S224: ", started out as a game which would not need the usual meta-verbs...
i.e. a game with only one turn. The initial idea was: How do I make a game with
only one turn interesting? Give it lots of endings--in fact there are many
'endings' and (hopefully) every sensible action results in an 'ending'. There
is no winning action. There is however more going on than just this and the
more endings you see the more things should become clear. Please try any action
you think of, there are far more verbs, etc. than usual for a single scene in a
piece of IF. If you're not sure what the game is about, read the frontispiece
again--it should set you straight.
Enjoy, Sam."
S225: "[Some of the information generated by Help, Author and Credits will give
a few clues about the game. You might want to play around a bit before you read
it]."
S226: "Sorry, I cannot help you. For version and release information type ""
S227: "version"
S228: "" and for the author's statement, type ""
S229: "author"
S230: "". And for credit where credit is due, type ""
S231: "credits"
S232: "".
Actually, there is help of a sort: I will upload a list of all actions
anticipated by the game to ftp.gmd.de. But you should only look at them after
you've got as much out of Aisle as you can yourself. Otherwise the point of the
game will be rather lost."
S233: " - A I S L E - "
S234: " "
S235: " Dedicated to Clare * "
S236: " "
S237: " Written by: Sam Barlow "
S238: "Stephen Granade"
S239: " for his initial comments and ideas. Then a huge thanks to my testers,
all superb men and women. They are: "
S240: "Markku Yli-Pentila"
S241: "Joseph Fatula"
S242: "Daphne Brinkerhoff"
S243: "Nathan Segerlind"
S244: "Bonnie Montgomery"
S245: "Johanna Pink"
S246: "Paul David Doherty"
S247: "Ross Presser"
S248: "Lutz van Hasselt"
S249: "Will Jennings"
S250: ". I owe them a great debt of thanks for turning Aisle into what I had
imagined it could be, rather than the pale imitation called the "beta-version".
The Baudelaire quote is from James McGowan's translation of 'La Chevelure' in
the Oxford University Press edition of The Flowers of Evil (points for spotting
the less direct Baudelaire references). And any list of thanks wouldn't be
complete without a big cheers to "
S251: "Graham Nelson"
S252: " for the Inform compiler.
For bugs, suggestions, praise, criticism, etc. my current e-mail is
(sam.barlow@talk21.com). If this doesn't work, your best bet is to look for my
last "
S253: "rec.games.int-fiction"
S254: " posting.
* Who is, in real life, alive and well."
S255: "There is nothing specific to remember about that."
S256: "A sharp sniff and you smell nothing out of the ordinary. A slight
remnant of mint from your shower gel. The fresh alcohol of your aftershave.
Some spice; your deodorant. An earthy, papery smell from your damp shirt (it's
raining outside).
In other words, you smell like you always do. Maybe more so, enhanced by the
sterilised smell of the supermarket. Though--"
S257: "wait"
S258: "--there is something else, a faint hint of something exotic entwined
with your odour. Carefully, you unravel it and trace it to the brunette. The
sweet smell of a fine fragrance; enough to raise your spirits, distract you
from the matters at hand and make your day."
S259: "After all that work to forget about Clare (which in turn means forget
about Rome, forget about the gnocchi you ate for your last meal together, etc.)
you've let your guard down. Hell, you shouldn't even need a guard any more. The
supermarket gnocchi has slipped into your head and got you thinking about stuff
that never really happened. Your fault. No point blaming anyone. "
S260: "Damn"
S261: ". Facing your reflection in the metal shelves, you reprimand yourself:
"You stupid fucking idiot!" You turn on a heel and storm out of the supermarket
red-faced and still shouting at yourself, "You stupid, stupid idiot!" The
shouts break into tears and as they begin to run the heavens open, soaking you
and drowning out your words."
S262: "Not that you have many other avenues for "
S263: "relief"
S264: "Listen to yourself"
S265: " That's what she said that night. ""
S266: "Listen to yourself"
S267: "." Well you're listening now and everything sounds "
S268: "fine"
S269: ". Much better in fact. You toss a bag of gnocchi in the trolley and
trundle on."
S270: "You don't need a mirror to know what you look like. Old. "Old beyond
your years", as they say. Old. Old and lonely. You look lonely--you are lonely.
You are well dressed but people think you are a tramp. You feel like a tramp.
Ever since Clare left you... without word... in Rome.
You leave your trolley and walk to the exit. Then drive home."
S271: "You look at the gnocchi--Looks the same as the gnocchi that you and
Clare had the night before she left you. Rome; the most romantic city in the
world and she left you "
S272: "there"
S273: ". Why? Who? Why? You ask yourself the questions with your fists. You
tear out your hair and punch your face. You run out of the store and drive
home.
Later you lie in bed, questions tattooed across your body in bruises--no
answers, just pain."
S274: "You can't offer an invitation to yourself."
S275: "Yourself"
S276: "The aisle stretches to the north, and back to the south. The shelves on
either side of you block your view of the rest of the supermarket, with only
the brightly coloured aisle markers visible.
You have stopped your trolley next to the pasta section, bright plastic bags
full of pale skin-tone shapes."
S277: "Nope--Gnocchi is not on the list. You push the trolley forwards, moving
round the brunette and continue your shop."
S278: "Nope--Gnocchi is not on the list. You turn the trolley round and head
back to the previous aisle. You're sure you forgot something?
Whatever it was you can't remember and you scoot back to the pasta aisle. The
brunette has gone and the aisle is empty. You grab some cheap pasta and carry
on shopping."
S279: "You'll have to be more specific about what you want to enter."
S280: "The shelves are in the way."
S281: "You cannot fly."
S282: "You stand and listen; just the sounds of a supermarket. Trolleys,
packets, boxes, people shuffling. And the "
S283: "beep beep"
S284: " of cash registers.
You've heard it all before, nothing to worry about. You continue with your
shopping and drive home."
S285: "You stand and draw in air through your nose. Cleanliness, suggestions of
spice drifting in from somewhere. And a hint of perfume hanging in the air. Is
the perfume with you? Is it a reminder of what was here? A taster for what is
to come?
Or is it just here to taunt, with its promises of intimacy and sex?
You exhale and move on."
S286: "Sorry. You can't use your possessions directly."
S287: "You're already wearing the clothes."
S288: "Now what she doesn't realise (and a lot of people don't realise this) is
that you look bloody good for your age. Anyone can look good in a shirt and
trousers. But you actually look "
S289: "good"
S290: ". Especially for your age. You pull your jumper over your head and throw
it to the floor. A few tugs and your shirt crumples around your feet. You kick
off your shoes and bend down to remove your socks. You look up to see the
brunette, shocked and intrigued. With a deft flick your belt snakes out of the
hooks on your trousers. Your trousers fall and you stand, pink and hairy in the
middle of the aisle. The brunette puts a hand to her mouth.
You take a hand to your balls, cupping them and displaying your penis. "Pretty
good, eh? For my age?" You perform a little twirl, "You wouldn't give up on
this would you?" The squeak of shoes behind you makes you turn to see several
security guards coming at you from the direction of the checkouts. You stand
your ground. As the men circle you they grab you reluctantly, careful where to
put their hands. One of them scoops your clothes up and forces you into your
trousers. "Stupid old perv," offers the fattest of the guards, avoiding your
eyes. They drag you to the front of the shop (the police are on the way, you
are informed). As they take you past the queues at the checkout you turn to
confront your audience, "You want some? You all do!" Catching a glimpse of your
reflection in the automatic doors you smile--you'll never lose your smile."
S291: "You lean round the end of the aisle, "Clare?" Again, louder: "Clare?"
She walks into the aisle, "Yeah?" You take her hand and walk her along to the
gnocchi, "Look, gnocchi, like in Rome--I've never seen it in the shops before."
She picks up a packet and drops it in the trolley. "Get some for tea then?" she
offers, pecking you on the lips.
You have some for tea and it's like Rome, except: it's colder, you have work
tomorrow and you're "
S292: "even more in love"
S293: "You scoot round the corner of the aisle. Sure enough there she is,
looking through the magazines. You pull up behind her and slide and arm round
her waist. She laughs, "Get off! We're in public." You pull out a packet of
gnocchi from behind your back, "Look what I found." She smiles, "Gnocchi? Like
in Rome. How sweet!" Then she starts to walk off, "Come on, we've got to be out
at eight and we've still all the shopping to get done, and tea to cook!"
You turn the trolley and catch up with her."
S294: "Clare.
You stare at the Gnocchi and it opens up to you; years ago, a holiday to Rome
(a romantic holiday). Two lovers (young)--yourself and Clare. Culture, food,
sun. Then "
S295: "something"
S296: " happened. And Clare was gone.
You had thought it best not to remember but perhaps remembering is good.
You forget the shopping and go home, to think."
S297: "You can't see your home from here."
S298: "You can't see your home from here."
S299: "The wine aisle is further on and you'll get to it when you've finished
here."
S300: "Each aisle has its marker, hanging above it on a long rail. You look at
the sections; dairy, bread, meat, fish, sweets, alcohol, toiletries, frozen.
Hard to decide which aisle you belong in. Before you met Clare you were meat.
Raw, unfocused, a bit simple. With her you were promoted to a more civilised
taste; sweets, alcohol. You were intoxicated, she was sweet. Meat was always
wrapped in a puff pastry, or swamped in a pasta sauce. Never crude, raw,
bloody... Now--well, now you're back to meat again. Except this time, you're
frozen. If someone hit you hard enough you'd smash into hundreds of icy
pieces."
S301: "I can't see why you'd want to attack the markers."
S302: "You could do that. But you don't want to."
S303: "There is a brunette woman a few metres ahead, filling her trolley with
sauces."
S304: "Balancing your fingertips on your bottom lip you blow; you whistle--"
S305: "Pwwiiiiiitt Phoooooo"
S306: "--The brunette turns, a red flush colouring her white face. Seeing you
she lowers her head and turns back to the shelves.
A second whistle is ignored (though her slight jump shows she hears you).
On the third she pushes her trolley around the corner of the aisle and
disappears from view.
Bitch. You whistle again. Wrong type of bitch--this one doesn't come running at
the sound of your whistle, not like the last one--Come here girl! Sit! Roll
over! "
S307: "Play dead"
S308: "she"
S309: "If she would come over then you could chat and get to know each
other--hey come over, baby. You wave enthusiastically. She doesn't acknowledge
your wave; either she hasn't seen you or she doesn't want to see you. More
waving, this time with both hands. "Hey! Over here!" Now she "
S310: "must"
S311: " be ignoring you, and she's doing a damn good job of it. One last,
desperate wave... no, she's gone.
You've been here before, haven't you?
A cool breeze whips droplets up off the waves and wets the air. The river
Tiber. You had assumed that the Tiber would be to Rome what the Seine was
Paris; the perfect place for a romantic stroll. The reality is a grafitti'd,
dirty stink. A green, thick streak through the city. The evening was going
badly as it was, after the argument at the restaurant, and this fetid river has
only made it worse. Clare is walking ahead of you, defiant strides putting
distance between you. You wave, "Come back...."
S312: "wait"
S313: "..."
One last, desparate wave... no, she's gone.
"
S314: "She's not going anywhere right this second."
S315: "She's not making much noise at the moment."
S316: "Look at her--she's ridiculous. She's--what--thirty? Forty? Old, anyhow.
Yet look at how she's dressed... and the way she's spending so much time
choosing a pasta sauce; does she think she looks cultured? She's not even much
of a looker. Pretty funny actually. You laugh, loud--and so she know's it's her
you're laughing at. Soon enough she totters off to the next aisle, red faced.
Ha! Ha! "
S317: "People are so funny."
S318: "You stand by the gnocchi until she starts to move off. Then you walk in
step with her, cornering the aisle a few metres behind her. She stops to put
something in her trolley, and you pull up across the aisle. This goes on for a
few minutes.
You come to a point where you are straddling the line between following an
attractive woman and stalking one. You decide to stop, and recommence your
shopping.
What made you follow her in the first place--sure she's attractive, but...
Maybe there was something about her that rang a few bells. A dulled romance in
the far reaches of your mind, reawakened, reborn in a stranger? Best forgotten,
eh?"
S319: "You stand by the gnocchi until she starts to move off. Then you walk in
step with her, cornering the aisle a few metres behind her. She stops to put
something in her trolley, and you pull up across the aisle. This goes on for a
few minutes.
As she leaves the supermarket, you race to your car and get it started. Then
you pull out of the car park, behind her. She doesn't seem to notice that she
has you in tow, and drives all the way home. You wait until she has unpacked,
then park up across the road.
You pad up to the side of her house, and look through a side window. You can
see her preparing a meal in a small, homely kitchen.
You wake the next day, shivering with cold, leant against the fence near the
window. A snail has crawled up your leg leaving a thin trail of slime. You
brush it off and stand up, your frozen joints cracking reluctantly. Her car
isn't there, and the house looks empty. You walk back to your car and drive
home. You never have the guts to actually go inside--you're always left
dawdling on the outside and watching. Maybe someday, somewhere you'll go inside
and do something. But I think your more of a watcher than a doer."
S320: " and watch it trail through the air, bouncing awkwardly off the
brunette. Caught unawares, she drops the jar she is holding which shatters on
the floor, leaving a puddle of grainy red. She stares, red-faced, in disbelief.
You hear the soft crunch of leather boots behind you and turn to face a
middle-aged security guard. You feint to the left then run to the right, out of
the exit and to your car. As you pull away with a badly clutched roar, you
shout out of the window "She had it coming--bitch!""
S321: "Something about the way she stands pisses you off; she is so insolent.
The gnocchi whispers in your ear, "Remember what happened last time? Prevention
is always better than cure." You walk up and take a jar from the shelf. The
brunette ignores you. You throw the jar.
It glances off her with a glass-bone-skin sort of crack, and she falls to the
floor limply. You look over her; sauce runs down her face. No; not just
sauce--a thin stream of blood is entwined in the onion and tomato. You start to
run towards the exit, but just before you get there you feel the air knocked
out of you as a heavy thump knocks you from the side and you are tackled to the
ground.
This time the judge rules in society's best interest rather than in yours."
S322: "You pull the trolley back a few inches then run it forward, releasing
your hands and watching it whirr towards the woman. She stands oblivious to the
trolley.
At the last moment it curls to the left and impacts with the shelves, sliding
into the women's calf. She lets out a yelp and jumps back, falling to the
floor. Jars of sauce cascade down from the shelves, littering the aisle with
glassy, red splotches.
The woman gets to her feet, her hand going to her leg which is bleeding. Kind
of reminds you of something, but you don't feel guilty! Uh-uh. You run out to
the exit, dodging past the overweight security guard, and jump into your car.
Hitting the gas you squeal out into the night, a faint remembrance sliding in
through the window "Shame she had to "
S323: "bleed so much"
S324: ", but that's what happens when you take liberties..""
S325: "You stare at the woman. She is about your height, maybe even a little
taller. And beautiful too, with superb hair. Strange; you haven't thought that
about a woman for a while. Not since Rome.
You continue to stare at her. You wonder if she is called Clare.
Then she moves on to the next aisle. You grab a bag of pasta--penne--and carry
on with your shopping."
S326: "You walk over. "Hi. You trying to choose a sauce?" She looks at you and
pauses, "Um. Yeah I'm just looking." You reach down a random jar and pass it to
her, "This is a great sauce." She smiles politely, "Thanks," and quickly moves
on to the next aisle.
You feel a bit stupid. Why is it that none of them understand you like she
did?"
S327: "You look at the brunette. She is wavering over the various sauces on
offer. You don't want her here; you don't want her sharing in your memories.
You want to be alone.
You scream ""
S328: "Will you please leave me alone! Fuck off!"
S329: "" She looks shocked and scurries round to the next aisle. You breath in.
"
S330: "Alone"
S331: "...
A security guard in cheap blue uniform approaches from behind, "I think you
ought to leave." You don't disagree--there is nothing here for you.
"I don't even like your food!" you spit as the exit doors slide open for you."
S332: "You draw alongside the woman and inhale. She is draped in a perfume that
combines fruit, alcohol and spice. You let the scent fall slowly down your
throat, and allow yourself to wonder what the rest of the brunette smells like.
But you really aren't the type of person who could find out and so you trot
back to your trolley and continue with your shop."
S333: "You pick up the gnocchi and walk over to the brunette. "Look...
gnocchi!" She looks bemused, a little embarrassed. "We had gnocchi on our last
night together." She smiles, blushing, and moves her trolley to the next aisle.
Perhaps you were too forward. Perhaps you missed your chance all those years
ago. It is all so "
S334: "difficult"
S335: "I can't see the point of showing that to her."
S336: "You scoop a packet of gnocchi off the shelves and run over to the
brunette. "Hi. Take this!", you chuck the gnocchi into her trolley. She
squeaks, "What? Sorry, I don't want any, thanks." She takes it out and passes
it back to you.
""
S337: "No"
S338: "No"
S339: ". Take it--" You put the gnocchi back in her trolley. She looks
exasperated, "No, please--I don't want it. Thanks." Well, what can you say? You
can take a horse to water, but you can't make it drink. You take the gnocchi
and pad back to your trolley, shouting back "It tastes really nice--" You stop;
she's gone.
You take the gnocchi for yourself and finish shopping. When you get back home
(traffic is awful) you put on the hob and start boiling the water. You chuck
the gnocchi into the pan and walk into the lounge. Flicking on the TV you sit
down and start watching the news.
You wake up, lips moist with dribble, and a numb arm where you slept on it. You
jump up and run into the kitchen. Aw, shit. The pan has boiled dry, and the
gnocchi is smoking. You sprint to the window and try to lift it open, but too
late--the smoke alarm sounds: "
S340: "Beeeee-eeee-eeeee-eeee-eee-eeee"
S341: ".
Later on you sit in the lounge again, a plate of burnt gnocchi in your lap. You
stab a small fluffy (blackened) bud and swallow it. "
S342: "Yum"
S343: "You push the trolley alongside the brunette's. Tapping her shoulder you
ask, "Hi. Could you just watch this for me? I won't be a minute." You take her
silence for a yes, "Thanks. Won't be a minute," and run off in the direction of
the toilets.
You push open the door to a cubicle and walk in. Sliding the door bolt you sit
on the toilet (cover down) and pull out your wallet. Flipping out the leather
folds you find the snapshot. A photo, passport size, of you and Clare. Some
digital trickery has been employed to superimpose you on a postcard picture of
the Colosseum. You are both beaming, your faces squashed together to fit in the
frame. You place a shaky hand on the cubicle walls to steady yourself as your
body convulses with sobs.
The roar of the flush announces your departure. You're not sure how long you
were in there, but it was probably a while. The brunette has abandoned the
trolley, it sits in the aisle alone. It looks very dark outside. An announcer
cuts across the silence,
"
S344: ""This store closes in five minutes. Please proceed to the checkouts.""
S345: "
Fist clenched around the photo, eyes salty and sore, you proceed."
S346: "I'm not sure what you're talking about."
S347: "I can't see what you want to say about that."
S348: "You run over to her and throw a punch which knocks her into the shelves.
Jars fall and splatter grainy red sauces across the aisle. Shit. You run
out--out to the car and drive--drive home. When you park up, you find that you
are holding the gnocchi from the supermarket.
What was it about the gnocchi? You can't remember (I don't think you want to
remember). You feel ashamed, stupid and old."
S349: "You walk briskly up to the brunette. As you lean over her she turns and
gives a puzzled look. You force your mouth onto hers and reach out hotly for
her. She pushes you off--you slip to the floor and she runs to the checkouts. A
bulky security man pulls you to your feet and escorts you from the store.
Falling to the pavement outside, you stop yourself with outstretched hand,
landing near a dirty puddle left by the recent rain. Your old old face stares
up at you--how long was it since you kissed those lips? How long since you
kissed? Too long? Too late."
S350: "You sidle on over.
"You look tired." She glances over her shoulder, "Pardon?"
"Sorry--didn't mean to be rude. I just thought you were looking tired--had a
hard day?" She smiles, "I'd love to say no, but you're right--I've had a
stinker of a day", again she smiles, "and now I'm being chatted up by a loon in
the supermarket. When all I want to do is get home and put my feet up." You
give a mock look of upset, "I'm no loon!.. Put your feet up you say? Well, four
feet are better than two--"
She interrupts, "I'm going to have to stop you there, Mr. Supermarket smooth.
You're a nice guy--well I don't know, but you seem nice--so I don't want to
disappoint you. I'm not into men so much, you know?" You shrug, "...I could
watch?" She groans and rolls her eyes to the heavens. You turn, taking a coin
from your pocket and tossing it. For every tail there's a head. It's just a
matter of numbers, and yours will be up soon. Till then just keep on trying..."
S351: "You stroll over to the woman, "Of all the types, which is your
favourite?" She looks up, puzzled, "Sorry?" You smile, "Pasta--which is your
favourite type of pasta?"
She looks down the aisle, "Oh--um--I don't know really..." You interrupt,
"Mine's "
S352: "must"
S353: " have a favourite." The brunette shakes her head, "No, no. I'm sorry, I
can't think of one. Maybe what you said--"
S354: "..."
Well, well--so much in common! You wink at her.
She gives a look of disbelief, "Sorry. I've got to go," and pushes her trolley
off towards the end of the aisle. You shout after her, "Aw... come back!"
Disappearing round the end display, she does not turn. You shake your head and
tut. Next time, "
S355: "secure the date before planning the menu"
S356: ". So many rules to remember.
You like rules. Rules are lists that tell you how to behave--sometimes you need
to be told."
S357: "You walk over to the brunette and peer into her trolley. "Whatcha got in
here?" She turns round with a puzzled face, "What?" You poke around in the
trolley, "Bread, onions, peppers, salt, chocolate, ooh naughty; condoms--"
She pushes you off, ""
S358: "Do you mind?"
S359: "" You glare back, "Why so touchy? We all have "
S360: "needs"
S361: "... don't we?" She steps back and swings out with her hand. "
S362: "Ouch"
S363: ". She slapped you...
Your cheek stings and you feel stupid. You might even hate yourself."
S364: "You draw your trolley alongside the brunette. Clearing your throat, you
introduce yourself. She asks what you want. "Sorry, yeah, I just wanted to
know. Have you ever been to Rome?" She thinks, "No. I've never been to Italy.
My husband suggested Rome, actually, for our holiday this year. What's this
for--is it some consumer survey?"
You chuckle. "Well, I'm a consumer and I'm asking a question. So maybe." She
smiles, "Is that it?" You nod, "Yeah, that's it. Thanks."
You walk back towards your trolley, "Oh, one more thing--don't go to Rome with
your husband. Try Paris instead." Wish I had..."
S365: ""Excuse me." The brunette turns, gives you a nod. You explain, briefly,
the story of you and Clare. Amazingly, she listens. When you finish you ask
"Where did I go wrong?"
She looks apologetic, "I'm sorry, I can't answer that. But it doesn't sound
like anyone was to blame. Sometimes people just grow apart..." "Thanks." You
walk away.
That's the answer you were looking for. If only you had told her the "
S366: "real"
S367: "You smile, flash your teeth, "How you doing?" The brunette turns, smiles
politely, "Fine, thanks." She pauses, unsure as to whether she should turn back
to shelves or maintain eye contact.
You take the initiative, "Shopping for one?"
S368: "" She smiles, "Yes. You're quite forward aren't you?" You reflect her
smile, "Yes. But no-one ever got anywhere hiding under a bushel, did they?" "So
you're not one to hide under a bushel then?" "When it's required, sure--", you
falter (think of something funny, sexy) and she steps in, "Look I've got to get
my shopping finished now, but I can see you for a drink later?"
You smile again, "Sure... "
S369: "you're"
S370: " being quite forward now--for all you know I could be a loon." She looks
you up and down, "No. I don't think so.""
S371: "Tall, slim. Dark haired. You walk up to her and introduce yourself. Then
you continue, "Now I'm at a disadvantage--you know my name, but I don't know
yours..." She smiles, "I'm Clare" (she doesn't say whether it's with an 'i' or
not, we'll just assume). In a whipcrack chain of rather bizarre events, you end
up in the supermarket cafe surrounded by a pile of shopping bags. You sit
across the tiny table from each other, sipping on your coffee and chatting.
Even more bizarre is the fact that you get on. Fabulously.
She leaves her bags in her car, storing the frozen stuff in your freezer. In
the morning you lend her a shirt... All these domestic touches can only bode
well for the "
S372: "future."
S373: "You pick up the gnocchi. "Excuse me.. I don't know if you could help, I
had this in a restaurant once"--in Rome--"do you know how to cook it?"
She pauses, "Well.." She takes the packet and points to the instructions on the
back "Look you just boil it for a few minutes" She pauses and your eyes catch
on each other.
A beautiful flower bursts somewhere between you, "I could cook it for you?" You
both move on to a new aisle and then home."
S374: "She looks at you, "Sorry?" You blush, "Oh. Oh. Nothing." You quickly
turn round and wheel your half-full trolley to the checkout. Then home."
S375: "You walk up to the brunette with the question on your lips. But as you
near her, the question seems to slip away, ducking out of sight. It had
something to do with "
S376: "... The brunette turns round, sensing your presence, and makes eye
contact. You blush and turn back quickly. With sweaty palms you grab a few bags
of pasta and hurry on to the next aisle."
S377: "You approach the woman, "Hi."
She turns and smiles, "Yes?"
Now, the intention here is to give the brunette a succinct summary of your
character and, in conclusion, why she should come away with you. But where to
begin?
"I was watching you from over there, and I--Well I should just explain--I'm
single now, not always of course--", nervous laugh, "--messy long story. Very
messy. But we should stick to the more important things--right? Um..."
The woman shakes her head, "I'm sorry, but I'm in a hurry." She scurries to the
end of the aisle.
Got to work on that routine..."
S378: "You walk up to the brunette, leaving your trolley adrift in the aisle.
"Hi." She turns to look at you, a smile on her face. The smile drops as you
recount the shock and the pain and how the thing you remember most was the
noise as you opened the door and the blood and water lapped around your feet.
Then you stop speaking and her expression turns from shock to pity. She puts
and arm around you and says how sorry she is. But that's all she can do, and
she leaves you.
The brunette must have said something to someone because after a few minutes a
small, kind-looking lady comes up and takes you to the supermarket cafe. She
gives you a cup of tea and a small muffin. It's a nice gesture, but only
reminds you of the breakfast you had minutes before you discovered Clare. The
tea is warm, almost body-temperature. You sense that the staff are worrying
now--the presence of a grown man crying in their cafe cannot be good for
business. You go before they have to ask you."
S379: "You walk up to the brunette and try to tell her about the note, about
Clare's sudden leaving. But the words fail to come, you "
S380: "can't"
S381: "this"
S382: ". So you do a quick about-turn and walk back to your trolley.
Some things just aren't meant to be shared. You trundle the trolley on, the
hint of a tear sliding into the corner of your eye."
S383: "You slowly pad up to the brunette. She turns, you speak "Sorry to bother
you, but I really need to speak to someone, right now." She looks empathetic
and you continue, "A few years ago the love of my life, Clare was her name, she
died very suddenly and in real pain. The thing is, well, she is out of her
misery. But I'm not--we had gnocchi the night she died--", you point to the
bags of gnocchi on the shelves, "and it's all coming back to me. I just need to
talk---"
She smiles a sad, caring smile, "Do you want a cup of tea, love?" She takes you
to the cafe and you sit (you have cake as well as tea) and she lets you talk.
When you finish you wish you had done that sooner. The pain is still there, but
now you have some power over it."
S384: "You draw your trolley alongside the brunette, reach up past her for a
jar of sauce and break into conversation. "Work was the same, you know? Some
good, some bad. Alec keeps treating me like some kind of idiot, just because...
well, because. And Terry thinks he's being nice, but he's just patronising.
Money's good though--that's all that matters, yeah?" She mumbles a reply and
moves away. You continue, "Yeah?" She disappears behind the corner of the
aisle. Only trying to be friendly, you know? Maybe it's like Terry says,
sometimes you can be too friendly and that scares people. Imagine me, scary?"
S385: "You scurry up to the brunette. "Excuse me--I probably ought to tell you
this, now rather than later", she looks confused and you continue, "but I am a
murderer. All very complicated complicated stuff--but basically I killed my
girlfriend (my lover) and well I am over it now so there is no problem there
but like I said just thought I would say.."
With that off your chest you continue on your shop."
S386: "You approach the brunette. She turns, hearing you approach, and you
speak: "Excuse me. I just need to tell somebody about something that happened a
long time ago. It's just that well--I thought it was better not to remember,
but now I'm not so sure. And I need to tell." She looks embarrassed, puzzled.
You continue, "There was a holiday to Rome--you know Rome, yeah?--and a girl,
Clare--you don't know her--and everything, everything went wrong."
Not because of what you said, but more the way you said it, the brunette
reaches out to you and gives you a hug. You cry a little. When it is over you
thank her, she wishes you luck and you finish your shopping.
You seek more help, this time from professionals, and with the help and support
of unselfish love you rebuild the shell of your life, which is to say, you
learn to love again."
S387: "You approach the brunette. She turns, hearing you, and you speak: "There
was a girl called Clare. She left me. Well not really--let's just say she left.
And now what am I supposed to do?" She looks embarrassed but you continue,
"What am I supposed to do?" She looks empathetic, "I'm sorry for you" she says.
Then goes her own way.
You finish your shopping and drive home."
S388: "You walk over to the brunette. She turns, hearing you, and you speak:
"Love." One word, that's it--you can't say any more; you want to communicate
something, but you can't.
You walk back to your trolley and slowly wheel it onwards. As you pass, maybe
she tuts. Maybe she doesn't. It doesn't really matter."
S389: "The brunette looks confused when you start talking, but you continue,
"Please hear me out. I need to tell someone." She shifts uneasily on her feet.
You go on, "See the gnocchi over there," you point to the pasta shelves, "it's
triggered some nasty memories. I can't keep them to myself. The story goes like
this: young lovers, very much in love, go to Rome for a summer holiday. On the
last night they have a candlelit meal besides the Pantheon. Gnocchi was the
second course. The next day a scooter hits Clare--she was one of the
lovers--and takes all the life out of her." Her eyes flick to the floor, "I'm
so sorry." You smile, "No one's fault. That's what it means, 'accident'--no
one's fault. Not so bad really, thanks. Bye." You stroll back to your trolley,
sorry that you had to include someone else--selfish really, but you doubt she
was really listening. Probably thought you were some kind of crackpot."
S390: "You stroll up to the brunette. Boldly you speak, "Hi. I thought you
might like to know--" You stop. Shit, what was it you were going to say? You
were going to tell her something about "
S391: ". It's gone--clean gone. You mutter "Oh. I forgot. Sorry," then rush
back to your trolley where you bury your head the pasta until she has moved on.
The rest of the shopping is uneventful, if a little depressing. But then you
always find that in these modern stores... so many people and yet not one of
them knows you."
S392: "A glint in the eye? Whatever. Something tells you that she likes you
looking at her. And she knows that you like knowing she likes looking at you.
So a simple requests: "Kiss me. Take me to bed. Eat me alive. Fuck my brains
out, you brazen hussy!"
Next time you'll actually say it, right? Maybe not; just testing the waters?
Things are better in your imagination anyway, everyone knows that."
S393: "The brunette puts a few jars of sauce into her trolley and starts to
walk out of the aisle. You shout ""
S394: "Wait!"
S395: "" She turns but, not recognising you, carries on. ""
S396: "Wait!"
S397: "" She is disappearing round the corner. ""
S398: "Wait!"
S399: "" Gone.
They never wait. Never stop, let you discuss things, sort things out. She never
waited."
S400: "Gnocchi would be nice, though you'll need some sauce to go with the
gnocchi and you don't have the time to make your own (I know, it only takes a
few minutes but laziness is a factor).
You try to get to the sauces, but the brunette is standing in the way. You wait
a while longer but she still hasn't moved; she seems indecisive. You can't wait
for much longer, "Excuse me, could you pass a couple of jars of the
Arrabiatta," you indicate the jars, "thanks." She reaches up to the jars and
passes a couple back to you. As she drops the jars into your hands your eyes
cross and she smiles for an instant. A thought occurs to you: in another life
you could have quite fancied her."
S401: "You leave your trolley and walk up to the brunette. She turns to you and
you smile, "Come with me! I'll show you a good time. I promise. I'll buy you a
meal, we can go on holiday! Just come with me." You put out your hand. She
makes no move to take it. "Come on! Let's go. Come with me..." She's looking
alarmed now and she starts to walk away.
She didn't want to come with you? Well, at least you asked. No harm in trying."
S402: "You take a look at the gnocchi and the little illustration on the
packet--it's about time you went back to Rome. Of course you'll need someone to
go with; like Paris, Rome is a city for lovers.
Last time you took that girl, Clare. Have to be a bit more picky this time...
The brunette starts to move off towards another aisle. You shout after her,
"Hey, wait up! Cathy!" She turns at the sound of your voice. "Cathy!" She
shakes her head, "Sorry I'm not Cathy." She sure looks like a Cathy, but you're
not going to argue. "Yeah, sorry, my mistake. I've thought of what we can do
this summer." She stares blankly. You explain, "We can go back to Rome, again.
Should be even better than last time!" She steps back, blushing, "I'm sorry. I
don't know you." She hurries round the corner of the aisle. You shout after
her, "Course you do, Clare! Cathy? "
S403: "Amanda"
S404: "Sophie"
S405: "?" You never were one for names. She'll come round soon enough, anyway.
If you get the shopping done soon you can get home and ring round the travel
agents. Hurry up."
S406: "You walk over to the sauces. You clear your throat. "
S407: "
Shit, how long has it been?
"
S408: "You begin, "Hi. Hello?" She looks at you, then turns with an "Er. Hi,"
hoping you will go away."
S409: "
So hard, almost like a different species.
"
S410: "You continue, "How are you?" Again she is dismissive, "Sorry, do I know
you?""
S411: "
Why start again now?
"
S412: ""No. No. I just wondered--Oh never mind." You turn and walk back to your
trolley.
You hear her scurrying on to the next aisle and wait for her to get ahead
before you continue. So long since you spoke to a woman. Since you spoke to "
S413: "anyone"
S414: "You run over to the woman, "Listen to me." She squints, a kind of
reflex. You try again, "Listen to me, please." She starts to back away,
apologising "I'm sorry, look I'm in a hurry..." You look glum, "But I haven't
even started yet... I was going to tell you how much you look like Clare..."
She did, you know--a dead ringer. They all do."
S415: "The brunette seems to be ignoring you. She's trying not to look in your
direction. You speak loudly, "Am I that bad to look at?" She continues to
ignore you. ""
S416: "Hey!"
S417: " Look at me!" A red flush is creeping across her cheeks and she is still
ignoring you. ""
S418: "Oi!"
S419: " Look at me! Am I so bad?" She still ignores you. She starts to move her
trolley away from you--you run over and grab her face, twisting it round till
she is looking at you, "That's better! Look at me will you. "
S420: "Don't ignore me"
S421: ". Why are you ignoring me? God, you're not much to look at yourself...
don't even know why I wanted you to look at me in the first place. Probably
doing you a favour, anyway." You release her face with a defiant shove and she
staggers back, a red handprint fading from her skin.
The wind is knocked out of you as a security guard thuds into your back. You
fall to your knees as several hands grab you. You try to fight them off, "Hey,
get the fuck off! This is between me and my girlfriend!" You hear a gasp, a
female voice, "I'm not his girlfriend! He's just some "
S422: "weirdo"
S423: "." You continue to fight, "I'm not a wierdo! We were just having an
argument--you know how women get, come on." An over-enthusiastic guard lands a
punch on your head and you collapse to the floor.
When you come to, you are in a small office and Dr. Ritters is talking to the
guards, "It's lucky you caught him--we knew something was up when he didn't
check in this morning. You see, it's the anniversary of his girlfriend's
murder. We should have been more careful I suppose--" He senses you are awake,
"Ah... the patient is back among the living. How are you?" You try and go back
to sleep."
S424: "Tucking your toe under the hem of her dress, you flick it up. She spins
round, clutching at her clothes, "Hey!"
You back off, arms raised in an apologetic gesture, "Sorry. Sorry. Just thought
you might like to slip into something a little more... comfortable?" She gives
a look of incredulity, "What?" You move nearer, again, "Look--don't fret just
get undressed. "
S425: "Come on"
S426: " slip out of that dress--what's wrong? You not got any underwear on? No,
you "
S427: "have"
S428: "--I can see it now: Sexy black lingerie, clutching you tightly. Your bra
only separated from your breasts by a layer of perspiration--" She slaps you,
spitting "Jesus Christ. Go take a cold shower, get some fucking help!" as she
strides off to the next aisle, leaving you giggling. Ha! She didn't guess. She
didn't realise that is was "
S429: "you"
S430: " wearing the sexy black lingerie. "
S431: "The best Italian suspenders"
S432: ". Only the best next to your skin. Baby soft skin. Clapping your hands
together you trot back to the trolley. "
S433: "Gnocchi for two?"
S434: " You'd like that wouldn't you Clare? "
S435: "I sure would, Clark"
S436: "What is it about hair? The most beautiful woman can be reduced to
nothing by her hair. The most average elevated to higher beauty by beautiful
hair. Clare had such wonderful hair. You remember falling asleep, her hair a
soft, dark, musky pillow. You remember Baudelaire:
O fleece, billowing even down the neck!
O locks! O perfume charged with nonchalance!
What ecstasy! To people our dark room
With memories that sleep within this mane,
I'll shake it like a kerchief in the air!
He goes on, but who needs poetry when they have reality? The reality of the
brunette's hair as she stands at the other end of the aisle; Her hair lifts
slightly in the breeze from an overhead air conditioning vent. As she moves
away it sways ever so slightly, reproducing the fetishised slow motion of a
shampoo commercial.
And then she is gone. Time for poetry..."
S437: "You don't want to damage her hair."
S438: "You're more likely just to look at it."
S439: "You jog up to the trolley and grab onto it with a hand. Putting a foot
on the back wheels you pull it over--the contents bounce across the aisle, the
metal crash of the trolley resounding round the aisle--
The brunette spins round, "Shit!" You give her a menacing glare--"You don't
need all that food! Where you're going--" A crushing blow from behind knocks
the words out of your mouth. You fall to the floor, landing sharply on the
contents of the brunette's trolley. A man stands over you. He has an arm round
the woman, "You alright, Kate?" She nods.
The man offers you a hand and pulls you up. When you are on your feet he
releases your hand and steps back. Before you get a chance to dodge, his fist
smacks into your face--
Under the advice of a lawyer you decide not to prosecute; apparently it might
require you to undergo another psychiatric evaluation. Probably best--just let
it go."
S440: " and walk over. You chuck them into the brunette's trolley. Then a few
jars of sauce. She turns, her face a map of disbelief, "What are you doing?"
You don't get it. You're just helping her with her shopping, "I was... just
trying to help. Helping with your shopping..." She pushes you away, "Get off!
Leave me alone!" You stand back, "Sorry..."
You walk back to your trolley, "If you do need my help--just ask." God, next
time you won't bother. What is it with people?"
S441: "You glance over at the brunette's trolley. It is almost full--a cursory
survey shows it to be mostly full of fresh produce and healthy food. The
quantities suggest to you that, like yourself, she is cooking for one. Her
choices though, seem to show a genuine love of food. Eating for her is not a
burden. You almost feel humbled as you continue filling your trolley with the
kind of easy, dull food that you have become accustomed to."
S442: "You run up alongside the brunette and leap onto the trolley. She jumps
into the shelves, shocked. The trolley skids, spinning round and out of the
aisle. As it turns, the wheels lock and it turns onto its side, pulling you
over with it. You hit the floor with a jolt, pain shooting up your elbow.
You climb to your feet, the brunette running over to you. Her shock has turned
to anger and she looks at you, red faced, and with piercing eyes--"What the
hell were you doing?" She raises a hand and you block as she slaps at you. With
your hands above your head, you are chased out of the supermarket by the angry
stranger.
Once you are outside she withdraws back into the warmth, a few choice phrases
fired out as she goes. You cower for a while then trudge over to your car. As
you are pulling out onto the main road a couple of security guards come running
up to you. You leave them standing on the pavement as you pull out quickly and
speed off into the night."
S443: "You make a run at her trolley and bundle into it side on. She falls down
into the sauce shelves, jars rolling to the floor. Her trolley is knocked out
of the aisle, slowing to a halt before the deli counter.
You lean over to help the brunette to her feet. Her response is furious, "Get
your fucking hands off me! Get off!" Strange, in those eyes you catch a glimpse
of Clare. That view, reflected by the Rome in the gnocchi, reaches out behind
your eyes and pulls your tear strings taught. You try and help her up again,
"Sorry.. so sorry. Let me help you--" But she is consistent (stubborn, like
Clare) and refuses again, "Fuck off! Get away!" Well, you know when you're not
wanted--you turn and walk away, her abuse bouncing off your back like the
accusations once did. And, just like then, you leave."
S444: "You rev your trolley backwards and forwards on its slick casters. Then,
squinting slightly to check your aim, you push your shoulders into it and watch
it wheeeeeeeel into the brunette's trolley.
"
S445: "Clash of the metal beasts!"
S446: "
For a second it occurs to you that her trolley, with its greater load, might
win--but as the trolleys smack together with a steely "
S447: "tink"
S448: " you know you've won. A smile emerges as her trolley tips, rocks and
then falls to its side. Your trolley stands above it, shaking from the contact,
but still upright.
She turns, shocked by your disruption of her domestic tranquillity. You grin,
turn and walk to the exit. No-one makes to follow you. This surprises you, but
perhaps they're learning--no matter how many times they lock you up they can't
keep a "
S449: "good boy"
S450: "You stroll over to the sauces, next to the brunette. There is a large
array of sauces; from simple tomato and basil recipes up to 'luxury' sauces
with sun dried tomatoes, olives and fennel. You look through the sauces for a
while.
The woman has chosen and moved on by now, you decide not to buy any sauces;
Shit, they're only tomato and garlic--you could do that yourself. And a shop
sauce never tastes as nice as a home made one, right?
You walk back to your trolley, abandoned near the pasta. There's something
you've forgotten? ...no. You grab a packet of spaghetti and move to the next
aisle."
S451: "You run over to the sauces. You'll need some sauce--something a little
spicy? There's a little jar of Arribiata that'll do nicely. The woman moves to
the side as you reach past her and grab a couple of jars. "Thanks" you mutter.
She smiles.
You walk back to your trolley, stranded in the middle of the aisle, grab a bag
of spaghetti and move on to the next aisle."
S452: "Something inside you stirs. You walk over to the sauces, next to the
brunette. As you stare at the myriad of jars before you, your eyes slowly
unfocus and you lash out. Some of the jars smash as they hit the floor, glassy
red wounds, others roll off down the aisle.
The woman is standing, shocked, red sauce slowly dripping down her legs. She
turns to look at you, her eyes glassy and white with disbelief. As you slowly
back away, you feel hands grab you--"What the fuck's your game, mate?" You are
taken by two burly store security guards to a little office round the back of
the store.
A policeman arrives. He calls you by your first name. Then another man arrives,
not a policeman but he is official, and he talks with you. He is sorry--they
thought that you were cured. But apparently all they did was push everything
below the surface. So deep they didn't notice--and they are the experts.
They take you home with them."
S453: ". The gnocchi has triggered a memory of a holiday. You remember the
pasta museum. Hundreds of different shapes, swirls, bows, shells, loops,
strings. All different, subtly different--and at the middle of it all: Clare?
Clare?
Hell, it's only pasta. You grab a bag of "
S454: " and push the trolley, it slickly gripping the floor, and wheel on to
the next aisle."
S455: "Nope; Gnocchi is not on the list. You grab some "
S456: " and move on. The brunette glances up as you wheel by."
S457: "The pasta is a seething mass of off-white food. You tear at the plastic
bags until the curls and tubes and twists and shells cascade onto the floor and
into your hands. Scooping up a collection of different shapes you cram the
pasta into your mouth. It is dry, it is hard. That's what your body is saying.
But you learnt something a while back--that your body (your eyes, your hands,
your "
S458: "heart"
S459: ") isn't always right. No, you've learnt to listen to your mind. And your
minds says: soft, warm, slightly salty pasta. Tangy sauce. What a feast!
They spoil your fun, they take you away--or so your body says. Your mind knows
better; you're still in Rome eating pasta, drinking wine--everything is fine."
S460: "You grab a solid looking bag of the pasta ("
S461: ") and hurl it across the aisle. It skids to a stop with a plasticky
crunch. The second bag follows the same arc, the same disappointing landing.
Somehow you'd expected them to, y' know, explode...
Before anyone notices, you speed off round to the next aisle. You always seem
to end up throwing stuff when you are reminded of Rome--but you never threw
anything when you were in Rome. You never quite understood that. Still don't.
Oh well..."
S462: " rather than gnocchi on that last night she wouldn't have left you. But
you couldn't have helped that, really. I mean, you don't even like "
S463: ". So it's not your fault. If you don't like "
S464: " she couldn't have expected you to order it. So who's fault is it? Not
hers--you both agreed it was no one's fault; people fall out of love. No, not
anyone's fault. Something's fault. Pasta. How stupid does that sound? "
S465: ". Stupid but true.
You rake a shelf of the bags onto the floor; long packets of spaghetti, small
papery bags of macaroni, big sacks of penne. As they hit the floor you "
S466: "stamp"
S467: ". The bags split like bruised fruit and spill their contents across the
floor. The shells hop and skid as you crack and squash them under your feet.
The brunette turns, a worried glance back, and then scurries on. You kick a few
stray bows after her, scattering nearby twirls.
Inevitably the guards appear. You let them take you, explaining that you aren't
mad--you can imagine a lot of men in your position would be, but you are quite
sane. You've never done this kind of thing before. You really are sorry. You'll
pay for the cost, and the mess. If it helps you'll apologise to the brunette.
Wait... they're not listening.
You end up speaking to a balding man who is really very intellectual--you know
the sort--and he agrees, you are very sane. He agrees, love is a dangerous
thing. It burns just as many as it warms. He agrees. Tired of his stating the
obvious, you stop listening."
S468: "Footnote:"
S469: "potato"
S470: " Gnocchi--that's the type here) is a delicious Italian treat. Small
rugby-ball shape lumps of potato dumpling; basically flour, salt and potato.
They boil in a couple of minutes and then you serve them with a little oil and
herbs, or pasta sauce of preference. Gnocchi is very filling and makes a lovely
meal. I tried to make my own once and ended up with a soggy pile of mush, but I
imagine it's not that hard to make if you concentrate."
S471: "You focus on the gnocchi and whilst the little, floury balls remain the
same everything else changes. There is a flush of noise in your ears, the cold
air pushed away by the warmth from table-top candles. A friendly waiter
approaches, "Gnocchi for two?" His English is correct but with a European
slant. You nod. "Prego," you volunteer as he lays the plate before you. Clare
Prego's too as he presents her plate. He asks if you would like a bottle of
wine. "Uno vino rose," you reply in half-Italian. He scurries away, whilst a
smaller waiter hurries to you and puts a basket of bread and bread sticks on
the table. "Prego," he nods as he backs away into the busy restaurant. You take
a fork and spear a bud of gnocchi, dunking it in the sauce. As you draw it up
to your mouth your eyes level with Clare's.
You shake your head and are back in the supermarket.
Hmmm. Maybe there was something more important than gnocchi? But it's gone now.
You take a couple of packets and pile them into the trolley. Then with a push
of the wrists you move the trolley onwards."
S472: "You try to smell the gnocchi, but it is contained in its plastic bag and
gives only an impression of chemicals. Dissapointing.
You dismiss the gnocchi and carry on shopping."
S473: "The gnocchi reminds you of Rome. Of Clare. All long in the past and a
past not to be revisited. You pick up the gnocchi and chuck it across the
aisle. It bounces across the floor and slides to a halt. The brunette pretends
to ignore you and continues to peruse the sauces.
You push trolley on its way, narrowly avoiding the brunette as you briskly move
on to the next aisle. And the next.."
S474: "You look down at the Gnocchi; "Fresh potato Gnocchi from Italy.
Delicious served with a little olive oil or with your favourite pasta sauce."
You remember Rome; Gnocchi in olive oil with basil leaves, in front of the
Pantheon, candlelight--serenaded by a hyperactive busker and offered trinkets
by a small, poor man. And Clare; her face was lit up like the Pantheon itself,
her hand in yours. Why have you never returned to this memory before?
Strange that it should take something as mundane as Gnocchi to trigger your
memory.
Why have you never allowed yourself to recollect these things before--did it
hurt too much? It doesn't any more--you allow yourself a tear, and feel the
past being absorbed into your body. You put the Gnocchi into your trolley and
push onwards."
S475: "You rip open the packet and take out a few Gnocchi, cramming them into
your mouth. The uncooked, floury balls clog in your throat and you swallow them
down, hard.
The brunette glances at you and moves on quickly.
You feel stupid, slip the opened bag back into the shelf and carry on. It's
never been as good as it was in Rome."
S476: "You pick up the packet of Gnocchi and toss it into your trolley. You'll
have that tonight with some olive oil and a few leaves of fresh basil. Just
like in Rome... though without Clare.
But it's useless remembering, best just enjoy the Gnocchi."
S477: "The Gnocchi reminds you of Rome. Of Clare. All long in the past and a
past not to be revisited. You punch the Gnocchi and push the trolley on its
way, narrowly avoiding the brunette as you briskly move on to the next aisle
and the next.."
S478: "You turn the trolley round and head to the checkout. You unload onto the
conveyor and the cheerful young girl in plain uniform blips everything through
her scanner.
A friendly young man packs everything into bags and you wheel them to your car.
You unload into your boot and drive home. The roads are quiet."
S479: "You turn to look at the checkouts; about twenty of them. Only half are
in use. Operated by young, fresh-faced kids in plain uniform.
"
S480: "Blip Blip."
S481: "
Almost takes you back to when you were their age. But you know better than
that. On with the shopping.."
S482: "I don't think it would be possible to pick the trolley up."
S483: "You step back. Then, with a spring and a smile, jump onto the trolley,
pushing off against the floor. For a few metres you sail down the aisle--the
ball bearing filled wheels spinning slickly and defying friction. But then time
takes hold, and the wheels succumb, your flight slowing, until the trolley
draws to a stop. You could push off again, but where's the point?--you'll just
stop again.
Slightly embarrassed by your childish display you look ahead and turn round the
next aisle. You could swear you head snickering from somewhere."
S484: "Grabbing some bags of Gnocchi you continue, whipping round the store in
no time and filling the trolley. You have almost "
S485: "too"
S486: " much stuff. You pay for it--it comes to a tidy sum--and wheel the bags
out to the car. You pack the boot and drive out onto the road. When you get
back home you spend a while emptying the car, carrying food to the flat and
unpacking.
Then you put on a meal, take a drink, sit back and relax..."
S487: "You are angry that something as unassuming as a bag of pasta could drag
up something like Rome--
You push the trolley and it rattles down the aisle, finally drawing to a halt
near the brunette. She looks up, nervously, and carries on looking through the
sauces. You turn quickly on the squeaky floor and head for the exit."
S488: "The trolley is a small cage of steel with bent rubber wheels. Full of
your shopping: meals for one, drinks for one (well, drinks for several, but "
S489: "hey"
S490: ", who's counting?).
Gnocchi for "
S491: "one"
S492: " wouldn't really work. You settle for spaghetti and continue on to the
next aisle."
S493: "Remember when you would sit in the front of the trolley and your mum
would push you around. You'd drag bright packages off the shelves and cause
havoc. But she still loved you. You didn't even do anything wrong with Clare.
You climb into the trolley and sit down, your shopping crunching beneath you.
You push off against the shelves and roll a little way. But then the trolley
shakes and turns onto its side. The shopping falls over you and "
S494: "fuck"
S495: " your leg really hurts. You stumble to your feet and curse, limping out
of the store into the night."
S496: "You look into the trolley; meals for one, toiletries for one--everything
for "
S497: "one"
S498: ". You tip the trolley on to its side and it sheds its contents. A bottle
smashes and wine spills onto the floor. The brunette hurries on nervously and
you kick a can down the aisle. Then you leave into the night."
S499: "You look into the trolley; meals for one, toiletries for one--everything
for "
S500: "one"
S501: ". You kick out at the trolley and push it to the side. Turning on a heel
you head out into the night."
S502: "[Please be more specific about which food you mean]"
S503: ""Help! Security!" A balding man in his forties, squeezed into a blue
uniform appears at the bottom of the aisle. "Can I help you sir?" You run to
him. Pull him close. Whisper in his ear: "You see that woman?" "Yes, sir" "She
just raped me." "I don't quite understand sir?" "She is stealing all your
food!" "Calm down sir, speak slowly" You raise your voice, "I will not be
quiet! It's your job--stop her!" The guard pauses. You make a dash for the
woman, "If you won't do your job, then I will--" He is too quick for you and
hooks a foot around your leg. You crash to the floor and black out, the guard's
words dragged with you into oblivion, "I think you ought to come with me,
sir.""
S504: "You saw them when you came in, but you can't see any around right now."
S505: "You can't take on the whole shop, try being more specific."
S506: "You give the trolley a good hard push towards the shelves and it shoots
off, sliding across the aisle and impacting with bags of pasta, knocking goods
onto the floor. The overall effect is quite anti-climatic, not quite as
destructive as you imagined... Rather than try again, you grab the trolley and
push off, avoiding the mess in the aisle.
A few worried, curious faces watch you as you continue with your shop but no
one makes to apprehend you or challenge your actions. Perhaps they're
scared--people are easily scared. What was it that scared Clare off? She never
said, though you never asked. Maybe she was just bored... that seems to be your
most scary characteristic."
S507: "You stare at the Gnocchi. You remember the Trevi Fountain in Rome. How
you and Clare sat and bathed your feet in it on the first day. And how you
would continually lose yourselves trying to find some other monument, only to
turn a corner and be back at the fountain "
S508: "again"
S509: ".
You remember the day after Clare had gone, you returned to the fountain. Drunk,
you climbed the fountain and screamed. The police pulled you down and sobered
you up.
Grabbing onto the shelves you hitch yourself up, setting off a mini-avalanche
of pasta. Upon reaching the top of the shelves you can see the whole store.
People stare at you. They think it's "
S510: "you"
S511: "You look up and down the shelves: Packets of pasta. Tins of tomatoes.
Everything has its container. Its plastic/paper/metal armour. You used to have
an armour. But you gave it away.
Armour/Amore.
Then she ripped into you. And now what do you do? You're a stinking pile of
chopped up person with no tin. No protection, no purpose."
S512: "Shelves. Like little prisons. Tempting "
S513: "you"
S514: " with their goods. Bastard shelves. You grab hold of a shelf and pull it
off the backboard, shedding its contents across the floor. You tug at the
backboard itself and the whole unit falls down, crashing and spilling.
Two security guards come running up the aisle and grab you, pushing your arm
into your back.
The police come and it's the usual cycle of recrimination, them telling "
S515: "you"
S516: " what is wrong with you. How do they know? They don't know what it was
like.
You miss another ten years."
S517: "You feel a bit unsteady, and drop to your knees. The Gnocchi dances
queasily in your head. Bringing back a lot of "
S518: "those"
S519: " memories. You sit for a while, waiting for them to drain away (as they
always, ultimately, do).
The brunette walks up and peers down, "You OK, love?" You pull yourself to your
feet and smile, "Yeah. I'm OK. Just a little dizzy spell--I get them from time
to time. Nothing to worry about." She turns back towards her shopping and you
grab hold of your trolley. Your back to the Gnocchi, you push on."
S520: "You stand still and try to look harder. You're sure that if you look
hard enough then you'll see what it is you're missing.
Nothing becomes apparent. You continue with your shopping."
S521: "The end of the story"
S522: "a"
S523: " story. But not the only story..."
S524: "The end of another story"
S525: "Another story over"
S526: "Another story over"
S527: "Another story done"
S528: "One more story over"
S529: "A story finished"
S530: ". But then..."
S531: ". Not the only one..."
S532: ". But there are others..."
S533: ". Then again..."
S534: ". And yet..."
S535: "Rome.
You pick up the Gnocchi and stare at the illustration of Piazza Venezia on its
packet. You remember; sun, heat, food, pasta, sauces, wine, love, ancient,
modern, Italians, Americans, love. And ultimately pain. A pain you had thought
you had forgotten. But like a cancer returning to wreak havoc again, the pain
resurfaces and tears through the thin barriers you had erected. Tears flow.
Memories; guilt. And finally acceptance. You live with it."
S536: "Remember love? You don't even know what the word means any more. You
need to find love again before you can remember it. Right now all there is is a
dulled pain. And Gnocchi rubbing it in."
S537: "You look down the aisle and imagine it empty, smaller and with doors at
either end.
Remember the institution?
They taught you to think differently. They told you that you had forgotten--but
the red smile still haunts you. What they really made you forget was the
guilt... that was what hurt the most. She made you feel guilty in her life and
her death. But you forgot that.
You'll never forget the smile; the smiles you gave her. Bloody lips all over
her body.
But that doesn't bother you, much... On with the shopping!"
S538: "want"
S539: " to remember. A bloody smile drawn across the aisle, Gnocchi for
teeth--punch them all out--A red, red smile--brighter than any lipstick--but
wait--she speaks. No; she does not. The smile drips, runs into the carpet and
blushes into a crimson flower. Purple bruises. Colourful scene don't you think?
Of course it's all in the past now. And they said you were over it.
A bright red smile opens and devours you whole. Everything goes black."
S540: "You remember the one thing you didn't "
S541: "want"
S542: " to remember. Your last meal with Clare. She was in bed, pasty white and
crumbling. She wanted something "
S543: "nice"
S544: " for her last meal and so you got some special Gnocchi brought up by
room service. But she couldn't eat it and she dribbled, and couldn't swallow.
And she couldn't even cry--nor could you, you had to be brave. But you don't
now. As the memory opens up, the lock in your tear canal slowly eases open and
there is "
S545: "release."
S546: "The accident. You had joked about the traffic, over the previous days.
There is something about scooters and Italians that is comical. But the thin
veneer of blood soon takes that away. You can't remember much more than the
skid, the collision and the shock. Friends and relatives organised
everything--getting the body flown over, the police, the papers, etc. Gave you
room to grieve. But you'll always remember the way the scooter flicked her into
the air as if she were a feather. And the way she fell as if she were lead.
Shopping doesn't seem so important--well, still as important, just not as
easy."
S547: "You remember the note, word for word:
..I did love you once.. but have to leave you now.. hope you will get over it..
for the best.. there is not anyone else.. I'm sorry.. Clare.
The note answered no questions. It gave rise to far too many questions--and
maybe it's time to either find answers or forget.
You finish shopping, go home and think."
S548: "Your mind wanders over the day's work. Fairly usual stuff; Johnathon
really pissed you off, taking your work, putting a cover on it and getting all
the credit. But lunch was cool; Michelle and you had a fun chat about her new
boyfriend over coffee. You pointed out that he was exactly twice her age,
something she hadn't realised. Plus, you managed to get all the Longbridge
account finished, which is a weight off your mind--
A mental kick up the arse--stop thinking about work and get on with the
shopping. Clare'll kill you if you're back late.
A quick scoot round the rest of the supermarket--a full trolley--then, stepping
on the gas, you arrive home just before seven. Clare opens the door to you,
"Ooh... home early? What have I done to be so lucky?""
S549: "The sound of the door as you opened it, drawing against the wet floor.
That is what you remember. Water is harmless. But what you don't remember: the
bath, her body in the bath. The blood--the blood swirling with the water and
lapping at your feet, how it was all so Clare--such a romantic idea of suicide,
the bath overflowing as her life-blood left her. The way her head was lolling
against the side of the bath, staring at you when you walked in. The porter had
never seen anything like it before.
Had she planned this all along--was the holiday a framing device for her
carefully staged exit? Or did something click whilst on the holiday? There were
no signs. You've told everyone that. "
S550: "There were no signs"
S551: ". She was perfectly happy. Perfectly happy.
And now, it's all so long ago, and you're perfectly happy too."
S552: "You remember the Pantheon. It looked so solid... it had stood the test
of time. You were sure that nothing could be ephemeral after being near that.
It was so beautiful, yet strong. Timeless. But you were wrong--it was the only
thing that was so. Your life, your relationship, Clare.. all open to change,
decay and collapse.
The image of the Pantheon in your head slowly sinks, failing to support you
with its pillars. You move the memory aside, out of direct sight, and continue
with the shopping."
S553: "You remember the meal like this: Clare sat opposite. It was warm but an
evening breeze took the uncomfortable edge of the heat. You ordered and the
food took a while to come. The wine made your face red. You walked back after
the meal via the Spanish Steps. You sat amongst the crowds until the police
moved you on so that they could wash the steps ready for the tourists in the
morning. You strolled back to the hotel down backstreets, past the four
fountain junction; a crossroads with fountains built into the houses on each
corner. You knew from experience that the water in them was ice cold, even in
the afternoon heat. You ran a finger through the water as you walked past and
wiped it on your trousers before taking Clare's hand in yours. Which seems like
a good place to end."
S554: ""
S555: " - A I S L E -"
S556: ""
S557: " by Sam Barlow"
S558: ""
S559: "You are about to read a story. Or rather, part of a story. You will be"
S560: "be asked to define the story by controlling one instant in the life of"
S561: "the man whose story it is. Your intervention will begin and end the"
S562: "story. But be warned; there are many stories and not all of the stories"
S563: "are about the same man."
S564: ""
S565: "Late Thursday night. You've had a "
S566: "hard"
S567: " day and the last thing you need is this: shopping. Luckily, the place
is pretty empty and you're progressing rapidly.
On to the next aisle.
"
S568: "Interesting... fresh Gnocchi--you haven't had any of that since... "
S569: "read"
S570: "send message"
S571: "apply 'ofclass' for"
S572: "recreate"
S573: "destroy"
S574: "copy"
S575: "copy"
S576: "<unknown attribute>"
S577: "name"
S578: "create"
S579: "recreate"
S580: "destroy"
S581: "remaining"
S582: "copy"
S583: "call"
S584: "print"
S585: "print_to_array"
S586: "animate"
S587: "absent"
S588: "clothing"
S589: "concealed"
S590: "container"
S591: "door"
S592: "edible"
S593: "enterable"
S594: "general"
S595: "light"
S596: "lockable"
S597: "locked"
S598: "moved"
S599: "on"
S600: "open"
S601: "openable"
S602: "proper"
S603: "scenery"
S604: "scored"
S605: "static"
S606: "supporter"
S607: "switchable"
S608: "talkable"
S609: "transparent"
S610: "visited"
S611: "workflag"
S612: "worn"
S613: "male"
S614: "female"
S615: "neuter"
S616: "pluralname"
S617: "before"
S618: "after"
S619: "life"
S620: "n_to"
S621: "s_to"
S622: "e_to"
S623: "w_to"
S624: "ne_to"
S625: "se_to"
S626: "nw_to"
S627: "sw_to"
S628: "u_to"
S629: "d_to"
S630: "in_to"
S631: "out_to"
S632: "door_to"
S633: "with_key"
S634: "door_dir"
S635: "invent"
S636: "plural"
S637: "add_to_scope"
S638: "list_together"
S639: "react_before"
S640: "react_after"
S641: "grammar"
S642: "orders"
S643: "initial"
S644: "when_open"
S645: "when_closed"
S646: "when_on"
S647: "when_off"
S648: "description"
S649: "describe"
S650: "article"
S651: "cant_go"
S652: "found_in"
S653: "time_left"
S654: "number"
S655: "time_out"
S656: "daemon"
S657: "each_turn"
S658: "capacity"
S659: "short_name"
S660: "short_name_indef"
S661: "parse_name"
S662: "articles"
S663: "inside_description"
S664: "play"
S665: "Pronouns"
S666: "Quit"
S667: "Restart"
S668: "Restore"
S669: "Save"
S670: "Verify"
S671: "ScriptOn"
S672: "ScriptOff"
S673: "NotifyOn"
S674: "NotifyOff"
S675: "Places"
S676: "Objects"
S677: "Score"
S678: "FullScore"
S679: "Inv"
S680: "Take"
S681: "Drop"
S682: "Remove"
S683: "PutOn"
S684: "Insert"
S685: "EmptyT"
S686: "Give"
S687: "Show"
S688: "Enter"
S689: "GetOff"
S690: "Exit"
S691: "VagueGo"
S692: "Go"
S693: "LMode1"
S694: "LMode2"
S695: "LMode3"
S696: "Look"
S697: "Examine"
S698: "LookUnder"
S699: "Search"
S700: "Unlock"
S701: "Lock"
S702: "SwitchOn"
S703: "SwitchOff"
S704: "Open"
S705: "Close"
S706: "Disrobe"
S707: "Wear"
S708: "Eat"
S709: "Yes"
S710: "No"
S711: "Burn"
S712: "Pray"
S713: "Wake"
S714: "WakeOther"
S715: "Kiss"
S716: "Think"
S717: "Smell"
S718: "Listen"
S719: "Taste"
S720: "Touch"
S721: "Dig"
S722: "Cut"
S723: "Jump"
S724: "JumpOver"
S725: "Tie"
S726: "Drink"
S727: "Fill"
S728: "Sorry"
S729: "Strong"
S730: "Mild"
S731: "Attack"
S732: "Swim"
S733: "Swing"
S734: "Blow"
S735: "Rub"
S736: "Set"
S737: "SetTo"
S738: "WaveHands"
S739: "Wave"
S740: "Pull"
S741: "Push"
S742: "Turn"
S743: "PushDir"
S744: "Squeeze"
S745: "ThrowAt"
S746: "Tell"
S747: "Answer"
S748: "Ask"
S749: "Buy"
S750: "Sing"
S751: "Climb"
S752: "Wait"
S753: "Sleep"
S754: "Consult"
S755: "parse_input"
S756: "AskFor"
S757: "GiveR"
S758: "ShowR"
S759: "begin_action"
S760: "end_turn_sequence"
S761: "Transfer"
S762: "talk"
S763: "talkabout"
S764: "Introduce"
S765: "IntroduceVague"
S766: "remember"
S767: "empty"
S768: "Hello"
S769: "Swear"
S770: "Questions"
S771: "Invite"
S772: "comewith"
S773: "Stalk"
S774: "obselete"
S775: "PushAt"
S776: "Approach"
S777: "ride"
S778: "help"
S779: "Mutter"
S780: "Marry"
S781: "ShoutAt"
S782: "Follow"
S783: "Stop"
S784: "OSwear"
S785: "Call"
S786: "Find"
S787: "Whistle"
S788: "Undress"
S789: "Laugh"
S790: "JumpOn"
S791: "OfferHelp"
S792: "WhatIs"
S793: "FollowWith"
S794: "Come"
S795: "DanceWith"
S796: "Throw"
S797: "Look2"
S798: "Version"
S799: "InvTall"
S800: "InvWide"
S801: "GoIn"
S802: "TurnOver"
S803: "GetOffV"
S804: "Shout"
S805: "undo"
S806: "NoVerbose"
S807: "Sit"
S808: "Dance"
S809: "VagueThink"
S810: "Pay"
S811: "Gibber"
S812: "Kiss_Inanimate"
S813: "Smile"
S814: "InviteVague"
S815: "Forget"
S816: "Sigh"
S817: "Frown"
S818: "VagueRemember"
S819: "Scream"
S820: "cry"
S821: "xyzzy"
S822: "author"
S823: "credits"
S824: "Wank"
S825: "Fly"
S826: "Fall"
S827: "FindVague"
S828: "Win"
S829: "Panic"
S830: "Dream"
S831: "Hide"
S832: "Spit"
S833: "Steal"
[End of text]
[End of file]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment