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

⟦25362fd6b⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04b0       |    |		.CONST	0x04b0								; 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 01a2       |    |		.CONST	0x01a2								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0030       | 0  |		.CONST	0x0030								; Number of locals
000b			INIT_0008:
000b e008       |    |		Load	0x0,0x8
000c 00d8       |    |		Load_Top	At_Offset_0
000d 02a0       |    |		Declare_Subprogram	Null_Subprogram
000e 4802       |H   |		Short_Literal	0x2
000f 032e       | .  |		Declare_Type	Record,Defined,Visible
0010 00d8       |    |		Load_Top	At_Offset_0
0011 0322       | "  |		Declare_Variable	Record
0012 e008       |    |		Load	0x0,0x8
0013 00d9       |    |		Load_Top	At_Offset_1
0014 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0015 e008       |    |		Load	0x0,0x8
0016 00d9       |    |		Load_Top	At_Offset_1
0017 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0018 0129       | )  |		Execute	Any,Make_Visible
0019 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
001b e009       |    |		Load	0x0,0x9
001c 00d8       |    |		Load_Top	At_Offset_0
001d e009       |    |		Load	0x0,0x9
001e 00d8       |    |		Load_Top	At_Offset_0
001f e009       |    |		Load	0x0,0x9
0020 00d8       |    |		Load_Top	At_Offset_0
0021 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
0023 4806       |H   |		Short_Literal	0x6
0024 032e       | .  |		Declare_Type	Record,Defined,Visible
0025 e00a       |    |		Load	0x0,0xa
0026 0266       | f  |		Execute	Discrete,Bounds
0027 00da       |    |		Load_Top	At_Offset_2
0028 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
002a 4801       |H   |		Short_Literal	0x1
002b 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002c 00d8       |    |		Load_Top	At_Offset_0
002d 02a0       |    |		Declare_Subprogram	Null_Subprogram
002e 4818       |H   |		Short_Literal	0x18
002f 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0030 00d8       |    |		Load_Top	At_Offset_0
0031 0221       | !  |		Execute	Access,Allow_Deallocate
0032 0007       |    |		Action	Break_Optional
0033 00da       |    |		Load_Top	At_Offset_2
0034 0322       | "  |		Declare_Variable	Record
0035 4800       |H   |		Short_Literal	0x0
0036 00d9       |    |		Load_Top	At_Offset_1
0037 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0038 4800       |H   |		Short_Literal	0x0
0039 00d9       |    |		Load_Top	At_Offset_1
003a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
003b 4800       |H   |		Short_Literal	0x0
003c 00d9       |    |		Load_Top	At_Offset_1
003d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
003e 4800       |H   |		Short_Literal	0x0
003f 00d9       |    |		Load_Top	At_Offset_1
0040 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0041 4800       |H   |		Short_Literal	0x0
0042 00d9       |    |		Load_Top	At_Offset_1
0043 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0044 4800       |H   |		Short_Literal	0x0
0045 00d9       |    |		Load_Top	At_Offset_1
0046 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0047 0129       | )  |		Execute	Any,Make_Visible
0048 0007       |    |		Action	Break_Optional
0049 a00b       |    |		Store_Unchecked	0x0,0xb
004a 00c6       |    |		Action	Check_Subprogram_Elaborated
004b 00da       |    |		Load_Top	At_Offset_2
004c 0129       | )  |		Execute	Any,Make_Visible
004d 00da       |    |		Load_Top	At_Offset_2
004e 0129       | )  |		Execute	Any,Make_Visible
004f e00c       |    |		Load	0x0,0xc
0050 0129       | )  |		Execute	Any,Make_Visible
0051 e00d       |    |		Load	0x0,0xd
0052 0129       | )  |		Execute	Any,Make_Visible
0053 4800       |H   |		Short_Literal	0x0
0054 0129       | )  |		Execute	Any,Make_Visible
0055 4820       |H   |		Short_Literal	0x20
0056 4800       |H   |		Short_Literal	0x0
0057 4807       |H   |		Short_Literal	0x7
0058 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
005a 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
005b 0007       |    |		Action	Break_Optional
005c 4800       |H   |		Short_Literal	0x0
005d 481f       |H   |		Short_Literal	0x1f
005e 029f 0203  |    |		Declare_Subprogram	INIT_0200,For_Call
0060 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0061 00d8       |    |		Load_Top	At_Offset_0
0062 0266       | f  |		Execute	Discrete,Bounds
0063 00e1       |    |		Load_Encached	Boolean_Cache
0064 02a0       |    |		Declare_Subprogram	Null_Subprogram
0065 4801       |H   |		Short_Literal	0x1
0066 035e       | ^  |		Declare_Type	Array,Defined,Visible
0067 00d8       |    |		Load_Top	At_Offset_0
0068 0336       | 6  |		Declare_Variable	Array,Visible
0069 00d8       |    |		Load_Top	At_Offset_0
006a 0335       | 5  |		Declare_Variable	Array,Duplicate
006b 00cd       |    |		Action	Spare6_Action
006c 481f       |H   |		Short_Literal	0x1f
006d 4800       |H   |		Short_Literal	0x0
006e 4800       |H   |		Short_Literal	0x0
006f 00d9       |    |		Load_Top	At_Offset_1
0070 e21d       |    |		Load	0x1,0x1d
0071 01d6       |    |		Execute	Vector,Field_Write
0072 3ffb       |?   |		Loop_Increasing	0x6e
0073 00d9       |    |		Load_Top	At_Offset_1
0074 01d4       |    |		Execute	Vector,Structure_Write
0075 e009       |    |		Load	0x0,0x9
0076 00d8       |    |		Load_Top	At_Offset_0
0077 029f 028b  |    |		Declare_Subprogram	INIT_0288,For_Call
0079 4802       |H   |		Short_Literal	0x2
007a 032e       | .  |		Declare_Type	Record,Defined,Visible
007b 00da       |    |		Load_Top	At_Offset_2
007c e009       |    |		Load	0x0,0x9
007d 00d8       |    |		Load_Top	At_Offset_0
007e e009       |    |		Load	0x0,0x9
007f 00d8       |    |		Load_Top	At_Offset_0
0080 e009       |    |		Load	0x0,0x9
0081 00d8       |    |		Load_Top	At_Offset_0
0082 e009       |    |		Load	0x0,0x9
0083 00d8       |    |		Load_Top	At_Offset_0
0084 e009       |    |		Load	0x0,0x9
0085 00d8       |    |		Load_Top	At_Offset_0
0086 e21d       |    |		Load	0x1,0x1d
0087 00d8       |    |		Load_Top	At_Offset_0
0088 e009       |    |		Load	0x0,0x9
0089 00d8       |    |		Load_Top	At_Offset_0
008a e00e       |    |		Load	0x0,0xe
008b 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
008d 4810       |H   |		Short_Literal	0x10
008e 032e       | .  |		Declare_Type	Record,Defined,Visible
008f 00d8       |    |		Load_Top	At_Offset_0
0090 0322       | "  |		Declare_Variable	Record
0091 00db       |    |		Load_Top	At_Offset_3
0092 00da       |    |		Load_Top	At_Offset_2
0093 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0094 0119       |    |		Execute	Any,Check_In_Formal_Type
0095 00d9       |    |		Load_Top	At_Offset_1
0096 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0097 4800       |H   |		Short_Literal	0x0
0098 00d9       |    |		Load_Top	At_Offset_1
0099 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009a 4800       |H   |		Short_Literal	0x0
009b 00d9       |    |		Load_Top	At_Offset_1
009c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
009d 4800       |H   |		Short_Literal	0x0
009e 00d9       |    |		Load_Top	At_Offset_1
009f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a0 4800       |H   |		Short_Literal	0x0
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00a3 4800       |H   |		Short_Literal	0x0
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00a6 4800       |H   |		Short_Literal	0x0
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
00a9 4800       |H   |		Short_Literal	0x0
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
00ac 4800       |H   |		Short_Literal	0x0
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
00af 4800       |H   |		Short_Literal	0x0
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
00b2 4800       |H   |		Short_Literal	0x0
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
00b7 4800       |H   |		Short_Literal	0x0
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ba 4800       |H   |		Short_Literal	0x0
00bb 00d0       |    |		Action	Swap_Control
00bc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00bd 00d8       |    |		Load_Top	At_Offset_0
00be 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
00bf 4800       |H   |		Short_Literal	0x0
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c2 4800       |H   |		Short_Literal	0x0
00c3 00d0       |    |		Action	Swap_Control
00c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c5 4800       |H   |		Short_Literal	0x0
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
00c8 4800       |H   |		Short_Literal	0x0
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
00cb 4800       |H   |		Short_Literal	0x0
00cc 00d9       |    |		Load_Top	At_Offset_1
00cd 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
00ce 0129       | )  |		Execute	Any,Make_Visible
00cf e00f       |    |		Load	0x0,0xf
00d0 e009       |    |		Load	0x0,0x9
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 e009       |    |		Load	0x0,0x9
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 e009       |    |		Load	0x0,0x9
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 e009       |    |		Load	0x0,0x9
00d7 e010       |    |		Load	0x0,0x10
00d8 e011       |    |		Load	0x0,0x11
00d9 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
00db 480a       |H   |		Short_Literal	0xa
00dc 032e       | .  |		Declare_Type	Record,Defined,Visible
00dd e00a       |    |		Load	0x0,0xa
00de 0266       | f  |		Execute	Discrete,Bounds
00df 00da       |    |		Load_Top	At_Offset_2
00e0 029f 022b  |   +|		Declare_Subprogram	INIT_0228,For_Call
00e2 4801       |H   |		Short_Literal	0x1
00e3 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 02a0       |    |		Declare_Subprogram	Null_Subprogram
00e6 4818       |H   |		Short_Literal	0x18
00e7 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
00e8 00d8       |    |		Load_Top	At_Offset_0
00e9 0221       | !  |		Execute	Access,Allow_Deallocate
00ea 0007       |    |		Action	Break_Optional
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 0322       | "  |		Declare_Variable	Record
00ed e002       |    |		Load	0x0,0x2
00ee 00d9       |    |		Load_Top	At_Offset_1
00ef 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f0 4800       |H   |		Short_Literal	0x0
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f3 4800       |H   |		Short_Literal	0x0
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00f6 4800       |H   |		Short_Literal	0x0
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00f9 4800       |H   |		Short_Literal	0x0
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00fc 4800       |H   |		Short_Literal	0x0
00fd 00d9       |    |		Load_Top	At_Offset_1
00fe 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00ff 4800       |H   |		Short_Literal	0x0
0100 00d9       |    |		Load_Top	At_Offset_1
0101 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0102 4800       |H   |		Short_Literal	0x0
0103 00d9       |    |		Load_Top	At_Offset_1
0104 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0105 e003       |    |		Load	0x0,0x3
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0108 e004       |    |		Load	0x0,0x4
0109 00d9       |    |		Load_Top	At_Offset_1
010a 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
010b 0129       | )  |		Execute	Any,Make_Visible
010c 0007       |    |		Action	Break_Optional
010d a00b       |    |		Store_Unchecked	0x0,0xb
010e 00c6       |    |		Action	Check_Subprogram_Elaborated
010f 00da       |    |		Load_Top	At_Offset_2
0110 0129       | )  |		Execute	Any,Make_Visible
0111 00da       |    |		Load_Top	At_Offset_2
0112 0129       | )  |		Execute	Any,Make_Visible
0113 e012       |    |		Load	0x0,0x12
0114 0129       | )  |		Execute	Any,Make_Visible
0115 e013       |    |		Load	0x0,0x13
0116 0129       | )  |		Execute	Any,Make_Visible
0117 4800       |H   |		Short_Literal	0x0
0118 0129       | )  |		Execute	Any,Make_Visible
0119 e014       |    |		Load	0x0,0x14
011a e015       |    |		Load	0x0,0x15
011b e00a       |    |		Load	0x0,0xa
011c e016       |    |		Load	0x0,0x16
011d 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
011f 4804       |H   |		Short_Literal	0x4
0120 032e       | .  |		Declare_Type	Record,Defined,Visible
0121 00d8       |    |		Load_Top	At_Offset_0
0122 0322       | "  |		Declare_Variable	Record
0123 e005       |    |		Load	0x0,0x5
0124 00d9       |    |		Load_Top	At_Offset_1
0125 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0126 4800       |H   |		Short_Literal	0x0
0127 00d9       |    |		Load_Top	At_Offset_1
0128 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0129 4800       |H   |		Short_Literal	0x0
012a 00d9       |    |		Load_Top	At_Offset_1
012b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012c e016       |    |		Load	0x0,0x16
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
012f 0129       | )  |		Execute	Any,Make_Visible
0130 4800       |H   |		Short_Literal	0x0
0131 481f       |H   |		Short_Literal	0x1f
0132 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
0134 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0135 00d8       |    |		Load_Top	At_Offset_0
0136 0266       | f  |		Execute	Discrete,Bounds
0137 00e1       |    |		Load_Encached	Boolean_Cache
0138 02a0       |    |		Declare_Subprogram	Null_Subprogram
0139 4801       |H   |		Short_Literal	0x1
013a 035e       | ^  |		Declare_Type	Array,Defined,Visible
013b 00d8       |    |		Load_Top	At_Offset_0
013c 0336       | 6  |		Declare_Variable	Array,Visible
013d 00d8       |    |		Load_Top	At_Offset_0
013e 0335       | 5  |		Declare_Variable	Array,Duplicate
013f 00cd       |    |		Action	Spare6_Action
0140 481f       |H   |		Short_Literal	0x1f
0141 4800       |H   |		Short_Literal	0x0
0142 4800       |H   |		Short_Literal	0x0
0143 00d9       |    |		Load_Top	At_Offset_1
0144 e22e       | .  |		Load	0x1,0x2e
0145 01d6       |    |		Execute	Vector,Field_Write
0146 3ffb       |?   |		Loop_Increasing	0x142
0147 00d9       |    |		Load_Top	At_Offset_1
0148 01d4       |    |		Execute	Vector,Structure_Write
0149 00d9       |    |		Load_Top	At_Offset_1
014a 0337       | 7  |		Declare_Variable	Array
014b 4801       |H   |		Short_Literal	0x1
014c 481f       |H   |		Short_Literal	0x1f
014d 00da       |    |		Load_Top	At_Offset_2
014e 01d6       |    |		Execute	Vector,Field_Write
014f 4801       |H   |		Short_Literal	0x1
0150 481e       |H   |		Short_Literal	0x1e
0151 00da       |    |		Load_Top	At_Offset_2
0152 01d6       |    |		Execute	Vector,Field_Write
0153 4801       |H   |		Short_Literal	0x1
0154 481d       |H   |		Short_Literal	0x1d
0155 00da       |    |		Load_Top	At_Offset_2
0156 01d6       |    |		Execute	Vector,Field_Write
0157 4801       |H   |		Short_Literal	0x1
0158 481c       |H   |		Short_Literal	0x1c
0159 00da       |    |		Load_Top	At_Offset_2
015a 01d6       |    |		Execute	Vector,Field_Write
015b 4801       |H   |		Short_Literal	0x1
015c 481b       |H   |		Short_Literal	0x1b
015d 00da       |    |		Load_Top	At_Offset_2
015e 01d6       |    |		Execute	Vector,Field_Write
015f 4801       |H   |		Short_Literal	0x1
0160 481a       |H   |		Short_Literal	0x1a
0161 00da       |    |		Load_Top	At_Offset_2
0162 01d6       |    |		Execute	Vector,Field_Write
0163 4801       |H   |		Short_Literal	0x1
0164 4819       |H   |		Short_Literal	0x19
0165 00da       |    |		Load_Top	At_Offset_2
0166 01d6       |    |		Execute	Vector,Field_Write
0167 4818       |H   |		Short_Literal	0x18
0168 4800       |H   |		Short_Literal	0x0
0169 4800       |H   |		Short_Literal	0x0
016a 00d9       |    |		Load_Top	At_Offset_1
016b e22e       | .  |		Load	0x1,0x2e
016c 01d6       |    |		Execute	Vector,Field_Write
016d 3ffb       |?   |		Loop_Increasing	0x169
016e 00da       |    |		Load_Top	At_Offset_2
016f 01c3       |    |		Execute	Vector,Check_In_Type
0170 0129       | )  |		Execute	Any,Make_Visible
0171 00da       |    |		Load_Top	At_Offset_2
0172 e017       |    |		Load	0x0,0x17
0173 e219       |    |		Load	0x1,0x19
0174 e018       |    |		Load	0x0,0x18
0175 e019       |    |		Load	0x0,0x19
0176 e009       |    |		Load	0x0,0x9
0177 00d8       |    |		Load_Top	At_Offset_0
0178 e018       |    |		Load	0x0,0x18
0179 e019       |    |		Load	0x0,0x19
017a 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
017c 4809       |H   |		Short_Literal	0x9
017d 032e       | .  |		Declare_Type	Record,Defined,Visible
017e 00d8       |    |		Load_Top	At_Offset_0
017f 0322       | "  |		Declare_Variable	Record
0180 00db       |    |		Load_Top	At_Offset_3
0181 00da       |    |		Load_Top	At_Offset_2
0182 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0183 0119       |    |		Execute	Any,Check_In_Formal_Type
0184 00d9       |    |		Load_Top	At_Offset_1
0185 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0186 4800       |H   |		Short_Literal	0x0
0187 00d9       |    |		Load_Top	At_Offset_1
0188 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0189 4800       |H   |		Short_Literal	0x0
018a 00d9       |    |		Load_Top	At_Offset_1
018b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018c e006       |    |		Load	0x0,0x6
018d 00d9       |    |		Load_Top	At_Offset_1
018e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
018f e007       |    |		Load	0x0,0x7
0190 00d9       |    |		Load_Top	At_Offset_1
0191 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0192 4800       |H   |		Short_Literal	0x0
0193 00d9       |    |		Load_Top	At_Offset_1
0194 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0195 4800       |H   |		Short_Literal	0x0
0196 00d9       |    |		Load_Top	At_Offset_1
0197 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0198 e006       |    |		Load	0x0,0x6
0199 00d9       |    |		Load_Top	At_Offset_1
019a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
019b e007       |    |		Load	0x0,0x7
019c 00d9       |    |		Load_Top	At_Offset_1
019d 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
019e 0129       | )  |		Execute	Any,Make_Visible
019f 00bf       |    |		Action	Accept_Activation
01a0 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
01a1 00c7       |    |		Action	Elaborate_Subprogram
01a2			BODY_0008:
01a2 00bc       |    |		Action	Signal_Activated
01a3 00bb       |    |		Action	Signal_Completion
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ad e01a       |    |		Load	0x0,0x1a
01ae e01b       |    |		Load	0x0,0x1b
01af a01c       |    |		Store_Unchecked	0x0,0x1c
01b0 800b       |    |		Call	0x0,0xb
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b5 e01a       |    |		Load	0x0,0x1a
01b6 e01b       |    |		Load	0x0,0x1b
01b7 a01c       |    |		Store_Unchecked	0x0,0x1c
01b8 800b       |    |		Call	0x0,0xb
01b9 00db       |    |		Load_Top	At_Offset_3
01ba 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01bc 0000 0000  |    |		.BLANK	0000[0x4]
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 00d1       |    |		Pop_Control	Pop_Count_1
01c4 00da       |    |		Load_Top	At_Offset_2
01c5 01d8       |    |		Execute	Vector,Element_Type
01c6 0322       | "  |		Declare_Variable	Record
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 01dc       |    |		Execute	Vector,Last
01cb e5ff       |    |		Load	0x2,-0x1
01cc 01dd       |    |		Execute	Vector,First
01cd 0263       | c  |		Execute	Discrete,Above_Bound
01ce 7006       |p   |		Jump_Nonzero	0x1d5
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 00d9       |    |		Load_Top	At_Offset_1
01d1 e5ff       |    |		Load	0x2,-0x1
01d2 01d6       |    |		Execute	Vector,Field_Write
01d3 0a01       |    |		Execute_Immediate	Plus,0x1
01d4 7ff8       |    |		Jump	0x1cd
01d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 4607       |F   |		Jump_Case	0x8
01dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01dd 7807       |x   |		Jump	0x1e5								; case 0x1
01de 780a       |x   |		Jump	0x1e9								; case 0x2
01df 780e       |x   |		Jump	0x1ee								; case 0x3
01e0 7811       |x   |		Jump	0x1f2								; case 0x4
01e1 7812       |x   |		Jump	0x1f4								; case 0x5
01e2 7813       |x   |		Jump	0x1f6								; case 0x6
01e3 7816       |x   |		Jump	0x1fa								; case 0x7
01e4 4302       |C   |		.XXX[0x1]
01e5 00da       |    |		Load_Top	At_Offset_2
01e6 0091 0337  |   7|		Action	Push_String_Extended_Indexed,0x337				; "WITHDRAWN_STATE"
01e8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01e9 00db       |    |		Load_Top	At_Offset_3
01ea 00db       |    |		Load_Top	At_Offset_3
01eb 00e0       |    |		Load_Encached	Standard_Cache
01ec 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ee 00da       |    |		Load_Top	At_Offset_2
01ef 00e0       |    |		Load_Encached	Standard_Cache
01f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01f1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01f6 e219       |    |		Load	0x1,0x19
01f7 00dc       |    |		Load_Top	At_Offset_4
01f8 0267       | g  |		Execute	Discrete,Predecessor
01f9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01fa e219       |    |		Load	0x1,0x19
01fb 00dc       |    |		Load_Top	At_Offset_4
01fc 0268       | h  |		Execute	Discrete,Successor
01fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
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 4607       |F   |		Jump_Case	0x8
0204 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0205 7807       |x   |		Jump	0x20d								; case 0x1
0206 780a       |x   |		Jump	0x211								; case 0x2
0207 780e       |x   |		Jump	0x216								; case 0x3
0208 7811       |x   |		Jump	0x21a								; case 0x4
0209 7812       |x   |		Jump	0x21c								; case 0x5
020a 7813       |x   |		Jump	0x21e								; case 0x6
020b 7816       |x   |		Jump	0x222								; case 0x7
020c 4302       |C   |		.XXX[0x1]
020d 00da       |    |		Load_Top	At_Offset_2
020e 0091 033f  |   ?|		Action	Push_String_Extended_Indexed,0x33f				; "XSHFI31"
0210 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0211 00db       |    |		Load_Top	At_Offset_3
0212 00db       |    |		Load_Top	At_Offset_3
0213 00e0       |    |		Load_Encached	Standard_Cache
0214 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0215 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0216 00da       |    |		Load_Top	At_Offset_2
0217 00e0       |    |		Load_Encached	Standard_Cache
0218 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0219 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
021a 00db       |    |		Load_Top	At_Offset_3
021b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021c 00db       |    |		Load_Top	At_Offset_3
021d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021e e21a       |    |		Load	0x1,0x1a
021f 00dc       |    |		Load_Top	At_Offset_4
0220 0267       | g  |		Execute	Discrete,Predecessor
0221 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0222 e21a       |    |		Load	0x1,0x1a
0223 00dc       |    |		Load_Top	At_Offset_4
0224 0268       | h  |		Execute	Discrete,Successor
0225 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00d1       |    |		Pop_Control	Pop_Count_1
022c 00da       |    |		Load_Top	At_Offset_2
022d 01d8       |    |		Execute	Vector,Element_Type
022e 0322       | "  |		Declare_Variable	Record
022f 00d8       |    |		Load_Top	At_Offset_0
0230 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0231 00db       |    |		Load_Top	At_Offset_3
0232 01dc       |    |		Execute	Vector,Last
0233 e5ff       |    |		Load	0x2,-0x1
0234 01dd       |    |		Execute	Vector,First
0235 0263       | c  |		Execute	Discrete,Above_Bound
0236 7006       |p   |		Jump_Nonzero	0x23d
0237 00da       |    |		Load_Top	At_Offset_2
0238 00d9       |    |		Load_Top	At_Offset_1
0239 e5ff       |    |		Load	0x2,-0x1
023a 01d6       |    |		Execute	Vector,Field_Write
023b 0a01       |    |		Execute_Immediate	Plus,0x1
023c 7ff8       |    |		Jump	0x235
023d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 4607       |F   |		Jump_Case	0x8
0244 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0245 7807       |x   |		Jump	0x24d								; case 0x1
0246 780a       |x   |		Jump	0x251								; case 0x2
0247 780e       |x   |		Jump	0x256								; case 0x3
0248 7811       |x   |		Jump	0x25a								; case 0x4
0249 7812       |x   |		Jump	0x25c								; case 0x5
024a 7813       |x   |		Jump	0x25e								; case 0x6
024b 7816       |x   |		Jump	0x262								; case 0x7
024c 4302       |C   |		.XXX[0x1]
024d 00da       |    |		Load_Top	At_Offset_2
024e 0091 035f  |   _|		Action	Push_String_Extended_Indexed,0x35f				; "XWHFI31"
0250 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0251 00db       |    |		Load_Top	At_Offset_3
0252 00db       |    |		Load_Top	At_Offset_3
0253 00e0       |    |		Load_Encached	Standard_Cache
0254 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0255 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0256 00da       |    |		Load_Top	At_Offset_2
0257 00e0       |    |		Load_Encached	Standard_Cache
0258 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0259 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
025a 00db       |    |		Load_Top	At_Offset_3
025b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025c 00db       |    |		Load_Top	At_Offset_3
025d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025e e22b       | +  |		Load	0x1,0x2b
025f 00dc       |    |		Load_Top	At_Offset_4
0260 0267       | g  |		Execute	Discrete,Predecessor
0261 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0262 e22b       | +  |		Load	0x1,0x2b
0263 00dc       |    |		Load_Top	At_Offset_4
0264 0268       | h  |		Execute	Discrete,Successor
0265 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 4601       |F   |		Jump_Case	0x2
026c 7801       |x   |		Jump	0x26e								; case 0x0
026d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
026e 4800       |H   |		Short_Literal	0x0
026f 00db       |    |		Load_Top	At_Offset_3
0270 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0271 4800       |H   |		Short_Literal	0x0
0272 00db       |    |		Load_Top	At_Offset_3
0273 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0274 4800       |H   |		Short_Literal	0x0
0275 00db       |    |		Load_Top	At_Offset_3
0276 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0277 4800       |H   |		Short_Literal	0x0
0278 00db       |    |		Load_Top	At_Offset_3
0279 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
027a 4800       |H   |		Short_Literal	0x0
027b 00db       |    |		Load_Top	At_Offset_3
027c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
027d 4800       |H   |		Short_Literal	0x0
027e 00db       |    |		Load_Top	At_Offset_3
027f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0280 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0281 0000 0000  |    |		.BLANK	0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 4601       |F   |		Jump_Case	0x2
028c 7801       |x   |		Jump	0x28e								; case 0x0
028d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
028e 4800       |H   |		Short_Literal	0x0
028f 00db       |    |		Load_Top	At_Offset_3
0290 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0291 4800       |H   |		Short_Literal	0x0
0292 00db       |    |		Load_Top	At_Offset_3
0293 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0294 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 4601       |F   |		Jump_Case	0x2
029c 7801       |x   |		Jump	0x29e								; case 0x0
029d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
029e e21c       |    |		Load	0x1,0x1c
029f 00db       |    |		Load_Top	At_Offset_3
02a0 00d9       |    |		Load_Top	At_Offset_1
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
02a3 0119       |    |		Execute	Any,Check_In_Formal_Type
02a4 00d1       |    |		Pop_Control	Pop_Count_1
02a5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02a6 4800       |H   |		Short_Literal	0x0
02a7 00db       |    |		Load_Top	At_Offset_3
02a8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02a9 4800       |H   |		Short_Literal	0x0
02aa 00db       |    |		Load_Top	At_Offset_3
02ab 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ac 4800       |H   |		Short_Literal	0x0
02ad 00db       |    |		Load_Top	At_Offset_3
02ae 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02af 4800       |H   |		Short_Literal	0x0
02b0 00db       |    |		Load_Top	At_Offset_3
02b1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02b2 4800       |H   |		Short_Literal	0x0
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02b5 4800       |H   |		Short_Literal	0x0
02b6 00db       |    |		Load_Top	At_Offset_3
02b7 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02b8 4800       |H   |		Short_Literal	0x0
02b9 00db       |    |		Load_Top	At_Offset_3
02ba 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02bb 4800       |H   |		Short_Literal	0x0
02bc 00db       |    |		Load_Top	At_Offset_3
02bd 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02be 4800       |H   |		Short_Literal	0x0
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02c1 4800       |H   |		Short_Literal	0x0
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
02c4 00da       |    |		Load_Top	At_Offset_2
02c5 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
02c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
02c9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ca 4800       |H   |		Short_Literal	0x0
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
02cd 4800       |H   |		Short_Literal	0x0
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
02d0 4800       |H   |		Short_Literal	0x0
02d1 00db       |    |		Load_Top	At_Offset_3
02d2 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
02d3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 4601       |F   |		Jump_Case	0x2
02dc 7801       |x   |		Jump	0x2de								; case 0x0
02dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02de e002       |    |		Load	0x0,0x2
02df 00db       |    |		Load_Top	At_Offset_3
02e0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02e1 4800       |H   |		Short_Literal	0x0
02e2 00db       |    |		Load_Top	At_Offset_3
02e3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e4 4800       |H   |		Short_Literal	0x0
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02e7 4800       |H   |		Short_Literal	0x0
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02ea 4800       |H   |		Short_Literal	0x0
02eb 00db       |    |		Load_Top	At_Offset_3
02ec 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02ed 4800       |H   |		Short_Literal	0x0
02ee 00db       |    |		Load_Top	At_Offset_3
02ef 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02f0 4800       |H   |		Short_Literal	0x0
02f1 00db       |    |		Load_Top	At_Offset_3
02f2 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02f3 4800       |H   |		Short_Literal	0x0
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02f6 e003       |    |		Load	0x0,0x3
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02f9 e004       |    |		Load	0x0,0x4
02fa 00db       |    |		Load_Top	At_Offset_3
02fb 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
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 4601       |F   |		Jump_Case	0x2
0304 7801       |x   |		Jump	0x306								; case 0x0
0305 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0306 e005       |    |		Load	0x0,0x5
0307 00db       |    |		Load_Top	At_Offset_3
0308 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0309 4800       |H   |		Short_Literal	0x0
030a 00db       |    |		Load_Top	At_Offset_3
030b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
030c 4800       |H   |		Short_Literal	0x0
030d 00db       |    |		Load_Top	At_Offset_3
030e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
030f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
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 4601       |F   |		Jump_Case	0x2
0314 7801       |x   |		Jump	0x316								; case 0x0
0315 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0316 e22d       | -  |		Load	0x1,0x2d
0317 00db       |    |		Load_Top	At_Offset_3
0318 00d9       |    |		Load_Top	At_Offset_1
0319 00d9       |    |		Load_Top	At_Offset_1
031a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
031b 0119       |    |		Execute	Any,Check_In_Formal_Type
031c 00d1       |    |		Pop_Control	Pop_Count_1
031d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
031e 4800       |H   |		Short_Literal	0x0
031f 00db       |    |		Load_Top	At_Offset_3
0320 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0321 4800       |H   |		Short_Literal	0x0
0322 00db       |    |		Load_Top	At_Offset_3
0323 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0324 e006       |    |		Load	0x0,0x6
0325 00db       |    |		Load_Top	At_Offset_3
0326 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0327 e007       |    |		Load	0x0,0x7
0328 00db       |    |		Load_Top	At_Offset_3
0329 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
032a 4800       |H   |		Short_Literal	0x0
032b 00db       |    |		Load_Top	At_Offset_3
032c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
032d 4800       |H   |		Short_Literal	0x0
032e 00db       |    |		Load_Top	At_Offset_3
032f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0330 e006       |    |		Load	0x0,0x6
0331 00db       |    |		Load_Top	At_Offset_3
0332 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0333 e007       |    |		Load	0x0,0x7
0334 00db       |    |		Load_Top	At_Offset_3
0335 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0336 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0337 ; --------------------------------------------------------------------------------------
0337 ; STRING TABLE
0337 ; --------------------------------------------------------------------------------------
0337 0092       |    |		.STRTAB	0x0092->0x0380							; "WITHDRAWN_STATE"
0338 009f       |    |		.STRTAB	0x009f->0x0387							; "NORMAL_STATE"
0339 00a9       |    |		.STRTAB	0x00a9->0x038d							; "XIW02"
033a 00ac       |    |		.STRTAB	0x00ac->0x0390							; "ICONIC_STATE"
033b 00b6       |    |		.STRTAB	0x00b6->0x0396							; "XIW04"
033c 00b9       |    |		.STRTAB	0x00b9->0x0398							; "XIW05"
033d 00bc       |    |		.STRTAB	0x00bc->0x039b							; "XIW06"
033e 00bf       |    |		.STRTAB	0x00bf->0x039d							; "XIW07"
033f 00c2       |    |		.STRTAB	0x00c2->0x03a0							; "XSHFI31"
0340 00c7       |    |		.STRTAB	0x00c7->0x03a3							; "XSHFI30"
0341 00cc       |    |		.STRTAB	0x00cc->0x03a7							; "XSHFI29"
0342 00d1       |    |		.STRTAB	0x00d1->0x03aa							; "XSHFI28"
0343 00d6       |    |		.STRTAB	0x00d6->0x03ae							; "XSHFI27"
0344 00db       |    |		.STRTAB	0x00db->0x03b1							; "XSHFI26"
0345 00e0       |    |		.STRTAB	0x00e0->0x03b5							; "XSHFI25"
0346 00e5       |    |		.STRTAB	0x00e5->0x03b8							; "XSHFI24"
0347 00ea       |    |		.STRTAB	0x00ea->0x03bc							; "XSHFI23"
0348 00ef       |    |		.STRTAB	0x00ef->0x03bf							; "XSHFI22"
0349 00f4       |    |		.STRTAB	0x00f4->0x03c3							; "XSHFI21"
034a 00f9       |    |		.STRTAB	0x00f9->0x03c6							; "XSHFI20"
034b 00fe       |    |		.STRTAB	0x00fe->0x03ca							; "XSHFI19"
034c 0103       |    |		.STRTAB	0x0103->0x03cd							; "XSHFI18"
034d 0108       |    |		.STRTAB	0x0108->0x03d1							; "XSHFI17"
034e 010d       |    |		.STRTAB	0x010d->0x03d4							; "XSHFI16"
034f 0112       |    |		.STRTAB	0x0112->0x03d8							; "XSHFI15"
0350 0117       |    |		.STRTAB	0x0117->0x03db							; "XSHFI14"
0351 011c       |    |		.STRTAB	0x011c->0x03df							; "XSHFI13"
0352 0121       | !  |		.STRTAB	0x0121->0x03e2							; "XSHFI12"
0353 0126       | &  |		.STRTAB	0x0126->0x03e6							; "XSHFI11"
0354 012b       | +  |		.STRTAB	0x012b->0x03e9							; "XSHFI10"
0355 0130       | 0  |		.STRTAB	0x0130->0x03ed							; "P_WIN_GRAVITY"
0356 013b       | ;  |		.STRTAB	0x013b->0x03f3							; "P_BASE_SIZE"
0357 0144       | D  |		.STRTAB	0x0144->0x03f9							; "P_ASPECT"
0358 014a       | J  |		.STRTAB	0x014a->0x03fd							; "P_RESIZE_INC"
0359 0154       | T  |		.STRTAB	0x0154->0x0403							; "P_MAX_SIZE"
035a 015c       | \  |		.STRTAB	0x015c->0x0408							; "P_MIN_SIZE"
035b 0164       | d  |		.STRTAB	0x0164->0x040d							; "P_SIZE"
035c 0168       | h  |		.STRTAB	0x0168->0x0410							; "P_POSITION"
035d 0170       | p  |		.STRTAB	0x0170->0x0415							; "U_S_SIZE"
035e 0176       | v  |		.STRTAB	0x0176->0x0419							; "U_S_POSITION"
035f 0180       |    |		.STRTAB	0x0180->0x041f							; "XWHFI31"
0360 0185       |    |		.STRTAB	0x0185->0x0422							; "XWHFI30"
0361 018a       |    |		.STRTAB	0x018a->0x0426							; "XWHFI29"
0362 018f       |    |		.STRTAB	0x018f->0x0429							; "XWHFI28"
0363 0194       |    |		.STRTAB	0x0194->0x042d							; "XWHFI27"
0364 0199       |    |		.STRTAB	0x0199->0x0430							; "XWHFI26"
0365 019e       |    |		.STRTAB	0x019e->0x0434							; "XWHFI25"
0366 01a3       |    |		.STRTAB	0x01a3->0x0437							; "XWHFI24"
0367 01a8       |    |		.STRTAB	0x01a8->0x043b							; "XWHFI23"
0368 01ad       |    |		.STRTAB	0x01ad->0x043e							; "XWHFI22"
0369 01b2       |    |		.STRTAB	0x01b2->0x0442							; "XWHFI21"
036a 01b7       |    |		.STRTAB	0x01b7->0x0445							; "XWHFI20"
036b 01bc       |    |		.STRTAB	0x01bc->0x0449							; "XWHFI19"
036c 01c1       |    |		.STRTAB	0x01c1->0x044c							; "XWHFI18"
036d 01c6       |    |		.STRTAB	0x01c6->0x0450							; "XWHFI17"
036e 01cb       |    |		.STRTAB	0x01cb->0x0453							; "XWHFI16"
036f 01d0       |    |		.STRTAB	0x01d0->0x0457							; "XWHFI15"
0370 01d5       |    |		.STRTAB	0x01d5->0x045a							; "XWHFI14"
0371 01da       |    |		.STRTAB	0x01da->0x045e							; "XWHFI13"
0372 01df       |    |		.STRTAB	0x01df->0x0461							; "XWHFI12"
0373 01e4       |    |		.STRTAB	0x01e4->0x0465							; "XWHFI11"
0374 01e9       |    |		.STRTAB	0x01e9->0x0468							; "XWHFI10"
0375 01ee       |    |		.STRTAB	0x01ee->0x046c							; "XWHFI09"
0376 01f3       |    |		.STRTAB	0x01f3->0x046f							; "XWHFI08"
0377 01f8       |    |		.STRTAB	0x01f8->0x0473							; "XWHFI07"
0378 01fd       |    |		.STRTAB	0x01fd->0x0476							; "WINDOW_GROUP_HINT"
0379 020c       |    |		.STRTAB	0x020c->0x047f							; "ICON_MASK_HINT"
037a 0218       |    |		.STRTAB	0x0218->0x0486							; "ICON_POSITION_HINT"
037b 0228       | (  |		.STRTAB	0x0228->0x048f							; "ICON_WINDOW_HINT"
037c 0236       | 6  |		.STRTAB	0x0236->0x0497							; "ICON_PIXMAP_HINT"
037d 0244       | D  |		.STRTAB	0x0244->0x049f							; "STATE_HINT"
037e 024c       | L  |		.STRTAB	0x024c->0x04a4							; "INPUT_HINT"
037f 0254       | T  |		.STREND 0x0254->0x04a9
0380 5749 5448  |WITH|		.STRTAB_STRINGS
04a9 0000 0000  |    |		.BLANK	0000[0x7]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug Table
04b0 ; --------------------------------------------------------------------------------------
04b0 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x491f,0x0000,0x0001,0x000e
04b6 000b 04ee  |    |		.DBG4T	0x000b,0x04ee,0x8000,0x0000
04ba 01a0 0511  |    |		.DBG4T	0x01a0,0x0511,0x8000,0x0000
04be 01ab 0514  |    |		.DBG4T	0x01ab,0x0514,0x0001,0x0000
04c2 01c3 0000  |    |		.DBG4T	0x01c3,0x0000,0x0005,0x0000
04c6 01db 0000  |    |		.DBG4T	0x01db,0x0000,0x0005,0x0000
04ca 0203 0000  |    |		.DBG4T	0x0203,0x0000,0x0005,0x0000
04ce 022b 0000  | +  |		.DBG4T	0x022b,0x0000,0x0005,0x0000
04d2 0243 0000  | C  |		.DBG4T	0x0243,0x0000,0x0005,0x0000
04d6 026b 0000  | k  |		.DBG4T	0x026b,0x0000,0x0005,0x0000
04da 028b 0000  |    |		.DBG4T	0x028b,0x0000,0x0005,0x0000
04de 029b 0000  |    |		.DBG4T	0x029b,0x0000,0x0005,0x0000
04e2 02db 0000  |    |		.DBG4T	0x02db,0x0000,0x0005,0x0000
04e6 0303 0000  |    |		.DBG4T	0x0303,0x0000,0x0005,0x0000
04ea 0313 0000  |    |		.DBG4T	0x0313,0x0000,0x0005,0x0000
04ee ; --------------------------------------------------------------------------------------
04ee ; Debug chain
04ee ; --------------------------------------------------------------------------------------
04ee 0021 0000  | !  |		.DBGLEN	0x0021,0x0000
04f0 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0019,0x001b,0x0025,0x002c,0x0032,0x0033,0x0048,0x0049,0x0055,0x005b,0x005c,0x0061,0x0067,0x0075,0x007b,0x008f,0x00cf,0x00dd,0x00e4,0x00ea,0x00eb,0x010c,0x010d,0x0119,0x0121,0x0130,0x0135,0x013b,0x0149,0x0171,0x017e
0511 ; --------------------------------------------------------------------------------------
0511 ; Debug chain
0511 ; --------------------------------------------------------------------------------------
0511 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0513 01a0       |    |		.DBGLNO	0x01a0
0514 ; --------------------------------------------------------------------------------------
0514 ; Debug chain
0514 ; --------------------------------------------------------------------------------------
0514 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0516 01ab 01b3  |    |		.DBGLNO	0x01ab,0x01b3
0518 0000 0000  |    |		.BLANK	0000[0xe8]