|
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_193ce8
└─⟦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 02c8 | | .CONST 0x02c8 ; 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 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 4802 |H | Short_Literal 0x2
000d e002 | | Load 0x0,0x2
000e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
000f 035c | \ | Declare_Type Array,Constrained,Visible
0010 4801 |H | Short_Literal 0x1
0011 4804 |H | Short_Literal 0x4
0012 e002 | | Load 0x0,0x2
0013 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0014 035c | \ | Declare_Type Array,Constrained,Visible
0015 00e1 | | Load_Encached Boolean_Cache
0016 02a0 | | Declare_Subprogram Null_Subprogram
0017 4803 |H | Short_Literal 0x3
0018 032e | . | Declare_Type Record,Defined,Visible
0019 00e4 | | Load_Encached Positive_Cache
001a 0266 | f | Execute Discrete,Bounds
001b 00da | | Load_Top At_Offset_2
001c 02a0 | | Declare_Subprogram Null_Subprogram
001d 4801 |H | Short_Literal 0x1
001e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0021 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0023 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0025 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0027 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0029 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
002b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
002d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
002f 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0031 00bf | | Action Accept_Activation
0032 4801 |H | Short_Literal 0x1
0033 480e |H | Short_Literal 0xe
0034 e20e | | Load 0x1,0xe
0035 035b | [ | Declare_Type Array,Constrained
0036 0337 | 7 | Declare_Variable Array
0037 00e2 | | Load_Encached Integer_Cache
0038 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0039 e003 | | Load 0x0,0x3
003a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003c 00c7 | | Action Elaborate_Subprogram
003d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003e 00c7 | | Action Elaborate_Subprogram
003f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0040 00c7 | | Action Elaborate_Subprogram
0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0042 00c7 | | Action Elaborate_Subprogram
0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0044 00c7 | | Action Elaborate_Subprogram
0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0046 00c7 | | Action Elaborate_Subprogram
0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0048 00c7 | | Action Elaborate_Subprogram
0049 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004a 00c7 | | Action Elaborate_Subprogram
004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00cf | | Action Mark_Auxiliary
0054 480e |H | Short_Literal 0xe
0055 4801 |H | Short_Literal 0x1
0056 0007 | | Action Break_Optional
0057 0092 01d9 | | Action Push_String_Extended,0x1d9 ; "**********************"
0059 00d9 | | Load_Top At_Offset_1
005a 00e0 | | Load_Encached Standard_Cache
005b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005c 01cc | | Execute Vector,Catenate
005d e004 | | Load 0x0,0x4
005e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
005f 00d8 | | Load_Top At_Offset_0
0060 e218 | | Load 0x1,0x18
0061 01d5 | | Execute Vector,Field_Reference
0062 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0063 e005 | | Load 0x0,0x5
0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0065 0092 01da | | Action Push_String_Extended,0x1da ; " "
0067 01cc | | Execute Vector,Catenate
0068 00d9 | | Load_Top At_Offset_1
0069 e218 | | Load 0x1,0x18
006a 01d5 | | Execute Vector,Field_Reference
006b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
006c e005 | | Load 0x0,0x5
006d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006e 01cc | | Execute Vector,Catenate
006f 0092 01da | | Action Push_String_Extended,0x1da ; " "
0071 01cc | | Execute Vector,Catenate
0072 00d9 | | Load_Top At_Offset_1
0073 e218 | | Load 0x1,0x18
0074 01d5 | | Execute Vector,Field_Reference
0075 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0076 00e1 | | Load_Encached Boolean_Cache
0077 011c | | Execute Any,Convert_Unchecked
0078 1c01 | | Execute_Immediate Run_Utility,0x1
0079 01cc | | Execute Vector,Catenate
007a e004 | | Load 0x0,0x4
007b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007c 0092 01db | | Action Push_String_Extended,0x1db ; "***************************"
007e e004 | | Load 0x0,0x4
007f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0080 00c8 | | Action Pop_Auxiliary_Range
0081 3fd5 |? | Loop_Increasing 0x57
0082 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008c | | .CONST 0x008c ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 00e2 | | Load_Encached Integer_Cache
008c BODY_0088:
008c 4801 |H | Short_Literal 0x1
008d e219 | | Load 0x1,0x19
008e e218 | | Load 0x1,0x18
008f 01d5 | | Execute Vector,Field_Reference
0090 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0091 00db | | Load_Top At_Offset_3
0092 e219 | | Load 0x1,0x19
0093 e218 | | Load 0x1,0x18
0094 01d5 | | Execute Vector,Field_Reference
0095 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0096 e5fe | | Load 0x2,-0x2
0097 e219 | | Load 0x1,0x19
0098 e218 | | Load 0x1,0x18
0099 01d5 | | Execute Vector,Field_Reference
009a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009b e219 | | Load 0x1,0x19
009c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
009d e219 | | Load 0x1,0x19
009e 0a01 | | Execute_Immediate Plus,0x1
009f c219 | | Store 0x1,0x19
00a0 00d8 | | Load_Top At_Offset_0
00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a2 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
00ac e218 | | Load 0x1,0x18
00ad 01d5 | | Execute Vector,Field_Reference
00ae 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00af e5fe | | Load 0x2,-0x2
00b0 01d4 | | Execute Vector,Structure_Write
00b1 00da | | Load_Top At_Offset_2
00b2 e218 | | Load 0x1,0x18
00b3 01d5 | | Execute Vector,Field_Reference
00b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00b5 e5fd | | Load 0x2,-0x3
00b6 01d4 | | Execute Vector,Structure_Write
00b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 e003 | | Load 0x0,0x3
00bc 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00bd e003 | | Load 0x0,0x3
00be 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00bf c21a | | Store 0x1,0x1a
00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0 | | .CONST 0x00d0 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0004 | | .CONST 0x0004 ; Number of locals
00cb INIT_00c8:
00cb e006 | | Load 0x0,0x6
00cc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00cd e006 | | Load 0x0,0x6
00ce 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00cf 00e1 | | Load_Encached Boolean_Cache
00d0 BODY_00c8:
00d0 e006 | | Load 0x0,0x6
00d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d2 003b | ; | Store_Top Access,At_Offset_3
00d3 00e1 | | Load_Encached Boolean_Cache
00d4 00db | | Load_Top At_Offset_3
00d5 e5ff | | Load 0x2,-0x1
00d6 e21a | | Load 0x1,0x1a
00d7 e003 | | Load 0x0,0x3
00d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d9 c402 | | Store 0x2,0x2
00da 0059 | Y | Store_Top Discrete,At_Offset_1
00db 00d8 | | Load_Top At_Offset_0
00dc 7022 |p" | Jump_Nonzero 0xff
00dd 0092 01dc | | Action Push_String_Extended,0x1dc ; "Add_service_tab_b::Creation nouvel indice>>"
00df e5ff | | Load 0x2,-0x1
00e0 01cc | | Execute Vector,Catenate
00e1 0092 01dd | | Action Push_String_Extended,0x1dd ; " dans table int>>"
00e3 01cc | | Execute Vector,Catenate
00e4 e5fe | | Load 0x2,-0x2
00e5 00e0 | | Load_Encached Standard_Cache
00e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e7 01cc | | Execute Vector,Catenate
00e8 e004 | | Load 0x0,0x4
00e9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ea e006 | | Load 0x0,0x6
00eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ec 003a | : | Store_Top Access,At_Offset_2
00ed 00d9 | | Load_Top At_Offset_1
00ee e5fe | | Load 0x2,-0x2
00ef 00d8 | | Load_Top At_Offset_0
00f0 00e3 | | Load_Encached Natural_Cache
00f1 0260 | ` | Execute Discrete,In_Type
00f2 7001 |p | Jump_Nonzero 0xf4
00f3 0801 | | Execute_Immediate Raise,0x1
00f4 e006 | | Load 0x0,0x6
00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f6 003a | : | Store_Top Access,At_Offset_2
00f7 e21a | | Load 0x1,0x1a
00f8 4800 |H | Short_Literal 0x0
00f9 00db | | Load_Top At_Offset_3
00fa e5ff | | Load 0x2,-0x1
00fb e003 | | Load 0x0,0x3
00fc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00fd c21a | | Store 0x1,0x1a
00fe 781e |x | Jump 0x11d
00ff 0092 01de | | Action Push_String_Extended,0x1de ; "Add_service_tab_b::Insertion ds liste non vide indice>>"
0101 e5ff | | Load 0x2,-0x1
0102 01cc | | Execute Vector,Catenate
0103 0092 01df | | Action Push_String_Extended,0x1df ; " tableau trouve int>>"
0105 01cc | | Execute Vector,Catenate
0106 e5fe | | Load 0x2,-0x2
0107 00e0 | | Load_Encached Standard_Cache
0108 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0109 01cc | | Execute Vector,Catenate
010a e004 | | Load 0x0,0x4
010b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010c 00da | | Load_Top At_Offset_2
010d e5fe | | Load 0x2,-0x2
010e 00d8 | | Load_Top At_Offset_0
010f 00e3 | | Load_Encached Natural_Cache
0110 0260 | ` | Execute Discrete,In_Type
0111 7001 |p | Jump_Nonzero 0x113
0112 0801 | | Execute_Immediate Raise,0x1
0113 e006 | | Load 0x0,0x6
0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0115 003a | : | Store_Top Access,At_Offset_2
0116 e21a | | Load 0x1,0x1a
0117 4800 |H | Short_Literal 0x0
0118 00db | | Load_Top At_Offset_3
0119 e5ff | | Load 0x2,-0x1
011a e003 | | Load 0x0,0x3
011b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
011c c21a | | Store 0x1,0x1a
011d 0092 01e0 | | Action Push_String_Extended,0x1e0 ; "Add_service_tab_b::insertion table B finie"
011f e004 | | Load 0x0,0x4
0120 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0121 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012e | . | .CONST 0x012e ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b e006 | | Load 0x0,0x6
012c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012d 00e1 | | Load_Encached Boolean_Cache
012e BODY_0128:
012e e006 | | Load 0x0,0x6
012f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0130 003a | : | Store_Top Access,At_Offset_2
0131 00e1 | | Load_Encached Boolean_Cache
0132 00da | | Load_Top At_Offset_2
0133 e5ff | | Load 0x2,-0x1
0134 e21a | | Load 0x1,0x1a
0135 e003 | | Load 0x0,0x3
0136 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0137 003b | ; | Store_Top Access,At_Offset_3
0138 0059 | Y | Store_Top Discrete,At_Offset_1
0139 00d8 | | Load_Top At_Offset_0
013a 0f01 | | Execute_Immediate Equal,0x1
013b 680b |h | Jump_Zero 0x147
013c 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "return_liste_tab_b::la competence cherchee>>"
013e e5ff | | Load 0x2,-0x1
013f 01cc | | Execute Vector,Catenate
0140 0092 01e2 | | Action Push_String_Extended,0x1e2 ; " existe liste fournie"
0142 01cc | | Execute Vector,Catenate
0143 e004 | | Load 0x0,0x4
0144 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0145 00d9 | | Load_Top At_Offset_1
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "return_liste_tab_b::la competence>>"
0149 e5ff | | Load 0x2,-0x1
014a 01cc | | Execute Vector,Catenate
014b 0092 01e4 | | Action Push_String_Extended,0x1e4 ; " demandee n'existe pas"
014d 01cc | | Execute Vector,Catenate
014e e004 | | Load 0x0,0x4
014f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0150 e006 | | Load 0x0,0x6
0151 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0152 003a | : | Store_Top Access,At_Offset_2
0153 00d9 | | Load_Top At_Offset_1
0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0155 0000 0000 | | .XXX[0x3]
0157 0000 | |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015e | ^ | .CONST 0x015e ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b e006 | | Load 0x0,0x6
015c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
015d 00e3 | | Load_Encached Natural_Cache
015e BODY_0158:
015e e5ff | | Load 0x2,-0x1
015f e006 | | Load 0x0,0x6
0160 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0161 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0162 e006 | | Load 0x0,0x6
0163 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0164 e5ff | | Load 0x2,-0x1
0165 e006 | | Load 0x0,0x6
0166 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0167 003a | : | Store_Top Access,At_Offset_2
0168 00cf | | Action Mark_Auxiliary
0169 00d9 | | Load_Top At_Offset_1
016a 4801 |H | Short_Literal 0x1
016b 0263 | c | Execute Discrete,Above_Bound
016c 7017 |p | Jump_Nonzero 0x184
016d 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "indice no"
016f 00d9 | | Load_Top At_Offset_1
0170 00e0 | | Load_Encached Standard_Cache
0171 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0172 01cc | | Execute Vector,Catenate
0173 0092 01e6 | | Action Push_String_Extended,0x1e6 ; " donnee : "
0175 01cc | | Execute Vector,Catenate
0176 e402 | | Load 0x2,0x2
0177 e006 | | Load 0x0,0x6
0178 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0179 00e0 | | Load_Encached Standard_Cache
017a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017b 01cc | | Execute Vector,Catenate
017c e004 | | Load 0x0,0x4
017d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
017e e402 | | Load 0x2,0x2
017f e006 | | Load 0x0,0x6
0180 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0181 c402 | | Store 0x2,0x2
0182 00c8 | | Action Pop_Auxiliary_Range
0183 3fe9 |? | Loop_Increasing 0x16d
0184 00ce | | Action Pop_Auxiliary
0185 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "Afficher_liste::fini******************************************"
0187 e004 | | Load 0x0,0x4
0188 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198 | | .CONST 0x0198 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0005 | | .CONST 0x0005 ; Number of locals
0193 INIT_0190:
0193 00e2 | | Load_Encached Integer_Cache
0194 e006 | | Load 0x0,0x6
0195 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0196 00e3 | | Load_Encached Natural_Cache
0197 00e2 | | Load_Encached Integer_Cache
0198 BODY_0190:
0198 e5fe | | Load 0x2,-0x2
0199 a402 | | Store_Unchecked 0x2,0x2
019a e5ff | | Load 0x2,-0x1
019b e006 | | Load 0x0,0x6
019c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
019d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
019e 4800 |H | Short_Literal 0x0
019f a5fb | | Store_Unchecked 0x2,-0x5
01a0 00db | | Load_Top At_Offset_3
01a1 00da | | Load_Top At_Offset_2
01a2 027b | { | Execute Discrete,Greater_Equal
01a3 6806 |h | Jump_Zero 0x1aa
01a4 4801 |H | Short_Literal 0x1
01a5 a5fb | | Store_Unchecked 0x2,-0x5
01a6 00db | | Load_Top At_Offset_3
01a7 00da | | Load_Top At_Offset_2
01a8 026e | n | Execute Discrete,Modulo
01a9 a402 | | Store_Unchecked 0x2,0x2
01aa e006 | | Load 0x0,0x6
01ab 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01ac e5ff | | Load 0x2,-0x1
01ad e006 | | Load 0x0,0x6
01ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01af 003b | ; | Store_Top Access,At_Offset_3
01b0 00db | | Load_Top At_Offset_3
01b1 680c |h | Jump_Zero 0x1be
01b2 00cf | | Action Mark_Auxiliary
01b3 e402 | | Load 0x2,0x2
01b4 4801 |H | Short_Literal 0x1
01b5 0263 | c | Execute Discrete,Above_Bound
01b6 7006 |p | Jump_Nonzero 0x1bd
01b7 e403 | | Load 0x2,0x3
01b8 e006 | | Load 0x0,0x6
01b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ba c403 | | Store 0x2,0x3
01bb 00c8 | | Action Pop_Auxiliary_Range
01bc 3ffa |? | Loop_Increasing 0x1b7
01bd 00ce | | Action Pop_Auxiliary
01be 00da | | Load_Top At_Offset_2
01bf e006 | | Load 0x0,0x6
01c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c1 e218 | | Load 0x1,0x18
01c2 01d5 | | Execute Vector,Field_Reference
01c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c4 a5fc | | Store_Unchecked 0x2,-0x4
01c5 00da | | Load_Top At_Offset_2
01c6 e006 | | Load 0x0,0x6
01c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c8 a5fd | | Store_Unchecked 0x2,-0x3
01c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4800 |H | Short_Literal 0x0
01d4 00db | | Load_Top At_Offset_3
01d5 e218 | | Load 0x1,0x18
01d6 01d5 | | Execute Vector,Field_Reference
01d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d9 ; --------------------------------------------------------------------------------------
01d9 ; STRING TABLE
01d9 ; --------------------------------------------------------------------------------------
01d9 0020 | | .STRTAB 0x0020->0x01e9 ; "**********************"
01da 0034 | 4 | .STRTAB 0x0034->0x01f4 ; " "
01db 0034 | 4 | .STRTAB 0x0034->0x01f5 ; "***************************"
01dc 004d | M | .STRTAB 0x004d->0x0202 ; "Add_service_tab_b::Creation nouvel indice>>"
01dd 0076 | v | .STRTAB 0x0076->0x0218 ; " dans table int>>"
01de 0085 | | .STRTAB 0x0085->0x0220 ; "Add_service_tab_b::Insertion ds liste non vide indice>>"
01df 00ba | | .STRTAB 0x00ba->0x023c ; " tableau trouve int>>"
01e0 00ce | | .STRTAB 0x00ce->0x0247 ; "Add_service_tab_b::insertion table B finie"
01e1 00f6 | | .STRTAB 0x00f6->0x025c ; "return_liste_tab_b::la competence cherchee>>"
01e2 0120 | | .STRTAB 0x0120->0x0272 ; " existe liste fournie"
01e3 0133 | 3 | .STRTAB 0x0133->0x027c ; "return_liste_tab_b::la competence>>"
01e4 0154 | T | .STRTAB 0x0154->0x028e ; " demandee n'existe pas"
01e5 0168 | h | .STRTAB 0x0168->0x0299 ; "indice no"
01e6 016f | o | .STRTAB 0x016f->0x029d ; " donnee : "
01e7 0178 | x | .STRTAB 0x0178->0x02a3 ; "Afficher_liste::fini******************************************"
01e8 01b4 | | .STREND 0x01b4->0x02c2
01e9 2a2a 2a2a |****| .STRTAB_STRINGS
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug Table
02c8 ; --------------------------------------------------------------------------------------
02c8 0004 000a | | .DEBUG4 0x0004,0x000a,0x20b8,0x0000,0x0001,0x000b
02ce 000b 02fa | | .DBG4T 0x000b,0x02fa,0x8000,0x0000
02d2 0032 0307 | 2 | .DBG4T 0x0032,0x0307,0x8000,0x0000
02d6 0053 0315 | S | .DBG4T 0x0053,0x0315,0x0001,0x0000
02da 008b 031b | | .DBG4T 0x008b,0x031b,0x0002,0x0000
02de 00ab 0324 | $| .DBG4T 0x00ab,0x0324,0x0001,0x0000
02e2 00bb 0328 | (| .DBG4T 0x00bb,0x0328,0x0001,0x0000
02e6 00cb 032b | +| .DBG4T 0x00cb,0x032b,0x0001,0x0000
02ea 012b 033b | + ;| .DBG4T 0x012b,0x033b,0x0002,0x0000
02ee 015b 0347 | [ G| .DBG4T 0x015b,0x0347,0x0001,0x0000
02f2 0193 0351 | Q| .DBG4T 0x0193,0x0351,0x0001,0x0000
02f6 01d3 0363 | c| .DBG4T 0x01d3,0x0363,0x0001,0x0000
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug chain
02fa ; --------------------------------------------------------------------------------------
02fa 000b 0000 | | .DBGLEN 0x000b,0x0000
02fc 000b 0019 | | .DBGLNO 0x000b,0x0019,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f
0307 ; --------------------------------------------------------------------------------------
0307 ; Debug chain
0307 ; --------------------------------------------------------------------------------------
0307 000c 0000 | | .DBGLEN 0x000c,0x0000
0309 0032 0037 | 2 7| .DBGLNO 0x0032,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b
0315 ; --------------------------------------------------------------------------------------
0315 ; Debug chain
0315 ; --------------------------------------------------------------------------------------
0315 0000 0004 | | .DBGLEN 0x0000,0x0004
0317 0054 0057 | T W| .DBGLNO 0x0054,0x0057,0x005f,0x007c
031b ; --------------------------------------------------------------------------------------
031b ; Debug chain
031b ; --------------------------------------------------------------------------------------
031b 0001 0006 | | .DBGLEN 0x0001,0x0006
031d 008b 008c | | .DBGLNO 0x008b,0x008c,0x0091,0x0096,0x009b,0x009d,0x00a0
0324 ; --------------------------------------------------------------------------------------
0324 ; Debug chain
0324 ; --------------------------------------------------------------------------------------
0324 0000 0002 | | .DBGLEN 0x0000,0x0002
0326 00ab 00b1 | | .DBGLNO 0x00ab,0x00b1
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug chain
0328 ; --------------------------------------------------------------------------------------
0328 0000 0001 | | .DBGLEN 0x0000,0x0001
032a 00bb | | .DBGLNO 0x00bb
032b ; --------------------------------------------------------------------------------------
032b ; Debug chain
032b ; --------------------------------------------------------------------------------------
032b 0003 000b | | .DBGLEN 0x0003,0x000b
032d 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00cf,0x00d0,0x00d3,0x00db,0x00dd,0x00ea,0x00ed,0x00f7,0x00ff,0x010c,0x0116,0x011d
033b ; --------------------------------------------------------------------------------------
033b ; Debug chain
033b ; --------------------------------------------------------------------------------------
033b 0002 0008 | | .DBGLEN 0x0002,0x0008
033d 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x012e,0x0131,0x0139,0x013c,0x0145,0x0147,0x0150,0x0153
0347 ; --------------------------------------------------------------------------------------
0347 ; Debug chain
0347 ; --------------------------------------------------------------------------------------
0347 0002 0006 | | .DBGLEN 0x0002,0x0006
0349 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x015e,0x0162,0x0169,0x016d,0x017e,0x0185
0351 ; --------------------------------------------------------------------------------------
0351 ; Debug chain
0351 ; --------------------------------------------------------------------------------------
0351 0004 000c | | .DBGLEN 0x0004,0x000c
0353 0193 0194 | | .DBGLNO 0x0193,0x0194,0x0196,0x0197,0x0198,0x019a,0x019e,0x01a0,0x01a4,0x01a6,0x01aa,0x01b0,0x01b3,0x01b7,0x01be,0x01c5
0363 ; --------------------------------------------------------------------------------------
0363 ; Debug chain
0363 ; --------------------------------------------------------------------------------------
0363 0000 0001 | | .DBGLEN 0x0000,0x0001
0365 01d3 | | .DBGLNO 0x01d3
0366 0000 0000 | | .BLANK 0000[0x9a]