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

⟦71acc5741⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0188       |    |		.CONST	0x0188								; 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 0055       | U  |		.CONST	0x0055								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c e003       |    |		Load	0x0,0x3
000d 00da       |    |		Load_Top	At_Offset_2
000e e004       |    |		Load	0x0,0x4
000f 0386       |    |		Declare_Variable	Package,Visible
0010 00d8       |    |		Load_Top	At_Offset_0
0011 020f       |    |		Execute	Module,Activate
0012 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
0014 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0016 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0018 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
001a 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001c 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001e 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0020 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0022 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0024 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0026 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0028 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
002a 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
002c 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002e 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0030 e20f       |    |		Load	0x1,0xf
0031 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0032 0129       | )  |		Execute	Any,Make_Visible
0033 e20f       |    |		Load	0x1,0xf
0034 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0035 0129       | )  |		Execute	Any,Make_Visible
0036 00bf       |    |		Action	Accept_Activation
0037 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0054 00c7       |    |		Action	Elaborate_Subprogram
0055			BODY_0008:
0055 00bc       |    |		Action	Signal_Activated
0056 00bb       |    |		Action	Signal_Completion
0057 0000       |    |		.XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0067       | g  |		.CONST	0x0067								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0006       |    |		.CONST	0x0006								; Number of locals
005b			INIT_0058:
005b e20f       |    |		Load	0x1,0xf
005c 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
005d e20f       |    |		Load	0x1,0xf
005e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
005f e20f       |    |		Load	0x1,0xf
0060 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0061 e20f       |    |		Load	0x1,0xf
0062 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0063 e20e       |    |		Load	0x1,0xe
0064 02c7       |    |		Declare_Variable	Any
0065 00d8       |    |		Load_Top	At_Offset_0
0066 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0067			BODY_0058:
0067 4800       |H   |		Short_Literal	0x0
0068 a5fd       |    |		Store_Unchecked	0x2,-0x3
0069 e5fe       |    |		Load	0x2,-0x2
006a 003a       | :  |		Store_Top	Access,At_Offset_2
006b 00d9       |    |		Load_Top	At_Offset_1
006c e20f       |    |		Load	0x1,0xf
006d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
006e 6807       |h   |		Jump_Zero	0x76
006f 0092 017f  |    |		Action	Push_String_Extended,0x17f					; "Liste vide"
0071 e005       |    |		Load	0x0,0x5
0072 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0073 4800       |H   |		Short_Literal	0x0
0074 a5fd       |    |		Store_Unchecked	0x2,-0x3
0075 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0076 00d9       |    |		Load_Top	At_Offset_1
0077 003b       | ;  |		Store_Top	Access,At_Offset_3
0078 e20f       |    |		Load	0x1,0xf
0079 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
007a 00da       |    |		Load_Top	At_Offset_2
007b e20f       |    |		Load	0x1,0xf
007c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
007d c402       |    |		Store	0x2,0x2
007e 00cf       |    |		Action	Mark_Auxiliary
007f e402       |    |		Load	0x2,0x2
0080 e20f       |    |		Load	0x1,0xf
0081 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0082 c406       |    |		Store	0x2,0x6
0083 e402       |    |		Load	0x2,0x2
0084 e20f       |    |		Load	0x1,0xf
0085 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0086 c402       |    |		Store	0x2,0x2
0087 00d9       |    |		Load_Top	At_Offset_1
0088 e5ff       |    |		Load	0x2,-0x1
0089 012e       | .  |		Execute	Any,Not_Equal
008a 6808       |h   |		Jump_Zero	0x93
008b e403       |    |		Load	0x2,0x3
008c 00da       |    |		Load_Top	At_Offset_2
008d e20e       |    |		Load	0x1,0xe
008e 0119       |    |		Execute	Any,Check_In_Formal_Type
008f e20f       |    |		Load	0x1,0xf
0090 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0091 a403       |    |		Store_Unchecked	0x2,0x3
0092 7802       |x   |		Jump	0x95
0093 4801       |H   |		Short_Literal	0x1
0094 a5fd       |    |		Store_Unchecked	0x2,-0x3
0095 e402       |    |		Load	0x2,0x2
0096 e20f       |    |		Load	0x1,0xf
0097 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0098 6801       |h   |		Jump_Zero	0x9a
0099 7802       |x   |		Jump	0x9c
009a 00c9       |    |		Action	Pop_Auxiliary_Loop
009b 7fe3       |    |		Jump	0x7f
009c 00ce       |    |		Action	Pop_Auxiliary
009d 00db       |    |		Load_Top	At_Offset_3
009e 003a       | :  |		Store_Top	Access,At_Offset_2
009f 00da       |    |		Load_Top	At_Offset_2
00a0 e20f       |    |		Load	0x1,0xf
00a1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00a2 003b       | ;  |		Store_Top	Access,At_Offset_3
00a3 00d9       |    |		Load_Top	At_Offset_1
00a4 a5fe       |    |		Store_Unchecked	0x2,-0x2
00a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00db       |    |		Load_Top	At_Offset_3
00ac 00db       |    |		Load_Top	At_Offset_3
00ad e20e       |    |		Load	0x1,0xe
00ae 0119       |    |		Execute	Any,Check_In_Formal_Type
00af e20f       |    |		Load	0x1,0xf
00b0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00b2 0000 0000  |    |		.BLANK	0000[0x6]
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 e20f       |    |		Load	0x1,0xf
00bc 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00bd 00ca       |    |		Action	Exit_Nullary_Function
00be 0000 0000  |    |		.XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 e20f       |    |		Load	0x1,0xf
00c5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d3       |    |		.CONST	0x00d3								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0004       |    |		.CONST	0x0004								; Number of locals
00cb			INIT_00c8:
00cb e20e       |    |		Load	0x1,0xe
00cc 02c7       |    |		Declare_Variable	Any
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00cf e20f       |    |		Load	0x1,0xf
00d0 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 0007       |    |		Action	Break_Optional
00d3			BODY_00c8:
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 e20f       |    |		Load	0x1,0xf
00d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d6 6802       |h   |		Jump_Zero	0xd9
00d7 4800       |H   |		Short_Literal	0x0
00d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d9 e20f       |    |		Load	0x1,0xf
00da 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00db 00d9       |    |		Load_Top	At_Offset_1
00dc e20f       |    |		Load	0x1,0xf
00dd 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00de 003a       | :  |		Store_Top	Access,At_Offset_2
00df 00cf       |    |		Action	Mark_Auxiliary
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 e20f       |    |		Load	0x1,0xf
00e2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00e3 c402       |    |		Store	0x2,0x2
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 e20f       |    |		Load	0x1,0xf
00e6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e7 003b       | ;  |		Store_Top	Access,At_Offset_3
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 e5fe       |    |		Load	0x2,-0x2
00ea 012f       | /  |		Execute	Any,Equal
00eb 6801       |h   |		Jump_Zero	0xed
00ec 7807       |x   |		Jump	0xf4
00ed 00da       |    |		Load_Top	At_Offset_2
00ee e20f       |    |		Load	0x1,0xf
00ef 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00f0 6801       |h   |		Jump_Zero	0xf2
00f1 7802       |x   |		Jump	0xf4
00f2 00c9       |    |		Action	Pop_Auxiliary_Loop
00f3 7fec       |    |		Jump	0xe0
00f4 00ce       |    |		Action	Pop_Auxiliary
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 012f       | /  |		Execute	Any,Equal
00f8 6802       |h   |		Jump_Zero	0xfb
00f9 4801       |H   |		Short_Literal	0x1
00fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fb 4800       |H   |		Short_Literal	0x0
00fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 e20f       |    |		Load	0x1,0xf
0105 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0106 0226       | &  |		Execute	Access,Convert
0107 e20f       |    |		Load	0x1,0xf
0108 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0109 003b       | ;  |		Store_Top	Access,At_Offset_3
010a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010b 0000 0000  |    |		.BLANK	0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 e20f       |    |		Load	0x1,0xf
0115 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0116 e20e       |    |		Load	0x1,0xe
0117 0119       |    |		Execute	Any,Check_In_Formal_Type
0118 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 e20f       |    |		Load	0x1,0xf
0125 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0126 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0127 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
012c 00db       |    |		Load_Top	At_Offset_3
012d e20f       |    |		Load	0x1,0xf
012e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
012f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00db       |    |		Load_Top	At_Offset_3
0134 e20e       |    |		Load	0x1,0xe
0135 0119       |    |		Execute	Any,Check_In_Formal_Type
0136 00db       |    |		Load_Top	At_Offset_3
0137 e20f       |    |		Load	0x1,0xf
0138 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0139 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013a 0000 0000  |    |		.BLANK	0000[0x6]
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 e20f       |    |		Load	0x1,0xf
0145 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0146 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0147 0000       |    |		.XXX[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 e20f       |    |		Load	0x1,0xf
014c 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
014d 00db       |    |		Load_Top	At_Offset_3
014e e20f       |    |		Load	0x1,0xf
014f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0150 c5fe       |    |		Store	0x2,-0x2
0151 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c e20f       |    |		Load	0x1,0xf
015d 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
015e 0226       | &  |		Execute	Access,Convert
015f e20f       |    |		Load	0x1,0xf
0160 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0161 003b       | ;  |		Store_Top	Access,At_Offset_3
0162 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0163 0000 0000  |    |		.BLANK	0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c e20f       |    |		Load	0x1,0xf
016d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
016e e20e       |    |		Load	0x1,0xe
016f 0119       |    |		Execute	Any,Check_In_Formal_Type
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c e20f       |    |		Load	0x1,0xf
017d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
017e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017f ; --------------------------------------------------------------------------------------
017f ; STRING TABLE
017f ; --------------------------------------------------------------------------------------
017f 0004       |    |		.STRTAB	0x0004->0x0181							; "Liste vide"
0180 000c       |    |		.STREND 0x000c->0x0186
0181 4c69 7374  |List|		.STRTAB_STRINGS
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x2770,0x0000,0x0001,0x0011
018e 000b 01d2  |    |		.DBG4T	0x000b,0x01d2,0xc000,0x8000
0192 0037 01f8  | 7  |		.DBG4T	0x0037,0x01f8,0xc000,0x0000
0196 005b 0209  | [  |		.DBG4T	0x005b,0x0209,0x1001,0x4000
019a 00ab 0232  |   2|		.DBG4T	0x00ab,0x0232,0x1002,0x0000
019e 00bb 0235  |   5|		.DBG4T	0x00bb,0x0235,0x1002,0x0000
01a2 00c3 0238  |   8|		.DBG4T	0x00c3,0x0238,0x1002,0x0000
01a6 00cb 023b  |   ;|		.DBG4T	0x00cb,0x023b,0x1002,0x4000
01aa 0103 0258  |   X|		.DBG4T	0x0103,0x0258,0x1001,0x0000
01ae 0113 025b  |   [|		.DBG4T	0x0113,0x025b,0x1002,0x0000
01b2 0123 025e  | # ^|		.DBG4T	0x0123,0x025e,0x1002,0x0000
01b6 012b 0261  | + a|		.DBG4T	0x012b,0x0261,0x1001,0x0000
01ba 0133 0264  | 3 d|		.DBG4T	0x0133,0x0264,0x1001,0x0000
01be 0143 0267  | C g|		.DBG4T	0x0143,0x0267,0x1002,0x0000
01c2 014b 026a  | K j|		.DBG4T	0x014b,0x026a,0x1001,0x0000
01c6 015b 026d  | [ m|		.DBG4T	0x015b,0x026d,0x1001,0x0000
01ca 016b 0270  | k p|		.DBG4T	0x016b,0x0270,0x1002,0x0000
01ce 017b 0273  | { s|		.DBG4T	0x017b,0x0273,0x1002,0x0000
01d2 ; --------------------------------------------------------------------------------------
01d2 ; Debug chain
01d2 ; --------------------------------------------------------------------------------------
01d2 0012 0000  |    |		.DBGLEN	0x0012,0x0000
01d4 000b 0012  |    |		.DBGLNO	0x000b,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0033
01e6 0001 0003  |    |		.XXX[0x12]
01e8 0004 0005  |    |
01ea 0006 0007  |    |
01ec 0008 0009  |    |
01ee 000a 000b  |    |
01f0 000c 000d  |    |
01f2 000f 0010  |    |
01f4 0011 0012  |    |
01f6 0013 0014  |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug chain
01f8 ; --------------------------------------------------------------------------------------
01f8 000f 0000  |    |		.DBGLEN	0x000f,0x0000
01fa 0037 0039  | 7 9|		.DBGLNO	0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053
0209 ; --------------------------------------------------------------------------------------
0209 ; Debug chain
0209 ; --------------------------------------------------------------------------------------
0209 0005 0011  |    |		.DBGLEN	0x0005,0x0011
020b 005b 005d  | [ ]|		.DBGLNO	0x005b,0x005d,0x005f,0x0061,0x0063,0x0067,0x0069,0x006b,0x006f,0x0073,0x0076,0x0078,0x007f,0x0083,0x0087,0x008b,0x0093,0x0095,0x0099,0x009d,0x009f,0x00a3
0221 0001 0002  |    |		.XXX[0x11]
0223 0003 0004  |    |
0225 0005 0006  |    |
0227 0007 0009  |    |
0229 000a 000b  |    |
022b 000c 000d  |    |
022d 000e 000f  |    |
022f 0010 0011  |    |
0231 0012       |    |
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug chain
0232 ; --------------------------------------------------------------------------------------
0232 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0234 00ab       |    |		.DBGLNO	0x00ab
0235 ; --------------------------------------------------------------------------------------
0235 ; Debug chain
0235 ; --------------------------------------------------------------------------------------
0235 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0237 00bb       |    |		.DBGLNO	0x00bb
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug chain
0238 ; --------------------------------------------------------------------------------------
0238 0000 0001  |    |		.DBGLEN	0x0000,0x0001
023a 00c3       |    |		.DBGLNO	0x00c3
023b ; --------------------------------------------------------------------------------------
023b ; Debug chain
023b ; --------------------------------------------------------------------------------------
023b 0003 000c  |    |		.DBGLEN	0x0003,0x000c
023d 00cb 00cf  |    |		.DBGLNO	0x00cb,0x00cf,0x00d1,0x00d3,0x00d7,0x00d9,0x00e0,0x00e4,0x00e8,0x00ec,0x00ed,0x00f1,0x00f5,0x00f9,0x00fb
024c 0001 0002  |    |		.XXX[0xc]
024e 0003 0005  |    |
0250 0006 0007  |    |
0252 0008 0009  |    |
0254 000a 000b  |    |
0256 000c 000d  |    |
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug chain
0258 ; --------------------------------------------------------------------------------------
0258 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025a 0103       |    |		.DBGLNO	0x0103
025b ; --------------------------------------------------------------------------------------
025b ; Debug chain
025b ; --------------------------------------------------------------------------------------
025b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025d 0113       |    |		.DBGLNO	0x0113
025e ; --------------------------------------------------------------------------------------
025e ; Debug chain
025e ; --------------------------------------------------------------------------------------
025e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0260 0123       | #  |		.DBGLNO	0x0123
0261 ; --------------------------------------------------------------------------------------
0261 ; Debug chain
0261 ; --------------------------------------------------------------------------------------
0261 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0263 012b       | +  |		.DBGLNO	0x012b
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0266 0133       | 3  |		.DBGLNO	0x0133
0267 ; --------------------------------------------------------------------------------------
0267 ; Debug chain
0267 ; --------------------------------------------------------------------------------------
0267 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0269 0143       | C  |		.DBGLNO	0x0143
026a ; --------------------------------------------------------------------------------------
026a ; Debug chain
026a ; --------------------------------------------------------------------------------------
026a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026c 014b       | K  |		.DBGLNO	0x014b
026d ; --------------------------------------------------------------------------------------
026d ; Debug chain
026d ; --------------------------------------------------------------------------------------
026d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026f 015b       | [  |		.DBGLNO	0x015b
0270 ; --------------------------------------------------------------------------------------
0270 ; Debug chain
0270 ; --------------------------------------------------------------------------------------
0270 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0272 016b       | k  |		.DBGLNO	0x016b
0273 ; --------------------------------------------------------------------------------------
0273 ; Debug chain
0273 ; --------------------------------------------------------------------------------------
0273 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0275 017b       | {  |		.DBGLNO	0x017b
0276 0000 0000  |    |		.BLANK	0000[0x18a]