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

⟦3bd048afc⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 01e0       |    |		.CONST	0x01e0								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0054       | T  |		.CONST	0x0054								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6056       |`V  |		Indirect_Literal	Discrete,0x64,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 00db       |    |		Load_Top	At_Offset_3
0010 604f       |`O  |		Indirect_Literal	Discrete,0x60,{0x00000000, 0x0000ffff}
0011 0279       | y  |		Execute	Discrete,And
0012 0273       | s  |		Execute	Discrete,Plus
0013 e002       |    |		Load	0x0,0x2
0014 0273       | s  |		Execute	Discrete,Plus
0015 00da       |    |		Load_Top	At_Offset_2
0016 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0017 e003       |    |		Load	0x0,0x3
0018 0386       |    |		Declare_Variable	Package,Visible
0019 00d8       |    |		Load_Top	At_Offset_0
001a 020f       |    |		Execute	Module,Activate
001b 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
001d 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
001f 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0021 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0023 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0025 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0027 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0029 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
002b 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
002d 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
002f 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0031 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0033 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0035 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0037 00bf       |    |		Action	Accept_Activation
0038 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0053 00c7       |    |		Action	Elaborate_Subprogram
0054			BODY_0008:
0054 00bc       |    |		Action	Signal_Activated
0055 00bb       |    |		Action	Signal_Completion
0056 0000 0000  |    |		.XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b e004       |    |		Load	0x0,0x4
005c e210       |    |		Load	0x1,0x10
005d 0096       |    |		Execute	Package,Entry
005e 00ca       |    |		Action	Exit_Nullary_Function
005f 0000       |    |		.XXX[0x1]
0060 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0064 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2
006c e005       |    |		Load	0x0,0x5
006d e210       |    |		Load	0x1,0x10
006e 0096       |    |		Execute	Package,Entry
006f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00db       |    |		Load_Top	At_Offset_3
0074 00db       |    |		Load_Top	At_Offset_3
0075 e20e       |    |		Load	0x1,0xe
0076 0119       |    |		Execute	Any,Check_In_Formal_Type
0077 e006       |    |		Load	0x0,0x6
0078 e210       |    |		Load	0x1,0x10
0079 0096       |    |		Execute	Package,Entry
007a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
007b 0000 0000  |    |		.BLANK	0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00db       |    |		Load_Top	At_Offset_3
0084 0120       |    |		Execute	Any,Is_Value
0085 6803       |h   |		Jump_Zero	0x89
0086 e210       |    |		Load	0x1,0x10
0087 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0088 7803       |x   |		Jump	0x8c
0089 00db       |    |		Load_Top	At_Offset_3
008a e20e       |    |		Load	0x1,0xe
008b 0119       |    |		Execute	Any,Check_In_Formal_Type
008c 00e1       |    |		Load_Encached	Boolean_Cache
008d e5ff       |    |		Load	0x2,-0x1
008e e5fe       |    |		Load	0x2,-0x2
008f e20e       |    |		Load	0x1,0xe
0090 0119       |    |		Execute	Any,Check_In_Formal_Type
0091 e007       |    |		Load	0x0,0x7
0092 e210       |    |		Load	0x1,0x10
0093 0096       |    |		Execute	Package,Entry
0094 c5fd       |    |		Store	0x2,-0x3
0095 c5fe       |    |		Store	0x2,-0x2
0096 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0097 0000       |    |		.XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c 00db       |    |		Load_Top	At_Offset_3
009d e20e       |    |		Load	0x1,0xe
009e 0119       |    |		Execute	Any,Check_In_Formal_Type
009f e008       |    |		Load	0x0,0x8
00a0 e210       |    |		Load	0x1,0x10
00a1 0096       |    |		Execute	Package,Entry
00a2 e20e       |    |		Load	0x1,0xe
00a3 0119       |    |		Execute	Any,Check_In_Formal_Type
00a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0       |    |		.CONST	0x00b0								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0003       |    |		.CONST	0x0003								; Number of locals
00ab			INIT_00a8:
00ab e20e       |    |		Load	0x1,0xe
00ac 02c7       |    |		Declare_Variable	Any
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00af 00e1       |    |		Load_Encached	Boolean_Cache
00b0			BODY_00a8:
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 0120       |    |		Execute	Any,Is_Value
00b2 6803       |h   |		Jump_Zero	0xb6
00b3 e210       |    |		Load	0x1,0x10
00b4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b5 7803       |x   |		Jump	0xb9
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 e20e       |    |		Load	0x1,0xe
00b8 0119       |    |		Execute	Any,Check_In_Formal_Type
00b9 00e1       |    |		Load_Encached	Boolean_Cache
00ba e5fe       |    |		Load	0x2,-0x2
00bb e5ff       |    |		Load	0x2,-0x1
00bc e20e       |    |		Load	0x1,0xe
00bd 0119       |    |		Execute	Any,Check_In_Formal_Type
00be e009       |    |		Load	0x0,0x9
00bf e210       |    |		Load	0x1,0x10
00c0 0096       |    |		Execute	Package,Entry
00c1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00c2 c402       |    |		Store	0x2,0x2
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 6804       |h   |		Jump_Zero	0xc9
00c5 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "*** WARNING ***   Element not insert : The element already exists."
00c7 e00a       |    |		Load	0x0,0xa
00c8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d8       |    |		.CONST	0x00d8								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 00e1       |    |		Load_Encached	Boolean_Cache
00d4 e20e       |    |		Load	0x1,0xe
00d5 02c7       |    |		Declare_Variable	Any
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d8			BODY_00d0:
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 0120       |    |		Execute	Any,Is_Value
00da 6803       |h   |		Jump_Zero	0xde
00db e210       |    |		Load	0x1,0x10
00dc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00dd 7803       |x   |		Jump	0xe1
00de 00d8       |    |		Load_Top	At_Offset_0
00df e20e       |    |		Load	0x1,0xe
00e0 0119       |    |		Execute	Any,Check_In_Formal_Type
00e1 00e1       |    |		Load_Encached	Boolean_Cache
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 e20e       |    |		Load	0x1,0xe
00e5 0119       |    |		Execute	Any,Check_In_Formal_Type
00e6 e00b       |    |		Load	0x0,0xb
00e7 e210       |    |		Load	0x1,0x10
00e8 0096       |    |		Execute	Package,Entry
00e9 005b       | [  |		Store_Top	Discrete,At_Offset_3
00ea c403       |    |		Store	0x2,0x3
00eb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0103       |    |		.CONST	0x0103								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 0120       |    |		Execute	Any,Is_Value
00f5 6803       |h   |		Jump_Zero	0xf9
00f6 e210       |    |		Load	0x1,0x10
00f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f8 7803       |x   |		Jump	0xfc
00f9 00db       |    |		Load_Top	At_Offset_3
00fa e20e       |    |		Load	0x1,0xe
00fb 0119       |    |		Execute	Any,Check_In_Formal_Type
00fc 00db       |    |		Load_Top	At_Offset_3
00fd e00c       |    |		Load	0x0,0xc
00fe e210       |    |		Load	0x1,0x10
00ff 0096       |    |		Execute	Package,Entry
0100 c5ff       |    |		Store	0x2,-0x1
0101 c5fe       |    |		Store	0x2,-0x2
0102 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0103			TRAP_00f0:
0103 e00d       |    |		Load	0x0,0xd
0104 e210       |    |		Load	0x1,0x10
0105 0098       |    |		Execute	Package,Field_Read_Dynamic
0106 010f       |    |		Execute	Exception,Equal
0107 6801       |h   |		Jump_Zero	0x109
0108 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0109 0100       |    |		Execute	Exception,Raise
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0126       | &  |		.CONST	0x0126								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0004       |    |		.CONST	0x0004								; Number of locals
0113			INIT_0110:
0113 e00e       |    |		Load	0x0,0xe
0114 e210       |    |		Load	0x1,0x10
0115 0095       |    |		Execute	Package,Field_Reference_Dynamic
0116 00c6       |    |		Action	Check_Subprogram_Elaborated
0117 4ffe       |O   |		Short_Literal	-0x2
0118 4802       |H   |		Short_Literal	0x2
0119 0099       |    |		Action	Reference_Dynamic
011a 0093 0000  |    |		push_full_address	0x0
011c 601b       |`   |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00020000}
011d 0273       | s  |		Execute	Discrete,Plus
011e e5ff       |    |		Load	0x2,-0x1
011f 6014       |`   |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0000ffff}
0120 0279       | y  |		Execute	Discrete,And
0121 0273       | s  |		Execute	Discrete,Plus
0122 e00f       |    |		Load	0x0,0xf
0123 0273       | s  |		Execute	Discrete,Plus
0124 4804       |H   |		Short_Literal	0x4
0125 0007       |    |		Action	Break_Optional
0126			BODY_0110:
0126 e5fd       |    |		Load	0x2,-0x3
0127 4802       |H   |		Short_Literal	0x2
0128 4802       |H   |		Short_Literal	0x2
0129 0099       |    |		Action	Reference_Dynamic
012a 4803       |H   |		Short_Literal	0x3
012b 4802       |H   |		Short_Literal	0x2
012c 0099       |    |		Action	Reference_Dynamic
012d e00e       |    |		Load	0x0,0xe
012e e210       |    |		Load	0x1,0x10
012f 0096       |    |		Execute	Package,Entry
0130 c5fd       |    |		Store	0x2,-0x3
0131 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0132 0000 0000  |    |		.XXX[0x2]
0134 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 e010       |    |		Load	0x0,0x10
0145 e210       |    |		Load	0x1,0x10
0146 0096       |    |		Execute	Package,Entry
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00db       |    |		Load_Top	At_Offset_3
014c 0120       |    |		Execute	Any,Is_Value
014d 6803       |h   |		Jump_Zero	0x151
014e e210       |    |		Load	0x1,0x10
014f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0150 7803       |x   |		Jump	0x154
0151 00db       |    |		Load_Top	At_Offset_3
0152 e20e       |    |		Load	0x1,0xe
0153 0119       |    |		Execute	Any,Check_In_Formal_Type
0154 00db       |    |		Load_Top	At_Offset_3
0155 e011       |    |		Load	0x0,0x11
0156 e210       |    |		Load	0x1,0x10
0157 0096       |    |		Execute	Package,Entry
0158 c5ff       |    |		Store	0x2,-0x1
0159 c5fe       |    |		Store	0x2,-0x2
015a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015b 0000 0000  |    |		.BLANK	0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e5fd       |    |		Load	0x2,-0x3
0164 0120       |    |		Execute	Any,Is_Value
0165 6803       |h   |		Jump_Zero	0x169
0166 e210       |    |		Load	0x1,0x10
0167 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0168 7803       |x   |		Jump	0x16c
0169 e5fd       |    |		Load	0x2,-0x3
016a e20e       |    |		Load	0x1,0xe
016b 0119       |    |		Execute	Any,Check_In_Formal_Type
016c e5fe       |    |		Load	0x2,-0x2
016d e5ff       |    |		Load	0x2,-0x1
016e e012       |    |		Load	0x0,0x12
016f e210       |    |		Load	0x1,0x10
0170 0096       |    |		Execute	Package,Entry
0171 c5fe       |    |		Store	0x2,-0x2
0172 c5fd       |    |		Store	0x2,-0x3
0173 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 018b       |    |		.CONST	0x018b								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3
017c 0120       |    |		Execute	Any,Is_Value
017d 6803       |h   |		Jump_Zero	0x181
017e e210       |    |		Load	0x1,0x10
017f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0180 7803       |x   |		Jump	0x184
0181 00db       |    |		Load_Top	At_Offset_3
0182 e20e       |    |		Load	0x1,0xe
0183 0119       |    |		Execute	Any,Check_In_Formal_Type
0184 00db       |    |		Load_Top	At_Offset_3
0185 e013       |    |		Load	0x0,0x13
0186 e210       |    |		Load	0x1,0x10
0187 0096       |    |		Execute	Package,Entry
0188 c5ff       |    |		Store	0x2,-0x1
0189 c5fe       |    |		Store	0x2,-0x2
018a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018b			TRAP_0178:
018b 0007       |    |		Action	Break_Optional
018c 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "!!!! WARNING !!!!  ==> No More Elements"
018e e00a       |    |		Load	0x0,0xa
018f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0190 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0191 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
019c e014       |    |		Load	0x0,0x14
019d e210       |    |		Load	0x1,0x10
019e 0096       |    |		Execute	Package,Entry
019f 0f00       |    |		Execute_Immediate	Equal,0x0
01a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a1 ; --------------------------------------------------------------------------------------
01a1 ; STRING TABLE
01a1 ; --------------------------------------------------------------------------------------
01a1 0006       |    |		.STRTAB	0x0006->0x01a4							; "*** WARNING ***   Element not insert : The element already exists."
01a2 0046       | F  |		.STRTAB	0x0046->0x01c5							; "!!!! WARNING !!!!  ==> No More Elements"
01a3 006b       | k  |		.STREND 0x006b->0x01d8
01a4 2a2a 2a20  |*** |		.STRTAB_STRINGS
01d9 0000 0000  |    |		.BLANK	0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x2ca4,0x0000,0x0001,0x0010
01e6 000b 0226  |   &|		.DBG4T	0x000b,0x0226,0xc000,0x8000
01ea 0038 0246  | 8 F|		.DBG4T	0x0038,0x0246,0xc000,0x0000
01ee 005b 0256  | [ V|		.DBG4T	0x005b,0x0256,0x1002,0x0000
01f2 006b 0259  | k Y|		.DBG4T	0x006b,0x0259,0x1002,0x0000
01f6 0073 025c  | s \|		.DBG4T	0x0073,0x025c,0x1002,0x0000
01fa 0083 025f  |   _|		.DBG4T	0x0083,0x025f,0x1001,0x0000
01fe 009b 0262  |   b|		.DBG4T	0x009b,0x0262,0x1002,0x0000
0202 00ab 0265  |   e|		.DBG4T	0x00ab,0x0265,0x1001,0x0000
0206 00d3 026c  |   l|		.DBG4T	0x00d3,0x026c,0x1001,0x0000
020a 00f3 0271  |   q|		.DBG4T	0x00f3,0x0271,0x1001,0x0000
020e 0113 0275  |   u|		.DBG4T	0x0113,0x0275,0x3801,0x0002
0212 0143 0279  | C y|		.DBG4T	0x0143,0x0279,0x1002,0x0000
0216 014b 027c  | K ||		.DBG4T	0x014b,0x027c,0x1001,0x0000
021a 0163 027f  | c  |		.DBG4T	0x0163,0x027f,0x1001,0x0000
021e 017b 0282  | {  |		.DBG4T	0x017b,0x0282,0x1001,0x0000
0222 019b 0286  |    |		.DBG4T	0x019b,0x0286,0x1002,0x0000
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug chain
0226 ; --------------------------------------------------------------------------------------
0226 000f 0000  |    |		.DBGLEN	0x000f,0x0000
0228 000b 001b  |    |		.DBGLNO	0x000b,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035
0237 0001 0004  |    |		.XXX[0xf]
0239 0005 0006  |    |
023b 0007 0008  |    |
023d 0009 000a  |    |
023f 000b 000c  |    |
0241 000d 000e  |    |
0243 000f 0010  |    |
0245 0011       |    |
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug chain
0246 ; --------------------------------------------------------------------------------------
0246 000e 0000  |    |		.DBGLEN	0x000e,0x0000
0248 0038 003a  | 8 :|		.DBGLNO	0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0258 005b       | [  |		.DBGLNO	0x005b
0259 ; --------------------------------------------------------------------------------------
0259 ; Debug chain
0259 ; --------------------------------------------------------------------------------------
0259 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025b 006b       | k  |		.DBGLNO	0x006b
025c ; --------------------------------------------------------------------------------------
025c ; Debug chain
025c ; --------------------------------------------------------------------------------------
025c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025e 0073       | s  |		.DBGLNO	0x0073
025f ; --------------------------------------------------------------------------------------
025f ; Debug chain
025f ; --------------------------------------------------------------------------------------
025f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0261 0083       |    |		.DBGLNO	0x0083
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0264 009b       |    |		.DBGLNO	0x009b
0265 ; --------------------------------------------------------------------------------------
0265 ; Debug chain
0265 ; --------------------------------------------------------------------------------------
0265 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0267 00ab 00af  |    |		.DBGLNO	0x00ab,0x00af,0x00b0,0x00c3,0x00c5
026c ; --------------------------------------------------------------------------------------
026c ; Debug chain
026c ; --------------------------------------------------------------------------------------
026c 0002 0001  |    |		.DBGLEN	0x0002,0x0001
026e 00d3 00d4  |    |		.DBGLNO	0x00d3,0x00d4,0x00d8
0271 ; --------------------------------------------------------------------------------------
0271 ; Debug chain
0271 ; --------------------------------------------------------------------------------------
0271 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0273 00f3 0108  |    |		.DBGLNO	0x00f3,0x0108
0275 ; --------------------------------------------------------------------------------------
0275 ; Debug chain
0275 ; --------------------------------------------------------------------------------------
0275 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0277 0113 0126  |   &|		.DBGLNO	0x0113,0x0126
0279 ; --------------------------------------------------------------------------------------
0279 ; Debug chain
0279 ; --------------------------------------------------------------------------------------
0279 0000 0001  |    |		.DBGLEN	0x0000,0x0001
027b 0143       | C  |		.DBGLNO	0x0143
027c ; --------------------------------------------------------------------------------------
027c ; Debug chain
027c ; --------------------------------------------------------------------------------------
027c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
027e 014b       | K  |		.DBGLNO	0x014b
027f ; --------------------------------------------------------------------------------------
027f ; Debug chain
027f ; --------------------------------------------------------------------------------------
027f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0281 0163       | c  |		.DBGLNO	0x0163
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug chain
0282 ; --------------------------------------------------------------------------------------
0282 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0284 017b 018c  | {  |		.DBGLNO	0x017b,0x018c
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug chain
0286 ; --------------------------------------------------------------------------------------
0286 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0288 019b       |    |		.DBGLNO	0x019b
0289 0000 0000  |    |		.BLANK	0000[0x177]