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

⟦c91019945⟧

    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 03a0       |    |		.CONST	0x03a0								; 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 00f6       |    |		.CONST	0x00f6								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4802       |H   |		Short_Literal	0x2
000d 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 4800       |H   |		Short_Literal	0x0
0016 4801       |H   |		Short_Literal	0x1
0017 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0019 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001a 4800       |H   |		Short_Literal	0x0
001b 4802       |H   |		Short_Literal	0x2
001c 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
001e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001f 0093 0000  |    |		push_full_address	0x0
0021 6122       |a"  |		Indirect_Literal	Discrete,0x144,{0x80000000, 0x000a0000}
0022 0273       | s  |		Execute	Discrete,Plus
0023 e002       |    |		Load	0x0,0x2
0024 0273       | s  |		Execute	Discrete,Plus
0025 e003       |    |		Load	0x0,0x3
0026 0273       | s  |		Execute	Discrete,Plus
0027 e20d       |    |		Load	0x1,0xd
0028 e004       |    |		Load	0x0,0x4
0029 0386       |    |		Declare_Variable	Package,Visible
002a 00d8       |    |		Load_Top	At_Offset_0
002b 020f       |    |		Execute	Module,Activate
002c 0093 0000  |    |		push_full_address	0x0
002e 6111       |a   |		Indirect_Literal	Discrete,0x140,{0x80000000, 0x00090000}
002f 0273       | s  |		Execute	Discrete,Plus
0030 e002       |    |		Load	0x0,0x2
0031 0273       | s  |		Execute	Discrete,Plus
0032 e005       |    |		Load	0x0,0x5
0033 0273       | s  |		Execute	Discrete,Plus
0034 e20e       |    |		Load	0x1,0xe
0035 e004       |    |		Load	0x0,0x4
0036 0386       |    |		Declare_Variable	Package,Visible
0037 00d8       |    |		Load_Top	At_Offset_0
0038 020f       |    |		Execute	Module,Activate
0039 0093 0000  |    |		push_full_address	0x0
003b 6100       |a   |		Indirect_Literal	Discrete,0x13c,{0x80000000, 0x00080000}
003c 0273       | s  |		Execute	Discrete,Plus
003d e002       |    |		Load	0x0,0x2
003e 0273       | s  |		Execute	Discrete,Plus
003f e006       |    |		Load	0x0,0x6
0040 0273       | s  |		Execute	Discrete,Plus
0041 e20f       |    |		Load	0x1,0xf
0042 e004       |    |		Load	0x0,0x4
0043 0386       |    |		Declare_Variable	Package,Visible
0044 00d8       |    |		Load_Top	At_Offset_0
0045 020f       |    |		Execute	Module,Activate
0046 0093 0000  |    |		push_full_address	0x0
0048 60ef       |`   |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00070000}
0049 0273       | s  |		Execute	Discrete,Plus
004a e002       |    |		Load	0x0,0x2
004b 0273       | s  |		Execute	Discrete,Plus
004c e007       |    |		Load	0x0,0x7
004d 0273       | s  |		Execute	Discrete,Plus
004e e210       |    |		Load	0x1,0x10
004f e004       |    |		Load	0x0,0x4
0050 0386       |    |		Declare_Variable	Package,Visible
0051 00d8       |    |		Load_Top	At_Offset_0
0052 020f       |    |		Execute	Module,Activate
0053 4800       |H   |		Short_Literal	0x0
0054 e008       |    |		Load	0x0,0x8
0055 e211       |    |		Load	0x1,0x11
0056 0096       |    |		Execute	Package,Entry
0057 0129       | )  |		Execute	Any,Make_Visible
0058 4801       |H   |		Short_Literal	0x1
0059 e008       |    |		Load	0x0,0x8
005a e211       |    |		Load	0x1,0x11
005b 0096       |    |		Execute	Package,Entry
005c 0129       | )  |		Execute	Any,Make_Visible
005d 4802       |H   |		Short_Literal	0x2
005e e008       |    |		Load	0x0,0x8
005f e211       |    |		Load	0x1,0x11
0060 0096       |    |		Execute	Package,Entry
0061 0129       | )  |		Execute	Any,Make_Visible
0062 4800       |H   |		Short_Literal	0x0
0063 e008       |    |		Load	0x0,0x8
0064 e212       |    |		Load	0x1,0x12
0065 0096       |    |		Execute	Package,Entry
0066 0129       | )  |		Execute	Any,Make_Visible
0067 4801       |H   |		Short_Literal	0x1
0068 e008       |    |		Load	0x0,0x8
0069 e212       |    |		Load	0x1,0x12
006a 0096       |    |		Execute	Package,Entry
006b 0129       | )  |		Execute	Any,Make_Visible
006c 4800       |H   |		Short_Literal	0x0
006d e008       |    |		Load	0x0,0x8
006e e213       |    |		Load	0x1,0x13
006f 0096       |    |		Execute	Package,Entry
0070 0129       | )  |		Execute	Any,Make_Visible
0071 4801       |H   |		Short_Literal	0x1
0072 e008       |    |		Load	0x0,0x8
0073 e213       |    |		Load	0x1,0x13
0074 0096       |    |		Execute	Package,Entry
0075 0129       | )  |		Execute	Any,Make_Visible
0076 4800       |H   |		Short_Literal	0x0
0077 e008       |    |		Load	0x0,0x8
0078 e214       |    |		Load	0x1,0x14
0079 0096       |    |		Execute	Package,Entry
007a 0129       | )  |		Execute	Any,Make_Visible
007b 4801       |H   |		Short_Literal	0x1
007c e008       |    |		Load	0x0,0x8
007d e214       |    |		Load	0x1,0x14
007e 0096       |    |		Execute	Package,Entry
007f 0129       | )  |		Execute	Any,Make_Visible
0080 4802       |H   |		Short_Literal	0x2
0081 e008       |    |		Load	0x0,0x8
0082 e214       |    |		Load	0x1,0x14
0083 0096       |    |		Execute	Package,Entry
0084 0129       | )  |		Execute	Any,Make_Visible
0085 4800       |H   |		Short_Literal	0x0
0086 4801       |H   |		Short_Literal	0x1
0087 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
0089 03fe       |    |		Declare_Type	Discrete,Defined,Visible
008a 4800       |H   |		Short_Literal	0x0
008b 4801       |H   |		Short_Literal	0x1
008c 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
008e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
008f 4800       |H   |		Short_Literal	0x0
0090 4802       |H   |		Short_Literal	0x2
0091 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0093 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0094 0093 0000  |    |		push_full_address	0x0
0096 609d       |`   |		Indirect_Literal	Discrete,0x134,{0x80000000, 0x00060000}
0097 0273       | s  |		Execute	Discrete,Plus
0098 e002       |    |		Load	0x0,0x2
0099 0273       | s  |		Execute	Discrete,Plus
009a e009       |    |		Load	0x0,0x9
009b 0273       | s  |		Execute	Discrete,Plus
009c 4800       |H   |		Short_Literal	0x0
009d 481e       |H   |		Short_Literal	0x1e
009e e21f       |    |		Load	0x1,0x1f
009f e00a       |    |		Load	0x0,0xa
00a0 0386       |    |		Declare_Variable	Package,Visible
00a1 00d8       |    |		Load_Top	At_Offset_0
00a2 020f       |    |		Execute	Module,Activate
00a3 0093 0000  |    |		push_full_address	0x0
00a5 608a       |`   |		Indirect_Literal	Discrete,0x130,{0x80000000, 0x00050000}
00a6 0273       | s  |		Execute	Discrete,Plus
00a7 e002       |    |		Load	0x0,0x2
00a8 0273       | s  |		Execute	Discrete,Plus
00a9 e00b       |    |		Load	0x0,0xb
00aa 0273       | s  |		Execute	Discrete,Plus
00ab 4802       |H   |		Short_Literal	0x2
00ac 4814       |H   |		Short_Literal	0x14
00ad e220       |    |		Load	0x1,0x20
00ae e00a       |    |		Load	0x0,0xa
00af 0386       |    |		Declare_Variable	Package,Visible
00b0 00d8       |    |		Load_Top	At_Offset_0
00b1 020f       |    |		Execute	Module,Activate
00b2 0093 0000  |    |		push_full_address	0x0
00b4 6077       |`w  |		Indirect_Literal	Discrete,0x12c,{0x80000000, 0x00040000}
00b5 0273       | s  |		Execute	Discrete,Plus
00b6 e002       |    |		Load	0x0,0x2
00b7 0273       | s  |		Execute	Discrete,Plus
00b8 e00c       |    |		Load	0x0,0xc
00b9 0273       | s  |		Execute	Discrete,Plus
00ba 4801       |H   |		Short_Literal	0x1
00bb 480a       |H   |		Short_Literal	0xa
00bc e221       | !  |		Load	0x1,0x21
00bd e00a       |    |		Load	0x0,0xa
00be 0386       |    |		Declare_Variable	Package,Visible
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 020f       |    |		Execute	Module,Activate
00c1 0093 0000  |    |		push_full_address	0x0
00c3 6064       |`d  |		Indirect_Literal	Discrete,0x128,{0x80000000, 0x00030000}
00c4 0273       | s  |		Execute	Discrete,Plus
00c5 e002       |    |		Load	0x0,0x2
00c6 0273       | s  |		Execute	Discrete,Plus
00c7 e00d       |    |		Load	0x0,0xd
00c8 0273       | s  |		Execute	Discrete,Plus
00c9 4814       |H   |		Short_Literal	0x14
00ca 480a       |H   |		Short_Literal	0xa
00cb e00e       |    |		Load	0x0,0xe
00cc e222       | "  |		Load	0x1,0x22
00cd 0098       |    |		Execute	Package,Field_Read_Dynamic
00ce 0386       |    |		Declare_Variable	Package,Visible
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 020f       |    |		Execute	Module,Activate
00d1 0093 0000  |    |		push_full_address	0x0
00d3 6050       |`P  |		Indirect_Literal	Discrete,0x124,{0x80000000, 0x00020000}
00d4 0273       | s  |		Execute	Discrete,Plus
00d5 e002       |    |		Load	0x0,0x2
00d6 0273       | s  |		Execute	Discrete,Plus
00d7 e00f       |    |		Load	0x0,0xf
00d8 0273       | s  |		Execute	Discrete,Plus
00d9 4814       |H   |		Short_Literal	0x14
00da 480a       |H   |		Short_Literal	0xa
00db e00e       |    |		Load	0x0,0xe
00dc e223       | #  |		Load	0x1,0x23
00dd 0098       |    |		Execute	Package,Field_Read_Dynamic
00de 0386       |    |		Declare_Variable	Package,Visible
00df 00d8       |    |		Load_Top	At_Offset_0
00e0 020f       |    |		Execute	Module,Activate
00e1 0093 0000  |    |		push_full_address	0x0
00e3 603c       |`<  |		Indirect_Literal	Discrete,0x120,{0x80000000, 0x00010000}
00e4 0273       | s  |		Execute	Discrete,Plus
00e5 e002       |    |		Load	0x0,0x2
00e6 0273       | s  |		Execute	Discrete,Plus
00e7 e010       |    |		Load	0x0,0x10
00e8 0273       | s  |		Execute	Discrete,Plus
00e9 4814       |H   |		Short_Literal	0x14
00ea 480a       |H   |		Short_Literal	0xa
00eb e00e       |    |		Load	0x0,0xe
00ec e224       | $  |		Load	0x1,0x24
00ed 0098       |    |		Execute	Package,Field_Read_Dynamic
00ee 0386       |    |		Declare_Variable	Package,Visible
00ef 00d8       |    |		Load_Top	At_Offset_0
00f0 020f       |    |		Execute	Module,Activate
00f1 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
00f3 00bf       |    |		Action	Accept_Activation
00f4 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00f5 00c7       |    |		Action	Elaborate_Subprogram
00f6			BODY_0008:
00f6 00bc       |    |		Action	Signal_Activated
00f7 00bb       |    |		Action	Signal_Completion
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4607       |F   |		Jump_Case	0x8
00fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00fd 7807       |x   |		Jump	0x105								; case 0x1
00fe 780a       |x   |		Jump	0x109								; case 0x2
00ff 780e       |x   |		Jump	0x10e								; case 0x3
0100 7811       |x   |		Jump	0x112								; case 0x4
0101 7812       |x   |		Jump	0x114								; case 0x5
0102 7813       |x   |		Jump	0x116								; case 0x6
0103 7816       |x   |		Jump	0x11a								; case 0x7
0104 4302       |C   |		.XXX[0x1]
0105 00da       |    |		Load_Top	At_Offset_2
0106 0091 0335  |   5|		Action	Push_String_Extended_Indexed,0x335				; "ON_HEAP_PLACE"
0108 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0109 00db       |    |		Load_Top	At_Offset_3
010a 00db       |    |		Load_Top	At_Offset_3
010b 00e0       |    |		Load_Encached	Standard_Cache
010c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
010d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010e 00da       |    |		Load_Top	At_Offset_2
010f 00e0       |    |		Load_Encached	Standard_Cache
0110 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0111 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0112 00db       |    |		Load_Top	At_Offset_3
0113 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0114 00db       |    |		Load_Top	At_Offset_3
0115 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0116 e20d       |    |		Load	0x1,0xd
0117 00dc       |    |		Load_Top	At_Offset_4
0118 0267       | g  |		Execute	Discrete,Predecessor
0119 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011a e20d       |    |		Load	0x1,0xd
011b 00dc       |    |		Load_Top	At_Offset_4
011c 0268       | h  |		Execute	Discrete,Successor
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 0000 0000  |    |		.XXX[0x2]
0120 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0124 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0128 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
012c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0130 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0134 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
013c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
0140 8000 0000  |    |		.LITERAL	{0x80000000, 0x00090000}
0144 8000 0000  |    |		.LITERAL	{0x80000000, 0x000a0000}
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4607       |F   |		Jump_Case	0x8
014c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
014d 7807       |x   |		Jump	0x155								; case 0x1
014e 780a       |x   |		Jump	0x159								; case 0x2
014f 780e       |x   |		Jump	0x15e								; case 0x3
0150 7811       |x   |		Jump	0x162								; case 0x4
0151 7812       |x   |		Jump	0x164								; case 0x5
0152 7813       |x   |		Jump	0x166								; case 0x6
0153 7816       |x   |		Jump	0x16a								; case 0x7
0154 4302       |C   |		.XXX[0x1]
0155 00da       |    |		Load_Top	At_Offset_2
0156 0091 0338  |   8|		Action	Push_String_Extended_Indexed,0x338				; "TAKING_ACTION"
0158 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0159 00db       |    |		Load_Top	At_Offset_3
015a 00db       |    |		Load_Top	At_Offset_3
015b 00e0       |    |		Load_Encached	Standard_Cache
015c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015e 00da       |    |		Load_Top	At_Offset_2
015f 00e0       |    |		Load_Encached	Standard_Cache
0160 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0161 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0162 00db       |    |		Load_Top	At_Offset_3
0163 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0164 00db       |    |		Load_Top	At_Offset_3
0165 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0166 e20e       |    |		Load	0x1,0xe
0167 00dc       |    |		Load_Top	At_Offset_4
0168 0267       | g  |		Execute	Discrete,Predecessor
0169 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016a e20e       |    |		Load	0x1,0xe
016b 00dc       |    |		Load_Top	At_Offset_4
016c 0268       | h  |		Execute	Discrete,Successor
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4607       |F   |		Jump_Case	0x8
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0175 7807       |x   |		Jump	0x17d								; case 0x1
0176 780a       |x   |		Jump	0x181								; case 0x2
0177 780e       |x   |		Jump	0x186								; case 0x3
0178 7811       |x   |		Jump	0x18a								; case 0x4
0179 7812       |x   |		Jump	0x18c								; case 0x5
017a 7813       |x   |		Jump	0x18e								; case 0x6
017b 7816       |x   |		Jump	0x192								; case 0x7
017c 4302       |C   |		.XXX[0x1]
017d 00da       |    |		Load_Top	At_Offset_2
017e 0091 033a  |   :|		Action	Push_String_Extended_Indexed,0x33a				; "YES_BOOLEAN"
0180 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0181 00db       |    |		Load_Top	At_Offset_3
0182 00db       |    |		Load_Top	At_Offset_3
0183 00e0       |    |		Load_Encached	Standard_Cache
0184 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0185 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0186 00da       |    |		Load_Top	At_Offset_2
0187 00e0       |    |		Load_Encached	Standard_Cache
0188 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0189 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
018a 00db       |    |		Load_Top	At_Offset_3
018b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018c 00db       |    |		Load_Top	At_Offset_3
018d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018e e20f       |    |		Load	0x1,0xf
018f 00dc       |    |		Load_Top	At_Offset_4
0190 0267       | g  |		Execute	Discrete,Predecessor
0191 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0192 e20f       |    |		Load	0x1,0xf
0193 00dc       |    |		Load_Top	At_Offset_4
0194 0268       | h  |		Execute	Discrete,Successor
0195 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4607       |F   |		Jump_Case	0x8
019c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
019d 7807       |x   |		Jump	0x1a5								; case 0x1
019e 780a       |x   |		Jump	0x1a9								; case 0x2
019f 780e       |x   |		Jump	0x1ae								; case 0x3
01a0 7811       |x   |		Jump	0x1b2								; case 0x4
01a1 7812       |x   |		Jump	0x1b4								; case 0x5
01a2 7813       |x   |		Jump	0x1b6								; case 0x6
01a3 7816       |x   |		Jump	0x1ba								; case 0x7
01a4 4302       |C   |		.XXX[0x1]
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 0091 033c  |   <|		Action	Push_String_Extended_Indexed,0x33c				; "EMPTY_STATE"
01a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01a9 00db       |    |		Load_Top	At_Offset_3
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 00e0       |    |		Load_Encached	Standard_Cache
01ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ae 00da       |    |		Load_Top	At_Offset_2
01af 00e0       |    |		Load_Encached	Standard_Cache
01b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b4 00db       |    |		Load_Top	At_Offset_3
01b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b6 e210       |    |		Load	0x1,0x10
01b7 00dc       |    |		Load_Top	At_Offset_4
01b8 0267       | g  |		Execute	Discrete,Predecessor
01b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ba e210       |    |		Load	0x1,0x10
01bb 00dc       |    |		Load_Top	At_Offset_4
01bc 0268       | h  |		Execute	Discrete,Successor
01bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 4607       |F   |		Jump_Case	0x8
01c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01c5 7807       |x   |		Jump	0x1cd								; case 0x1
01c6 780a       |x   |		Jump	0x1d1								; case 0x2
01c7 780e       |x   |		Jump	0x1d6								; case 0x3
01c8 7811       |x   |		Jump	0x1da								; case 0x4
01c9 7812       |x   |		Jump	0x1dc								; case 0x5
01ca 7813       |x   |		Jump	0x1de								; case 0x6
01cb 7816       |x   |		Jump	0x1e2								; case 0x7
01cc 4302       |C   |		.XXX[0x1]
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 0091 033f  |   ?|		Action	Push_String_Extended_Indexed,0x33f				; "SIZE"
01d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01d1 00db       |    |		Load_Top	At_Offset_3
01d2 00db       |    |		Load_Top	At_Offset_3
01d3 00e0       |    |		Load_Encached	Standard_Cache
01d4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d6 00da       |    |		Load_Top	At_Offset_2
01d7 00e0       |    |		Load_Encached	Standard_Cache
01d8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01d9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01da 00db       |    |		Load_Top	At_Offset_3
01db 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01de e21f       |    |		Load	0x1,0x1f
01df 00dc       |    |		Load_Top	At_Offset_4
01e0 0267       | g  |		Execute	Discrete,Predecessor
01e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01e2 e21f       |    |		Load	0x1,0x1f
01e3 00dc       |    |		Load_Top	At_Offset_4
01e4 0268       | h  |		Execute	Discrete,Successor
01e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01e6 0000 0000  |    |		.XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4607       |F   |		Jump_Case	0x8
01ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01ed 7807       |x   |		Jump	0x1f5								; case 0x1
01ee 780a       |x   |		Jump	0x1f9								; case 0x2
01ef 780e       |x   |		Jump	0x1fe								; case 0x3
01f0 7811       |x   |		Jump	0x202								; case 0x4
01f1 7812       |x   |		Jump	0x204								; case 0x5
01f2 7813       |x   |		Jump	0x206								; case 0x6
01f3 7816       |x   |		Jump	0x20a								; case 0x7
01f4 4302       |C   |		.XXX[0x1]
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 0091 0341  |   A|		Action	Push_String_Extended_Indexed,0x341				; "NUMBER"
01f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 00db       |    |		Load_Top	At_Offset_3
01fb 00e0       |    |		Load_Encached	Standard_Cache
01fc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01fe 00da       |    |		Load_Top	At_Offset_2
01ff 00e0       |    |		Load_Encached	Standard_Cache
0200 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0201 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0202 00db       |    |		Load_Top	At_Offset_3
0203 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0204 00db       |    |		Load_Top	At_Offset_3
0205 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0206 e220       |    |		Load	0x1,0x20
0207 00dc       |    |		Load_Top	At_Offset_4
0208 0267       | g  |		Execute	Discrete,Predecessor
0209 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020a e220       |    |		Load	0x1,0x20
020b 00dc       |    |		Load_Top	At_Offset_4
020c 0268       | h  |		Execute	Discrete,Successor
020d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4607       |F   |		Jump_Case	0x8
0214 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0215 7807       |x   |		Jump	0x21d								; case 0x1
0216 780a       |x   |		Jump	0x221								; case 0x2
0217 780e       |x   |		Jump	0x226								; case 0x3
0218 7811       |x   |		Jump	0x22a								; case 0x4
0219 7812       |x   |		Jump	0x22c								; case 0x5
021a 7813       |x   |		Jump	0x22e								; case 0x6
021b 7816       |x   |		Jump	0x232								; case 0x7
021c 4302       |C   |		.XXX[0x1]
021d 00da       |    |		Load_Top	At_Offset_2
021e 0091 0343  |   C|		Action	Push_String_Extended_Indexed,0x343				; "ACTION"
0220 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0221 00db       |    |		Load_Top	At_Offset_3
0222 00db       |    |		Load_Top	At_Offset_3
0223 00e0       |    |		Load_Encached	Standard_Cache
0224 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0225 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0226 00da       |    |		Load_Top	At_Offset_2
0227 00e0       |    |		Load_Encached	Standard_Cache
0228 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0229 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
022a 00db       |    |		Load_Top	At_Offset_3
022b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022c 00db       |    |		Load_Top	At_Offset_3
022d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022e e221       | !  |		Load	0x1,0x21
022f 00dc       |    |		Load_Top	At_Offset_4
0230 0267       | g  |		Execute	Discrete,Predecessor
0231 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0232 e221       | !  |		Load	0x1,0x21
0233 00dc       |    |		Load_Top	At_Offset_4
0234 0268       | h  |		Execute	Discrete,Successor
0235 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 027c       | |  |		.CONST	0x027c								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0011       |    |		.CONST	0x0011								; Number of locals
023b			INIT_0238:
023b 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
023d 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
023f 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
0241 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0243 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
0245 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
0247 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
0249 e011       |    |		Load	0x0,0x11
024a e222       | "  |		Load	0x1,0x22
024b 0095       |    |		Execute	Package,Field_Reference_Dynamic
024c 00c6       |    |		Action	Check_Subprogram_Elaborated
024d 4806       |H   |		Short_Literal	0x6
024e 4802       |H   |		Short_Literal	0x2
024f 0099       |    |		Action	Reference_Dynamic
0250 0093 0000  |    |		push_full_address	0x0
0252 6061       |`a  |		Indirect_Literal	Discrete,0x2b4,{0x80000000, 0x000d0000}
0253 0273       | s  |		Execute	Discrete,Plus
0254 e002       |    |		Load	0x0,0x2
0255 0273       | s  |		Execute	Discrete,Plus
0256 e012       |    |		Load	0x0,0x12
0257 0273       | s  |		Execute	Discrete,Plus
0258 480b       |H   |		Short_Literal	0xb
0259 0007       |    |		Action	Break_Optional
025a e011       |    |		Load	0x0,0x11
025b e224       | $  |		Load	0x1,0x24
025c 0095       |    |		Execute	Package,Field_Reference_Dynamic
025d 00c6       |    |		Action	Check_Subprogram_Elaborated
025e 4807       |H   |		Short_Literal	0x7
025f 4802       |H   |		Short_Literal	0x2
0260 0099       |    |		Action	Reference_Dynamic
0261 0093 0000  |    |		push_full_address	0x0
0263 604c       |`L  |		Indirect_Literal	Discrete,0x2b0,{0x80000000, 0x000c0000}
0264 0273       | s  |		Execute	Discrete,Plus
0265 e002       |    |		Load	0x0,0x2
0266 0273       | s  |		Execute	Discrete,Plus
0267 e013       |    |		Load	0x0,0x13
0268 0273       | s  |		Execute	Discrete,Plus
0269 480e       |H   |		Short_Literal	0xe
026a 0007       |    |		Action	Break_Optional
026b e011       |    |		Load	0x0,0x11
026c e223       | #  |		Load	0x1,0x23
026d 0095       |    |		Execute	Package,Field_Reference_Dynamic
026e 00c6       |    |		Action	Check_Subprogram_Elaborated
026f 4808       |H   |		Short_Literal	0x8
0270 4802       |H   |		Short_Literal	0x2
0271 0099       |    |		Action	Reference_Dynamic
0272 0093 0000  |    |		push_full_address	0x0
0274 6037       |`7  |		Indirect_Literal	Discrete,0x2ac,{0x80000000, 0x000b0000}
0275 0273       | s  |		Execute	Discrete,Plus
0276 e002       |    |		Load	0x0,0x2
0277 0273       | s  |		Execute	Discrete,Plus
0278 e014       |    |		Load	0x0,0x14
0279 0273       | s  |		Execute	Discrete,Plus
027a 4811       |H   |		Short_Literal	0x11
027b 0007       |    |		Action	Break_Optional
027c			BODY_0238:
027c e5ff       |    |		Load	0x2,-0x1
027d 8015       |    |		Call	0x0,0x15
027e 4603       |F   |		Jump_Case	0x4
027f 7805       |x   |		Jump	0x285								; case 0x0
0280 7810       |x   |		Jump	0x291								; case 0x1
0281 781b       |x   |		Jump	0x29d								; case 0x2
0282 7800       |x   |		Jump	0x283								; case 0x3
0283 0008       |    |		Action	Idle
0284 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0285 e5fe       |    |		Load	0x2,-0x2
0286 e5ff       |    |		Load	0x2,-0x1
0287 4809       |H   |		Short_Literal	0x9
0288 4802       |H   |		Short_Literal	0x2
0289 0099       |    |		Action	Reference_Dynamic
028a 480a       |H   |		Short_Literal	0xa
028b 4802       |H   |		Short_Literal	0x2
028c 0099       |    |		Action	Reference_Dynamic
028d e011       |    |		Load	0x0,0x11
028e e222       | "  |		Load	0x1,0x22
028f 0096       |    |		Execute	Package,Entry
0290 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0291 e5fe       |    |		Load	0x2,-0x2
0292 e5ff       |    |		Load	0x2,-0x1
0293 480c       |H   |		Short_Literal	0xc
0294 4802       |H   |		Short_Literal	0x2
0295 0099       |    |		Action	Reference_Dynamic
0296 480d       |H   |		Short_Literal	0xd
0297 4802       |H   |		Short_Literal	0x2
0298 0099       |    |		Action	Reference_Dynamic
0299 e011       |    |		Load	0x0,0x11
029a e224       | $  |		Load	0x1,0x24
029b 0096       |    |		Execute	Package,Entry
029c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
029d e5fe       |    |		Load	0x2,-0x2
029e e5ff       |    |		Load	0x2,-0x1
029f 480f       |H   |		Short_Literal	0xf
02a0 4802       |H   |		Short_Literal	0x2
02a1 0099       |    |		Action	Reference_Dynamic
02a2 4810       |H   |		Short_Literal	0x10
02a3 4802       |H   |		Short_Literal	0x2
02a4 0099       |    |		Action	Reference_Dynamic
02a5 e011       |    |		Load	0x0,0x11
02a6 e223       | #  |		Load	0x1,0x23
02a7 0096       |    |		Execute	Package,Entry
02a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a9 0000 0000  |    |		.XXX[0x3]
02ab 0000       |    |
02ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x000b0000}
02b0 8000 0000  |    |		.LITERAL	{0x80000000, 0x000c0000}
02b4 8000 0000  |    |		.LITERAL	{0x80000000, 0x000d0000}
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e215       |    |		Load	0x1,0x15
02bc 00db       |    |		Load_Top	At_Offset_3
02bd 8016       |    |		Call	0x0,0x16
02be 6808       |h   |		Jump_Zero	0x2c7
02bf 00da       |    |		Load_Top	At_Offset_2
02c0 e017       |    |		Load	0x0,0x17
02c1 e211       |    |		Load	0x1,0x11
02c2 0096       |    |		Execute	Package,Entry
02c3 e20d       |    |		Load	0x1,0xd
02c4 011c       |    |		Execute	Any,Convert_Unchecked
02c5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c7 0092 0346  |   F|		Action	Push_String_Extended,0x346					; " BOX "
02c9 00db       |    |		Load_Top	At_Offset_3
02ca 8018       |    |		Call	0x0,0x18
02cb 00e0       |    |		Load_Encached	Standard_Cache
02cc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02cd 01cc       |    |		Execute	Vector,Catenate
02ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cf 0000       |    |		.XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 e017       |    |		Load	0x0,0x17
02d5 e212       |    |		Load	0x1,0x12
02d6 0096       |    |		Execute	Package,Entry
02d7 e20e       |    |		Load	0x1,0xe
02d8 011c       |    |		Execute	Any,Convert_Unchecked
02d9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02db 0000 0000  |    |		.BLANK	0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 e017       |    |		Load	0x0,0x17
02e5 e213       |    |		Load	0x1,0x13
02e6 0096       |    |		Execute	Package,Entry
02e7 e20f       |    |		Load	0x1,0xf
02e8 011c       |    |		Execute	Any,Convert_Unchecked
02e9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02eb 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
02f4 e017       |    |		Load	0x0,0x17
02f5 e214       |    |		Load	0x1,0x14
02f6 0096       |    |		Execute	Package,Entry
02f7 e210       |    |		Load	0x1,0x10
02f8 011c       |    |		Execute	Any,Convert_Unchecked
02f9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 00da       |    |		Load_Top	At_Offset_2
0304 6803       |h   |		Jump_Zero	0x308
0305 00db       |    |		Load_Top	At_Offset_3
0306 8402       |    |		Call	0x2,0x2
0307 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0308 00db       |    |		Load_Top	At_Offset_3
0309 8018       |    |		Call	0x0,0x18
030a 00e0       |    |		Load_Encached	Standard_Cache
030b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
030d 0000 0000  |    |		.XXX[0x3]
030f 0000       |    |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 4602       |F   |		Jump_Case	0x3
0315 7805       |x   |		Jump	0x31b								; case 0x0
0316 7807       |x   |		Jump	0x31e								; case 0x1
0317 7800       |x   |		Jump	0x318								; case 0x2
0318 00db       |    |		Load_Top	At_Offset_3
0319 8019       |    |		Call	0x0,0x19
031a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
031b 00db       |    |		Load_Top	At_Offset_3
031c 8403       |    |		Call	0x2,0x3
031d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
031e 00db       |    |		Load_Top	At_Offset_3
031f 8404       |    |		Call	0x2,0x4
0320 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0321 0000 0000  |    |		.BLANK	0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 6803       |h   |		Jump_Zero	0x330
032d 00db       |    |		Load_Top	At_Offset_3
032e 8405       |    |		Call	0x2,0x5
032f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0330 00db       |    |		Load_Top	At_Offset_3
0331 8018       |    |		Call	0x0,0x18
0332 00e0       |    |		Load_Encached	Standard_Cache
0333 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0334 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0335 ; --------------------------------------------------------------------------------------
0335 ; STRING TABLE
0335 ; --------------------------------------------------------------------------------------
0335 0026       | &  |		.STRTAB	0x0026->0x0348							; "ON_HEAP_PLACE"
0336 0031       | 1  |		.STRTAB	0x0031->0x034e							; "IN_BOX_PLACE"
0337 003b       | ;  |		.STRTAB	0x003b->0x0354							; "IN_PLIERS_PLACE"
0338 0048       | H  |		.STRTAB	0x0048->0x035c							; "TAKING_ACTION"
0339 0053       | S  |		.STRTAB	0x0053->0x0362							; "DROPPING_ACTION"
033a 0060       | `  |		.STRTAB	0x0060->0x036a							; "YES_BOOLEAN"
033b 0069       | i  |		.STRTAB	0x0069->0x036f							; "NO_BOOLEAN"
033c 0071       | q  |		.STRTAB	0x0071->0x0374							; "EMPTY_STATE"
033d 007a       | z  |		.STRTAB	0x007a->0x037a							; "RESERVED_STATE"
033e 0086       |    |		.STRTAB	0x0086->0x0381							; "FULL_STATE"
033f 008e       |    |		.STRTAB	0x008e->0x0386							; "SIZE"
0340 0090       |    |		.STRTAB	0x0090->0x0388							; "PLACE"
0341 0093       |    |		.STRTAB	0x0093->0x038a							; "NUMBER"
0342 0097       |    |		.STRTAB	0x0097->0x038d							; "STATE"
0343 009a       |    |		.STRTAB	0x009a->0x0390							; "ACTION"
0344 009e       |    |		.STRTAB	0x009e->0x0393							; "WORKING"
0345 00a3       |    |		.STRTAB	0x00a3->0x0396							; "IDENTIFIER"
0346 00ab       |    |		.STRTAB	0x00ab->0x039b							; " BOX "
0347 00ae       |    |		.STREND 0x00ae->0x039e
0348 4f4e 5f48  |ON_H|		.STRTAB_STRINGS
039e 0000 0000  |    |		.XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug Table
03a0 ; --------------------------------------------------------------------------------------
03a0 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x0cc7,0x0000,0x0001,0x0011
03a6 000b 03ea  |    |		.DBG4T	0x000b,0x03ea,0x8000,0x0000
03aa 00f4 0408  |    |		.DBG4T	0x00f4,0x0408,0x8000,0x0000
03ae 00fb 0000  |    |		.DBG4T	0x00fb,0x0000,0x0005,0x0000
03b2 014b 0000  | K  |		.DBG4T	0x014b,0x0000,0x0005,0x0000
03b6 0173 0000  | s  |		.DBG4T	0x0173,0x0000,0x0005,0x0000
03ba 019b 0000  |    |		.DBG4T	0x019b,0x0000,0x0005,0x0000
03be 01c3 0000  |    |		.DBG4T	0x01c3,0x0000,0x0005,0x0000
03c2 01eb 0000  |    |		.DBG4T	0x01eb,0x0000,0x0005,0x0000
03c6 0213 0000  |    |		.DBG4T	0x0213,0x0000,0x0005,0x0000
03ca 023b 040b  | ;  |		.DBG4T	0x023b,0x040b,0x0001,0x4000
03ce 02bb 0421  |   !|		.DBG4T	0x02bb,0x0421,0x0002,0x0000
03d2 02d3 0426  |   &|		.DBG4T	0x02d3,0x0426,0x0002,0x0000
03d6 02e3 0429  |   )|		.DBG4T	0x02e3,0x0429,0x0002,0x0000
03da 02f3 042c  |   ,|		.DBG4T	0x02f3,0x042c,0x0002,0x0000
03de 0303 042f  |   /|		.DBG4T	0x0303,0x042f,0x0002,0x4000
03e2 0313 0437  |   7|		.DBG4T	0x0313,0x0437,0x0002,0x4000
03e6 032b 0441  | + A|		.DBG4T	0x032b,0x0441,0x0002,0x4000
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug chain
03ea ; --------------------------------------------------------------------------------------
03ea 001c 0000  |    |		.DBGLEN	0x001c,0x0000
03ec 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x001a,0x001f,0x002c,0x0039,0x0046,0x0053,0x0058,0x005d,0x0062,0x0067,0x006c,0x0071,0x0076,0x007b,0x0080,0x0085,0x008a,0x008f,0x0094,0x00a3,0x00b2,0x00c1,0x00d1,0x00e1,0x00f1
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0001 0000  |    |		.DBGLEN	0x0001,0x0000
040a 00f4       |    |		.DBGLNO	0x00f4
040b ; --------------------------------------------------------------------------------------
040b ; Debug chain
040b ; --------------------------------------------------------------------------------------
040b 000a 0005  |    |		.DBGLEN	0x000a,0x0005
040d 023b 023d  | ; =|		.DBGLNO	0x023b,0x023d,0x023f,0x0241,0x0243,0x0245,0x0247,0x0249,0x025a,0x026b,0x027c,0x0283,0x0285,0x0291,0x029d
041c 0001 0005  |    |		.XXX[0x5]
041e 0002 0003  |    |
0420 0004       |    |
0421 ; --------------------------------------------------------------------------------------
0421 ; Debug chain
0421 ; --------------------------------------------------------------------------------------
0421 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0423 02bb 02bf  |    |		.DBGLNO	0x02bb,0x02bf,0x02c7
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug chain
0426 ; --------------------------------------------------------------------------------------
0426 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0428 02d3       |    |		.DBGLNO	0x02d3
0429 ; --------------------------------------------------------------------------------------
0429 ; Debug chain
0429 ; --------------------------------------------------------------------------------------
0429 0000 0001  |    |		.DBGLEN	0x0000,0x0001
042b 02e3       |    |		.DBGLNO	0x02e3
042c ; --------------------------------------------------------------------------------------
042c ; Debug chain
042c ; --------------------------------------------------------------------------------------
042c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
042e 02f3       |    |		.DBGLNO	0x02f3
042f ; --------------------------------------------------------------------------------------
042f ; Debug chain
042f ; --------------------------------------------------------------------------------------
042f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0431 0303 0305  |    |		.DBGLNO	0x0303,0x0305,0x0308
0434 0001 0003  |    |		.XXX[0x3]
0436 0002       |    |
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0439 0313 0318  |    |		.DBGLNO	0x0313,0x0318,0x031b,0x031e
043d 0001 0004  |    |		.XXX[0x4]
043f 0002 0003  |    |
0441 ; --------------------------------------------------------------------------------------
0441 ; Debug chain
0441 ; --------------------------------------------------------------------------------------
0441 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0443 032b 032d  | + -|		.DBGLNO	0x032b,0x032d,0x0330
0446 0001 0003  |    |		.XXX[0x3]
0448 0002       |    |
0449 0000 0000  |    |		.BLANK	0000[0x1b7]