|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_060081
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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 02e8 | | .CONST 0x02e8 ; 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 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0013 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0015 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
001b 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
001d 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001f 00bf | | Action Accept_Activation
0020 4801 |H | Short_Literal 0x1
0021 4802 |H | Short_Literal 0x2
0022 e002 | | Load 0x0,0x2
0023 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0024 035b | [ | Declare_Type Array,Constrained
0025 4801 |H | Short_Literal 0x1
0026 4804 |H | Short_Literal 0x4
0027 e002 | | Load 0x0,0x2
0028 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0029 035b | [ | Declare_Type Array,Constrained
002a 00e1 | | Load_Encached Boolean_Cache
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4803 |H | Short_Literal 0x3
002d 032d | - | Declare_Type Record,Defined
002e 00e4 | | Load_Encached Positive_Cache
002f 0266 | f | Execute Discrete,Bounds
0030 00da | | Load_Top At_Offset_2
0031 02a0 | | Declare_Subprogram Null_Subprogram
0032 4801 |H | Short_Literal 0x1
0033 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0034 4801 |H | Short_Literal 0x1
0035 480e |H | Short_Literal 0xe
0036 00da | | Load_Top At_Offset_2
0037 035b | [ | Declare_Type Array,Constrained
0038 0337 | 7 | Declare_Variable Array
0039 e003 | | Load 0x0,0x3
003a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003b 00e2 | | Load_Encached Integer_Cache
003c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003d 00e1 | | Load_Encached Boolean_Cache
003e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0040 00c7 | | Action Elaborate_Subprogram
0041 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0042 00c7 | | Action Elaborate_Subprogram
0043 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0044 00c7 | | Action Elaborate_Subprogram
0045 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0046 00c7 | | Action Elaborate_Subprogram
0047 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0048 00c7 | | Action Elaborate_Subprogram
0049 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004a 00c7 | | Action Elaborate_Subprogram
004b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004c 00c7 | | Action Elaborate_Subprogram
004d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004e 00c7 | | Action Elaborate_Subprogram
004f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0050 00c7 | | Action Elaborate_Subprogram
0051 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0052 00c7 | | Action Elaborate_Subprogram
0053 BODY_0008:
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
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 00cf | | Action Mark_Auxiliary
005c 480e |H | Short_Literal 0xe
005d 4801 |H | Short_Literal 0x1
005e 0007 | | Action Break_Optional
005f 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "**********************"
0061 00d9 | | Load_Top At_Offset_1
0062 00e0 | | Load_Encached Standard_Cache
0063 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0064 01cc | | Execute Vector,Catenate
0065 e004 | | Load 0x0,0x4
0066 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0067 00d8 | | Load_Top At_Offset_0
0068 e219 | | Load 0x1,0x19
0069 01d5 | | Execute Vector,Field_Reference
006a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
006b e005 | | Load 0x0,0x5
006c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006d 0092 01fa | | Action Push_String_Extended,0x1fa ; " "
006f 01cc | | Execute Vector,Catenate
0070 00d9 | | Load_Top At_Offset_1
0071 e219 | | Load 0x1,0x19
0072 01d5 | | Execute Vector,Field_Reference
0073 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0074 e005 | | Load 0x0,0x5
0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0076 01cc | | Execute Vector,Catenate
0077 0092 01fa | | Action Push_String_Extended,0x1fa ; " "
0079 01cc | | Execute Vector,Catenate
007a 00d9 | | Load_Top At_Offset_1
007b e219 | | Load 0x1,0x19
007c 01d5 | | Execute Vector,Field_Reference
007d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007e 00e1 | | Load_Encached Boolean_Cache
007f 011c | | Execute Any,Convert_Unchecked
0080 1c01 | | Execute_Immediate Run_Utility,0x1
0081 01cc | | Execute Vector,Catenate
0082 e004 | | Load 0x0,0x4
0083 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0084 0092 01fb | | Action Push_String_Extended,0x1fb ; "***************************"
0086 e004 | | Load 0x0,0x4
0087 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0088 00c8 | | Action Pop_Auxiliary_Range
0089 3fd5 |? | Loop_Increasing 0x5f
008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0094 | | .CONST 0x0094 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 00e2 | | Load_Encached Integer_Cache
0094 BODY_0090:
0094 4801 |H | Short_Literal 0x1
0095 e21b | | Load 0x1,0x1b
0096 e219 | | Load 0x1,0x19
0097 01d5 | | Execute Vector,Field_Reference
0098 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0099 00db | | Load_Top At_Offset_3
009a e21b | | Load 0x1,0x1b
009b e219 | | Load 0x1,0x19
009c 01d5 | | Execute Vector,Field_Reference
009d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009e e5fe | | Load 0x2,-0x2
009f e21b | | Load 0x1,0x1b
00a0 e219 | | Load 0x1,0x19
00a1 01d5 | | Execute Vector,Field_Reference
00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a3 e21b | | Load 0x1,0x1b
00a4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00a5 e21b | | Load 0x1,0x1b
00a6 0a01 | | Execute_Immediate Plus,0x1
00a7 c21b | | Store 0x1,0x1b
00a8 00d8 | | Load_Top At_Offset_0
00a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e219 | | Load 0x1,0x19
00b5 01d5 | | Execute Vector,Field_Reference
00b6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00b7 e5fe | | Load 0x2,-0x2
00b8 01d4 | | Execute Vector,Structure_Write
00b9 00da | | Load_Top At_Offset_2
00ba e219 | | Load 0x1,0x19
00bb 01d5 | | Execute Vector,Field_Reference
00bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00bd e5fd | | Load 0x2,-0x3
00be 01d4 | | Execute Vector,Structure_Write
00bf 4502 |E | Exit_Suprogram New_Top_Offset 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 e003 | | Load 0x0,0x3
00c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00c5 e003 | | Load 0x0,0x3
00c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c7 c21a | | Store 0x1,0x1a
00c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d8 | | .CONST 0x00d8 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 e006 | | Load 0x0,0x6
00d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d5 e006 | | Load 0x0,0x6
00d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d7 00e1 | | Load_Encached Boolean_Cache
00d8 BODY_00d0:
00d8 e006 | | Load 0x0,0x6
00d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00da 003b | ; | Store_Top Access,At_Offset_3
00db 00e1 | | Load_Encached Boolean_Cache
00dc 00db | | Load_Top At_Offset_3
00dd e5ff | | Load 0x2,-0x1
00de e21a | | Load 0x1,0x1a
00df e003 | | Load 0x0,0x3
00e0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e1 c402 | | Store 0x2,0x2
00e2 0059 | Y | Store_Top Discrete,At_Offset_1
00e3 00d8 | | Load_Top At_Offset_0
00e4 7022 |p" | Jump_Nonzero 0x107
00e5 0092 01fc | | Action Push_String_Extended,0x1fc ; "Add_service_tab_b::Creation nouvel indice>>"
00e7 e5ff | | Load 0x2,-0x1
00e8 01cc | | Execute Vector,Catenate
00e9 0092 01fd | | Action Push_String_Extended,0x1fd ; " dans table int>>"
00eb 01cc | | Execute Vector,Catenate
00ec e5fe | | Load 0x2,-0x2
00ed 00e0 | | Load_Encached Standard_Cache
00ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ef 01cc | | Execute Vector,Catenate
00f0 e004 | | Load 0x0,0x4
00f1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f2 e006 | | Load 0x0,0x6
00f3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f4 003a | : | Store_Top Access,At_Offset_2
00f5 00d9 | | Load_Top At_Offset_1
00f6 e5fe | | Load 0x2,-0x2
00f7 00d8 | | Load_Top At_Offset_0
00f8 00e3 | | Load_Encached Natural_Cache
00f9 0260 | ` | Execute Discrete,In_Type
00fa 7001 |p | Jump_Nonzero 0xfc
00fb 0801 | | Execute_Immediate Raise,0x1
00fc e006 | | Load 0x0,0x6
00fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00fe 003a | : | Store_Top Access,At_Offset_2
00ff e21a | | Load 0x1,0x1a
0100 4800 |H | Short_Literal 0x0
0101 00db | | Load_Top At_Offset_3
0102 e5ff | | Load 0x2,-0x1
0103 e003 | | Load 0x0,0x3
0104 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0105 c21a | | Store 0x1,0x1a
0106 781e |x | Jump 0x125
0107 0092 01fe | | Action Push_String_Extended,0x1fe ; "Add_service_tab_b::Insertion ds liste non vide indice>>"
0109 e5ff | | Load 0x2,-0x1
010a 01cc | | Execute Vector,Catenate
010b 0092 01ff | | Action Push_String_Extended,0x1ff ; " tableau trouve int>>"
010d 01cc | | Execute Vector,Catenate
010e e5fe | | Load 0x2,-0x2
010f 00e0 | | Load_Encached Standard_Cache
0110 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0111 01cc | | Execute Vector,Catenate
0112 e004 | | Load 0x0,0x4
0113 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0114 00da | | Load_Top At_Offset_2
0115 e5fe | | Load 0x2,-0x2
0116 00d8 | | Load_Top At_Offset_0
0117 00e3 | | Load_Encached Natural_Cache
0118 0260 | ` | Execute Discrete,In_Type
0119 7001 |p | Jump_Nonzero 0x11b
011a 0801 | | Execute_Immediate Raise,0x1
011b e006 | | Load 0x0,0x6
011c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
011d 003a | : | Store_Top Access,At_Offset_2
011e e21a | | Load 0x1,0x1a
011f 4800 |H | Short_Literal 0x0
0120 00db | | Load_Top At_Offset_3
0121 e5ff | | Load 0x2,-0x1
0122 e003 | | Load 0x0,0x3
0123 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0124 c21a | | Store 0x1,0x1a
0125 0092 0200 | | Action Push_String_Extended,0x200 ; "Add_service_tab_b::insertion table B finie"
0127 e004 | | Load 0x0,0x4
0128 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0129 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0136 | 6 | .CONST 0x0136 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 e006 | | Load 0x0,0x6
0134 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0135 00e1 | | Load_Encached Boolean_Cache
0136 BODY_0130:
0136 4801 |H | Short_Literal 0x1
0137 a21c | | Store_Unchecked 0x1,0x1c
0138 e006 | | Load 0x0,0x6
0139 1812 | | Execute Package,Field_Execute,Field_Number 0x12
013a 003a | : | Store_Top Access,At_Offset_2
013b 00e1 | | Load_Encached Boolean_Cache
013c 00da | | Load_Top At_Offset_2
013d e5ff | | Load 0x2,-0x1
013e e21a | | Load 0x1,0x1a
013f e003 | | Load 0x0,0x3
0140 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0141 003b | ; | Store_Top Access,At_Offset_3
0142 0059 | Y | Store_Top Discrete,At_Offset_1
0143 00d8 | | Load_Top At_Offset_0
0144 0f01 | | Execute_Immediate Equal,0x1
0145 680d |h | Jump_Zero 0x153
0146 0092 0201 | | Action Push_String_Extended,0x201 ; "return_liste_tab_b::la competence cherchee>>"
0148 e5ff | | Load 0x2,-0x1
0149 01cc | | Execute Vector,Catenate
014a 0092 0202 | | Action Push_String_Extended,0x202 ; " existe liste fournie"
014c 01cc | | Execute Vector,Catenate
014d e004 | | Load 0x0,0x4
014e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
014f 4801 |H | Short_Literal 0x1
0150 a21c | | Store_Unchecked 0x1,0x1c
0151 00d9 | | Load_Top At_Offset_1
0152 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0153 0092 0203 | | Action Push_String_Extended,0x203 ; "return_liste_tab_b::la competence>>"
0155 e5ff | | Load 0x2,-0x1
0156 01cc | | Execute Vector,Catenate
0157 0092 0204 | | Action Push_String_Extended,0x204 ; " demandee n'existe pas"
0159 01cc | | Execute Vector,Catenate
015a e004 | | Load 0x0,0x4
015b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015c e006 | | Load 0x0,0x6
015d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
015e 003a | : | Store_Top Access,At_Offset_2
015f 4800 |H | Short_Literal 0x0
0160 a21c | | Store_Unchecked 0x1,0x1c
0161 00d9 | | Load_Top At_Offset_1
0162 4401 |D | Exit_Subprogram With_Value,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 e21c | | Load 0x1,0x1c
016c 00ca | | Action Exit_Nullary_Function
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0176 | v | .CONST 0x0176 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e006 | | Load 0x0,0x6
0174 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0175 00e3 | | Load_Encached Natural_Cache
0176 BODY_0170:
0176 e5ff | | Load 0x2,-0x1
0177 e006 | | Load 0x0,0x6
0178 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0179 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
017a e006 | | Load 0x0,0x6
017b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
017c e5ff | | Load 0x2,-0x1
017d e006 | | Load 0x0,0x6
017e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017f 003a | : | Store_Top Access,At_Offset_2
0180 00cf | | Action Mark_Auxiliary
0181 00d9 | | Load_Top At_Offset_1
0182 4801 |H | Short_Literal 0x1
0183 0263 | c | Execute Discrete,Above_Bound
0184 7017 |p | Jump_Nonzero 0x19c
0185 0092 0205 | | Action Push_String_Extended,0x205 ; "indice no"
0187 00d9 | | Load_Top At_Offset_1
0188 00e0 | | Load_Encached Standard_Cache
0189 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018a 01cc | | Execute Vector,Catenate
018b 0092 0206 | | Action Push_String_Extended,0x206 ; " donnee : "
018d 01cc | | Execute Vector,Catenate
018e e402 | | Load 0x2,0x2
018f e006 | | Load 0x0,0x6
0190 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0191 00e0 | | Load_Encached Standard_Cache
0192 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0193 01cc | | Execute Vector,Catenate
0194 e004 | | Load 0x0,0x4
0195 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0196 e402 | | Load 0x2,0x2
0197 e006 | | Load 0x0,0x6
0198 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0199 c402 | | Store 0x2,0x2
019a 00c8 | | Action Pop_Auxiliary_Range
019b 3fe9 |? | Loop_Increasing 0x185
019c 00ce | | Action Pop_Auxiliary
019d 0092 0207 | | Action Push_String_Extended,0x207 ; "Afficher_liste::fini******************************************"
019f e004 | | Load 0x0,0x4
01a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b0 | | .CONST 0x01b0 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0005 | | .CONST 0x0005 ; Number of locals
01ab INIT_01a8:
01ab 00e2 | | Load_Encached Integer_Cache
01ac e006 | | Load 0x0,0x6
01ad 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01ae 00e3 | | Load_Encached Natural_Cache
01af 00e2 | | Load_Encached Integer_Cache
01b0 BODY_01a8:
01b0 4801 |H | Short_Literal 0x1
01b1 a5fa | | Store_Unchecked 0x2,-0x6
01b2 8213 | | Call 0x1,0x13
01b3 7009 |p | Jump_Nonzero 0x1bd
01b4 4800 |H | Short_Literal 0x0
01b5 a5fa | | Store_Unchecked 0x2,-0x6
01b6 4801 |H | Short_Literal 0x1
01b7 a5fd | | Store_Unchecked 0x2,-0x3
01b8 4801 |H | Short_Literal 0x1
01b9 a5fc | | Store_Unchecked 0x2,-0x4
01ba 4800 |H | Short_Literal 0x0
01bb a5fb | | Store_Unchecked 0x2,-0x5
01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bd e5fe | | Load 0x2,-0x2
01be a402 | | Store_Unchecked 0x2,0x2
01bf e5ff | | Load 0x2,-0x1
01c0 e006 | | Load 0x0,0x6
01c1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01c2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c3 4800 |H | Short_Literal 0x0
01c4 a5fb | | Store_Unchecked 0x2,-0x5
01c5 00db | | Load_Top At_Offset_3
01c6 00da | | Load_Top At_Offset_2
01c7 027b | { | Execute Discrete,Greater_Equal
01c8 6806 |h | Jump_Zero 0x1cf
01c9 4801 |H | Short_Literal 0x1
01ca a5fb | | Store_Unchecked 0x2,-0x5
01cb 00db | | Load_Top At_Offset_3
01cc 00da | | Load_Top At_Offset_2
01cd 026e | n | Execute Discrete,Modulo
01ce a402 | | Store_Unchecked 0x2,0x2
01cf e006 | | Load 0x0,0x6
01d0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01d1 e5ff | | Load 0x2,-0x1
01d2 e006 | | Load 0x0,0x6
01d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d4 003b | ; | Store_Top Access,At_Offset_3
01d5 00db | | Load_Top At_Offset_3
01d6 680c |h | Jump_Zero 0x1e3
01d7 00cf | | Action Mark_Auxiliary
01d8 e402 | | Load 0x2,0x2
01d9 4801 |H | Short_Literal 0x1
01da 0263 | c | Execute Discrete,Above_Bound
01db 7006 |p | Jump_Nonzero 0x1e2
01dc e403 | | Load 0x2,0x3
01dd e006 | | Load 0x0,0x6
01de 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01df c403 | | Store 0x2,0x3
01e0 00c8 | | Action Pop_Auxiliary_Range
01e1 3ffa |? | Loop_Increasing 0x1dc
01e2 00ce | | Action Pop_Auxiliary
01e3 00da | | Load_Top At_Offset_2
01e4 e006 | | Load 0x0,0x6
01e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01e6 e219 | | Load 0x1,0x19
01e7 01d5 | | Execute Vector,Field_Reference
01e8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e9 a5fc | | Store_Unchecked 0x2,-0x4
01ea 00da | | Load_Top At_Offset_2
01eb e006 | | Load 0x0,0x6
01ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ed a5fd | | Store_Unchecked 0x2,-0x3
01ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4800 |H | Short_Literal 0x0
01f4 00db | | Load_Top At_Offset_3
01f5 e219 | | Load 0x1,0x19
01f6 01d5 | | Execute Vector,Field_Reference
01f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f9 ; --------------------------------------------------------------------------------------
01f9 ; STRING TABLE
01f9 ; --------------------------------------------------------------------------------------
01f9 0020 | | .STRTAB 0x0020->0x0209 ; "**********************"
01fa 0034 | 4 | .STRTAB 0x0034->0x0214 ; " "
01fb 0034 | 4 | .STRTAB 0x0034->0x0215 ; "***************************"
01fc 004d | M | .STRTAB 0x004d->0x0222 ; "Add_service_tab_b::Creation nouvel indice>>"
01fd 0076 | v | .STRTAB 0x0076->0x0238 ; " dans table int>>"
01fe 0085 | | .STRTAB 0x0085->0x0240 ; "Add_service_tab_b::Insertion ds liste non vide indice>>"
01ff 00ba | | .STRTAB 0x00ba->0x025c ; " tableau trouve int>>"
0200 00ce | | .STRTAB 0x00ce->0x0267 ; "Add_service_tab_b::insertion table B finie"
0201 00f6 | | .STRTAB 0x00f6->0x027c ; "return_liste_tab_b::la competence cherchee>>"
0202 0120 | | .STRTAB 0x0120->0x0292 ; " existe liste fournie"
0203 0133 | 3 | .STRTAB 0x0133->0x029c ; "return_liste_tab_b::la competence>>"
0204 0154 | T | .STRTAB 0x0154->0x02ae ; " demandee n'existe pas"
0205 0168 | h | .STRTAB 0x0168->0x02b9 ; "indice no"
0206 016f | o | .STRTAB 0x016f->0x02bd ; " donnee : "
0207 0178 | x | .STRTAB 0x0178->0x02c3 ; "Afficher_liste::fini******************************************"
0208 01b4 | | .STREND 0x01b4->0x02e2
0209 2a2a 2a2a |****| .STRTAB_STRINGS
02e2 0000 0000 | | .BLANK 0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0004 000a | | .DEBUG4 0x0004,0x000a,0x5b78,0x0000,0x0001,0x000c
02ee 000b 031e | | .DBG4T 0x000b,0x031e,0x8000,0x0000
02f2 0020 032a | *| .DBG4T 0x0020,0x032a,0x8000,0x0000
02f6 005b 033c | [ <| .DBG4T 0x005b,0x033c,0x0001,0x0000
02fa 0093 0342 | B| .DBG4T 0x0093,0x0342,0x0002,0x0000
02fe 00b3 034b | K| .DBG4T 0x00b3,0x034b,0x0001,0x0000
0302 00c3 034f | O| .DBG4T 0x00c3,0x034f,0x0001,0x0000
0306 00d3 0352 | R| .DBG4T 0x00d3,0x0352,0x0001,0x0000
030a 0133 0362 | 3 b| .DBG4T 0x0133,0x0362,0x0002,0x0000
030e 016b 0371 | k q| .DBG4T 0x016b,0x0371,0x0002,0x0000
0312 0173 0374 | s t| .DBG4T 0x0173,0x0374,0x0001,0x0000
0316 01ab 037e | ~| .DBG4T 0x01ab,0x037e,0x0001,0x0000
031a 01f3 0396 | | .DBG4T 0x01f3,0x0396,0x0001,0x0000
031e ; --------------------------------------------------------------------------------------
031e ; Debug chain
031e ; --------------------------------------------------------------------------------------
031e 000a 0000 | | .DBGLEN 0x000a,0x0000
0320 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d
032a ; --------------------------------------------------------------------------------------
032a ; Debug chain
032a ; --------------------------------------------------------------------------------------
032a 0010 0000 | | .DBGLEN 0x0010,0x0000
032c 0020 002e | .| .DBGLNO 0x0020,0x002e,0x0034,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051
033c ; --------------------------------------------------------------------------------------
033c ; Debug chain
033c ; --------------------------------------------------------------------------------------
033c 0000 0004 | | .DBGLEN 0x0000,0x0004
033e 005c 005f | \ _| .DBGLNO 0x005c,0x005f,0x0067,0x0084
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug chain
0342 ; --------------------------------------------------------------------------------------
0342 0001 0006 | | .DBGLEN 0x0001,0x0006
0344 0093 0094 | | .DBGLNO 0x0093,0x0094,0x0099,0x009e,0x00a3,0x00a5,0x00a8
034b ; --------------------------------------------------------------------------------------
034b ; Debug chain
034b ; --------------------------------------------------------------------------------------
034b 0000 0002 | | .DBGLEN 0x0000,0x0002
034d 00b3 00b9 | | .DBGLNO 0x00b3,0x00b9
034f ; --------------------------------------------------------------------------------------
034f ; Debug chain
034f ; --------------------------------------------------------------------------------------
034f 0000 0001 | | .DBGLEN 0x0000,0x0001
0351 00c3 | | .DBGLNO 0x00c3
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0003 000b | | .DBGLEN 0x0003,0x000b
0354 00d3 00d5 | | .DBGLNO 0x00d3,0x00d5,0x00d7,0x00d8,0x00db,0x00e3,0x00e5,0x00f2,0x00f5,0x00ff,0x0107,0x0114,0x011e,0x0125
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug chain
0362 ; --------------------------------------------------------------------------------------
0362 0002 000b | | .DBGLEN 0x0002,0x000b
0364 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135,0x0136,0x0138,0x013b,0x0143,0x0146,0x014f,0x0151,0x0153,0x015c,0x015f,0x0161
0371 ; --------------------------------------------------------------------------------------
0371 ; Debug chain
0371 ; --------------------------------------------------------------------------------------
0371 0000 0001 | | .DBGLEN 0x0000,0x0001
0373 016b | k | .DBGLNO 0x016b
0374 ; --------------------------------------------------------------------------------------
0374 ; Debug chain
0374 ; --------------------------------------------------------------------------------------
0374 0002 0006 | | .DBGLEN 0x0002,0x0006
0376 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0176,0x017a,0x0181,0x0185,0x0196,0x019d
037e ; --------------------------------------------------------------------------------------
037e ; Debug chain
037e ; --------------------------------------------------------------------------------------
037e 0004 0012 | | .DBGLEN 0x0004,0x0012
0380 01ab 01ac | | .DBGLNO 0x01ab,0x01ac,0x01ae,0x01af,0x01b0,0x01b2,0x01b4,0x01b6,0x01b8,0x01ba,0x01bd,0x01bf,0x01c3,0x01c5,0x01c9,0x01cb,0x01cf,0x01d5,0x01d8,0x01dc,0x01e3,0x01ea
0396 ; --------------------------------------------------------------------------------------
0396 ; Debug chain
0396 ; --------------------------------------------------------------------------------------
0396 0000 0001 | | .DBGLEN 0x0000,0x0001
0398 01f3 | | .DBGLNO 0x01f3
0399 0000 0000 | | .BLANK 0000[0x67]