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

⟦5da9248c8⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4

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 02f8       |    |		.CONST	0x02f8								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00af       |    |		.CONST	0x00af								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
000d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0015 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0017 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
001b 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001d 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
001f 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0021 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0023 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0025 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0027 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0029 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
002b 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
002d 4800       |H   |		Short_Literal	0x0
002e 0093 0253  |   S|		push_full_address	INIT_0250
0030 02a0       |    |		Declare_Subprogram	Null_Subprogram
0031 038f       |    |		Declare_Type	Package,Defined,Visible
0032 0386       |    |		Declare_Variable	Package,Visible
0033 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0035 0093 0000  |    |		push_full_address	0x0
0037 6088       |`   |		Indirect_Literal	Discrete,0xc0,{0x80000000, 0x00010000}
0038 0273       | s  |		Execute	Discrete,Plus
0039 e002       |    |		Load	0x0,0x2
003a 0273       | s  |		Execute	Discrete,Plus
003b e003       |    |		Load	0x0,0x3
003c 0273       | s  |		Execute	Discrete,Plus
003d e004       |    |		Load	0x0,0x4
003e e005       |    |		Load	0x0,0x5
003f 4801       |H   |		Short_Literal	0x1
0040 a006       |    |		Store_Unchecked	0x0,0x6
0041 a007       |    |		Store_Unchecked	0x0,0x7
0042 a008       |    |		Store_Unchecked	0x0,0x8
0043 a009       |    |		Store_Unchecked	0x0,0x9
0044 a00a       |    |		Store_Unchecked	0x0,0xa
0045 a00b       |    |		Store_Unchecked	0x0,0xb
0046 a00c       |    |		Store_Unchecked	0x0,0xc
0047 a00d       |    |		Store_Unchecked	0x0,0xd
0048 a00e       |    |		Store_Unchecked	0x0,0xe
0049 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
004a e00f       |    |		Load	0x0,0xf
004b 4805       |H   |		Short_Literal	0x5
004c e010       |    |		Load	0x0,0x10
004d 0386       |    |		Declare_Variable	Package,Visible
004e 00d8       |    |		Load_Top	At_Offset_0
004f 020f       |    |		Execute	Module,Activate
0050 e011       |    |		Load	0x0,0x11
0051 00d9       |    |		Load_Top	At_Offset_1
0052 0098       |    |		Execute	Package,Field_Read_Dynamic
0053 0129       | )  |		Execute	Any,Make_Visible
0054 00bf       |    |		Action	Accept_Activation
0055 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 e012       |    |		Load	0x0,0x12
0076 e013       |    |		Load	0x0,0x13
0077 00db       |    |		Load_Top	At_Offset_3
0078 0098       |    |		Execute	Package,Field_Read_Dynamic
0079 0095       |    |		Execute	Package,Field_Reference_Dynamic
007a e011       |    |		Load	0x0,0x11
007b 00db       |    |		Load_Top	At_Offset_3
007c 0098       |    |		Execute	Package,Field_Read_Dynamic
007d e014       |    |		Load	0x0,0x14
007e e013       |    |		Load	0x0,0x13
007f e220       |    |		Load	0x1,0x20
0080 0098       |    |		Execute	Package,Field_Read_Dynamic
0081 0095       |    |		Execute	Package,Field_Reference_Dynamic
0082 e015       |    |		Load	0x0,0x15
0083 e013       |    |		Load	0x0,0x13
0084 e220       |    |		Load	0x1,0x20
0085 0098       |    |		Execute	Package,Field_Read_Dynamic
0086 0095       |    |		Execute	Package,Field_Reference_Dynamic
0087 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0088 e016       |    |		Load	0x0,0x16
0089 e013       |    |		Load	0x0,0x13
008a e220       |    |		Load	0x1,0x20
008b 0098       |    |		Execute	Package,Field_Read_Dynamic
008c 0095       |    |		Execute	Package,Field_Reference_Dynamic
008d e017       |    |		Load	0x0,0x17
008e e013       |    |		Load	0x0,0x13
008f e220       |    |		Load	0x1,0x20
0090 0098       |    |		Execute	Package,Field_Read_Dynamic
0091 0095       |    |		Execute	Package,Field_Reference_Dynamic
0092 e018       |    |		Load	0x0,0x18
0093 e013       |    |		Load	0x0,0x13
0094 e220       |    |		Load	0x1,0x20
0095 0098       |    |		Execute	Package,Field_Read_Dynamic
0096 0095       |    |		Execute	Package,Field_Reference_Dynamic
0097 e019       |    |		Load	0x0,0x19
0098 e013       |    |		Load	0x0,0x13
0099 e220       |    |		Load	0x1,0x20
009a 0098       |    |		Execute	Package,Field_Read_Dynamic
009b 0095       |    |		Execute	Package,Field_Reference_Dynamic
009c e01a       |    |		Load	0x0,0x1a
009d e013       |    |		Load	0x0,0x13
009e e220       |    |		Load	0x1,0x20
009f 0098       |    |		Execute	Package,Field_Read_Dynamic
00a0 0095       |    |		Execute	Package,Field_Reference_Dynamic
00a1 e01b       |    |		Load	0x0,0x1b
00a2 e013       |    |		Load	0x0,0x13
00a3 e220       |    |		Load	0x1,0x20
00a4 0098       |    |		Execute	Package,Field_Read_Dynamic
00a5 0095       |    |		Execute	Package,Field_Reference_Dynamic
00a6 480b       |H   |		Short_Literal	0xb
00a7 e21e       |    |		Load	0x1,0x1e
00a8 020e       |    |		Execute	Module,Augment_Imports
00a9 00db       |    |		Load_Top	At_Offset_3
00aa 020f       |    |		Execute	Module,Activate
00ab 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af			BODY_0008:
00af 00bc       |    |		Action	Signal_Activated
00b0 00bb       |    |		Action	Signal_Completion
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e01c       |    |		Load	0x0,0x1c
00bd e220       |    |		Load	0x1,0x20
00be 0096       |    |		Execute	Package,Entry
00bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc e011       |    |		Load	0x0,0x11
00cd e220       |    |		Load	0x1,0x20
00ce 0098       |    |		Execute	Package,Field_Read_Dynamic
00cf 0216       |    |		Execute	Heap_Access,Convert
00d0 e01d       |    |		Load	0x0,0x1d
00d1 e220       |    |		Load	0x1,0x20
00d2 0096       |    |		Execute	Package,Entry
00d3 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00d4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 4800       |H   |		Short_Literal	0x0
00dc 4800       |H   |		Short_Literal	0x0
00dd e5fe       |    |		Load	0x2,-0x2
00de e01e       |    |		Load	0x0,0x1e
00df e220       |    |		Load	0x1,0x20
00e0 0096       |    |		Execute	Package,Entry
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 801f       |    |		Call	0x0,0x1f
00e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e4 0000 0000  |    |		.BLANK	0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00db       |    |		Load_Top	At_Offset_3
00ec e01e       |    |		Load	0x0,0x1e
00ed e220       |    |		Load	0x1,0x20
00ee 0096       |    |		Execute	Package,Entry
00ef 00db       |    |		Load_Top	At_Offset_3
00f0 8020       |    |		Call	0x0,0x20
00f1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f2 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
00fc e01e       |    |		Load	0x0,0x1e
00fd e220       |    |		Load	0x1,0x20
00fe 0096       |    |		Execute	Package,Entry
00ff 8021       | !  |		Call	0x0,0x21
0100 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c e01e       |    |		Load	0x0,0x1e
010d e220       |    |		Load	0x1,0x20
010e 0096       |    |		Execute	Package,Entry
010f 8022       | "  |		Call	0x0,0x22
0110 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c e01e       |    |		Load	0x0,0x1e
011d e220       |    |		Load	0x1,0x20
011e 0096       |    |		Execute	Package,Entry
011f 8023       | #  |		Call	0x0,0x23
0120 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c e01e       |    |		Load	0x0,0x1e
012d e220       |    |		Load	0x1,0x20
012e 0096       |    |		Execute	Package,Entry
012f 8024       | $  |		Call	0x0,0x24
0130 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c e01e       |    |		Load	0x0,0x1e
013d e220       |    |		Load	0x1,0x20
013e 0096       |    |		Execute	Package,Entry
013f 8025       | %  |		Call	0x0,0x25
0140 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0153       | S  |		.CONST	0x0153								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b e004       |    |		Load	0x0,0x4
014c 0322       | "  |		Declare_Variable	Record
014d e5fd       |    |		Load	0x2,-0x3
014e e01e       |    |		Load	0x0,0x1e
014f e220       |    |		Load	0x1,0x20
0150 0096       |    |		Execute	Package,Entry
0151 00d9       |    |		Load_Top	At_Offset_1
0152 017d       | }  |		Execute	Record,Structure_Write
0153			BODY_0148:
0153 00d8       |    |		Load_Top	At_Offset_0
0154 e5fe       |    |		Load	0x2,-0x2
0155 e5ff       |    |		Load	0x2,-0x1
0156 8026       | &  |		Call	0x0,0x26
0157 00d1       |    |		Pop_Control	Pop_Count_1
0158 e5fd       |    |		Load	0x2,-0x3
0159 e011       |    |		Load	0x0,0x11
015a e220       |    |		Load	0x1,0x20
015b 0098       |    |		Execute	Package,Field_Read_Dynamic
015c 0216       |    |		Execute	Heap_Access,Convert
015d 00d9       |    |		Load_Top	At_Offset_1
015e e027       | '  |		Load	0x0,0x27
015f e220       |    |		Load	0x1,0x20
0160 0096       |    |		Execute	Package,Entry
0161 c5fd       |    |		Store	0x2,-0x3
0162 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0163 0000 0000  |    |		.BLANK	0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0173       | s  |		.CONST	0x0173								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0002       |    |		.CONST	0x0002								; Number of locals
016b			INIT_0168:
016b e004       |    |		Load	0x0,0x4
016c 0322       | "  |		Declare_Variable	Record
016d e5fd       |    |		Load	0x2,-0x3
016e e01e       |    |		Load	0x0,0x1e
016f e220       |    |		Load	0x1,0x20
0170 0096       |    |		Execute	Package,Entry
0171 00d9       |    |		Load_Top	At_Offset_1
0172 017d       | }  |		Execute	Record,Structure_Write
0173			BODY_0168:
0173 00d8       |    |		Load_Top	At_Offset_0
0174 e5fe       |    |		Load	0x2,-0x2
0175 e5ff       |    |		Load	0x2,-0x1
0176 8028       | (  |		Call	0x0,0x28
0177 00d1       |    |		Pop_Control	Pop_Count_1
0178 e5fd       |    |		Load	0x2,-0x3
0179 e011       |    |		Load	0x0,0x11
017a e220       |    |		Load	0x1,0x20
017b 0098       |    |		Execute	Package,Field_Read_Dynamic
017c 0216       |    |		Execute	Heap_Access,Convert
017d 00d9       |    |		Load_Top	At_Offset_1
017e e027       | '  |		Load	0x0,0x27
017f e220       |    |		Load	0x1,0x20
0180 0096       |    |		Execute	Package,Entry
0181 c5fd       |    |		Store	0x2,-0x3
0182 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0193       |    |		.CONST	0x0193								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e004       |    |		Load	0x0,0x4
018c 0322       | "  |		Declare_Variable	Record
018d e5fe       |    |		Load	0x2,-0x2
018e e01e       |    |		Load	0x0,0x1e
018f e220       |    |		Load	0x1,0x20
0190 0096       |    |		Execute	Package,Entry
0191 00d9       |    |		Load_Top	At_Offset_1
0192 017d       | }  |		Execute	Record,Structure_Write
0193			BODY_0188:
0193 00d8       |    |		Load_Top	At_Offset_0
0194 e5ff       |    |		Load	0x2,-0x1
0195 8029       | )  |		Call	0x0,0x29
0196 00d1       |    |		Pop_Control	Pop_Count_1
0197 e5fe       |    |		Load	0x2,-0x2
0198 e011       |    |		Load	0x0,0x11
0199 e220       |    |		Load	0x1,0x20
019a 0098       |    |		Execute	Package,Field_Read_Dynamic
019b 0216       |    |		Execute	Heap_Access,Convert
019c 00d9       |    |		Load_Top	At_Offset_1
019d e027       | '  |		Load	0x0,0x27
019e e220       |    |		Load	0x1,0x20
019f 0096       |    |		Execute	Package,Entry
01a0 c5fe       |    |		Store	0x2,-0x2
01a1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a2 0000 0000  |    |		.BLANK	0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3       |    |		.CONST	0x01b3								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e004       |    |		Load	0x0,0x4
01ac 0322       | "  |		Declare_Variable	Record
01ad e5fe       |    |		Load	0x2,-0x2
01ae e01e       |    |		Load	0x0,0x1e
01af e220       |    |		Load	0x1,0x20
01b0 0096       |    |		Execute	Package,Entry
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 017d       | }  |		Execute	Record,Structure_Write
01b3			BODY_01a8:
01b3 00d8       |    |		Load_Top	At_Offset_0
01b4 e5ff       |    |		Load	0x2,-0x1
01b5 802a       | *  |		Call	0x0,0x2a
01b6 00d1       |    |		Pop_Control	Pop_Count_1
01b7 e5fe       |    |		Load	0x2,-0x2
01b8 e011       |    |		Load	0x0,0x11
01b9 e220       |    |		Load	0x1,0x20
01ba 0098       |    |		Execute	Package,Field_Read_Dynamic
01bb 0216       |    |		Execute	Heap_Access,Convert
01bc 00d9       |    |		Load_Top	At_Offset_1
01bd e027       | '  |		Load	0x0,0x27
01be e220       |    |		Load	0x1,0x20
01bf 0096       |    |		Execute	Package,Entry
01c0 c5fe       |    |		Store	0x2,-0x2
01c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d3       |    |		.CONST	0x01d3								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb e004       |    |		Load	0x0,0x4
01cc 0322       | "  |		Declare_Variable	Record
01cd e5fe       |    |		Load	0x2,-0x2
01ce e01e       |    |		Load	0x0,0x1e
01cf e220       |    |		Load	0x1,0x20
01d0 0096       |    |		Execute	Package,Entry
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 017d       | }  |		Execute	Record,Structure_Write
01d3			BODY_01c8:
01d3 00d8       |    |		Load_Top	At_Offset_0
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 802b       | +  |		Call	0x0,0x2b
01d6 00d1       |    |		Pop_Control	Pop_Count_1
01d7 e5fe       |    |		Load	0x2,-0x2
01d8 e011       |    |		Load	0x0,0x11
01d9 e220       |    |		Load	0x1,0x20
01da 0098       |    |		Execute	Package,Field_Read_Dynamic
01db 0216       |    |		Execute	Heap_Access,Convert
01dc 00d9       |    |		Load_Top	At_Offset_1
01dd e027       | '  |		Load	0x0,0x27
01de e220       |    |		Load	0x1,0x20
01df 0096       |    |		Execute	Package,Entry
01e0 c5fe       |    |		Store	0x2,-0x2
01e1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e2 0000 0000  |    |		.BLANK	0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f3       |    |		.CONST	0x01f3								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0002       |    |		.CONST	0x0002								; Number of locals
01eb			INIT_01e8:
01eb e004       |    |		Load	0x0,0x4
01ec 0322       | "  |		Declare_Variable	Record
01ed e5fe       |    |		Load	0x2,-0x2
01ee e01e       |    |		Load	0x0,0x1e
01ef e220       |    |		Load	0x1,0x20
01f0 0096       |    |		Execute	Package,Entry
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 017d       | }  |		Execute	Record,Structure_Write
01f3			BODY_01e8:
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 e5ff       |    |		Load	0x2,-0x1
01f5 802c       | ,  |		Call	0x0,0x2c
01f6 00d1       |    |		Pop_Control	Pop_Count_1
01f7 e5fe       |    |		Load	0x2,-0x2
01f8 e011       |    |		Load	0x0,0x11
01f9 e220       |    |		Load	0x1,0x20
01fa 0098       |    |		Execute	Package,Field_Read_Dynamic
01fb 0216       |    |		Execute	Heap_Access,Convert
01fc 00d9       |    |		Load_Top	At_Offset_1
01fd e027       | '  |		Load	0x0,0x27
01fe e220       |    |		Load	0x1,0x20
01ff 0096       |    |		Execute	Package,Entry
0200 c5fe       |    |		Store	0x2,-0x2
0201 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0213       |    |		.CONST	0x0213								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b e004       |    |		Load	0x0,0x4
020c 0322       | "  |		Declare_Variable	Record
020d e5fe       |    |		Load	0x2,-0x2
020e e01e       |    |		Load	0x0,0x1e
020f e220       |    |		Load	0x1,0x20
0210 0096       |    |		Execute	Package,Entry
0211 00d9       |    |		Load_Top	At_Offset_1
0212 017d       | }  |		Execute	Record,Structure_Write
0213			BODY_0208:
0213 00d8       |    |		Load_Top	At_Offset_0
0214 e5ff       |    |		Load	0x2,-0x1
0215 802d       | -  |		Call	0x0,0x2d
0216 00d1       |    |		Pop_Control	Pop_Count_1
0217 e5fe       |    |		Load	0x2,-0x2
0218 e011       |    |		Load	0x0,0x11
0219 e220       |    |		Load	0x1,0x20
021a 0098       |    |		Execute	Package,Field_Read_Dynamic
021b 0216       |    |		Execute	Heap_Access,Convert
021c 00d9       |    |		Load_Top	At_Offset_1
021d e027       | '  |		Load	0x0,0x27
021e e220       |    |		Load	0x1,0x20
021f 0096       |    |		Execute	Package,Entry
0220 c5fe       |    |		Store	0x2,-0x2
0221 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0222 0000 0000  |    |		.BLANK	0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f       | /  |		.CONST	0x022f								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b e004       |    |		Load	0x0,0x4
022c 0322       | "  |		Declare_Variable	Record
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f			BODY_0228:
022f 00d8       |    |		Load_Top	At_Offset_0
0230 e5ff       |    |		Load	0x2,-0x1
0231 e02e       | .  |		Load	0x0,0x2e
0232 e220       |    |		Load	0x1,0x20
0233 0096       |    |		Execute	Package,Entry
0234 e5ff       |    |		Load	0x2,-0x1
0235 e01e       |    |		Load	0x0,0x1e
0236 e220       |    |		Load	0x1,0x20
0237 0096       |    |		Execute	Package,Entry
0238 800a       |    |		Call	0x0,0xa
0239 00d1       |    |		Pop_Control	Pop_Count_1
023a 00d8       |    |		Load_Top	At_Offset_0
023b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3
0244 802f       | /  |		Call	0x0,0x2f
0245			BODY_0240:
0245 00d8       |    |		Load_Top	At_Offset_0
0246 4802       |H   |		Short_Literal	0x2
0247 e5ff       |    |		Load	0x2,-0x1
0248 8030       | 0  |		Call	0x0,0x30
0249 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024a 0000 0000  |    |		.BLANK	0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0278       | x  |		.CONST	0x0278								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0015       |    |		.CONST	0x0015								; Number of locals
0253			INIT_0250:
0253 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0255 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0257 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0259 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
025b 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
025d 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
025f 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0261 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0263 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0265 00bf       |    |		Action	Accept_Activation
0266 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0267 00c7       |    |		Action	Elaborate_Subprogram
0268 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0269 00c7       |    |		Action	Elaborate_Subprogram
026a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
026b 00c7       |    |		Action	Elaborate_Subprogram
026c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
026d 00c7       |    |		Action	Elaborate_Subprogram
026e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
026f 00c7       |    |		Action	Elaborate_Subprogram
0270 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0271 00c7       |    |		Action	Elaborate_Subprogram
0272 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0273 00c7       |    |		Action	Elaborate_Subprogram
0274 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0275 00c7       |    |		Action	Elaborate_Subprogram
0276 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0277 00c7       |    |		Action	Elaborate_Subprogram
0278			BODY_0250:
0278 00bc       |    |		Action	Signal_Activated
0279 00bb       |    |		Action	Signal_Completion
027a 0000 0000  |    |		.BLANK	0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00db       |    |		Load_Top	At_Offset_3
0284 00db       |    |		Load_Top	At_Offset_3
0285 8001       |    |		Call	0x0,0x1
0286 c5fe       |    |		Store	0x2,-0x2
0287 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5fd       |    |		Load	0x2,-0x3
028c e002       |    |		Load	0x0,0x2
028d 0216       |    |		Execute	Heap_Access,Convert
028e e5fe       |    |		Load	0x2,-0x2
028f e5ff       |    |		Load	0x2,-0x1
0290 8003       |    |		Call	0x0,0x3
0291 c5fd       |    |		Store	0x2,-0x3
0292 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0293 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
029c e002       |    |		Load	0x0,0x2
029d 0216       |    |		Execute	Heap_Access,Convert
029e 00db       |    |		Load_Top	At_Offset_3
029f 8004       |    |		Call	0x0,0x4
02a0 c5fe       |    |		Store	0x2,-0x2
02a1 00db       |    |		Load_Top	At_Offset_3
02a2 00db       |    |		Load_Top	At_Offset_3
02a3 480a       |H   |		Short_Literal	0xa
02a4 8005       |    |		Call	0x0,0x5
02a5 c5fe       |    |		Store	0x2,-0x2
02a6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a7 0000       |    |		.XXX[0x1]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 8006       |    |		Call	0x0,0x6
02ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ae 0000 0000  |    |		.XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 e002       |    |		Load	0x0,0x2
02b5 0216       |    |		Execute	Heap_Access,Convert
02b6 8007       |    |		Call	0x0,0x7
02b7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
02b8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b9 0000 0000  |    |		.BLANK	0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 e002       |    |		Load	0x0,0x2
02c5 0216       |    |		Execute	Heap_Access,Convert
02c6 00db       |    |		Load_Top	At_Offset_3
02c7 8008       |    |		Call	0x0,0x8
02c8 c5fe       |    |		Store	0x2,-0x2
02c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ca 0000 0000  |    |		.BLANK	0000[0x6]
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 00db       |    |		Load_Top	At_Offset_3
02d4 e002       |    |		Load	0x0,0x2
02d5 0216       |    |		Execute	Heap_Access,Convert
02d6 00db       |    |		Load_Top	At_Offset_3
02d7 8009       |    |		Call	0x0,0x9
02d8 c5fe       |    |		Store	0x2,-0x2
02d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02da 0000 0000  |    |		.BLANK	0000[0x6]
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 800a       |    |		Call	0x0,0xa
02e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00db       |    |		Load_Top	At_Offset_3
02ec e002       |    |		Load	0x0,0x2
02ed 0216       |    |		Execute	Heap_Access,Convert
02ee 00db       |    |		Load_Top	At_Offset_3
02ef 800b       |    |		Call	0x0,0xb
02f0 c5fe       |    |		Store	0x2,-0x2
02f1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f2 0000 0000  |    |		.BLANK	0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x2320,0x0000,0x0001,0x0000
02fe 0000 0000  |    |		.BLANK	0000[0x102]