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

⟦02b8bc3aa⟧

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

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 01d8       |    |		.CONST	0x01d8								; 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 009b       |    |		.CONST	0x009b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60ae       |`   |		Indirect_Literal	Discrete,0xbc,{0x80000000, 0x00030000}
000e 0273       | s  |		Execute	Discrete,Plus
000f e002       |    |		Load	0x0,0x2
0010 0273       | s  |		Execute	Discrete,Plus
0011 e003       |    |		Load	0x0,0x3
0012 0273       | s  |		Execute	Discrete,Plus
0013 e004       |    |		Load	0x0,0x4
0014 e005       |    |		Load	0x0,0x5
0015 0386       |    |		Declare_Variable	Package,Visible
0016 00d8       |    |		Load_Top	At_Offset_0
0017 020f       |    |		Execute	Module,Activate
0018 0093 0000  |    |		push_full_address	0x0
001a 609d       |`   |		Indirect_Literal	Discrete,0xb8,{0x80000000, 0x00020000}
001b 0273       | s  |		Execute	Discrete,Plus
001c e002       |    |		Load	0x0,0x2
001d 0273       | s  |		Execute	Discrete,Plus
001e e006       |    |		Load	0x0,0x6
001f 0273       | s  |		Execute	Discrete,Plus
0020 e007       |    |		Load	0x0,0x7
0021 e005       |    |		Load	0x0,0x5
0022 0386       |    |		Declare_Variable	Package,Visible
0023 00d8       |    |		Load_Top	At_Offset_0
0024 020f       |    |		Execute	Module,Activate
0025 0093 0000  |    |		push_full_address	0x0
0027 608c       |`   |		Indirect_Literal	Discrete,0xb4,{0x80000000, 0x00010000}
0028 0273       | s  |		Execute	Discrete,Plus
0029 e002       |    |		Load	0x0,0x2
002a 0273       | s  |		Execute	Discrete,Plus
002b e008       |    |		Load	0x0,0x8
002c 0273       | s  |		Execute	Discrete,Plus
002d e009       |    |		Load	0x0,0x9
002e e005       |    |		Load	0x0,0x5
002f 0386       |    |		Declare_Variable	Package,Visible
0030 00d8       |    |		Load_Top	At_Offset_0
0031 020f       |    |		Execute	Module,Activate
0032 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0034 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0036 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0038 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
003a 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
003c 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
003e 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0040 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0042 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0044 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0046 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0048 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
004a 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
004c 4800       |H   |		Short_Literal	0x0
004d 4802       |H   |		Short_Literal	0x2
004e e001       |    |		Load	0x0,0x1
004f 01d7       |    |		Execute	Vector,Field_Read
0050 00f5       |    |		Load_Encached	Unused21
0051 037e       | ~  |		Declare_Type	Task,Defined,Visible
0052 036e       | n  |		Declare_Variable	Task,Visible
0053 00bf       |    |		Action	Accept_Activation
0054 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006d 00c7       |    |		Action	Elaborate_Subprogram
006e e00a       |    |		Load	0x0,0xa
006f a00b       |    |		Store_Unchecked	0x0,0xb
0070 a00c       |    |		Store_Unchecked	0x0,0xc
0071 e00d       |    |		Load	0x0,0xd
0072 e00e       |    |		Load	0x0,0xe
0073 a00f       |    |		Store_Unchecked	0x0,0xf
0074 e010       |    |		Load	0x0,0x10
0075 e011       |    |		Load	0x0,0x11
0076 e20f       |    |		Load	0x1,0xf
0077 0095       |    |		Execute	Package,Field_Reference_Dynamic
0078 a012       |    |		Store_Unchecked	0x0,0x12
0079 a013       |    |		Store_Unchecked	0x0,0x13
007a a014       |    |		Store_Unchecked	0x0,0x14
007b a015       |    |		Store_Unchecked	0x0,0x15
007c a016       |    |		Store_Unchecked	0x0,0x16
007d e017       |    |		Load	0x0,0x17
007e e20f       |    |		Load	0x1,0xf
007f 0095       |    |		Execute	Package,Field_Reference_Dynamic
0080 a018       |    |		Store_Unchecked	0x0,0x18
0081 e019       |    |		Load	0x0,0x19
0082 e20f       |    |		Load	0x1,0xf
0083 0095       |    |		Execute	Package,Field_Reference_Dynamic
0084 e011       |    |		Load	0x0,0x11
0085 e20e       |    |		Load	0x1,0xe
0086 0095       |    |		Execute	Package,Field_Reference_Dynamic
0087 e017       |    |		Load	0x0,0x17
0088 e20e       |    |		Load	0x1,0xe
0089 0095       |    |		Execute	Package,Field_Reference_Dynamic
008a e019       |    |		Load	0x0,0x19
008b e20e       |    |		Load	0x1,0xe
008c 0095       |    |		Execute	Package,Field_Reference_Dynamic
008d e011       |    |		Load	0x0,0x11
008e e20d       |    |		Load	0x1,0xd
008f 0095       |    |		Execute	Package,Field_Reference_Dynamic
0090 e01a       |    |		Load	0x0,0x1a
0091 e01b       |    |		Load	0x0,0x1b
0092 e017       |    |		Load	0x0,0x17
0093 e20d       |    |		Load	0x1,0xd
0094 0095       |    |		Execute	Package,Field_Reference_Dynamic
0095 e019       |    |		Load	0x0,0x19
0096 e20d       |    |		Load	0x1,0xd
0097 0095       |    |		Execute	Package,Field_Reference_Dynamic
0098 4818       |H   |		Short_Literal	0x18
0099 e21d       |    |		Load	0x1,0x1d
009a 020e       |    |		Execute	Module,Augment_Imports
009b			BODY_0008:
009b 00be       |    |		Action	Activate_Tasks
009c 00bc       |    |		Action	Signal_Activated
009d 00bb       |    |		Action	Signal_Completion
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a4       |    |		.CONST	0x00a4								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0002       |    |		.CONST	0x0002								; Number of locals
00a3			INIT_00a0:
00a3 00e1       |    |		Load_Encached	Boolean_Cache
00a4			BODY_00a0:
00a4 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; "Add Service : Appel du point d entree de la tache."
00a6 e00a       |    |		Load	0x0,0xa
00a7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00a8 00e1       |    |		Load_Encached	Boolean_Cache
00a9 e5fb       |    |		Load	0x2,-0x5
00aa e5fc       |    |		Load	0x2,-0x4
00ab e5fd       |    |		Load	0x2,-0x3
00ac e5fe       |    |		Load	0x2,-0x2
00ad e5ff       |    |		Load	0x2,-0x1
00ae 4806       |H   |		Short_Literal	0x6
00af e21d       |    |		Load	0x1,0x1d
00b0 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00b1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00b4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00b8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00bc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c4       |    |		.CONST	0x00c4								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 00e1       |    |		Load_Encached	Boolean_Cache
00c4			BODY_00c0:
00c4 00e1       |    |		Load_Encached	Boolean_Cache
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 4803       |H   |		Short_Literal	0x3
00c8 e21d       |    |		Load	0x1,0x1d
00c9 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00ca 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00e1       |    |		Load_Encached	Boolean_Cache
00d4 e5fb       |    |		Load	0x2,-0x5
00d5 e5fc       |    |		Load	0x2,-0x4
00d6 e5fd       |    |		Load	0x2,-0x3
00d7 0120       |    |		Execute	Any,Is_Value
00d8 6803       |h   |		Jump_Zero	0xdc
00d9 e00e       |    |		Load	0x0,0xe
00da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00db 7801       |x   |		Jump	0xdd
00dc e5fd       |    |		Load	0x2,-0x3
00dd e5fe       |    |		Load	0x2,-0x2
00de e5ff       |    |		Load	0x2,-0x1
00df 4806       |H   |		Short_Literal	0x6
00e0 e21d       |    |		Load	0x1,0x1d
00e1 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
00e2 c5fd       |    |		Store	0x2,-0x3
00e3 00d2       |    |		Pop_Control	Pop_Count_2
00e4 c5fa       |    |		Store	0x2,-0x6
00e5 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; "Procedure Ask_Service : sortie."
00e7 e00a       |    |		Load	0x0,0xa
00e8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ea 0000 0000  |    |		.BLANK	0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f4       |    |		.CONST	0x00f4								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 00e1       |    |		Load_Encached	Boolean_Cache
00f4			BODY_00f0:
00f4 00e1       |    |		Load_Encached	Boolean_Cache
00f5 e5fb       |    |		Load	0x2,-0x5
00f6 0120       |    |		Execute	Any,Is_Value
00f7 6803       |h   |		Jump_Zero	0xfb
00f8 e00e       |    |		Load	0x0,0xe
00f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fa 7801       |x   |		Jump	0xfc
00fb e5fb       |    |		Load	0x2,-0x5
00fc e5fc       |    |		Load	0x2,-0x4
00fd e5fd       |    |		Load	0x2,-0x3
00fe e5fe       |    |		Load	0x2,-0x2
00ff e5ff       |    |		Load	0x2,-0x1
0100 4806       |H   |		Short_Literal	0x6
0101 e21d       |    |		Load	0x1,0x1d
0102 1710       |    |		Execute	Task,Entry_Call,Field_Number 0x10
0103 c5fb       |    |		Store	0x2,-0x5
0104 c5fa       |    |		Store	0x2,-0x6
0105 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010c       |    |		.CONST	0x010c								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b 00e1       |    |		Load_Encached	Boolean_Cache
010c			BODY_0108:
010c 00e1       |    |		Load_Encached	Boolean_Cache
010d e5fb       |    |		Load	0x2,-0x5
010e e5fc       |    |		Load	0x2,-0x4
010f e5fd       |    |		Load	0x2,-0x3
0110 e5fe       |    |		Load	0x2,-0x2
0111 e5ff       |    |		Load	0x2,-0x1
0112 4806       |H   |		Short_Literal	0x6
0113 e21d       |    |		Load	0x1,0x1d
0114 1711       |    |		Execute	Task,Entry_Call,Field_Number 0x11
0115 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0116 00d8       |    |		Load_Top	At_Offset_0
0117 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011c       |    |		.CONST	0x011c								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b 00e1       |    |		Load_Encached	Boolean_Cache
011c			BODY_0118:
011c 00e1       |    |		Load_Encached	Boolean_Cache
011d e5fe       |    |		Load	0x2,-0x2
011e e5ff       |    |		Load	0x2,-0x1
011f 4803       |H   |		Short_Literal	0x3
0120 e21d       |    |		Load	0x1,0x1d
0121 1712       |    |		Execute	Task,Entry_Call,Field_Number 0x12
0122 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0123 00d8       |    |		Load_Top	At_Offset_0
0124 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
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 00e1       |    |		Load_Encached	Boolean_Cache
012c e5fb       |    |		Load	0x2,-0x5
012d e5fc       |    |		Load	0x2,-0x4
012e e5fd       |    |		Load	0x2,-0x3
012f 0120       |    |		Execute	Any,Is_Value
0130 6803       |h   |		Jump_Zero	0x134
0131 e00e       |    |		Load	0x0,0xe
0132 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0133 7801       |x   |		Jump	0x135
0134 e5fd       |    |		Load	0x2,-0x3
0135 e5fe       |    |		Load	0x2,-0x2
0136 e5ff       |    |		Load	0x2,-0x1
0137 4806       |H   |		Short_Literal	0x6
0138 e21d       |    |		Load	0x1,0x1d
0139 1713       |    |		Execute	Task,Entry_Call,Field_Number 0x13
013a c5fd       |    |		Store	0x2,-0x3
013b 00d2       |    |		Pop_Control	Pop_Count_2
013c c5fa       |    |		Store	0x2,-0x6
013d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013e 0000 0000  |    |		.XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0144       | D  |		.CONST	0x0144								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 00e1       |    |		Load_Encached	Boolean_Cache
0144			BODY_0140:
0144 00e1       |    |		Load_Encached	Boolean_Cache
0145 e5fb       |    |		Load	0x2,-0x5
0146 e5fc       |    |		Load	0x2,-0x4
0147 e5fd       |    |		Load	0x2,-0x3
0148 e5fe       |    |		Load	0x2,-0x2
0149 e5ff       |    |		Load	0x2,-0x1
014a 4806       |H   |		Short_Literal	0x6
014b e21d       |    |		Load	0x1,0x1d
014c 1714       |    |		Execute	Task,Entry_Call,Field_Number 0x14
014d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
014e 00d8       |    |		Load_Top	At_Offset_0
014f 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154       | T  |		.CONST	0x0154								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 00e1       |    |		Load_Encached	Boolean_Cache
0154			BODY_0150:
0154 00e1       |    |		Load_Encached	Boolean_Cache
0155 e5fe       |    |		Load	0x2,-0x2
0156 e5ff       |    |		Load	0x2,-0x1
0157 4803       |H   |		Short_Literal	0x3
0158 e21d       |    |		Load	0x1,0x1d
0159 1715       |    |		Execute	Task,Entry_Call,Field_Number 0x15
015a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
015b 00d8       |    |		Load_Top	At_Offset_0
015c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
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 00e1       |    |		Load_Encached	Boolean_Cache
0164 e5fb       |    |		Load	0x2,-0x5
0165 e5fc       |    |		Load	0x2,-0x4
0166 e5fd       |    |		Load	0x2,-0x3
0167 0120       |    |		Execute	Any,Is_Value
0168 6803       |h   |		Jump_Zero	0x16c
0169 e00e       |    |		Load	0x0,0xe
016a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016b 7801       |x   |		Jump	0x16d
016c e5fd       |    |		Load	0x2,-0x3
016d e5fe       |    |		Load	0x2,-0x2
016e e5ff       |    |		Load	0x2,-0x1
016f 4806       |H   |		Short_Literal	0x6
0170 e21d       |    |		Load	0x1,0x1d
0171 1716       |    |		Execute	Task,Entry_Call,Field_Number 0x16
0172 c5fd       |    |		Store	0x2,-0x3
0173 00d2       |    |		Pop_Control	Pop_Count_2
0174 c5fa       |    |		Store	0x2,-0x6
0175 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0176 0000 0000  |    |		.XXX[0x2]
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 00e1       |    |		Load_Encached	Boolean_Cache
017c e5fd       |    |		Load	0x2,-0x3
017d e5fe       |    |		Load	0x2,-0x2
017e e5ff       |    |		Load	0x2,-0x1
017f 0120       |    |		Execute	Any,Is_Value
0180 6803       |h   |		Jump_Zero	0x184
0181 e00e       |    |		Load	0x0,0xe
0182 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0183 7801       |x   |		Jump	0x185
0184 e5ff       |    |		Load	0x2,-0x1
0185 4804       |H   |		Short_Literal	0x4
0186 e21d       |    |		Load	0x1,0x1d
0187 1717       |    |		Execute	Task,Entry_Call,Field_Number 0x17
0188 c5ff       |    |		Store	0x2,-0x1
0189 00d2       |    |		Pop_Control	Pop_Count_2
018a c5fc       |    |		Store	0x2,-0x4
018b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00db       |    |		Load_Top	At_Offset_3
0194 00db       |    |		Load_Top	At_Offset_3
0195 4802       |H   |		Short_Literal	0x2
0196 e21d       |    |		Load	0x1,0x1d
0197 1718       |    |		Execute	Task,Entry_Call,Field_Number 0x18
0198 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 00db       |    |		Load_Top	At_Offset_3
01a5 4802       |H   |		Short_Literal	0x2
01a6 e21d       |    |		Load	0x1,0x1d
01a7 1719       |    |		Execute	Task,Entry_Call,Field_Number 0x19
01a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01a9 ; --------------------------------------------------------------------------------------
01a9 ; STRING TABLE
01a9 ; --------------------------------------------------------------------------------------
01a9 0006       |    |		.STRTAB	0x0006->0x01ac							; "Add Service : Appel du point d entree de la tache."
01aa 0036       | 6  |		.STRTAB	0x0036->0x01c5							; "Procedure Ask_Service : sortie."
01ab 0053       | S  |		.STREND 0x0053->0x01d4
01ac 4164 6420  |Add |		.STRTAB_STRINGS
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x5086,0x0000,0x0001,0x000f
01de 000b 021a  |    |		.DBG4T	0x000b,0x021a,0x8000,0x0000
01e2 0054 022d  | T -|		.DBG4T	0x0054,0x022d,0x8000,0x0000
01e6 00a3 023d  |   =|		.DBG4T	0x00a3,0x023d,0x0002,0x0000
01ea 00c3 0243  |   C|		.DBG4T	0x00c3,0x0243,0x0002,0x0000
01ee 00d3 0248  |   H|		.DBG4T	0x00d3,0x0248,0x0001,0x0000
01f2 00f3 024c  |   L|		.DBG4T	0x00f3,0x024c,0x0001,0x0000
01f6 010b 0250  |   P|		.DBG4T	0x010b,0x0250,0x0002,0x0000
01fa 011b 0255  |   U|		.DBG4T	0x011b,0x0255,0x0002,0x0000
01fe 012b 025a  | + Z|		.DBG4T	0x012b,0x025a,0x0001,0x0000
0202 0143 025d  | C ]|		.DBG4T	0x0143,0x025d,0x0002,0x0000
0206 0153 0262  | S b|		.DBG4T	0x0153,0x0262,0x0002,0x0000
020a 0163 0267  | c g|		.DBG4T	0x0163,0x0267,0x0001,0x0000
020e 017b 026a  | { j|		.DBG4T	0x017b,0x026a,0x0001,0x0000
0212 0193 026d  |   m|		.DBG4T	0x0193,0x026d,0x0001,0x0000
0216 01a3 0270  |   p|		.DBG4T	0x01a3,0x0270,0x0001,0x0000
021a ; --------------------------------------------------------------------------------------
021a ; Debug chain
021a ; --------------------------------------------------------------------------------------
021a 0011 0000  |    |		.DBGLEN	0x0011,0x0000
021c 000b 0018  |    |		.DBGLNO	0x000b,0x0018,0x0025,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c
022d ; --------------------------------------------------------------------------------------
022d ; Debug chain
022d ; --------------------------------------------------------------------------------------
022d 000e 0000  |    |		.DBGLEN	0x000e,0x0000
022f 0054 0056  | T V|		.DBGLNO	0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e
023d ; --------------------------------------------------------------------------------------
023d ; Debug chain
023d ; --------------------------------------------------------------------------------------
023d 0001 0003  |    |		.DBGLEN	0x0001,0x0003
023f 00a3 00a4  |    |		.DBGLNO	0x00a3,0x00a4,0x00a8,0x00b2
0243 ; --------------------------------------------------------------------------------------
0243 ; Debug chain
0243 ; --------------------------------------------------------------------------------------
0243 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0245 00c3 00c4  |    |		.DBGLNO	0x00c3,0x00c4,0x00cb
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug chain
0248 ; --------------------------------------------------------------------------------------
0248 0000 0002  |    |		.DBGLEN	0x0000,0x0002
024a 00d3 00e5  |    |		.DBGLNO	0x00d3,0x00e5
024c ; --------------------------------------------------------------------------------------
024c ; Debug chain
024c ; --------------------------------------------------------------------------------------
024c 0001 0001  |    |		.DBGLEN	0x0001,0x0001
024e 00f3 00f4  |    |		.DBGLNO	0x00f3,0x00f4
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug chain
0250 ; --------------------------------------------------------------------------------------
0250 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0252 010b 010c  |    |		.DBGLNO	0x010b,0x010c,0x0116
0255 ; --------------------------------------------------------------------------------------
0255 ; Debug chain
0255 ; --------------------------------------------------------------------------------------
0255 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0257 011b 011c  |    |		.DBGLNO	0x011b,0x011c,0x0123
025a ; --------------------------------------------------------------------------------------
025a ; Debug chain
025a ; --------------------------------------------------------------------------------------
025a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025c 012b       | +  |		.DBGLNO	0x012b
025d ; --------------------------------------------------------------------------------------
025d ; Debug chain
025d ; --------------------------------------------------------------------------------------
025d 0001 0002  |    |		.DBGLEN	0x0001,0x0002
025f 0143 0144  | C D|		.DBGLNO	0x0143,0x0144,0x014e
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0264 0153 0154  | S T|		.DBGLNO	0x0153,0x0154,0x015b
0267 ; --------------------------------------------------------------------------------------
0267 ; Debug chain
0267 ; --------------------------------------------------------------------------------------
0267 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0269 0163       | c  |		.DBGLNO	0x0163
026a ; --------------------------------------------------------------------------------------
026a ; Debug chain
026a ; --------------------------------------------------------------------------------------
026a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026c 017b       | {  |		.DBGLNO	0x017b
026d ; --------------------------------------------------------------------------------------
026d ; Debug chain
026d ; --------------------------------------------------------------------------------------
026d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026f 0193       |    |		.DBGLNO	0x0193
0270 ; --------------------------------------------------------------------------------------
0270 ; Debug chain
0270 ; --------------------------------------------------------------------------------------
0270 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0272 01a3       |    |		.DBGLNO	0x01a3
0273 0000 0000  |    |		.BLANK	0000[0x18d]