DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦f744f9903⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_bdfc99

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03d8       |    |		.CONST	0x03d8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0104       |    |		.CONST	0x0104								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0030       | 0  |		.CONST	0x0030								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 0093 0000  |    |		push_full_address	0x0
0012 6139       |a9  |		Indirect_Literal	Discrete,0x14c,{0x80000000, 0x00080000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 e002       |    |		Load	0x0,0x2
0015 0273       | s  |		Execute	Discrete,Plus
0016 e003       |    |		Load	0x0,0x3
0017 0273       | s  |		Execute	Discrete,Plus
0018 00d9       |    |		Load_Top	At_Offset_1
0019 e004       |    |		Load	0x0,0x4
001a 0386       |    |		Declare_Variable	Package,Visible
001b 00d8       |    |		Load_Top	At_Offset_0
001c 020f       |    |		Execute	Module,Activate
001d 4800       |H   |		Short_Literal	0x0
001e e005       |    |		Load	0x0,0x5
001f 00da       |    |		Load_Top	At_Offset_2
0020 0096       |    |		Execute	Package,Entry
0021 0129       | )  |		Execute	Any,Make_Visible
0022 4801       |H   |		Short_Literal	0x1
0023 e005       |    |		Load	0x0,0x5
0024 00db       |    |		Load_Top	At_Offset_3
0025 0096       |    |		Execute	Package,Entry
0026 0129       | )  |		Execute	Any,Make_Visible
0027 4800       |H   |		Short_Literal	0x0
0028 4803       |H   |		Short_Literal	0x3
0029 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
002b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002c 0093 0000  |    |		push_full_address	0x0
002e 6119       |a   |		Indirect_Literal	Discrete,0x148,{0x80000000, 0x00070000}
002f 0273       | s  |		Execute	Discrete,Plus
0030 e002       |    |		Load	0x0,0x2
0031 0273       | s  |		Execute	Discrete,Plus
0032 e006       |    |		Load	0x0,0x6
0033 0273       | s  |		Execute	Discrete,Plus
0034 00d9       |    |		Load_Top	At_Offset_1
0035 e004       |    |		Load	0x0,0x4
0036 0386       |    |		Declare_Variable	Package,Visible
0037 00d8       |    |		Load_Top	At_Offset_0
0038 020f       |    |		Execute	Module,Activate
0039 4800       |H   |		Short_Literal	0x0
003a e005       |    |		Load	0x0,0x5
003b 00da       |    |		Load_Top	At_Offset_2
003c 0096       |    |		Execute	Package,Entry
003d 0129       | )  |		Execute	Any,Make_Visible
003e 4801       |H   |		Short_Literal	0x1
003f e005       |    |		Load	0x0,0x5
0040 00db       |    |		Load_Top	At_Offset_3
0041 0096       |    |		Execute	Package,Entry
0042 0129       | )  |		Execute	Any,Make_Visible
0043 4802       |H   |		Short_Literal	0x2
0044 e005       |    |		Load	0x0,0x5
0045 e212       |    |		Load	0x1,0x12
0046 0096       |    |		Execute	Package,Entry
0047 0129       | )  |		Execute	Any,Make_Visible
0048 4803       |H   |		Short_Literal	0x3
0049 e005       |    |		Load	0x0,0x5
004a e212       |    |		Load	0x1,0x12
004b 0096       |    |		Execute	Package,Entry
004c 0129       | )  |		Execute	Any,Make_Visible
004d 4800       |H   |		Short_Literal	0x0
004e 4806       |H   |		Short_Literal	0x6
004f 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0051 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0052 0093 0000  |    |		push_full_address	0x0
0054 60ef       |`   |		Indirect_Literal	Discrete,0x144,{0x80000000, 0x00060000}
0055 0273       | s  |		Execute	Discrete,Plus
0056 e002       |    |		Load	0x0,0x2
0057 0273       | s  |		Execute	Discrete,Plus
0058 e007       |    |		Load	0x0,0x7
0059 0273       | s  |		Execute	Discrete,Plus
005a 00d9       |    |		Load_Top	At_Offset_1
005b e004       |    |		Load	0x0,0x4
005c 0386       |    |		Declare_Variable	Package,Visible
005d 00d8       |    |		Load_Top	At_Offset_0
005e 020f       |    |		Execute	Module,Activate
005f 4800       |H   |		Short_Literal	0x0
0060 e005       |    |		Load	0x0,0x5
0061 00da       |    |		Load_Top	At_Offset_2
0062 0096       |    |		Execute	Package,Entry
0063 0129       | )  |		Execute	Any,Make_Visible
0064 4801       |H   |		Short_Literal	0x1
0065 e005       |    |		Load	0x0,0x5
0066 00db       |    |		Load_Top	At_Offset_3
0067 0096       |    |		Execute	Package,Entry
0068 0129       | )  |		Execute	Any,Make_Visible
0069 4802       |H   |		Short_Literal	0x2
006a e005       |    |		Load	0x0,0x5
006b e218       |    |		Load	0x1,0x18
006c 0096       |    |		Execute	Package,Entry
006d 0129       | )  |		Execute	Any,Make_Visible
006e 4803       |H   |		Short_Literal	0x3
006f e005       |    |		Load	0x0,0x5
0070 e218       |    |		Load	0x1,0x18
0071 0096       |    |		Execute	Package,Entry
0072 0129       | )  |		Execute	Any,Make_Visible
0073 4804       |H   |		Short_Literal	0x4
0074 e005       |    |		Load	0x0,0x5
0075 e218       |    |		Load	0x1,0x18
0076 0096       |    |		Execute	Package,Entry
0077 0129       | )  |		Execute	Any,Make_Visible
0078 4805       |H   |		Short_Literal	0x5
0079 e005       |    |		Load	0x0,0x5
007a e218       |    |		Load	0x1,0x18
007b 0096       |    |		Execute	Package,Entry
007c 0129       | )  |		Execute	Any,Make_Visible
007d 4806       |H   |		Short_Literal	0x6
007e e005       |    |		Load	0x0,0x5
007f e218       |    |		Load	0x1,0x18
0080 0096       |    |		Execute	Package,Entry
0081 0129       | )  |		Execute	Any,Make_Visible
0082 4800       |H   |		Short_Literal	0x0
0083 4801       |H   |		Short_Literal	0x1
0084 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
0086 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0087 0093 0000  |    |		push_full_address	0x0
0089 60b6       |`   |		Indirect_Literal	Discrete,0x140,{0x80000000, 0x00050000}
008a 0273       | s  |		Execute	Discrete,Plus
008b e002       |    |		Load	0x0,0x2
008c 0273       | s  |		Execute	Discrete,Plus
008d e008       |    |		Load	0x0,0x8
008e 0273       | s  |		Execute	Discrete,Plus
008f 00d9       |    |		Load_Top	At_Offset_1
0090 e004       |    |		Load	0x0,0x4
0091 0386       |    |		Declare_Variable	Package,Visible
0092 00d8       |    |		Load_Top	At_Offset_0
0093 020f       |    |		Execute	Module,Activate
0094 4800       |H   |		Short_Literal	0x0
0095 e005       |    |		Load	0x0,0x5
0096 00da       |    |		Load_Top	At_Offset_2
0097 0096       |    |		Execute	Package,Entry
0098 0129       | )  |		Execute	Any,Make_Visible
0099 4801       |H   |		Short_Literal	0x1
009a e005       |    |		Load	0x0,0x5
009b 00db       |    |		Load_Top	At_Offset_3
009c 0096       |    |		Execute	Package,Entry
009d 0129       | )  |		Execute	Any,Make_Visible
009e 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
00a0 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
00a2 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
00a4 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
00a6 4800       |H   |		Short_Literal	0x0
00a7 4801       |H   |		Short_Literal	0x1
00a8 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
00aa 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00ab 4800       |H   |		Short_Literal	0x0
00ac 4803       |H   |		Short_Literal	0x3
00ad 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
00af 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00b0 4800       |H   |		Short_Literal	0x0
00b1 4802       |H   |		Short_Literal	0x2
00b2 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
00b4 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00b5 4800       |H   |		Short_Literal	0x0
00b6 4803       |H   |		Short_Literal	0x3
00b7 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
00b9 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00ba 4800       |H   |		Short_Literal	0x0
00bb 4801       |H   |		Short_Literal	0x1
00bc 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
00be 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00bf 0093 0000  |    |		push_full_address	0x0
00c1 607a       |`z  |		Indirect_Literal	Discrete,0x13c,{0x80000000, 0x00040000}
00c2 0273       | s  |		Execute	Discrete,Plus
00c3 e002       |    |		Load	0x0,0x2
00c4 0273       | s  |		Execute	Discrete,Plus
00c5 e009       |    |		Load	0x0,0x9
00c6 0273       | s  |		Execute	Discrete,Plus
00c7 4801       |H   |		Short_Literal	0x1
00c8 4814       |H   |		Short_Literal	0x14
00c9 e229       | )  |		Load	0x1,0x29
00ca e00a       |    |		Load	0x0,0xa
00cb 0386       |    |		Declare_Variable	Package,Visible
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 020f       |    |		Execute	Module,Activate
00ce 0093 0000  |    |		push_full_address	0x0
00d0 6067       |`g  |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00030000}
00d1 0273       | s  |		Execute	Discrete,Plus
00d2 e002       |    |		Load	0x0,0x2
00d3 0273       | s  |		Execute	Discrete,Plus
00d4 e00b       |    |		Load	0x0,0xb
00d5 0273       | s  |		Execute	Discrete,Plus
00d6 4802       |H   |		Short_Literal	0x2
00d7 4801       |H   |		Short_Literal	0x1
00d8 e22a       | *  |		Load	0x1,0x2a
00d9 e00a       |    |		Load	0x0,0xa
00da 0386       |    |		Declare_Variable	Package,Visible
00db 00d8       |    |		Load_Top	At_Offset_0
00dc 020f       |    |		Execute	Module,Activate
00dd 0093 0000  |    |		push_full_address	0x0
00df 6054       |`T  |		Indirect_Literal	Discrete,0x134,{0x80000000, 0x00020000}
00e0 0273       | s  |		Execute	Discrete,Plus
00e1 e002       |    |		Load	0x0,0x2
00e2 0273       | s  |		Execute	Discrete,Plus
00e3 e00c       |    |		Load	0x0,0xc
00e4 0273       | s  |		Execute	Discrete,Plus
00e5 4803       |H   |		Short_Literal	0x3
00e6 4814       |H   |		Short_Literal	0x14
00e7 e22b       | +  |		Load	0x1,0x2b
00e8 e00a       |    |		Load	0x0,0xa
00e9 0386       |    |		Declare_Variable	Package,Visible
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 020f       |    |		Execute	Module,Activate
00ec 0093 0000  |    |		push_full_address	0x0
00ee 6041       |`A  |		Indirect_Literal	Discrete,0x130,{0x80000000, 0x00010000}
00ef 0273       | s  |		Execute	Discrete,Plus
00f0 e002       |    |		Load	0x0,0x2
00f1 0273       | s  |		Execute	Discrete,Plus
00f2 e00d       |    |		Load	0x0,0xd
00f3 0273       | s  |		Execute	Discrete,Plus
00f4 4804       |H   |		Short_Literal	0x4
00f5 4814       |H   |		Short_Literal	0x14
00f6 e22c       | ,  |		Load	0x1,0x2c
00f7 e00a       |    |		Load	0x0,0xa
00f8 0386       |    |		Declare_Variable	Package,Visible
00f9 00d8       |    |		Load_Top	At_Offset_0
00fa 020f       |    |		Execute	Module,Activate
00fb 00bf       |    |		Action	Accept_Activation
00fc 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0103 00c7       |    |		Action	Elaborate_Subprogram
0104			BODY_0008:
0104 00bc       |    |		Action	Signal_Activated
0105 00bb       |    |		Action	Signal_Completion
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7807       |x   |		Jump	0x115								; case 0x1
010e 780a       |x   |		Jump	0x119								; case 0x2
010f 780e       |x   |		Jump	0x11e								; case 0x3
0110 7811       |x   |		Jump	0x122								; case 0x4
0111 7812       |x   |		Jump	0x124								; case 0x5
0112 7813       |x   |		Jump	0x126								; case 0x6
0113 7816       |x   |		Jump	0x12a								; case 0x7
0114 4302       |C   |		.XXX[0x1]
0115 00da       |    |		Load_Top	At_Offset_2
0116 0091 0316  |    |		Action	Push_String_Extended_Indexed,0x316				; "S_SATISFIED"
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 00db       |    |		Load_Top	At_Offset_3
011b 00e0       |    |		Load_Encached	Standard_Cache
011c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 00da       |    |		Load_Top	At_Offset_2
011f 00e0       |    |		Load_Encached	Standard_Cache
0120 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0121 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0122 00db       |    |		Load_Top	At_Offset_3
0123 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0124 00db       |    |		Load_Top	At_Offset_3
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 e20d       |    |		Load	0x1,0xd
0127 00dc       |    |		Load_Top	At_Offset_4
0128 0267       | g  |		Execute	Discrete,Predecessor
0129 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012a e20d       |    |		Load	0x1,0xd
012b 00dc       |    |		Load_Top	At_Offset_4
012c 0268       | h  |		Execute	Discrete,Successor
012d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012e 0000 0000  |    |		.XXX[0x2]
0130 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0134 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
013c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0140 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0144 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0148 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
014c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4607       |F   |		Jump_Case	0x8
0154 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0155 7807       |x   |		Jump	0x15d								; case 0x1
0156 780a       |x   |		Jump	0x161								; case 0x2
0157 780e       |x   |		Jump	0x166								; case 0x3
0158 7811       |x   |		Jump	0x16a								; case 0x4
0159 7812       |x   |		Jump	0x16c								; case 0x5
015a 7813       |x   |		Jump	0x16e								; case 0x6
015b 7816       |x   |		Jump	0x172								; case 0x7
015c 4302       |C   |		.XXX[0x1]
015d 00da       |    |		Load_Top	At_Offset_2
015e 0091 0318  |    |		Action	Push_String_Extended_Indexed,0x318				; "GT_ON"
0160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0161 00db       |    |		Load_Top	At_Offset_3
0162 00db       |    |		Load_Top	At_Offset_3
0163 00e0       |    |		Load_Encached	Standard_Cache
0164 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0165 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0166 00da       |    |		Load_Top	At_Offset_2
0167 00e0       |    |		Load_Encached	Standard_Cache
0168 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0169 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
016a 00db       |    |		Load_Top	At_Offset_3
016b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016c 00db       |    |		Load_Top	At_Offset_3
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e e211       |    |		Load	0x1,0x11
016f 00dc       |    |		Load_Top	At_Offset_4
0170 0267       | g  |		Execute	Discrete,Predecessor
0171 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0172 e211       |    |		Load	0x1,0x11
0173 00dc       |    |		Load_Top	At_Offset_4
0174 0268       | h  |		Execute	Discrete,Successor
0175 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4607       |F   |		Jump_Case	0x8
017c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
017d 7807       |x   |		Jump	0x185								; case 0x1
017e 780a       |x   |		Jump	0x189								; case 0x2
017f 780e       |x   |		Jump	0x18e								; case 0x3
0180 7811       |x   |		Jump	0x192								; case 0x4
0181 7812       |x   |		Jump	0x194								; case 0x5
0182 7813       |x   |		Jump	0x196								; case 0x6
0183 7816       |x   |		Jump	0x19a								; case 0x7
0184 4302       |C   |		.XXX[0x1]
0185 00da       |    |		Load_Top	At_Offset_2
0186 0091 031c  |    |		Action	Push_String_Extended_Indexed,0x31c				; "ON_BANANAS"
0188 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0189 00db       |    |		Load_Top	At_Offset_3
018a 00db       |    |		Load_Top	At_Offset_3
018b 00e0       |    |		Load_Encached	Standard_Cache
018c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018e 00da       |    |		Load_Top	At_Offset_2
018f 00e0       |    |		Load_Encached	Standard_Cache
0190 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0191 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0192 00db       |    |		Load_Top	At_Offset_3
0193 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0194 00db       |    |		Load_Top	At_Offset_3
0195 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0196 e217       |    |		Load	0x1,0x17
0197 00dc       |    |		Load_Top	At_Offset_4
0198 0267       | g  |		Execute	Discrete,Predecessor
0199 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019a e217       |    |		Load	0x1,0x17
019b 00dc       |    |		Load_Top	At_Offset_4
019c 0268       | h  |		Execute	Discrete,Successor
019d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019e 0000 0000  |    |		.XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 4607       |F   |		Jump_Case	0x8
01a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01a5 7807       |x   |		Jump	0x1ad								; case 0x1
01a6 780a       |x   |		Jump	0x1b1								; case 0x2
01a7 780e       |x   |		Jump	0x1b6								; case 0x3
01a8 7811       |x   |		Jump	0x1ba								; case 0x4
01a9 7812       |x   |		Jump	0x1bc								; case 0x5
01aa 7813       |x   |		Jump	0x1be								; case 0x6
01ab 7816       |x   |		Jump	0x1c2								; case 0x7
01ac 4302       |C   |		.XXX[0x1]
01ad 00da       |    |		Load_Top	At_Offset_2
01ae 0091 0323  |   #|		Action	Push_String_Extended_Indexed,0x323				; "POW_HEAVY"
01b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 00e0       |    |		Load_Encached	Standard_Cache
01b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 00e0       |    |		Load_Encached	Standard_Cache
01b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01ba 00db       |    |		Load_Top	At_Offset_3
01bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01bc 00db       |    |		Load_Top	At_Offset_3
01bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01be e220       |    |		Load	0x1,0x20
01bf 00dc       |    |		Load_Top	At_Offset_4
01c0 0267       | g  |		Execute	Discrete,Predecessor
01c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c2 e220       |    |		Load	0x1,0x20
01c3 00dc       |    |		Load_Top	At_Offset_4
01c4 0268       | h  |		Execute	Discrete,Successor
01c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc e219       |    |		Load	0x1,0x19
01cd 016f       | o  |		Execute	Variant_Record,Equal
01ce 6803       |h   |		Jump_Zero	0x1d2
01cf 0092 0334  |   4|		Action	Push_String_Extended,0x334					; "bananas"
01d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d2 00da       |    |		Load_Top	At_Offset_2
01d3 e21a       |    |		Load	0x1,0x1a
01d4 016f       | o  |		Execute	Variant_Record,Equal
01d5 6803       |h   |		Jump_Zero	0x1d9
01d6 0092 0335  |   5|		Action	Push_String_Extended,0x335					; "floor"
01d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d9 00da       |    |		Load_Top	At_Offset_2
01da e21b       |    |		Load	0x1,0x1b
01db 016f       | o  |		Execute	Variant_Record,Equal
01dc 6803       |h   |		Jump_Zero	0x1e0
01dd 0092 0336  |   6|		Action	Push_String_Extended,0x336					; "blanket"
01df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e0 00da       |    |		Load_Top	At_Offset_2
01e1 e21c       |    |		Load	0x1,0x1c
01e2 016f       | o  |		Execute	Variant_Record,Equal
01e3 6803       |h   |		Jump_Zero	0x1e7
01e4 0092 0337  |   7|		Action	Push_String_Extended,0x337					; "ladder"
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 e21d       |    |		Load	0x1,0x1d
01e9 016f       | o  |		Execute	Variant_Record,Equal
01ea 6803       |h   |		Jump_Zero	0x1ee
01eb 0092 0338  |   8|		Action	Push_String_Extended,0x338					; "couch"
01ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ee 00da       |    |		Load_Top	At_Offset_2
01ef e21e       |    |		Load	0x1,0x1e
01f0 016f       | o  |		Execute	Variant_Record,Equal
01f1 6803       |h   |		Jump_Zero	0x1f5
01f2 0092 0339  |   9|		Action	Push_String_Extended,0x339					; "ceiling"
01f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 e21f       |    |		Load	0x1,0x1f
01f7 016f       | o  |		Execute	Variant_Record,Equal
01f8 6803       |h   |		Jump_Zero	0x1fc
01f9 0092 033a  |   :|		Action	Push_String_Extended,0x33a					; "no object"
01fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fc 00ea       |    |		Load_Encached	Null_String_Cache
01fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fe 0000 0000  |    |		.XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2
0204 e222       | "  |		Load	0x1,0x22
0205 016f       | o  |		Execute	Variant_Record,Equal
0206 6803       |h   |		Jump_Zero	0x20a
0207 0092 033b  |   ;|		Action	Push_String_Extended,0x33b					; "heavy"
0209 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020a 00da       |    |		Load_Top	At_Offset_2
020b e223       | #  |		Load	0x1,0x23
020c 016f       | o  |		Execute	Variant_Record,Equal
020d 6803       |h   |		Jump_Zero	0x211
020e 0092 033c  |   <|		Action	Push_String_Extended,0x33c					; "light"
0210 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0211 00ea       |    |		Load_Encached	Null_String_Cache
0212 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0213 0000 0000  |    |		.BLANK	0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c e213       |    |		Load	0x1,0x13
021d 016f       | o  |		Execute	Variant_Record,Equal
021e 6803       |h   |		Jump_Zero	0x222
021f 0092 033d  |   =|		Action	Push_String_Extended,0x33d					; "on"
0221 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0222 00da       |    |		Load_Top	At_Offset_2
0223 e214       |    |		Load	0x1,0x14
0224 016f       | o  |		Execute	Variant_Record,Equal
0225 6803       |h   |		Jump_Zero	0x229
0226 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "holds"
0228 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0229 00da       |    |		Load_Top	At_Offset_2
022a e215       |    |		Load	0x1,0x15
022b 016f       | o  |		Execute	Variant_Record,Equal
022c 6803       |h   |		Jump_Zero	0x230
022d 0092 033f  |   ?|		Action	Push_String_Extended,0x33f					; "at"
022f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0230 00ea       |    |		Load_Encached	Null_String_Cache
0231 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0232 0000 0000  |    |		.BLANK	0000[0x6]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00da       |    |		Load_Top	At_Offset_2
023c e20f       |    |		Load	0x1,0xf
023d 016f       | o  |		Execute	Variant_Record,Equal
023e 6803       |h   |		Jump_Zero	0x242
023f 0092 0340  |   @|		Action	Push_String_Extended,0x340					; "satisfied"
0241 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0242 00da       |    |		Load_Top	At_Offset_2
0243 e210       |    |		Load	0x1,0x10
0244 016f       | o  |		Execute	Variant_Record,Equal
0245 6803       |h   |		Jump_Zero	0x249
0246 0092 0341  |   A|		Action	Push_String_Extended,0x341					; "active"
0248 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0249 00ea       |    |		Load_Encached	Null_String_Cache
024a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 4607       |F   |		Jump_Case	0x8
0254 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0255 7807       |x   |		Jump	0x25d								; case 0x1
0256 780a       |x   |		Jump	0x261								; case 0x2
0257 780e       |x   |		Jump	0x266								; case 0x3
0258 7811       |x   |		Jump	0x26a								; case 0x4
0259 7812       |x   |		Jump	0x26c								; case 0x5
025a 7813       |x   |		Jump	0x26e								; case 0x6
025b 7816       |x   |		Jump	0x272								; case 0x7
025c 4302       |C   |		.XXX[0x1]
025d 00da       |    |		Load_Top	At_Offset_2
025e 0091 0325  |   %|		Action	Push_String_Extended_Indexed,0x325				; "X"
0260 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0261 00db       |    |		Load_Top	At_Offset_3
0262 00db       |    |		Load_Top	At_Offset_3
0263 00e0       |    |		Load_Encached	Standard_Cache
0264 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0265 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0266 00da       |    |		Load_Top	At_Offset_2
0267 00e0       |    |		Load_Encached	Standard_Cache
0268 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0269 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
026a 00db       |    |		Load_Top	At_Offset_3
026b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
026c 00db       |    |		Load_Top	At_Offset_3
026d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
026e e228       | (  |		Load	0x1,0x28
026f 00dc       |    |		Load_Top	At_Offset_4
0270 0267       | g  |		Execute	Discrete,Predecessor
0271 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0272 e228       | (  |		Load	0x1,0x28
0273 00dc       |    |		Load_Top	At_Offset_4
0274 0268       | h  |		Execute	Discrete,Successor
0275 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 4607       |F   |		Jump_Case	0x8
027c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
027d 7807       |x   |		Jump	0x285								; case 0x1
027e 780a       |x   |		Jump	0x289								; case 0x2
027f 780e       |x   |		Jump	0x28e								; case 0x3
0280 7811       |x   |		Jump	0x292								; case 0x4
0281 7812       |x   |		Jump	0x294								; case 0x5
0282 7813       |x   |		Jump	0x296								; case 0x6
0283 7816       |x   |		Jump	0x29a								; case 0x7
0284 4302       |C   |		.XXX[0x1]
0285 00da       |    |		Load_Top	At_Offset_2
0286 0091 0327  |   '|		Action	Push_String_Extended_Indexed,0x327				; "OBJECT_NAME"
0288 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0289 00db       |    |		Load_Top	At_Offset_3
028a 00db       |    |		Load_Top	At_Offset_3
028b 00e0       |    |		Load_Encached	Standard_Cache
028c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
028d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
028e 00da       |    |		Load_Top	At_Offset_2
028f 00e0       |    |		Load_Encached	Standard_Cache
0290 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0291 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0292 00db       |    |		Load_Top	At_Offset_3
0293 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0294 00db       |    |		Load_Top	At_Offset_3
0295 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0296 e229       | )  |		Load	0x1,0x29
0297 00dc       |    |		Load_Top	At_Offset_4
0298 0267       | g  |		Execute	Discrete,Predecessor
0299 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029a e229       | )  |		Load	0x1,0x29
029b 00dc       |    |		Load_Top	At_Offset_4
029c 0268       | h  |		Execute	Discrete,Successor
029d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 4607       |F   |		Jump_Case	0x8
02a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02a5 7807       |x   |		Jump	0x2ad								; case 0x1
02a6 780a       |x   |		Jump	0x2b1								; case 0x2
02a7 780e       |x   |		Jump	0x2b6								; case 0x3
02a8 7811       |x   |		Jump	0x2ba								; case 0x4
02a9 7812       |x   |		Jump	0x2bc								; case 0x5
02aa 7813       |x   |		Jump	0x2be								; case 0x6
02ab 7816       |x   |		Jump	0x2c2								; case 0x7
02ac 4302       |C   |		.XXX[0x1]
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 0091 032b  |   +|		Action	Push_String_Extended_Indexed,0x32b				; "LOCATION"
02b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 00db       |    |		Load_Top	At_Offset_3
02b3 00e0       |    |		Load_Encached	Standard_Cache
02b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b6 00da       |    |		Load_Top	At_Offset_2
02b7 00e0       |    |		Load_Encached	Standard_Cache
02b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ba 00db       |    |		Load_Top	At_Offset_3
02bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bc 00db       |    |		Load_Top	At_Offset_3
02bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02be e22a       | *  |		Load	0x1,0x2a
02bf 00dc       |    |		Load_Top	At_Offset_4
02c0 0267       | g  |		Execute	Discrete,Predecessor
02c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c2 e22a       | *  |		Load	0x1,0x2a
02c3 00dc       |    |		Load_Top	At_Offset_4
02c4 0268       | h  |		Execute	Discrete,Successor
02c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c6 0000 0000  |    |		.XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4607       |F   |		Jump_Case	0x8
02cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02cd 7807       |x   |		Jump	0x2d5								; case 0x1
02ce 780a       |x   |		Jump	0x2d9								; case 0x2
02cf 780e       |x   |		Jump	0x2de								; case 0x3
02d0 7811       |x   |		Jump	0x2e2								; case 0x4
02d1 7812       |x   |		Jump	0x2e4								; case 0x5
02d2 7813       |x   |		Jump	0x2e6								; case 0x6
02d3 7816       |x   |		Jump	0x2ea								; case 0x7
02d4 4302       |C   |		.XXX[0x1]
02d5 00da       |    |		Load_Top	At_Offset_2
02d6 0091 032e  |   .|		Action	Push_String_Extended_Indexed,0x32e				; "STATUS"
02d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02d9 00db       |    |		Load_Top	At_Offset_3
02da 00db       |    |		Load_Top	At_Offset_3
02db 00e0       |    |		Load_Encached	Standard_Cache
02dc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02de 00da       |    |		Load_Top	At_Offset_2
02df 00e0       |    |		Load_Encached	Standard_Cache
02e0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02e1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02e2 00db       |    |		Load_Top	At_Offset_3
02e3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e4 00db       |    |		Load_Top	At_Offset_3
02e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e6 e22b       | +  |		Load	0x1,0x2b
02e7 00dc       |    |		Load_Top	At_Offset_4
02e8 0267       | g  |		Execute	Discrete,Predecessor
02e9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ea e22b       | +  |		Load	0x1,0x2b
02eb 00dc       |    |		Load_Top	At_Offset_4
02ec 0268       | h  |		Execute	Discrete,Successor
02ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 4607       |F   |		Jump_Case	0x8
02f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02f5 7807       |x   |		Jump	0x2fd								; case 0x1
02f6 780a       |x   |		Jump	0x301								; case 0x2
02f7 780e       |x   |		Jump	0x306								; case 0x3
02f8 7811       |x   |		Jump	0x30a								; case 0x4
02f9 7812       |x   |		Jump	0x30c								; case 0x5
02fa 7813       |x   |		Jump	0x30e								; case 0x6
02fb 7816       |x   |		Jump	0x312								; case 0x7
02fc 4302       |C   |		.XXX[0x1]
02fd 00da       |    |		Load_Top	At_Offset_2
02fe 0091 0332  |   2|		Action	Push_String_Extended_Indexed,0x332				; "GOAL_TYPE"
0300 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0301 00db       |    |		Load_Top	At_Offset_3
0302 00db       |    |		Load_Top	At_Offset_3
0303 00e0       |    |		Load_Encached	Standard_Cache
0304 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0305 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0306 00da       |    |		Load_Top	At_Offset_2
0307 00e0       |    |		Load_Encached	Standard_Cache
0308 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0309 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
030a 00db       |    |		Load_Top	At_Offset_3
030b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
030c 00db       |    |		Load_Top	At_Offset_3
030d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
030e e22c       | ,  |		Load	0x1,0x2c
030f 00dc       |    |		Load_Top	At_Offset_4
0310 0267       | g  |		Execute	Discrete,Predecessor
0311 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0312 e22c       | ,  |		Load	0x1,0x2c
0313 00dc       |    |		Load_Top	At_Offset_4
0314 0268       | h  |		Execute	Discrete,Successor
0315 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0316 ; --------------------------------------------------------------------------------------
0316 ; STRING TABLE
0316 ; --------------------------------------------------------------------------------------
0316 005a       | Z  |		.STRTAB	0x005a->0x0343							; "S_SATISFIED"
0317 0063       | c  |		.STRTAB	0x0063->0x0348							; "S_ACTIVE"
0318 0069       | i  |		.STRTAB	0x0069->0x034c							; "GT_ON"
0319 006c       | l  |		.STRTAB	0x006c->0x034f							; "GT_HOLDS"
031a 0072       | r  |		.STRTAB	0x0072->0x0353							; "GT_AT"
031b 0075       | u  |		.STRTAB	0x0075->0x0355							; "GT_GENERAL"
031c 007d       | }  |		.STRTAB	0x007d->0x035a							; "ON_BANANAS"
031d 0085       |    |		.STRTAB	0x0085->0x035f							; "ON_FLOOR"
031e 008b       |    |		.STRTAB	0x008b->0x0363							; "ON_BLANKET"
031f 0093       |    |		.STRTAB	0x0093->0x0368							; "ON_LADDER"
0320 009a       |    |		.STRTAB	0x009a->0x036d							; "ON_COUCH"
0321 00a0       |    |		.STRTAB	0x00a0->0x0371							; "ON_CEILING"
0322 00a8       |    |		.STRTAB	0x00a8->0x0376							; "ON_NOTHING"
0323 00b0       |    |		.STRTAB	0x00b0->0x037b							; "POW_HEAVY"
0324 00b7       |    |		.STRTAB	0x00b7->0x037f							; "POW_LIGHT"
0325 00be       |    |		.STRTAB	0x00be->0x0384							; "X"
0326 00bd       |    |		.STRTAB	0x00bd->0x0384							; "Y"
0327 00bc       |    |		.STRTAB	0x00bc->0x0385							; "OBJECT_NAME"
0328 00c5       |    |		.STRTAB	0x00c5->0x038a							; "LOCATION"
0329 00cb       |    |		.STRTAB	0x00cb->0x038e							; "WEIGHT"
032a 00cf       |    |		.STRTAB	0x00cf->0x0391							; "ON"
032b 00cf       |    |		.STRTAB	0x00cf->0x0392							; "LOCATION"
032c 00d5       |    |		.STRTAB	0x00d5->0x0396							; "ON"
032d 00d5       |    |		.STRTAB	0x00d5->0x0397							; "HOLDS"
032e 00d8       |    |		.STRTAB	0x00d8->0x039a							; "STATUS"
032f 00dc       |    |		.STRTAB	0x00dc->0x039d							; "GOAL_TYPE"
0330 00e3       |    |		.STRTAB	0x00e3->0x03a1							; "OBJECT_NAME"
0331 00ec       |    |		.STRTAB	0x00ec->0x03a7							; "TO"
0332 00ec       |    |		.STRTAB	0x00ec->0x03a8							; "GOAL_TYPE"
0333 00f3       |    |		.STRTAB	0x00f3->0x03ac							; "NAME"
0334 00f5       |    |		.STRTAB	0x00f5->0x03ae							; "bananas"
0335 00fa       |    |		.STRTAB	0x00fa->0x03b2							; "floor"
0336 00fd       |    |		.STRTAB	0x00fd->0x03b4							; "blanket"
0337 0102       |    |		.STRTAB	0x0102->0x03b8							; "ladder"
0338 0106       |    |		.STRTAB	0x0106->0x03bb							; "couch"
0339 0109       |    |		.STRTAB	0x0109->0x03bd							; "ceiling"
033a 010e       |    |		.STRTAB	0x010e->0x03c1							; "no object"
033b 0115       |    |		.STRTAB	0x0115->0x03c5							; "heavy"
033c 0118       |    |		.STRTAB	0x0118->0x03c8							; "light"
033d 011b       |    |		.STRTAB	0x011b->0x03ca							; "on"
033e 011b       |    |		.STRTAB	0x011b->0x03cb							; "holds"
033f 011e       |    |		.STRTAB	0x011e->0x03ce							; "at"
0340 011e       |    |		.STRTAB	0x011e->0x03cf							; "satisfied"
0341 0125       | %  |		.STRTAB	0x0125->0x03d3							; "active"
0342 0129       | )  |		.STREND 0x0129->0x03d6
0343 535f 5341  |S_SA|		.STRTAB_STRINGS
03d7 0000       |    |		.XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x0e8e,0x0000,0x0001,0x000f
03de 000b 041a  |    |		.DBG4T	0x000b,0x041a,0x8000,0x0000
03e2 00fc 0440  |   @|		.DBG4T	0x00fc,0x0440,0x8000,0x0000
03e6 010b 0000  |    |		.DBG4T	0x010b,0x0000,0x0005,0x0000
03ea 0153 0000  | S  |		.DBG4T	0x0153,0x0000,0x0005,0x0000
03ee 017b 0000  | {  |		.DBG4T	0x017b,0x0000,0x0005,0x0000
03f2 01a3 0000  |    |		.DBG4T	0x01a3,0x0000,0x0005,0x0000
03f6 01cb 0446  |   F|		.DBG4T	0x01cb,0x0446,0x0002,0x0000
03fa 0203 0457  |   W|		.DBG4T	0x0203,0x0457,0x0002,0x0000
03fe 021b 045e  |   ^|		.DBG4T	0x021b,0x045e,0x0002,0x0000
0402 023b 0467  | ; g|		.DBG4T	0x023b,0x0467,0x0002,0x0000
0406 0253 0000  | S  |		.DBG4T	0x0253,0x0000,0x0005,0x0000
040a 027b 0000  | {  |		.DBG4T	0x027b,0x0000,0x0005,0x0000
040e 02a3 0000  |    |		.DBG4T	0x02a3,0x0000,0x0005,0x0000
0412 02cb 0000  |    |		.DBG4T	0x02cb,0x0000,0x0005,0x0000
0416 02f3 0000  |    |		.DBG4T	0x02f3,0x0000,0x0005,0x0000
041a ; --------------------------------------------------------------------------------------
041a ; Debug chain
041a ; --------------------------------------------------------------------------------------
041a 0024 0000  | $  |		.DBGLEN	0x0024,0x0000
041c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x001d,0x0022,0x0027,0x002c,0x0039,0x003e,0x0043,0x0048,0x004d,0x0052,0x005f,0x0064,0x0069,0x006e,0x0073,0x0078,0x007d,0x0082,0x0087,0x0094,0x0099,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00ab,0x00b0,0x00b5,0x00ba,0x00bf,0x00ce,0x00dd,0x00ec
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug chain
0440 ; --------------------------------------------------------------------------------------
0440 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0442 00fc 00fe  |    |		.DBGLNO	0x00fc,0x00fe,0x0100,0x0102
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug chain
0446 ; --------------------------------------------------------------------------------------
0446 0000 000f  |    |		.DBGLEN	0x0000,0x000f
0448 01cb 01cf  |    |		.DBGLNO	0x01cb,0x01cf,0x01d2,0x01d6,0x01d9,0x01dd,0x01e0,0x01e4,0x01e7,0x01eb,0x01ee,0x01f2,0x01f5,0x01f9,0x01fc
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0459 0203 0207  |    |		.DBGLNO	0x0203,0x0207,0x020a,0x020e,0x0211
045e ; --------------------------------------------------------------------------------------
045e ; Debug chain
045e ; --------------------------------------------------------------------------------------
045e 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0460 021b 021f  |    |		.DBGLNO	0x021b,0x021f,0x0222,0x0226,0x0229,0x022d,0x0230
0467 ; --------------------------------------------------------------------------------------
0467 ; Debug chain
0467 ; --------------------------------------------------------------------------------------
0467 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0469 023b 023f  | ; ?|		.DBGLNO	0x023b,0x023f,0x0242,0x0246,0x0249
046e 0000 0000  |    |		.BLANK	0000[0x192]